Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Building control cards dynamically with varying rec count

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics
View previous topic :: :: View next topic  
Author Message
rikdeb

New User


Joined: 19 Jan 2009
Posts: 62
Location: hyderabad

PostPosted: Sat Nov 15, 2014 3:27 pm    Post subject: Building control cards dynamically with varying rec count
Reply with quote

Hi All,
Want some suggestion on how to progress on the following scenario.
Suppose i have a flat file which can contain multiple records say 1 to 10 records (say IDno pic x(10))
Code:
2010096220
2010098680
2010099400
2010101220
2010102330


My intention is to build a jcl like below with the IDnos from above dataset
Code:
//STEP02  EXEC PGM=FILEAID                                   
//STEPLIB   DD DISP=SHR,DSN=FILEAID.LOAD                 
//SYSOUT    DD SYSOUT=*                                       
//SYSPRINT  DD SYSOUT=*                                       
//SYSLIST   DD SYSOUT=*                                       
//DD01      DD DISP=SHR,DSN=TEST.RECORDS.BACKUP
//DD01O     DD DISP=(,CATLG),DSN=TEST.CURRENT.FILE
//             SPACE=(CYL,(50,50),RLSE),LRECL=2004,           
//             RECFM=VB,BLKSIZE=0                             
//SYSIN     DD *                                             
$$DD01  COPY  IF=(42,EQ,C'2122285880,1074362440,2010099400'),
              OR=(42,EQ,C'2010101220,2010102330')   
     


Could you please provide Suggestions to build this control card : (copy if=....) dynamically as per the input records in SAS or sort ?
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10327
Location: italy

PostPosted: Sat Nov 15, 2014 6:02 pm    Post subject: Reply to: Building control cards dynamically with varying re
Reply with quote

most probably the fastest way around could be a joinkey <SORT>
with the option to keep the records of the <big> file which match the <small> file
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 -> All Other Mainframe Topics All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
No new posts column with count of rows within dist... ronald wouterson DB2 4 Sun Sep 17, 2017 9:48 pm
No new posts Updating the Trailer count in variabl... satheshbabur DFSORT/ICETOOL 6 Wed Aug 30, 2017 9:49 pm
No new posts SORT Trailer Count - LRECL Output co... amorante DFSORT/ICETOOL 5 Tue Aug 29, 2017 8:57 pm
No new posts Changing sort Card Dynamically vickey_dw DFSORT/ICETOOL 5 Sat Aug 19, 2017 2:33 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us