Can someone tell me what I have wrong here?
This code works:
However, when I change the output record length to 80, I get an error:
All I want to accomplish is to create an 80 byte record.
What do I have wrong?
Randy
This code works:
Code:
//STEP02 EXEC PGM=SORT
//SORTLIB DD DSN=SYS1.SORTLIB,DISP=SHR
//SORTWK01 DD UNIT=DISK6,SPACE=(CYL,(75,25),RLSE)
//SORTWK02 DD UNIT=DISK6,SPACE=(CYL,(75,25),RLSE)
//SYSOUT DD SYSOUT=X
//SORTIN DD DSN=TST1.LVL6.INPUT.FILE.#01,DISP=SHR
//SORTOUT DD DSN=TST1.LVL6.OUTPUT.FILE.#02,
// SPACE=(CYL,(1,5),RLSE),UNIT=SYSDA,
// DCB=(RECFM=FB,LRECL=04,BLKSIZE=27996),
// DISP=(,CATLG,DELETE)
//SYSIN DD *
SORT FIELDS=(20,2,A,18,2,A),FORMAT=BI
OMIT COND=(18,2,CH,EQ,C'**')
OUTFIL FNAMES=SORTOUT,OUTREC=(1:20,2,3:18,2)
/*
//*
Code:
ICE201I 0 RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE222A 0 4 BYTE FIXED RECORD LENGTH IS NOT EQUAL TO 80 BYTE LRECL FOR SORTOUT
What do I have wrong?
Randy