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

How to submit a JCL thru REXX


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
yogeshbabu

New User


Joined: 30 Nov 2005
Posts: 19
Location: India

PostPosted: Wed Mar 22, 2006 9:30 am
Reply with quote

Hi all,

I need to submit a JCL thru REXX by overiding the file name every time. My requirement is like, I need to perform a string search in a PS and direct the search results to a PS. For that I want to create a JCL and invoke ISRSUPC utility (search) and override the PS filenames every time.
Can anyone help me in doing this ? Is there any other way of achieving the above requirement?

Thanks & Regards,
Yogesh
Back to top
View user's profile Send private message
KMK

New User


Joined: 29 Jul 2005
Posts: 18

PostPosted: Wed Mar 22, 2006 12:46 pm
Reply with quote

To submit JCL through REXX you can use the TSO command in REXX

ADDRESS TSO
"SUBMIT '<Dsn name>'"

This will submit the jcl present in the dsn.
Back to top
View user's profile Send private message
bonniem

New User


Joined: 09 Aug 2005
Posts: 67

PostPosted: Wed Mar 22, 2006 1:44 pm
Reply with quote

Create a rexx to create your search JCL taking the input and output dsns and search string as input. write the JCL into a PS of lrecl 80 and submit using tso sub '<PS name>'
Back to top
View user's profile Send private message
superk

Global Moderator


Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA

PostPosted: Wed Mar 22, 2006 5:06 pm
Reply with quote

QUEUE the JCL records into the data stack. After the last record, QUEUE a terminator of "$$". Then, issue the TSO command "SUBMIT * END($$)":

Code:

QUEUE "//MYJOB JOB (...),CLASS=X,MSGCLASS=X"
QUEUE "//STEP1 EXEC PGM=ISRSUPC,..."
...
QUEUE "//*"
QUEUE "$$"
o = OUTTRAP("output.",,"CONCAT")       
"SUBMIT * END($$)"
o = OUTTRAP(OFF)                       
Back to top
View user's profile Send private message
yogeshbabu

New User


Joined: 30 Nov 2005
Posts: 19
Location: India

PostPosted: Wed Mar 22, 2006 8:06 pm
Reply with quote

Hi,

Thanks for you inputs. I am new to rexx. can you explain me the OUTTRAP in detail
o = OUTTRAP("output.",,"CONCAT")
o = OUTTRAP(OFF)


Thanks & Regards,
Yogesh
Back to top
View user's profile Send private message
superk

Global Moderator


Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA

PostPosted: Thu Mar 23, 2006 1:47 am
Reply with quote

OUTTRAP is a TSO/E external function that traps output from commands.

See here for more details.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX

 


Similar Topics
Topic Forum Replies
No new posts Compile Several JCL JOB Through one r... CLIST & REXX 4
No new posts Running REXX through JOB CLIST & REXX 13
No new posts Error to read log with rexx CLIST & REXX 11
No new posts isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
No new posts run rexx code with jcl CLIST & REXX 15
Search our Forums:

Back to Top