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: 1755
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 Sorting of hex values Saurabh_mi DFSORT/ICETOOL 11 Thu May 25, 2017 3:49 pm
No new posts Replace values in the input data Vikas Maharnawar DFSORT/ICETOOL 10 Thu May 11, 2017 2:18 pm
No new posts Dynamic split of files under groups sril.krishy DFSORT/ICETOOL 4 Mon Apr 17, 2017 1:09 pm
No new posts Compare two files and subtract values ameetmund DFSORT/ICETOOL 7 Fri Mar 31, 2017 3:35 pm
No new posts Check Binary Values for symbols gandikk CA Products 3 Tue Mar 21, 2017 5:11 am


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