>> Our input file is a tape variable block.
Eric,
Use the following control cards
//SYSIN DD *,SYMBOLS=JCLONLY
OPTION COPY
INCLUDE COND=(16,02,CH,EQ,C'&YR01',OR,
16,02,CH,EQ,C'&YR02',OR,
16,02,CH,EQ,C'&YR03')
INREC OVERLAY=(1877:16,02,CHANGE=(3,C'&YR01',C'100',
C'&YR02',C'010',
C'&YR03',C'001'),
NOMATCH=(C'000'))
OUTFIL FNAMES=OUT1,INCLUDE=(16,02,CH,EQ,C'&YR01'),
VTOF,BUILD=(05,1872)
OUTFIL FNAMES=OUT2,INCLUDE=(16,02,CH,EQ,C'&YR02'),
VTOF,BUILD=(05,1872)
OUTFIL FNAMES=OUT3,INCLUDE=(16,02,CH,EQ,C'&YR03'),
VTOF,BUILD=(05,1872)
OUTFIL FNAMES=REPORT,
REMOVECC,NODETAIL,VTOF,BUILD=(80X),
TRAILER1=('NUM OF RECORDS FOR TYPE &YR01. : ',
TOT=(1877,1,ZD,M10,LENGTH=8),/,
'NUM OF RECORDS FOR TYPE &YR02. : ',
TOT=(1878,1,ZD,M10,LENGTH=8),/,
'NUM OF RECORDS FOR TYPE &YR03. : ',
TOT=(1879,1,ZD,M10,LENGTH=8))
/*
Thanks,
Kolusu
DFSORT Development
IBM Corporation
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
