Howard Rifkind wrote:
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
//*
Maybe something like this:
//XST0020 PROC
//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
//PST0020.SYSPROC DD *
/* your CLIST here */
You need the PROC statement for instream procs; since you
cannot have inline data in a proc, you need to do an override
or an insert. In this case, you don't even need the SYSPROC DD
statement that's in the proc itself.
Kind regards,
-Steve Comstock
The Trainer's Friend, Inc.
303-393-8716
http://www.trainersfriend.com
z/OS Application development made easier
* Our classes include
+ How things work
+ Programming examples with realistic applications
+ Starter / skeleton code
+ Complete working programs
+ Useful utilities and subroutines
+ Tips and techniques
==> Check out the Trainer's Friend Store to purchase z/OS <==
==> application developer toolkits. Sample code in four <==
==> programming languages, JCL to Assemble or compile, <==
==> bind and test. <==
==> http://www.trainersfriend.com/TTFStore/index.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
