Hi Dick
I chose a "Dummy" INREC IFTHEN=(WHEN=INIT) to get the first line properly
//STEP0010 EXEC PGM=SORT
//SORTIN DD *
VID-PR06,VID38971
VID-XXXX,VIDYYYYY
/*
//SYSOUT DD SYSOUT=*
//TMPPRINT DD SYSOUT=*
//TMPFILE1 DD DSN=&&TMPSYMB1,DISP=(,PASS),
// UNIT=VIO,SPACE=(TRK,(1),RLSE),
// LRECL=80,RECFM=FB
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTFIL FNAMES=(TMPFILE1,TMPPRINT),
OUTREC=(16:C'IFTHEN=(WHEN=(57,8,SS,EQ,C''',1,8,C'''),'/,
24:C'OVERLAY=(57:C''',10,8,C''')),',
80:X)
//*
//STEP0020 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=D948.QACCREL2.D12M04.STAGE05.DATA
//SORTOUT DD SYSOUT=*
//SYSIN DD *
INREC IFTHEN=(WHEN=INIT,
BUILD=(1,80)),
// DD DISP=SHR,DSN=&&TMPSYMB1 <- containing IFTHEN-stmts
// DD *
IFOUTLEN=80 concatenate SYSIN
OPTION COPY
*
Cheers
Thomas
Posted: Tue Sep 25, 2012 9:17 pm