My requirment is need to create a report. But if i am using Outrec then i am getting following error.
Code:
WER276B SYSDIAG= 906423, 2008239, 2008239, 2293500
WER164B 9,280K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B 0 BYTES RESERVE REQUESTED, 1,408K BYTES USED
WER146B 128K BYTES OF EMERGENCY SPACE ALLOCATED
WER108I SORTIN : RECFM=FB ; LRECL= 80; BLKSIZE= 800
WER257I INREC RECORD LENGTH = 11
WER110I SORTOUT : RECFM=FB ; LRECL= 11; BLKSIZE= 11
WER110I REPORT01 : RECFM=FB ; LRECL= 80; BLKSIZE= 800
WER247A REPORT01 HAS INCOMPATIBLE LRECL
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
edited to take away the annoying color
My jcl is shown below
Code:
SORT FIELDS=(1,3,CH,A)
OUTREC FIELDS=(1,3,10:14,2)
OUTFIL FNAMES=REPORT01,
SECTIONS=(1,3,SKIP=3L,
HEADER3=(1:'COURSE',6X,'NAME',1X,'REG NO.',1X,'DEGREE',
/,1:6'*',6X,4'*',1X,7'*',1X,6'*'),
TRAILER3=(/,1:'TOTAL REC PER COURSE: ',COUNT,//,
20:'******** END OF COURSE *********',/,72'.',/)),
HEADER2=(1:'TIME: ',&TIME,30:'PAGE:',&PAGE,59:'DATE: ',&DATE,
/,72'-'),
HEADER1=(25:'EMPLOYEE EDUCATION INFORMATION'),REMOVECC,
TRAILER2=(/,1:'TOTAL NUMBER OF RECORDS IN PAGE',&PAGE,':',COUNT,
60://,
18:'******* END OF PAGE ********',/,72'*',/),
TRAILER1=(18:'******* END OF THE REPORT ********')
My intension is in the input file NAMEs are placed in 14th position. i want to move that data to 10th position of output file. i am not sure how can i use OUTREC along with OUTFIL.
in my report the output field should come based on Header3. i tried the following JCl also.
JCL
SORT FIELDS=(1,3,CH,A)
OUTFIL FNAMES=REPORT01,
SECTIONS=(1,3,SKIP=3L,
HEADER3=(1:'COURSE',6X,'NAME',1X,'REG NO.',1X,'DEGREE',
/,1:6'*',6X,4'*',1X,7'*',1X,6'*'),
TRAILER3=(/,1:'TOTAL REC PER COURSE: ',COUNT,//,
20:'******** END OF COURSE *********',/,72'.',/)),
OUTREC=(1,3,10:14,2),
HEADER2=(1:'TIME: ',&TIME,30:'PAGE:',&PAGE,59:'DATE: ',&DATE,
/,72'-'),
HEADER1=(25:'EMPLOYEE EDUCATION INFORMATION'),REMOVECC,
TRAILER2=(/,1:'TOTAL NUMBER OF RECORDS IN PAGE',&PAGE,':',COUNT,
60://,
18:'******* END OF PAGE ********',/,72'*',/),
TRAILER1=(18:'******* END OF THE REPORT ********')
This time i am creating a new PS file while running iwth paramenter as follows
Joined: 17 Oct 2006 Posts: 2481 Location: @my desk
You're welcome.
Quote:
WER247A ddname HAS INCOMPATIBLE LRECL
EXPLANATION: The ddname will be SORTOUT, SORTOFxx,SORTOFx or the ddname provided by an OUTFIL FNAMES parameter.There is a conflict between the LRECL specification for the indicated output file and either the post-OUTFIL or post-OUTREC record length. Padding of records is not permitted after OUTFIL processing, so the LRECL may not be greater than the post-OUTFIL record length. Alternately, truncation of records is not permitted after the OUTREC statement or the OUTFIL OUTREC processing, so the LRECL may not be less than the post-OUTREC record length.