Re: SMP/E GIM44402W

[Tom Marchant]

On Thu, 11 Sep 2008 09:07:41 -0500, Arthur Gutowski wrote:

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

I've done something like this:

//SMPCNTL  DD  DATA,DLM=&&amp;
++USERMOD(HASPUEX)  REWORK(2008159).
++VER (Z038) FMID(HJE7740).
++JCLIN.
//ASSEM01  EXEC PGM=IEV90
//SYSPUNCH DD DSN=&&amp;amp;PUNCH(HASPUEX)
//SYSIN    DD *
&&amp;
//       DD  DISP=SHR,DSN=UMOD.SOURCE(HASPUEX)
//       DD  DATA,DLM=&&amp;
/*
//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) .
&&amp;
//       DD  DISP=SHR,DSN=UMOD.SOURCE(HASPUEX)

The concatenated SMPCNTL includes the same source twice.  If you prefer to
keep your source in the same stream with the usermod, you can use an
IEBGENER step to copy the source to a temporary data set and use it twice. 
I'll leave the coding of that as an exercise.

-- 
Tom Marchant

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