FTPGET2 Sample Job Stream

Original JCL (VSE)

* $$ JOB JNM=FTPGET2,CLASS=S,DISP=K,XDEST=FT1PNET
* $$ LST CLASS=0,DISP=H,LST=SYSLST,FNO=JCL,REMOTE=0,DEST=DEV2PNET
// JOB FTPGET2           FTP  - SOL BILLING TRANSFER
*  STEP020 >>>>> FTP TRANSFER INITIATION - ALL FILES
// LIBDEF *,SEARCH=(NONIBM.TCPIP130)
// DLBL OUTPUT1,'SAMPLE.ESDS',,VSAM
// DLBL OUTPUT2,'SAMPLE.KSDS',,VSAM
// DLBL OUTPUT3,'SAMPLE.RRDS',,VSAM
// EXEC FTP,PARM='IP=ACME_SERVER'
ftpuser
*******
VSEUSER
VSEPASS
CD DIR6
CD OUTBOUND
GET CSM08&D %OUTPUT1,ESDS,FB,100
LAPPEND CSM09&D %OUTPUT1,ESDS,FB,100,12000
GET CSM17&D %OUTPUT2,KSDS,VB,200
GET CSM04&D %OUTPUT3,RRDS,FB,331
BYE
/*
/&
* $$ EOJ
   

Return to the Sample Job Stream List

Translated JCL (MVS)

//FTPGET2  JOB (FTPGET2),'                    ',
//             CLASS=A,
//             MSGCLASS=X,
//             MSGLEVEL=(1,1),
//             REGION=6M
//*
//JOBLIB  INCLUDE MEMBER=JOBLIB
//*
//*  STEP020 >>>>> FTP TRANSFER INITIATION - ALL FILES
//*
//*     STEP0010  PROC=FTPTSO                                           FTP
//*
//STEP0010 EXEC PROC=FTPTSO
//* MODULE FTP PROCESSED BY PLUG-IN JCLTFTP
//* VS VS ES X IJSYSCT             'SAMPLE.ESDS'                        LAPPEND
//OUTPUT1  DD  DSN=FTP.SAMPLE.ESDS,
//             DISP=SHR
//* SD W            S FTPREPRO 'FTP.REPRO'                              LAPPEND
//TEMP001  DD  DSN=&&TEMP001,
//             LRECL=100,
//             RECFM=FB,
//             SPACE=(TRK,(1000,250)),
//             UNIT=SYSDA
//* SD W            S FTPREPRO 'FTP.REPRO'                              GET
//TEMP002  DD  DSN=&&TEMP002,
//             LRECL=331,
//             RECFM=FB,
//             SPACE=(TRK,(1000,250)),
//             UNIT=SYSDA
//* SD W            S FTPREPRO 'FTP.REPRO'
//TEMPVAR  DD  DSN=&&TEMPVAR,
//             LRECL=200,
//             RECFM=VB,
//             SPACE=(TRK,(1000,250)),
//             UNIT=SYSDA
//* VS VS ES O IJSYSCT             'SAMPLE.ESDS'                        GET
//OUTPUT1  DD  DSN=FTP.SAMPLE.ESDS,
//             DISP=SHR
//* VS VS KS O IJSYSCT             'SAMPLE.KSDS'                        GET
//OUTPUT2  DD  DSN=FTP.SAMPLE.KSDS,
//             DISP=SHR
//* VS VS RR O IJSYSCT             'SAMPLE.RRDS'                        GET
//OUTPUT3  DD  DSN=FTP.SAMPLE.RRDS,
//             DISP=SHR
//* PR O SYSLST 00E 0001
//SYSPRINT DD  SYSOUT=(0,,1PLY),
//             DEST=DEV2PNET
//* CD I
//SYSIN    DD  *
ACME_SERVER
ftpuser
*******
CD DIR6
CD OUTBOUND
GET CSM08&D //DD:OUTPUT1
GET CSM09&D //DD:TEMP001
TSO REPRO IFILE(TEMP001) OFILE(OUTPUT1)
GET CSM17&D //DD:TEMPVAR
TSO REPRO IFILE(TEMPVAR) OFILE(OUTPUT2) REUSE
GET CSM04&D //DD:TEMP002
TSO REPRO IFILE(TEMP002) OFILE(OUTPUT3) REUSE
QUIT
/*
//
   

Return to the Sample Job Stream List