|
View previous topic :: View next topic
|
| Author |
Message |
Csongor
New User
Joined: 23 Apr 2015
Posts: 16
Location: Hungary
|
|
|
|
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 |
|
 |
Nic Clouston
Global Moderator
Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK
|
|
|
|
| You can always save the submitted JCL from SDSF - or whatever spool handling facility you have. |
|
| Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
| 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 |
|
|
Willy Jensen
Active Member
Joined: 01 Sep 2015
Posts: 712
Location: Denmark
|
|
|
|
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 |
|
|
Csongor
New User
Joined: 23 Apr 2015
Posts: 16
Location: Hungary
|
|
|
|
Thank you for the ansvers, the sdsf API looks promising.
I think I have dig a lot to get the ansver. |
|
| Back to top |
|
|
|
|
