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

ZTEMPF RC


IBM Mainframe Forums -> CLIST & REXX
Post new topic   This topic is locked: you cannot edit posts or make replies.
View previous topic :: View next topic  
Author Message
Csongor

New User


Joined: 23 Apr 2015
Posts: 16
Location: Hungary

PostPosted: Thu Jun 09, 2016 1:37 am
Reply with quote

Hello!

Can you please tell me, is there a possibilty to work with the tailored jobs (skelajm) RC in rexx, after it get executed as ztempf?
What i want: if RC= 0 than go on working, if not than exit.

Code:

/* FILE TAILORING REXX*/                                     
GROUP='var1'                                           
NET='var2'                                               
                                                             
"ISPEXEC LIBDEF ISPSLIB DATASET ID('xxxxxx.yyyyyyy.CNTL')"   
ADDRESS ISPEXEC "FTOPEN TEMP"                                 
ADDRESS ISPEXEC "FTINCL SKELAJM"                             
ADDRESS ISPEXEC "FTCLOSE"                                     
                                                             
ADDRESS ISPEXEC "VGET (ZTEMPF)"                               
                                                             
ADDRESS TSO "SUBMIT ("ZTEMPF")"                               
EXIT                                                         
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2453
Location: Hampshire, UK

PostPosted: Thu Jun 09, 2016 1:39 am
Reply with quote

You can always save the submitted JCL from SDSF - or whatever spool handling facility you have.
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2214
Location: Silicon Valley

PostPosted: Thu Jun 09, 2016 5:32 am
Reply with quote

I think the poster wants to check the results of the job before continuing to the next steps in the rexx program.

The simple answer is to use the SDSF REXX API to get the job output. Though, most people here frown on that because the job execution might be delayed and your TSO session is hung up.

If there are multiple steps needed, submit a job with multiple steps.

Conversely, if the job is so small, then use the TSO CALL command to execute the program from your TSO session. Do this as part of your rexx program.
Back to top
View user's profile Send private message
enrico-sorichetti

Senior Moderator


Joined: 14 Mar 2007
Posts: 10714
Location: italy

PostPosted: Thu Jun 09, 2016 9:26 am
Reply with quote

Quote:
Conversely, if the job is so small, then use the TSO CALL command to execute the program from your TSO session. Do this as part of your rexx program.


many organisation disallow this approach
Back to top
View user's profile Send private message
Willy Jensen

Active User


Joined: 01 Sep 2015
Posts: 416
Location: Denmark

PostPosted: Thu Jun 09, 2016 11:33 am
Reply with quote

possible solution:
after the submit, pop up a small panel asking for edit or quit
user splits the screen and check the job in SDSF
go back to the first screen and respond to the panel prompt
if 'quit' then quit
if 'edit' then do Address IspExec "edit dataset('"ztempf"')" and re-issue the prompt
Back to top
View user's profile Send private message
Csongor

New User


Joined: 23 Apr 2015
Posts: 16
Location: Hungary

PostPosted: Thu Jun 09, 2016 7:34 pm
Reply with quote

Thank you for the ansvers, the sdsf API looks promising.
I think I have dig a lot to get the ansver.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   This topic is locked: you cannot edit posts or make replies. View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX

 


Similar Topics
Topic Forum Replies
No new posts Problem with SUBMIT "ZTEMPF"... TSO/ISPF 9
No new posts ZTEMPF when file tayloring a ISPF ske... TSO/ISPF 3
Search our Forums:

Back to Top