want to determine if hex date field populated
Posted: Sat Jun 29, 2013 12:25 amHi,
I am wanting to output a third data set from my input file that has a date (hex)4 bytes starting in pos 91 ... I only want to include the record if it has a date ... it is not 00000f
anyhelp would be appreciated.
thanks
I am wanting to output a third data set from my input file that has a date (hex)4 bytes starting in pos 91 ... I only want to include the record if it has a date ... it is not 00000f
//SORTOUT3 DD DSN=D.WIT.WRK.WCRF01.EFTPCHKC,DISP=(NEW,CATLG),
// DCB=(RECFM=FB,LRECL=0)
//SYSPRINT DD SYSOUT=A
//SYSOUT DD SYSOUT=A
//CTL1CNTL DD *
SORT FIELDS=(1,103,CH,A)
OUTFIL FNAMES=SORTOUT1,
INCLUDE=(59,1,CH,NE,C' ')
OUTREC FIELDS=(1,103,C'V')
OUTFIL FNAMES=SORTOUT2,
INCLUDE=(43,1,CH,NE,C' ')
OUTREC FIELDS=(1,103,C'R')
OUTFIL FNAMES=SORTOUT3,
INCLUDE=(93,4,??,NE,??)
OUTREC FIELDS=(1,103,C'C')
END
// DCB=(RECFM=FB,LRECL=0)
//SYSPRINT DD SYSOUT=A
//SYSOUT DD SYSOUT=A
//CTL1CNTL DD *
SORT FIELDS=(1,103,CH,A)
OUTFIL FNAMES=SORTOUT1,
INCLUDE=(59,1,CH,NE,C' ')
OUTREC FIELDS=(1,103,C'V')
OUTFIL FNAMES=SORTOUT2,
INCLUDE=(43,1,CH,NE,C' ')
OUTREC FIELDS=(1,103,C'R')
OUTFIL FNAMES=SORTOUT3,
INCLUDE=(93,4,??,NE,??)
OUTREC FIELDS=(1,103,C'C')
END
thanks