Regarding Header1 and Outrec in Sorting

suganthyprabha · Active User Joined: 28 Jul 2005 Posts: 58

Hi Friends,

I am doing report generation. I am getting the abend S000 U0016.

My code is as follows:

Kevin · Active User Joined: 25 Aug 2005 Posts: 254

Well, your OUTREC statement is:

OUTREC=(3:1,4.25:7,10)

with a period instead of a comma. It should be:

OUTREC=(3:1,4,25:7,10)

and, by my calculations, it specifies an output LRECL of 35. If that length is less than your headers, you will need to add some spaces, i.e.:

OUTREC=(3:1,4,25:7,10,80:X)

suganthyprabha · Active User Joined: 28 Jul 2005 Posts: 58

Hi Kevin,

Thank u so much. It is working. I am having one more doubt that is

U hav mentioned

Outrec=(3:1,4,25:7,10,80:x)

In this what is the exact meaning of 80:x

X-- is a blank space,

But can u please explain me clearly.

Thanks and Regards,
Suganthy.

suganthyprabha · Active User Joined: 28 Jul 2005 Posts: 58

Hi Friends,

Code:

//S1 EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=AAA.DDDDD.PS1,DISP=SHR
//RPT3 DD DSN=AAA.DDDDD.PS2,DISP=SHR
//SYSIN DD *
SORT FIELDS=(1,4,CH,A)
OUTFIL FNAMES=RPT3,LINES=10,
HEADER1=(20:' THE FIRST REPORT:',/,
20:'------------------',/,
20:'PRINTED ON: ',DATE=(MD4/),' AT ',TIME),
HEADER2=(/,3:'REPORT ON AAAA:',30:'PAGE:',PAGE,2/,
3:'EMPLOYEE NO:',25:'EMPLOYEE NAME:',2/,
3:'------------',25:'--------------',/),
OUTREC=(3:1,4.25:7,10)
/*

When i am reporting my output into the Flat file

I am getting foll msgs.

WER108I SORTIN : RECFM=FB ; LRECL= 80; BLKSIZE= 800
WER107A RPT3 RECFM INCOMPATIBLE WITH REPORT WRITING
WER110I RPT3 : RECFM=FB ; LRECL= 80; BLKSIZE= 800
WER247A RPT3 HAS INCOMPATIBLE LRECL

Y it is not possible to give the flat file in RPT3.

Please let me know.

Thanks and Regards,
Suganthy.