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: 10396
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 Skip records depends on count lakshmiibmmainframes DFSORT/ICETOOL 5 Sun Dec 24, 2017 9:51 pm
No new posts ISMF Difference between volume count ... upendrasri IBM Tools 2 Tue Dec 05, 2017 12:40 pm
No new posts Control-M restart instruction sonaliingle CA Products 2 Tue Nov 28, 2017 5:05 pm
No new posts ICETOOL - RESIZE DYNAMICALLY kranthikumarb DFSORT/ICETOOL 0 Tue Nov 21, 2017 5:30 pm
No new posts How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am

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