On 2/10/2011 12:18 AM, karolf Gazeta.pl wrote:
Sorry, but WHEN command works only after CALL/LOADGO TSO commands, not after
CALL DSN subcommand.
Karol Filipowicz
I was afraid of that. I thought it was only an outside chance.
Thanks for reporting back.
2011/2/10 Steve Comstock<st...@trainersfriend.com>
On 2/9/2011 2:07 AM, karolf Gazeta.pl wrote:
Hi!
I have a Rexx script where I run DB2 applications by DSN+CALL commands:
ret_codes.=''
do i=1 to ....
.....
q1 = " RUN PROGRAM("pgmname") PLAN("planname") "
q2 = " PARM('"parm_txt"')"
queue (q1)(q2)
queue " END "
"DSN SYSTEM(DB2X)"
ret_codes.pgm.i=pgmname
ret_codes.plan.i=planname
ret_codes.retcode.i=RC
'DELSTACK'
end
The above solution is bad from performance's point of view.
Best solution would be to build the stack and then run DSN command only
once:
do i=1 to ....
.....
q1 = " RUN PROGRAM("pgmname") PLAN("planname") "
q2 = " PARM('"parm_txt"')"
queue (q1)(q2)
end
queue " END "
"DSN SYSTEM(DB2X)"
'DELSTACK'
The thread will be created only once. But there is one difficulty. I
don't
know how to take over return codes of all
running programs (but the last).
Anybody knows the solution? (or address where TSO saves RC after running
CALL program).
regards
Karol Filipowicz
TSO doesn't save all the RCs. Remember, when you queue commands
those commands are not run until after the exec ends!
Since the DSN command runs under TSO as a command processor,
perhaps you could queue some WHEN commands (I don't know if
WHEN commands will work after DB2 subcommands, but it might
be worth a try). Maybe:
queue when sysrc(= 0) se 'return from job 1 successful' u(*)
queue (q1) (q2)
WHEN commands are documented for use after TSO CALL, so I
don't know if this will work; also, you might have to put
the send command in a REXX exec or CLIST to make it work.
Bit of a stretch. Let me know how that works, if at all.
--
Kind regards,
-Steve Comstock
The Trainer's Friend, Inc.
303-393-8716
http://www.trainersfriend.com
* To get a good Return on your Investment, first make an investment!
+ Training your people is an excellent investment
* Try our new tool for calculating your Return On Investment
for training dollars at
http://www.trainersfriend.com/ROI/roi.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html