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
 
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: 1777
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 Extend the decimal values in DIVISION Balaryan DFSORT/ICETOOL 3 Thu Oct 05, 2017 4:05 pm
No new posts Working with hex values in Filemanage... Emile Straker IBM Tools 0 Tue Sep 12, 2017 1:42 am
No new posts DB2 NULL Values display V S Amarendra Reddy DB2 3 Thu Sep 07, 2017 6:59 pm
No new posts Moving values to a variable of copybo... Vignesh Sid COBOL Programming 6 Wed Sep 06, 2017 1:04 pm
No new posts BI,TO=ZD Changing Values Tyler Dunbar DFSORT/ICETOOL 4 Tue Jul 25, 2017 12:12 am

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