Thanks very much Kolusu,
That worked. I'll have to study the parameters so as to understand how to build
these.
Regards,
Eric Verwijs
Programmeur-analyste, RPC, SV et solutions de paiement - Direction générale de
l'innovation, information et technologie
Emploi et Développement social Canada / Gouvernement du Canada
frederick.verw...@hrsdc-rhdcc.gc.ca
Téléphone 613-415-5465
Programmer Analyst, CPP, OAS, and Payment Solutions - Innovation, Information
and Technology Branch
Employment and Social Development Canada / Government of Canada
frederick.verw...@hrsdc-rhdcc.gc.ca
Telephone 613-415-5465
-----Original Message-----
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of Sri
h Kolusu
Sent: November 18, 2022 7:52 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ICETOOL / SORT capturing count of output records when using INCLUDE
>> 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
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
