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
 

 

Smarter way to replace copybook name in 8000 modules

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler
View previous topic :: :: View next topic  
Author Message
keane

New User


Joined: 24 Jul 2006
Posts: 11

PostPosted: Thu Jun 26, 2014 11:23 pm    Post subject: Smarter way to replace copybook name in 8000 modules
Reply with quote

I have a got a requirement to replace one copybook name (one liner code change due to change of version of copybook) in 8000 modules. I am looking for smarter ways (Automation) to complete this single line code change in all modules instead of manually completing these.

Appreciate your quick repsonse
Back to top
View user's profile Send private message

Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1738
Location: Bloomington, IL

PostPosted: Thu Jun 26, 2014 11:53 pm    Post subject:
Reply with quote

Rexx is the obvious answer. A HLL with embedded ISPF service calls would work, although it would be significantly more difficult, IMPO.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7223

PostPosted: Fri Jun 27, 2014 12:08 am    Post subject: Reply to: Smarter way to replace copybook name in 8000 modul
Reply with quote

Why can't the existing copybook be used? I missed that bit.
Back to top
View user's profile Send private message
prino

Active Member


Joined: 07 Feb 2009
Posts: 982
Location: Oostende, Belgium

PostPosted: Fri Jun 27, 2014 12:11 am    Post subject:
Reply with quote

IBM's IPOUPDTE, or the slightly improved (doesn't require $$$COIBM) PDSUPDTE

For what it's worth, the change is IMHO totally bogus, why not change the contents of the to-be-replaced copy book?
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1738
Location: Bloomington, IL

PostPosted: Fri Jun 27, 2014 12:45 am    Post subject:
Reply with quote

prino wrote:
For what it's worth, the change is IMHO totally bogus, why not change the contents of the to-be-replaced copy book?

In my shop, the version number is incorporated in the copybook name; thus a new version has a different name, and the name must be changed in all affected modules. (Note that don't say this is a good idea.)
Back to top
View user's profile Send private message
keane

New User


Joined: 24 Jul 2006
Posts: 11

PostPosted: Fri Jun 27, 2014 8:38 am    Post subject:
Reply with quote

Bill Woodger, prino,

Akatsukami is right!!Version Number is incorporated in the copybook name. So name must be changed in all affected modules.

I am looking for smarter option (which reduce manual efforts) in such away that I could implement the changes in one go and without much manual intervention.

I am new to REXX. So i will need to explore more about this option. If you come across any other options such as using any other utilities or writing one time routines, please do let me know.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7223

PostPosted: Fri Jun 27, 2014 12:05 pm    Post subject: Reply to: Smarter way to replace copybook name in 8000 modul
Reply with quote

Well, it has been said that it is not necessarily a good idea. Has no-one at your site had this problem before? What did they do?

If new to rexx, also check out Prino's suggestions, as you only need control cards for those.
Back to top
View user's profile Send private message
Paul Voyner

New User


Joined: 26 Nov 2012
Posts: 51
Location: Switz

PostPosted: Fri Jun 27, 2014 12:29 pm    Post subject:
Reply with quote

This is a fairly simple thing in REXX, but not if you're new to REXX.
If it's a simple 'replace string A with B' then use IPOUPDTE.
Code:

//STEP     EXEC PGM=IPOUPDTE,PARM=UPDATE
//SYSPRINT DD   SYSOUT=*
//@TEST    DD   DISP=SHR,DSN=mylib
//SYSIN    DD   *
AAAA<XXXX<
/*

This will replace AAAA with XXXX in all members in the @TEST lib

Note: Library must have a member called $$$COIBM. Doesn't matter what it contains.
There are more parameters can be used. Google IPOUPDTE + JCL
Back to top
View user's profile Send private message
Ed Goodman

Active Member


Joined: 08 Jun 2011
Posts: 556
Location: USA

PostPosted: Fri Jun 27, 2014 6:39 pm    Post subject:
Reply with quote

FileManager can do it, so can FileAid.

If you want to reduce future trouble, consider using a two-level copybook:

copybook1 contains
COPY COPYBOOK2

Then, if you need to change that name, just change copybook1


I feel lucky that my predecessors handled almost all 3rd party apps via subroutines with our own interfaces. When we have a 3rd party product change, we just fix the subroutine and we're usually good.
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 -> PL/I & Assembler All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Replace repeated JCL with looping REXX prino CLIST & REXX 3 Thu Oct 13, 2016 5:30 am
No new posts Copybook structure in Load module Vai123 COBOL Programming 7 Fri Sep 16, 2016 8:29 pm
This topic is locked: you cannot edit posts or make replies. Sort card to replace text using cross... Susanta SYNCSORT 32 Tue Sep 13, 2016 4:17 pm
No new posts Replace function abdulrafi COBOL Programming 13 Mon Sep 12, 2016 10:12 am
No new posts Need a help how to replace a string i... gurunath82 CLIST & REXX 12 Tue Jul 26, 2016 11:43 pm


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