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 [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
