ballaswaroop
New User
Joined: 20 Sep 2005 Posts: 25
|
|
|
|
I have a file where in I need to include the header which is more then 113 characters long. When I used the DCB parameter as FB and Lrecl as 170 it is giving me the following error
WER108I SORTIN : RECFM=FB ; LRECL= 112; BLKSIZE= 2240
WER110I SORTOUT : RECFM=FB ; LRECL= 112; BLKSIZE= 2240
WER110I RPT3 : RECFM=FBA ; LRECL= 170; BLKSIZE= 27880
WER247A RPT3 HAS INCOMPATIBLE LRECL
My Input Jcl is as follows.
Code: |
/SORT001 EXEC PGM=SORT
/SORTIN DD DSN=APG.INV.COST.TP.FIN.G0210V00,DISP=SHR
/RPT3 DD DSN=GT0472.KEEP.INV.COST.TP.FIN,
/ DISP=(NEW,CATLG,DELETE),
/ UNIT=SYSDA,SPACE=(CYL,(10,05),RLSE),
/ DCB=(LRECL=170,RECFM=FBA)
/SORTOUT DD SYSOUT=*
/SYSIN DD *
SORT FIELDS=COPY
OUTFIL FNAMES=RPT3,REMOVECC,
HEADER2=('ID','/',
'SEQNUM',',',
'PART NUMBER',',',
'DESCRIPTION',',',
'OPERATION',',',
'OPS-MISS',',',
'AREA',',',
'LOCATION',',',
'QTY',',',
'NEW MATERIAL',',',
'NEW MACH LABOR',',',
'NEW ASSY LABOR',',',
'OLD MATERIAL',',',
'OLD MACH LABOR',',',
'OLD ASSY LABOR')
/*
//SYSOUT DD SYSOUT=*
//SYPRINT DD SYSOUT=*
|
|
|