On Thu, 11 Sep 2008 08:47:46 -0400, Kurt Quackenbush 
<[EMAIL PROTECTED]> wrote:

>Expanding upon Brian's example:
>
>++USERMOD(HASPUEX)  REWORK(2008159).
>++VER (Z038) FMID(HJE7740).
>++JCLIN.
>//ASSEM01  EXEC PGM=IEV90
>//SYSPUNCH DD DSN=&&amp;PUNCH(HASPUEX)
>//SYSIN    DD *
>(complete assembler source code containing macro references here)
>/*
>//LINK0002 EXEC PGM=IEWBLINK,PARM=('OPTIONS(GENOPTS)')
>//GENOPTS  DD *
>                   RENT,REUS,REFR,NCAL
>//SYSLMOD  DD DSN=SYS1.SHASLNKE
>//SYSLIN   DD *
>  INCLUDE AHASMOD(HASPUEX)
>  NAME  HASPUEX
>++SRC  (HASPUEX) SYSLIB(SHASSRC) DISTLIB(AHASSRC) .
>(assembler source code here)

Could you use something like:

//SYSIN DD  DISP=SHR,DSN=DDDEF.IS.USERSRC(HASPUEX)

in the ++JCLIN, and TXLIB(USERSRC) on the ++SRC if you didn't want to have 
the source code inline twice?  If it's a choice between UCLIN and maintaining 
two copies of source, I'll take the UCLIN...

Regards,
Art Gutowski
Ford Motor Company

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