I don't know if this works in batch but from interactive TSO you can start the interactive trace with the EXECUTIL TS TSO command. All REXX scripts started thereafter are run as if "trace ?i" was specified. Stop the trace again with "EXECUTIL TE".
You could try the following. Note that instead of calling the rexx from the PARM its called from SYSTSIN. Variables don't work here, so the "FUNCTION" has to be specified directly in SYSTSIN //PST0020 EXEC PGM=IKJEFT1A, // REGION=1M, // PARM='%PARM2TMP PARM2TMP &FUNCTION', // COND=(5,LT) //SYSPROC DD DISP=SHR,DSN=PRUN.SYSPROG.CUR.CLIST //SYSTSPRT DD SYSOUT=(,),OUTPUT=(*.OUT1,*.STD) //SYSIN DD SYSOUT=(,),OUTPUT=(*.OUT1,*.STD) //SYSPRINT DD SYSOUT=(,),OUTPUT=(*.OUT1,*.STD) //TMPFILE DD DISP=(NEW,CATLG), // SPACE=(CYL,(1,1),RLSE), // DCB=(DSORG=PS,RECFM=FB,BLKSIZE=0,LRECL=80), // UNIT=SYSDA, // DSN=&ENV.TMP.SYSPROG.SY0650.JST0020.WORKFILE //SPXTAPE DD DSN=&ENV.TMP.SYSPROG.VMFTPR.&FUNCTION..LOG, // DISP=(NEW,CATLG), // UNIT=SYSDA, // DCB=(DSORG=PS,RECFM=FB,BLKSIZE=0,LRECL=132), // SPACE=(CYL,(1,1),RLSE) //SYSTSIN DD DUMMY //* // PEND //* // EXEC XST0020,ENV=E18823, // PARM.PST0020= //* //PST0020.SYSTSIN DD * EXECUITL TS %PARM2TMP PARM2TMP OPERLOG /* -- Peter Hunkeler Credit Suisse ---------------------------------------------------------------------- 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
