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
 
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: 10326
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 ejck thru rexx to multiple jobs insid... Susanta All Other Mainframe Topics 5 Tue Sep 19, 2017 1:39 pm
No new posts PLI - printing from multiple programs Pedro PL/I & Assembler 8 Fri Sep 08, 2017 6:36 am
No new posts SORT Trailer Count - LRECL Output co... amorante DFSORT/ICETOOL 5 Tue Aug 29, 2017 8:57 pm
No new posts Repeat part of record multiple times Learncoholic DFSORT/ICETOOL 4 Tue Aug 29, 2017 11:33 am
No new posts Match two files using multiple keys a... santoshks1987 SYNCSORT 11 Fri Aug 18, 2017 10:50 am

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