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
