I have a similar SMPE usermod question... I need to add an alias to
FTP (called Z062016). In the past I have relinked the module outside
of SMPE and then updated SMPE using a usermod. It isn't very clean
and it causes modid problems when I apply new TCPIP maintenance. I'm
wondering if someone can show me the correct way. This is what I
have done in the past...
//LINK EXEC PGM=IEWBLINK,PARM=('OPTIONS(GENOPTS)')
//STEPLIB DD DSN=ZOS10.SYS1.MIGLIB,DISP=SHR
//GENOPTS DD *
RENT,REUS,AC=1,AMODE=31,RMODE=ANY,CASE(MIXED)
DYNAM(DLL),CALL
//INPUT DD DSN=ZOS10.SYS1.TCPIP.SEZALOAD,DISP=SHR
//SYSLMOD DD DSN=ZOS10.SYS1.TCPIP.SEZALOAD,DISP=SHR
//SYSLIB DD DSN=ZOS10.SYS1.CEE.SCEEOBJ,DISP=SHR
// DD DSN=ZOS10.SYS1.CEE.SCEELKEX,DISP=SHR
// DD DSN=ZOS10.SYS1.CEE.SCEELKED,DISP=SHR
// DD DSN=ZOS10.SYS1.CSSLIB,DISP=SHR
// DD DSN=ZOS10.SYS1.EUVF.SEUVFLIB,DISP=SHR
//SIEASID DD DSN=ZOS10.SYS1.SIEASID,DISP=SHR
//AEZAMODS DD DSN=ZOS10.SYS1.TCPIP.AEZAMODS,DISP=SHR
//SGSKHFS DD PATH='/Service/usr/lpp/gskssl/IBM/'
//SYSPRINT DD SYSOUT=*
//SYSLIN DD *
ORDER EZBOECPR
ORDER EZAFTPMG
ENTRY CEESTART
ALIAS FTP(CEESTART)
INCLUDE SIEASID(EUVFKDLL) TYPE=UTIN
INCLUDE SIEASID(EUVFKDLP) TYPE=UTIN
INCLUDE AEZAMODS(EZAAE061) FMID=HIP61A0
.....
INCLUDE AEZAMODS(EZBWTODM) FMID=HIP61A0
INCLUDE SGSKHFS(GSKAH011) TYPE=UTIN
INCLUDE SGSKHFS(GSKAH041) TYPE=UTIN
ALIAS Z062016,FTP
NAME EZAFTPLC(R)
//SMPE EXEC PGM=GIMSMP,REGION=0M
//STEPLIB DD DSN=ZOS10.SYS1.MIGLIB,DISP=SHR
//SMPCSI DD DSN=ZOS10.SMPE.GLOBAL.CSI,DISP=SHR
//SMPHOLD DD DUMMY
//SMPPTFIN DD DATA,DLM=@@
++USERMOD (TCPMD01).
++VER (Z038) FMID (HIP61A0).
++JCLIN.
//LINK0039 EXEC PGM=IEWBLINK,PARM=('OPTIONS(GENOPTS)')
//GENOPTS DD *
RENT,REUS,AMODE=31,RMODE=ANY,CASE(MIXED)
DYNAM(DLL),CALL
//SYSLMOD DD DSN=SEZALOAD
//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 AEZAMODS(EZAAE061) FMID=HIP61A0
...
INCLUDE AEZAMODS(EZBWTODM) FMID=HIP61A0
INCLUDE SGSKHFS(GSKAH011) TYPE=UTIN
INCLUDE SGSKHFS(GSKAH041) TYPE=UTIN
ALIAS Z062016,FTP
NAME EZAFTPLC(R)
@@
//SMPCNTL DD *
SET BDY(GLOBAL).
RECEIVE S(TCPMD01) LIST .
SET BDY(MVST100).
APPLY S(
TCPMD01
).
Thanks,
Todd Last
MVS Systems Programmer
University of Chicago
tl...@uchicago.edu
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
