On Mon, 4 Aug 2008 14:15:54 -0700, Howard Rifkind <[EMAIL PROTECTED]> wrote:
>Reason I'm asking is that I want to execute the rexx exec with a trace and see what's going on. > > >--- On Mon, 8/4/08, Howard Rifkind <[EMAIL PROTECTED]> wrote: > >> From: Howard Rifkind <[EMAIL PROTECTED]> >> Subject: INLINE JCL PROC Question >> To: [email protected] >> Date: Monday, August 4, 2008, 4:58 PM >> Iâm trying to create an inline procedure using the JCL >> below. >> My questions is how should I set up the PARM parameter of >> %PARM2TMP to be used inline. If itâs inline I donât >> need to dig it out of the SYSPROC DDâ¦correct? >> >> Where in this JCL would the inline clist go if it could be >> done? >> >> Thanks. >> >> >> //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,FUNCTION=OPERLOG,ENV=E18823 >> //* >> >> >> You can't execute an "inline" / instream CLIST / REXX exec from SYSPROC or SYSEXEC. However, you can (and I do) execute it from a temp PDS by adding a prior step that copies the source to the temp PDS. Two examples on my website are RACFUDEL and LOGRREXX. URL below... Mark -- Mark Zelden Sr. Software and Systems Architect - z/OS Team Lead Zurich North America / Farmers Insurance Group - ZFUS G-ITO mailto:[EMAIL PROTECTED] z/OS Systems Programming expert at http://expertanswercenter.techtarget.com/ 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
