Not sure it matters, but separate your two aliases into separate lines.

_________________________________________________________________
Dave Jousma
Assistant Vice President, Mainframe Services
[email protected]
1830 East Paris, Grand Rapids, MI  49546 MD RSCB1G
p 616.653.8429
f 616.653.8497


-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On
Behalf Of Todd Last
Sent: Thursday, July 09, 2009 3:28 PM
To: [email protected]
Subject: Re: SMPE usermod sample

I'm stumped...  I've been working on this for hours and I'm not coding 
something correctly.  As I mentioned previously, I just need to create
an alias 
for EZAFTPLC...

//SMPPTFIN DD DATA,DLM=@@
++USERMOD  (TCPMD01).
++VER      (Z038) FMID (HIP61A0).
++MOD(EZAFTPLC) LKLIB(SEZALOAD) DISTLIB(AEZAMODS).
++JCLIN.
//LINK0039 EXEC PGM=IEWBLINK,PARM=('OPTIONS(GENOPTS)')
//GENOPTS  DD *
                  RENT,REUS,AC=1,AMODE=31,RMODE=ANY,CASE(MIXED)
                  DYNAM(DLL),CALL
//SYSLMOD  DD DSN=SEZALOAD
//SYSDEFSD DD DSN=SMPDUMMY
//SYSLIB   DD DSN=SCEEOBJ
//         DD DSN=SCEELKEX
//         DD DSN=SCEELKED
//         DD DSN=CSSLIB
//         DD DSN=SEUVFLIB
//SYSLIN   DD *
  ORDER   EZBOECPR
  ORDER   EZAFTPMG
  ENTRY   CEESTART
  ALIAS   FTP(CEESTART)
  INCLUDE SIEASID(EUVFKDLL)           TYPE=UTIN
  INCLUDE SIEASID(EUVFKDLP)           TYPE=UTIN
  INCLUDE SGSKHFS(GSKAH011)           TYPE=UTIN
  INCLUDE SGSKHFS(GSKAH041)           TYPE=UTIN
  INCLUDE AEZAMODS(EZAAE061)          FMID=HIP61A0
...
  INCLUDE AEZAMODS(EZBWTODM)          FMID=HIP61A0
  ALIAS   Z062016,FTP
  NAME EZAFTPLC(R)
@@
//SMPCNTL DD *
SET BDY(GLOBAL).
RECEIVE S(TCPMD01) LIST .
SET BDY(MVST100).
   APPLY S(
           TCPMD01
        )
           CHECK.
//

I get this weird message when I run the above to create my alias:
GIM43401W    MODULE EZAFTPLC IN SYSMOD TCPMD01 WAS NOT INSTALLED 
IN ANY TARGET LIBRARY.

Does anyone have a clue on what I'm coding wrong?

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

This e-mail transmission contains information that is confidential and may be 
privileged.   It is intended only for the addressee(s) named above. If you 
receive this e-mail in error, please do not read, copy or disseminate it in any 
manner. If you are not the intended recipient, any disclosure, copying, 
distribution or use of the contents of this information is prohibited. Please 
reply to the message immediately by informing the sender that the message was 
misdirected. After replying, please erase it from your computer system. Your 
assistance in correcting this error is appreciated.

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