Here is my latest sort JCL & control cards.
//FMTCFO EXEC PGM=ICETOOL
//TOOLIN DD *
COPY FROM(INPUT) TO(OUTPUT) USING(CTL1)
/*
//* FROM - LENGTH
//CTL1CNTL DD *
OUTFIL FNAMES=OUTPUT
INREC IFTHEN=(WHEN=(14,1,CH,EQ,C'R'),
OVERLAY=(4:4,4,ZD,MUL,-1,TO=ZDC,LENGTH=4))
/*
//**
//INPUT DD DISP=SHR,
// DSN=T#JWA.TEMP.PACKED.DATA
//OUTPUT DD DSN=T#JWA.TEMP.RECORD.SIZE,
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(TRK,(15,15),RLSE),
// DCB=(RECFM=FB,LRECL=020,BLKSIZE=0)
//TOOLIN DD *
COPY FROM(INPUT) TO(OUTPUT) USING(CTL1)
/*
//* FROM - LENGTH
//CTL1CNTL DD *
OUTFIL FNAMES=OUTPUT
INREC IFTHEN=(WHEN=(14,1,CH,EQ,C'R'),
OVERLAY=(4:4,4,ZD,MUL,-1,TO=ZDC,LENGTH=4))
/*
//**
//INPUT DD DISP=SHR,
// DSN=T#JWA.TEMP.PACKED.DATA
//OUTPUT DD DSN=T#JWA.TEMP.RECORD.SIZE,
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(TRK,(15,15),RLSE),
// DCB=(RECFM=FB,LRECL=020,BLKSIZE=0)
Below is my input file:
..1........ R
00F0111022244D444444
001011C022D009000000
00F0111022244D444444
001011C022D009000000
Result is an ABEND:
09.54.01 JOB28504 +IDI0002I Module ICEOUTF offset X'5552': Abend S0C7-X'0' (Data Exception)
09.54.01 JOB28504 IEA995I SYMPTOM DUMP OUTPUT 091
Any/all help appreciated, thanks.
