When the CLIST calls the REXX, nothing is being edited at that point. Therefore, the REXX is NOT executing as a Macro and it should not contain a MACRO statement.
I think what you want to do is change the CLIST to do something like this: "ISPEXEC EDIT 'SYS1.PROCLIB.CICSBKUP.P(TOAQTQ2)' MACRO(REXTEST)" That way, when REXTEST is called it is already editing TOAQTQ2. It would not need to allocate anything and it would not need to edit TOAQTQ2. I'd explain more but I'm just about to head out. Hopefully that will get you started? Dave Salt SimpList(tm) - try it; you'll get it! http://www.mackinney.com/products/program-development/simplist.html > Date: Tue, 9 Apr 2013 18:51:01 +0000 > From: [email protected] > Subject: Invoking a Rexx Exec From a ClLIST > To: [email protected] > > Let me begin by saying I am NOT a Rex Person > I know a little about CLISTS, But I am No way a Rexx person. > > I need to call a Rexx Exec from an established CLIST. > > So before I attempted this endevor, I cobbled two small routines a CLIST > which issues EX 'TEC0P0D1.REXX(REXTEST)' and a Rexx Exec which Edits a > Dataset and Changes a Value > > The CLIST Issues: > EX 'TEC0P0D.REXX(REXTEST)' > > > > The REXXTEST Module looks like this: > /* REXX member name REXTEST */ > ISREDIT MACRO > TRACE ALL > > "ALLOC FILE(SYSEXEC) DATASET('TEC0P0D.REXX') SHR REUSE" > > ADDRESS ISPEXEC > "ISREDIT EDIT 'SYS1.PROCLIB.CICSBKUP.P(TOAQTQ2)'" > "ISREDIT MACRO" > "ISREDIT FIND HBRIDG" > "ISREDIT CHANGE V606 V652" > "ISREDIT SAVE" > "ISREDIT > > > > During invocation of the CLIST from TSO Option 6 > EX 'TEC0P0D.REXX(REXTEST)' > 5 *-* "ALLOC FILE(SYSEXEC) DATASET('TEC0P0D.REXX') SHR REUSE" > >>> "ALLOC FILE(SYSEXEC) DATASET('TEC0P0D.REXX') SHR REUSE" > 7 *-* ADDRESS ISPEXEC > 8 *-* "ISREDIT EDIT 'SYS1.PROCLIB.CICSBKUP.P(TOAQTQ2)'" > >>> "ISREDIT EDIT 'SYS1.PROCLIB.CICSBKUP.P(TOAQTQ2)'" > +++ RC(20) +++ > 9 *-* "ISREDIT MACRO" > >>> "ISREDIT MACRO" > +++ RC(20) +++ > 10 *-* "ISREDIT FIND HBRIDG" > >>> "ISREDIT FIND HBRIDG" > +++ RC(20) +++ > 11 *-* "ISREDIT CHANGE V606 V652" > >>> "ISREDIT CHANGE V606 V652" > +++ RC(20) +++ > 12 *-* "ISREDIT SAVE" > >>> "ISREDIT SAVE" > +++ RC(20) +++ > 13 *-* "ISREDIT END" > >>> "ISREDIT END" > +++ RC(20) +++ > FREE FILE(SYSEXEC) > *** > > > My undersatanding of the RC(20) means that I dont have a proper environment. > > Can Some One explain to me how to properly Invoke a Rexx Exec from a CLIST > I need very specific details.. > > Thank You In Advance > Paul > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
