View previous topic :: View next topic
|
Author |
Message |
suganthyprabha
New 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:
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)
/*
|
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
when i am giving RPT3 as RPT3 dd sysout=* I am getting foll msgs.
WER108I SORTIN : RECFM=FB ; LRECL= 80; BLKSIZE= 800
WER110I RPT3 : RECFM=FBA ; LRECL= 4; BLKSIZE= 4
WER230A RPT3 HEADER/TRAILER COL FIELD OUTSIDE RANGE
Please let me know what mistake I made.
Thanks and Regards,
Suganthy. |
|
Back to top |
|
|
Kevin
Active User
Joined: 25 Aug 2005 Posts: 234
|
|
|
|
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) |
|
Back to top |
|
|
suganthyprabha
New 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. |
|
Back to top |
|
|
suganthyprabha
New 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. |
|
Back to top |
|
|
|
|