That worked. Thank you Kurt. I really appreciate it!
//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).
++MOD(EZAFTPLC) LKLIB(SEZALOAD).
++JCLIN.
//LINK0039 EXEC PGM=IEWBLINK,PARM=('OPTIONS
(GENOPTS)'),NAME=SEZALOAD
//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 *
INCLUDE SIEASID(EUVFKDLL) TYPE=UTIN
INCLUDE SIEASID(EUVFKDLP) TYPE=UTIN
INCLUDE SGSKHFS(GSKAH011) TYPE=UTIN
INCLUDE SGSKHFS(GSKAH041) TYPE=UTIN
INCLUDE SEZALOAD(EZAFTPLC)
ORDER EZBOECPR
ORDER EZAFTPMG
ENTRY CEESTART
ALIAS FTP(CEESTART)
ALIAS Z062016
NAME EZAFTPLC(R)
@@
//SMPCNTL DD *
SET BDY(GLOBAL).
RECEIVE S(TCPMD01) LIST .
SET BDY(MVST100).
APPLY S(
TCPMD01
).
//
Todd Last
MVS Systems Programmer
University of Chicago
[email protected]
----------------------------------------------------------------------
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
