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