IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Pass the value from panel to prog to submit job?


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
jackzhang75

Active User


Joined: 09 Jun 2014
Posts: 125
Location: US

PostPosted: Wed Jul 02, 2014 8:59 pm
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

Global Moderator


Joined: 21 Sep 2010
Posts: 3109
Location: NYC,USA

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

There are many examples present on this forum and over a web for similar requirements and a sample could be,
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 All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts Is this possible via sort (in one pass)? SYNCSORT 4
No new posts Preserve changes to ISPF Panel Variables TSO/ISPF 5
No new posts Execute secondary panel of sdsf with ... CLIST & REXX 1
No new posts How to pass the PARM value to my targ... COBOL Programming 8
No new posts Dynamically pass table name to a sele... DB2 2
Search our Forums:


Back to Top