IBM Mainframe Forum

WRITE (1) NOTITLE 'REPORT' 8T 'KL0617'
42T #P-REPORT-TITLE
94T 'TIME:' 100T *TIMX(EM=HH':'II)
110T 'DATE:' 116T #P-BUS-DATE /
47T 'INCOMING MESSAGE QUEUE ERROR REPORT' //
'MESSAGE SEQ NO' 17T 'TRN' 36T 'ERROR CODE' 48T
'MESSAGE' 80T 'TRADE REF' 92T 'GTI' 105T
'DATE RECEIVE' 120T 'TIME RECEIVE' / "="(132)
'TIME RECEIVE' / '='(132)


WRITE WORK FILE 1 VARIABLE
'MSG TYPE'
',' 'SEQ NO'
',' 'TRN'
',' 'TRN (2-9)'
',' 'ERROR CODE'
',' 'ERROR MESSAGE'
',' 'TRADE REF'
',' 'GTI'

WRITE(1) writes a report line to DDNAME CMPRT01, which may be defined as SYSOUT or a dataset. Natural will perform pagination automatically. The format of the line can be controlled programmatically with edit masks, tabs, line breaks, etc.

WRITE WORK FILE 1 writes a data record to DDNAME CMWKF01.

Both the report line and the data record are defined with a set of fields.

Thanks for clearing my doubt.

Hi RGZbrog! you have just make a clear explanation about the differences between Write(1) and WRITE WORK FILE 1. I absolutely agree with you and highly appreciate your contribution.