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

problem with TSO STATUS and TSO OUTPUT commands in REXX


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

New User


Joined: 09 Dec 2005
Posts: 33

PostPosted: Tue Sep 12, 2006 4:07 pm
Reply with quote

Hi all,

I'm encountering a problem that's driving me nuts. In a REXX exec, I submit 1-n jobs, and then query their STATUS (WAITING, EXECUTING, ON OUTPUT), once the status is ON OUTPUT, I issue an OUTPUT command to store the SDSF output into a seq. file.

Problem is, the STATUS indicates that the job is on the output queue, however when I issue the OUTPUT, it comes back with NO HELD OUTPUT FOR JOB and a RC = 0.

What am I doing wrong here?

here's a bit of trace info to illustrate the problem:

961 *-* trace i
962 *-* x = OUTTRAP('JOBS.')
>L> "JOBS."
>F> "JOBS."
963 *-* "STATUS "job_nam.i"("job_num.i")"
>L> "STATUS "
>C> "JOB_NAM.1"
>V> "TCV0006X"
>O> "STATUS TCV0006X"
>L> "("
>O> "STATUS TCV0006X("
>C> "JOB_NUM.1"
>V> "JOB05672"
>O> "STATUS TCV0006X(JOB05672"
>L> ")"
>O> "STATUS TCV0006X(JOB05672)"
964 *-* y = OUTTRAP('OFF')
>L> "OFF"
>F> "OFF"
965 *-* if index(jobs.1,'ON OUTPUT') > 0
>V> "JOB TCV0006X(JOB05672) ON OUTPUT QUEUE"
>L> "ON OUTPUT"
>F> "24"
>L> "0"
>O> "1"
966 *-* then
*-* do
967 *-* say jobs.1
>V> "JOB TCV0006X(JOB05672) ON OUTPUT QUEUE"
JOB TCV0006X(JOB05672) ON OUTPUT QUEUE
968 *-* "OUTPUT "job_nam.i"("job_num.i") PRINT(LCHECK"i
>L> "OUTPUT "
>C> "JOB_NAM.1"
>V> "TCV0006X"
>O> "OUTPUT TCV0006X"
>L> "("
>O> "OUTPUT TCV0006X("
>C> "JOB_NUM.1"
>V> "JOB05672"
>O> "OUTPUT TCV0006X(JOB05672"
>L> ") PRINT(LCHECK"
>O> "OUTPUT TCV0006X(JOB05672) PRINT(LCHECK"
>V> "1"
>O> "OUTPUT TCV0006X(JOB05672) PRINT(LCHECK1"
NO HELD OUTPUT FOR JOB TCV0006X(JOB05672)
969 *-* frc=rc
>V> "0"
Back to top
View user's profile Send private message
nuck

New User


Joined: 09 Dec 2005
Posts: 33

PostPosted: Tue Sep 12, 2006 4:56 pm
Reply with quote

...I think I found the problem.....

I've added a simple delay loop (i.e. do j = 1 to 999) between the STATUS and the OUTPUT command. It would appear that the output from STATUS is not entirely correct, and a small delay is required before the SDSF output can be stored. icon_eek.gif
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 TRIM everything from input, output co... DFSORT/ICETOOL 1
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
Search our Forums:

Back to Top