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
 

 

Changing all the members MGMTCLAS in a given PDS

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
seenivasakan
Currently Banned

New User


Joined: 13 May 2007
Posts: 13
Location: Karnataka

PostPosted: Thu Sep 20, 2007 12:13 pm    Post subject: Changing all the members MGMTCLAS in a given PDS
Reply with quote

Hi All,
I have a requirement that i need to change some hundred JCL'S MGMTCLAS and STORAGECLAS .

For EX: MGMTCLAS = DAM02A then it should be changed to M35D06M


I need to search for the string" MGMTCLAS" then delete the old value and have to place corresponding new value from File.

PLease suggest me some methods or tools?

Regards
Back to top
View user's profile Send private message

Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1288
Location: Chennai, India

PostPosted: Thu Sep 20, 2007 12:17 pm    Post subject: Reply to: Changing all the members MGMTCLAS in a given PDS
Reply with quote

Similar topic was discusses yesterday . Please check the below mentioned link

http://ibmmainframes.com/viewtopic.php?t=24588
Back to top
View user's profile Send private message
ksk

Active User


Joined: 08 Jun 2006
Posts: 356
Location: New York

PostPosted: Thu Sep 20, 2007 12:46 pm    Post subject:
Reply with quote

If all JCLs are in a single PDS, u can do from ISPF panel only. Use "C All SourceString DestString" command and give the particular PDS name.

Please note that u have to check where this C ALL command is existing in ur ISPF panel.

KSK
Back to top
View user's profile Send private message
seenivasakan
Currently Banned

New User


Joined: 13 May 2007
Posts: 13
Location: Karnataka

PostPosted: Thu Sep 20, 2007 4:52 pm    Post subject:
Reply with quote

My requirement is replacing 'OBSELETE' value with NEW Value. The New value is depends upon the OBSELETE Value. This new string data comes from File.

ANy ideas!!!!!!!!!
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Thu Sep 20, 2007 9:34 pm    Post subject:
Reply with quote

IDCAMS ALTER
Back to top
View user's profile Send private message
Craq Giegerich

Senior Member


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

PostPosted: Thu Sep 20, 2007 9:44 pm    Post subject:
Reply with quote

expat wrote:
IDCAMS ALTER

No, he is trying to do a find/replace to members of a PDS.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10231
Location: italy

PostPosted: Thu Sep 20, 2007 10:14 pm    Post subject:
Reply with quote

here is a quick and dirty rexx general sample to apply an edit macro
to all the members of a pds

Code:

/* REXX PROGRAM  APPLY */
MYPDS = "my.pds.dataset"
ADDRESS 'ISPEXEC'
"LMINIT DATAID(PDSDD) DATASET('"MYPDS"') ENQ(SHRW)"
"LMOPEN DATAID("PDSDD") OPTION(INPUT)"

MBR = ' '

"LMMLIST DATAID("PDSDD") MEMBER(MBR) OPTION(LIST) STATS (NO)"
LISTRC = RC

DO WHILE (LISTRC = 0)

   SAY "CALLING inner MACRO"                           
   "EDIT DATAID("PDSDD") MEMBER("MBR") MACRO(inner)"
   /* while testing - ensure an exit to the loop */

   SAY "TYPE 'Y' TO QUIT"   
   PULL QUIT
   IF ( QUIT = "Y" ) THEN LEAVE
   
   "LMMLIST DATAID("PDSDD") MEMBER(MBR) OPTION(LIST) STATS (NO)"
   LISTRC = RC

END  /* end do */
"LMCLOSE DATAID("PDSDD")"
"LMFREE DATAID("PDSDD")" 



/* REXX MACRO PROGRAM   inner                    */
SAY "inner MACRO ENTERED"
"ISREDIT MACRO PROCESS"
"ISREDIT C 'mgmtclass=oldclass' 'mgmtclass=newclass' ALL"
/* repeat as needed */
"ISREDIT END" 
ADDRESS 'ISPEXEC'
RETURN       


regards

e.s
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Thu Sep 20, 2007 11:08 pm    Post subject: Reply to: Changing all the members MGMTCLAS in a given PDS
Reply with quote

An easier alternative is to use IPOUPDTE, as already shown in many previous topics:

http://www.ibmmainframes.com/viewtopic.php?t=24201
http://www.ibmmainframes.com/viewtopic.php?t=7026
http://www.ibmmainframes.com/viewtopic.php?t=4296
http://www.ibmmainframes.com/viewtopic.php?t=1913
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Thu Sep 20, 2007 11:10 pm    Post subject:
Reply with quote

Craq Giegerich wrote:
expat wrote:
IDCAMS ALTER

No, he is trying to do a find/replace to members of a PDS.


Uhhhhhhhhhhh. Yeah just saw that icon_redface.gif

icon_eek.gif Shock horror that the the SMS setup allows people to specify MGMTCLAS and STORCLAS in their JCL.

The SMS process is supposed to be totally transparent to the user.

Oh well icon_rolleyes.gif
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 -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Changing of LRECL of a file abdulrafi DFSORT/ICETOOL 2 Fri Mar 24, 2017 3:25 pm
No new posts Copying Panvalet members to PDS LOGESHWARAN K CA Products 4 Mon Mar 06, 2017 10:45 am
No new posts changing z/os unicode conversion service meykh2014 All Other Mainframe Topics 0 Tue Jul 12, 2016 10:49 am
No new posts Single step utility for compare and u... ramprakashn JCL & VSAM 5 Fri Apr 29, 2016 3:43 pm
No new posts Differences between copying members b... E.LAI TSO/ISPF 8 Wed Mar 30, 2016 12:35 pm


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