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
 
Need Varable List to be picked up by Jobs

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC
View previous topic :: :: View next topic  
Author Message
Christopher Mark Roberts

New User


Joined: 19 Jan 2007
Posts: 7
Location: China

PostPosted: Thu Mar 01, 2007 7:05 pm    Post subject: Need Varable List to be picked up by Jobs
Reply with quote

I've recently become part of a team set to take over some legacy systems. After a little research I discovered I had many, many libs full of completely useless JCL. It can't be used because the original support team (about 3 support teams ago) hardcoded all datasets as in

DFSRESL DD DSN=sys.our.linklib

Since then all the system DS's have been renamed, thus rendering the JCL useless.

I want to bring the JCL up to speed but I don't want to hard code as this could lead to the same issue in the future.

In my last shop we kept a member that was nothing but variables assigned to datasets, then in the jcl you could reference the DS through the variable so if the name of the reslib changed you only had to change the variable in one place and all the jobs still ran. I'm embarrassed to say I never payed much attention to how it worked as it was set up before I came and I simply used the jobs.

So can anybody tell me how to set up the member and reference it in JCL? All I can find in the forum and doc are instream variable setting.

I will pre-apologize if this should be posted in the IMS DB/DC forum.

Any help is appreciated.
Back to top
View user's profile Send private message

ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Thu Mar 01, 2007 7:36 pm    Post subject:
Reply with quote

Take a look at the SET and INCLUDE commands of JCL.

O.
Back to top
View user's profile Send private message
Christopher Mark Roberts

New User


Joined: 19 Jan 2007
Posts: 7
Location: China

PostPosted: Thu Mar 01, 2007 8:18 pm    Post subject: Re: Need Varable List to be picked up by Jobs
Reply with quote

i looked at that and ran some tests, all i could get was the whole member
Back to top
View user's profile Send private message
superk

Moderator Team Head


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

PostPosted: Thu Mar 01, 2007 8:20 pm    Post subject: Re: Need Varable List to be picked up by Jobs
Reply with quote

Chris, could you elaborate on this comment:

Quote:

I will pre-apologize if this should be posted in the IMS DB/DC forum.


Why do you think this possibly should be posted in the IMS DB/DC Forum?
Back to top
View user's profile Send private message
Christopher Mark Roberts

New User


Joined: 19 Jan 2007
Posts: 7
Location: China

PostPosted: Fri Mar 02, 2007 11:57 am    Post subject:
Reply with quote

I wasn't sure if this had more to do with system setup than JCL. Most of the posts here seem to do with JCL in/re running programs.

I will also elaborate on my last comment:

i looked at that and ran some tests, all i could get was the whole member

When I set up a pds member SETPARMS, and then code

// INCLUDE MEMBER=SETPARMS

I get

3 // INCLUDE MEMBER=SETPARMS
4 &&TESTLIB=IMS.CNCCCCCC.TESTLIB
5 &&RESLIB=IMS.TEST.RESLIB

When what I want is the is the lib as part of the sysin and some type of statement in the JCL like:

testlib=&testlib

Which will resolve to IMS.CNCCCCCC.TESTLIB so that when I revamp the JCL in the shop we will only need to maintain the member SETPARMS as DS names change and the JCL will run.
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Mon Mar 05, 2007 12:31 am    Post subject:
Reply with quote

Hi Chris,

Can't imagine this is typical IMS DB/DC; operating system and system setup look closer to me. But than again: I will look into it when I get back from course whci will be 12 march. You either have to be patient, trus on Devzee or find the solution to your problem and report back.
Back to top
View user's profile Send private message
Christopher Mark Roberts

New User


Joined: 19 Jan 2007
Posts: 7
Location: China

PostPosted: Thu Mar 08, 2007 3:48 pm    Post subject: Re: Need Varable List to be picked up by Jobs
Reply with quote

Ok, after several days of frustration I finally figured out what my last shop used to use:

You create a member of a DS, IE

IMS.TOOL.BOX(SETPARMS)

Which contains statements like:

000430 //* THIS IS A TEST OF PARAMETER SETTING
000440 //*
000450 //*****************************************
000460 // SET TESTLIB=IMS.CNCCCCCC.TESTLIB
000500 // SET RESLIB=IMS.TEST.RESLIB
000600 // SET PROCLIB=IMS.TEST.PROCLIB
ETC

Then if you want for instance reslib, in your JCL you need statements:

000210 //PARMLIB JCLLIB ORDER=(IMS.TOOL.BOX)
000220 //LOCL INCLUDE MEMBER=SETPARMS
000230 //RESLIB DD DSN=&RESLIB,DISP=SHR

When the job runs it resolves thusly:

7 //RESLIB DD DSN=&RESLIB,DISP=SHR
IEFC653I SUBSTITUTION JCL - DSN=IMS.TEST.RESLIB,DISP=SHR

JCL coded in this manner is, in my opinion, lower maintenance. You can code 1 job and propagate to different systems and, if the name of the RESLIB changes, you don't need to change every piece of JCL that references the RESLIB, you just change the SET RESLIB= statement in your parameter list member.

Hope this helps somebody.
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Fri Mar 09, 2007 8:54 pm    Post subject:
Reply with quote

Thanks Chris, stored in the knowlegde database icon_wink.gif
Back to top
View user's profile Send private message
Christopher Mark Roberts

New User


Joined: 19 Jan 2007
Posts: 7
Location: China

PostPosted: Tue Mar 13, 2007 3:55 pm    Post subject: Re: Need Varable List to be picked up by Jobs
Reply with quote

It would be nice if this group had a systems forum.

Happy days.

Edited: remark removed, is irrelevant
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Tue Mar 13, 2007 4:11 pm    Post subject: Re: Need Varable List to be picked up by Jobs
Reply with quote

Christopher Mark Roberts wrote:

It would be nice if this group had a systems forum.

Happy days.


Might be.......but you should know I spend a lot of time preparing my retirement as per 1st of april coming. Once I'm retired I will have all the time in the world to investigate icon_wink.gif In addition, this would belong in JCL since it's not an IMS DB/DC item after all.

BTW: you've got PM.
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 -> IMS DB/DC 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 self-restarting jobs in OPC jzhardy IBM Tools 1 Mon Aug 21, 2017 10:15 am
No new posts member list compare jzhardy TSO/ISPF 6 Fri May 12, 2017 3:18 pm
No new posts Determine Region with max bandwidth f... seahawk789 COBOL Programming 3 Mon Feb 27, 2017 8:26 pm
No new posts SQL query to run through list of valu... Ni3-db2 DB2 14 Wed Dec 14, 2016 9:52 am

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