//STEP0002 EXEC PGM=SORT
//SORTOUT DD DSN=THERESA.TEXT1,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(TRK,(1,1),RLSE),
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=0)
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=THERESA.TEXT,DISP=SHR
//SYSIN DD *
OPTION COPY
OUTFIL OUTREC=(5,133),CONVERT
/*
//SORTOUT DD DSN=THERESA.TEXT1,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(TRK,(1,1),RLSE),
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=0)
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=THERESA.TEXT,DISP=SHR
//SYSIN DD *
OPTION COPY
OUTFIL OUTREC=(5,133),CONVERT
/*
SYSOUT shows this error:
WER108I SORTIN : RECFM=VB ; LRECL= 133; BLKSIZE= 6233
WER230A SORTOUT OUTREC FIELD OUTSIDE RANGE
WER230A SORTOUT OUTREC FIELD OUTSIDE RANGE
Please let me know where I am going wrong.
Thanks.