On Tue, 20 Sep 2005 08:56:25 -0700, Ray Mullins <[EMAIL PROTECTED]> wrote:
>Hi Paul, > >I've got an assembler program that takes the return code in the PARM: > >//SETRC EXEC PGM=SETRC,PARM='2',COND=... > >Would you like it? > IDCAMS works good for 1-15. This exec should work fine for anything else. /* rexx - set return code based on parm */ arg return_code If Datatype(return_code,Number) <>1 then do Say 'Input parm must be numeric. Setting RC=999' Exit 999 End If return_code <0 | return_code >4095 then do Say 'Return code must be between 0 and 4095. Setting RC=999' Exit 999 End Else exit return_code -- Mark Zelden Sr. Software and Systems Architect - z/OS Team Lead Zurich North America and Farmers Insurance Group mailto: [EMAIL PROTECTED] Systems Programming expert at http://Search390.com/ateExperts/ Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.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
