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
 
Pass the value from panel to prog to submit job?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
jackzhang75

Active User


Joined: 09 Jun 2014
Posts: 115
Location: windsor

PostPosted: Wed Jul 02, 2014 8:59 pm    Post subject: Pass the value from panel to prog to submit job?
Reply with quote

Hi Guys,

I want to pass the value you entered from panel to the JCL. And then use REXX to submit this JCL , how can i do that ?

my panel :
Code:
 )ATTR                                                       
   % TYPE(TEXT) COLOR(WHITE) CAPS(OFF) SKIP(ON)             
   * TYPE(TEXT) CAPS(OFF) INTENS(HIGH) COLOR(GREEN) SKIP(ON)
   ! TYPE(TEXT) CAPS(OFF) INTENS(HIGH) COLOR(BLUE) SKIP(ON) 
   _ TYPE(INPUT) PAD('_')  INTENS(HIGH) COLOR(TURQ)         
   @ TYPE(NEF) CAPS(ON) PADC(USER)                           
   # TYPE(OUTPUT) PAD(' ') CAPS(OFF) COLOR(YELLOW) JUST(LEFT)
   ? TYPE(NT)                                               
 )BODY WIDTH(80) CMD(ZCMD) EXPAND(//)                       
 *                                                           
 !/ /hello #user/ /                                         
 *                                                           
 *COMMAND ====> @ZCMD                                       
 %/ / please enter the filed / /                             
 *                                                           
 *                                                           
 *                                                           
 *                                                           
 *     
 *                                   
 */ /dataset name:_dataset  *     / /
 */ /outputname:  _jobname  *   / /   
 *                                   
 *                                   
 *                                   
 *                                   
 *                                   
 *                                   
 *                                   
 )end 


This is the JCL I wan to submit form the REXX

//TU14REX2 JOB (T,TSP,TSP8000,4,WD33),'HAO ZHANG',
// CLASS=4,MSGCLASS=T,
// NOTIFY=TU14
//STEP1 EXEC PGM=IKJEFT01,DYNAMNBR=30,REGION=4096K
//SYSEXEC DD DSN=TTAT.TSP.TU14.REXX,DISP=SHR
//SYSTSPRT DD SYSOUT=A
//SYSTSIN DD *
REXXSRCH 'TTAT.TSP.TU14.RPTS(APP069)' JOBLOG


My question is how to pass the value of dataset name and ouputname to REXXSRCH 'datset name ' 'outputname' thanks
Back to top
View user's profile Send private message

Rohit Umarjikar

Senior Member


Joined: 21 Sep 2010
Posts: 1806
Location: NY,USA

PostPosted: Wed Jul 02, 2014 9:35 pm    Post subject:
Reply with quote

There are many examples present on this forum and over a web for similar requirements and a sample could be,
http://ibmmainframes.com/about34560.html
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 -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts IDMS DC027007 T58 TASK:ADS2 PROG:ADSO... gpowell382 IDMS/ADSO 2 Fri Jun 30, 2017 11:52 pm
No new posts Trace in CLIST PANEL cvnlynn CLIST & REXX 1 Thu Jun 22, 2017 11:06 pm
No new posts SCLM -- not installed -- panel ISRNOSLM dmitchell1105 IBM Tools 3 Fri Jun 09, 2017 10:41 pm
No new posts ISPF - How to come out of ISPF Panel parasmalik20 TSO/ISPF 5 Tue Feb 21, 2017 7:44 pm
No new posts the use of 'B3'x character in a panel Pedro TSO/ISPF 1 Thu Feb 16, 2017 3:09 am

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