Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Create Dynamic Control Cards Using Icetool

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
sudib19

New User


Joined: 06 Feb 2007
Posts: 29
Location: Noida

PostPosted: Thu May 26, 2011 2:00 am    Post subject: Create Dynamic Control Cards Using Icetool
Reply with quote

Hi,

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.

Can anybody please help me in this?

Thanks
Sudip
Back to top
View user's profile Send private message

dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Thu May 26, 2011 2:10 am    Post subject:
Reply with quote

Hello,

You need to post sample data of what you have as "input" and the "output" you want when this data is processed.

Mention the recfm and lrecl of all of the files.

Mention any "rules" for getting from the input to the output.
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Thu May 26, 2011 2:28 am    Post subject:
Reply with quote

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.
Back to top
View user's profile Send private message
sudib19

New User


Joined: 06 Feb 2007
Posts: 29
Location: Noida

PostPosted: Thu May 26, 2011 3:21 am    Post subject:
Reply with quote

Hi Frank/Dick,

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 ********************************


Thanks
Sudip
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Thu May 26, 2011 3:50 am    Post subject:
Reply with quote

Here's a DFSORT job that will do what you asked for:

Code:

//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=...  input file (FB/80)
//SORTOUT DD DSN=...  output file (FB/80)
//SYSIN DD *
  OPTION COPY
  OUTFIL REMOVECC,VTOF,BUILD=(3:5,65,80:X),
    HEADER1=('  INREC FINDREP=(STARTPOS=17,ENDPOS=046,',/,
    '    INOUT=(C''|XXXXXXXXXX|'',C''|----+----1|'',',/,
    '  C''|XXXXXXXXXXXXXXXXXXXXXXXXXXXX|'',',
    'C''|XXXXXXXXXXXXXXXXXXXXXXXXXXXX|'','),
    TRAILER1=('  C''|XXXXXXXXXXXXXXXXXXXXXXXXXXXX|'',',
    'C''|XXXXXXXXXXXXXXXXXXXXXXXXXXXX|''))')
/*
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Using ICETOOL, how we can seperate th... bshkris SYNCSORT 5 Tue May 09, 2017 8:33 pm
No new posts Unable to create multiple files using... mbattu COBOL Programming 3 Fri May 05, 2017 5:35 pm
No new posts copy SEQ to PDS and create stats steve-myers JCL & VSAM 5 Thu Apr 27, 2017 1:15 am
No new posts Dynamic split of files under groups sril.krishy DFSORT/ICETOOL 4 Mon Apr 17, 2017 1:09 pm
No new posts Group elements using ICETOOL Learncoholic DFSORT/ICETOOL 2 Fri Apr 14, 2017 11:01 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us