I want to create dynamic control cards using icetool.
I have 3 files of VB LRECEL = 200 as the data and I want to create the control card in this fashion
Code:
********************************* Top of Data ******************************
INREC FINDREP=(STARTPOS=17,ENDPOS=046,
INOUT=(C'|XXXXXXXXXX|',C'|----+----1|',
C'|XXXXXXXXXXXXXXXXXXXXXXXXXXXX|',C'|XXXXXXXXXXXXXXXXXXXXXXXXXXXX|',
Data
C'|XXXXXXXXXXXXXXXXXXXXXXXXXXXX|',C'|XXXXXXXXXXXXXXXXXXXXXXXXXXXX|')).
The control card can be of VB LRECL = 200.
I tried to create a control card by using the HEADER and TRAILER parameter but it only allows VBA or FBA files. Also the (C'|XXXX etc are not recognized when I try to simply copy the data to a file and then merge it with the data.
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
Quote:
Can anybody please help me in this?
Not based on the information you've provided.
Quote:
The control card can be of VB LRECL = 200.
Not if you want it to be used by DFSORT. The control statement data set for DFSORT must have RECFM=FB and LRECL=80.
Quote:
tried to create a control card by using the HEADER and TRAILER parameter but it only allows VBA or FBA files.
To create an FB/80 output data set from a VB/200 data set, you would use something like:
Code:
OUTFIL REMOVECC,VTOF,BUILD=(5,80)
In order to help you more, I'd have to know what you're actually trying to do which you haven't explained clearly. I don't know if you want to extract information from input records and put them in the control statements, or just generate the control statements without using extracted input fields, or what. You'd need to explain exactly what you're trying to do with an example of your input records and expected output records.
Thanks for the reply and I apologize if the requirement was not clear.
I want to dynamically create a sort card within the same JCL so that I can use it in my subsequent step.
My input are 3 files which I am building in the job, all of them are Variable Blocked and have a record length of 200 which looks like this
Code:
********************************* Top of Data **********************************
C'|ATOWN |',C'|ATWN |',
C'|BWATER |',C'|BWTR |',
I want to create a Sort Card within the same job.. this would be my output for a subsequent step and would look like
Code:
********************************* Top of Data **********************************
INREC FINDREP=(STARTPOS=17,ENDPOS=046,
INOUT=(C'|XXXXXXXXXX|',C'|----+----1|',
C'|XXXXXXXXXXXXXXXXXXXXXXXXXXXX|',C'|XXXXXXXXXXXXXXXXXXXXXXXXXXXX|',
C'|ATOWN |',C'|ATWN |',
C'|BWATER |',C'|BWTR |',
C'|XXXXXXXXXXXXXXXXXXXXXXXXXXXX|',C'|XXXXXXXXXXXXXXXXXXXXXXXXXXXX|'))
******************************** Bottom of Data ********************************