INREC RDW NOT INCLUDED
Posted: Wed Sep 19, 2018 7:55 pm
Hi all
iam using the below code to add leading leading zeros to account number.
the input file was VB format so am writing op in the VB format and added +4 in the INREC fileds
still getting the error. could you please help on this or any other best way to alter the code?
iam using the below code to add leading leading zeros to account number.
the input file was VB format so am writing op in the VB format and added +4 in the INREC fileds
still getting the error. could you please help on this or any other best way to alter the code?
//STEP001 EXEC PGM=SORT
//SORTIN DD DSN=XXX.Q.KR0Z2N99.XXXIZ2WT.ISA.DAT,DISP=SHR
//SORTOUT DD DSN=XXX.Q.KR0Z2R99.XXXIZ291.ISA.DAT(+1),
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(1,1),RLSE),
// DCB=(DSORG=PS,RECFM=VB,LRECL=255,BLKSIZE=6233)
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC BUILD=(10,19,UFF,M11,LENGTH=19)
//SORTIN DD DSN=XXX.Q.KR0Z2N99.XXXIZ2WT.ISA.DAT,DISP=SHR
//SORTOUT DD DSN=XXX.Q.KR0Z2R99.XXXIZ291.ISA.DAT(+1),
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(1,1),RLSE),
// DCB=(DSORG=PS,RECFM=VB,LRECL=255,BLKSIZE=6233)
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC BUILD=(10,19,UFF,M11,LENGTH=19)