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   
> //*                                                       
> 
> 
> 
>       
> 
> ----------------------------------------------------------------------
> 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


      

----------------------------------------------------------------------
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

Reply via email to