I have a FB130 dataset and need to produce a new FB120 chopping out the first 10 bytes of the original. Thought that it would be quite simple to achieve it by :
//NEWSTEP EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=HLQ.FB130.FILE
//SORTOUT DD DSN=HLQ.FB120.FILE,
// DISP=(NEW,CATLG),
// SPACE=(CYL,(1,1),RLSE),UNIT=SYSDA,
// DCB=(RECFM=FB,LRECL=120)
//SYSIN DD *
OPTION COPY
OUTFIL BUILD=(11,120)
/*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=HLQ.FB130.FILE
//SORTOUT DD DSN=HLQ.FB120.FILE,
// DISP=(NEW,CATLG),
// SPACE=(CYL,(1,1),RLSE),UNIT=SYSDA,
// DCB=(RECFM=FB,LRECL=120)
//SYSIN DD *
OPTION COPY
OUTFIL BUILD=(11,120)
/*
However, I get ABEND ABENDU0027 and message
ICE027A 9 END OF SORTOUT FIELD BEYOND MAXIMUM RECORD LENGTH
with any attempt with larger lrecl's, VB, and any other similar attempt.
Any ideas would be greatly appreciated.
Thanks, George
