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: 10457
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 VSAM file NOT Found error while proce... SumaReva CICS 5 Wed Apr 11, 2018 9:54 pm
No new posts write multiple lines in PS file in cobol Balu5491 COBOL Programming 7 Wed Mar 07, 2018 10:27 am
No new posts How to build one file from two input ... daniele DFSORT/ICETOOL 5 Tue Feb 27, 2018 6:45 pm
No new posts Using multiple routines at exit 6 in ... Randy Horowitz All Other Mainframe Topics 2 Sat Feb 10, 2018 11:57 pm
No new posts Where to get sample for processing RM... vice_versa PL/I & Assembler 2 Tue Jan 16, 2018 2:03 pm

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