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
 

 

Processing multiple input GDG's

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
Lisa Christina

New User


Joined: 09 Jul 2008
Posts: 6
Location: Portland, Oregon

PostPosted: Tue Aug 26, 2008 10:43 pm    Post subject: Processing multiple input GDG's
Reply with quote

I have 44 GDG's and want to process each of those individually as input files through a COBOL program. I need to read each record in those 44 files to encrypt the account number and then rewrite the record with the new encryption info. I don't want new GDG's, just the same versions with converted data. And I don't want to submit the JCL 44 times either! (each file has approx. 10k records - record length is 1500)

Anyone have an idea for the best, most efficient way to accomplish this task with JCL? Examples please.

Thanks in advance.
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10232
Location: italy

PostPosted: Tue Aug 26, 2008 10:59 pm    Post subject: Reply to: Processing multiple input GDG's
Reply with quote

write a procedure ( inline ) and execute it 44 times...

Code:

//jobname       JOB .........
//ENCODE       PROC
//encode       EXEC PGM=Your_encoding_prog
//input_ddname   DD DISP=SHR,DSN=your_gdg_name(&GEN)
//output_ddname  DD DISP=(NEW,PASS),DSN=&&temp_dsn,
//...            DD ...           
//...            DD ...           
//replace      EXEC PGM=copy_utilty_of_your_choice
//input_ddname   DD DISP=(OLD,DELETE),DSN=&&temp_dsn
//output_ddname  DD DISP=SHR,DSN=your_gdg_name(&GEN)
//...            DD ...           
//...            DD ...           
//             PEND
//*
//             EXEC ENCODE,GEN='-1'
//             EXEC ENCODE,GEN='-2'
//             EXEC ENCODE,GEN='...'
//             EXEC ENCODE,GEN='-44'
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: Tue Aug 26, 2008 11:58 pm    Post subject:
Reply with quote

Hello,

Suggest if you write over the original files you make a copy of them first. If one of the replace steps should abend for any reason your file would be destroyed/corrupted.
Back to top
View user's profile Send private message
Craq Giegerich

Senior Member


Joined: 19 May 2007
Posts: 1512
Location: Virginia, USA

PostPosted: Wed Aug 27, 2008 12:20 am    Post subject:
Reply with quote

For GDG's there is both Generation and Version.
Back to top
View user's profile Send private message
Lisa Christina

New User


Joined: 09 Jul 2008
Posts: 6
Location: Portland, Oregon

PostPosted: Wed Aug 27, 2008 12:38 am    Post subject:
Reply with quote

Just what I was looking for...a perfect and efficient solution!

Thanks Enrico and all!
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Data replication from multiple Db2 ta... kishpra DB2 1 Mon Mar 27, 2017 9:58 pm
No new posts Unable to catalog a gdg dataset resid... Shovan JCL & VSAM 7 Fri Mar 24, 2017 2:24 pm
No new posts To display values of multiple rows in... vinu78 DB2 2 Thu Mar 09, 2017 1:20 pm
No new posts Asynchronous CICS Processing Question moezbud CICS 0 Mon Mar 06, 2017 6:13 pm
No new posts Formating the Input file sreekusr DFSORT/ICETOOL 3 Fri Feb 17, 2017 10:40 pm


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