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
 

 

How to pass dynamic values in JCL

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics
View previous topic :: :: View next topic  
Author Message
gopu503

New User


Joined: 06 Sep 2011
Posts: 1
Location: Bangalore

PostPosted: Fri Sep 30, 2011 6:29 pm    Post subject: How to pass dynamic values in JCL
Reply with quote

I'm developing a job to do PUT enable/disable queues from ZOS. I'm doing through CSQUTIL and it is executing properly.

I wanted to get queue manager, queue name and put enable/disable information from user dynamically and use in my SYSIN.

Can anyone please guide me to do dynamically.


Code:
//CSQUTIL  EXEC PGM=CSQUTIL,PARM='?'     
//*                                         
//SYSPRINT DD SYSOUT=*                       
//SYSUDUMP DD SYSOUT=*                       
//*                                         
//SYSIN    DD *                             
COMMAND DDNAME(CMDPUT)                       
/*                                           
//CMDPUT   DD *                             
 ALTER QLOCAL(quue name ?) PUT(ENABLED ?)         
//*     


edited to get rid of the sickening color and use the code tags
Back to top
View user's profile Send private message

Akatsukami

Global Moderator


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

PostPosted: Fri Sep 30, 2011 7:27 pm    Post subject:
Reply with quote

So: are you thinking of a command line interface (CLI) or an ISPF dialog?
Back to top
View user's profile Send private message
Escapa

Senior Member


Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA

PostPosted: Fri Sep 30, 2011 10:45 pm    Post subject:
Reply with quote

There are multiple ways...

1: Create ISPF Panel to accept whatever values and generate JOB by putting accepted parameters, Submit to JOB REXX.
(I am not sure how familiar you are with REXX and ISPF though)

2: create one dataset which will hold these values(possibly in DFSORT SYMNAME format)
and use DFSORT step to create desired job.
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 -> All Other Mainframe Topics All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts JES2 JEC: Use UNIX Pipes to Pass Data... Virendra Shambharkar JCL & VSAM 21 Tue Dec 20, 2016 6:55 pm
No new posts REXX DB2: Dynamic allocation of DB2.D... BHAS CLIST & REXX 3 Mon Dec 19, 2016 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
No new posts Overlaying one set of charater values... Kevin Lindsley SYNCSORT 7 Sat Nov 05, 2016 3:21 am
This topic is locked: you cannot edit posts or make replies. How to pass the previous month date i... Suganya87 DFSORT/ICETOOL 5 Mon Oct 31, 2016 4:13 pm


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