* $$ JOB JNM=CLI6&WP,CLASS=S,DISP=K,XDEST=FT1PNET * $$ LST CLASS=0,DISP=H,LST=SYSLST,FNO=JCL,REMOTE=0,DEST=DEV2PNET // JOB CLI6&WP FTP - SOL BILLING TRANSFER /* /* TRANSFER (DISK) DATA FROM FT1 /* // EXEC PROC=CLMSQLLB // ON $ABEND OR $CANCEL GOTO BADEOJ // ON $RC GT 04 GOTO BADEOJ // OPTION NODUMP /* /* ***************************************************************** /* * CLI6P IS TRIGGERED BY CLT6P WHEN THE SOL BILLING FILES HAVE * /* * BEEN EXTRACTED. CLT6F500 WILL PROVIDE WAVE NUMBER (&WP), * /* * THE VOLUME SERIAL NUMBER OF THE DYNAM TAPE USED AS INPUT * /* * (&E) AND THE DATE (&D) USED TO CREATE THE FILE NAMES * /* * ON THE NT SERVER. * /* * THE TAPES ARE COPIED TO DISK FILES FOR TRANSFER. * /* ***************************************************************** /* /. STEP010 * STEP010 >>>>> COPY SOL BILLING FILES TO DISK FILES // TLBL FILEIN1,'P.CLT6F500.01.OUT',,&E,,,,24 OUT=1 // TLBL FILEIN2,'P.CLT6F500.02.OUT',,&E,,,,24 OUT=1 // TLBL FILEIN3,'P.CLT6F500.03.OUT',,&E,,,,24 OUT=1 // DLBL FILEOT1,'PDCLI6W010.01.SM9',,SD // DLBL FILEOT2,'PDCLI6W010.02.S17',,SD // DLBL FILEOT3,'PDCLI6W010.03.S04',,SD // EXEC CLI6W010,SIZE=CLI6W010 /* /. STEP020 * STEP020 >>>>> FPT TRANSFER INITIATION - ALL FILES // LIBDEF *,SEARCH=(NONIBM.TCPIP130) // DLBL INPUT01,'PDCLI6W010.01.SM9',,SD // DLBL INPUT02,'PDCLI6W010.02.S17',,SD // DLBL INPUT03,'PDCLI6W010.03.S04',,SD // EXEC FTP,PARM='IP=ACME_SERVER' ftpuser ******* VSEUSER VSEPASS CD CLT6 CD OUTBOUND PUT %INPUT01,SAM,F,200,16000 CSM09&D PUT %INPUT02,SAM,F,200,16000 CSM17&D PUT %INPUT03,SAM,F,331,15888 CSM04&D BYE /* // IF $RC EQ 04 THEN // GOTO BADEOJ // IF $RC EQ 03 THEN // GOTO BADEOJ // IF $RC EQ 02 THEN // GOTO BADEOJ // IF $RC EQ 01 THEN // GOTO BADEOJ /* * CLI6P-EOJ /* // GOTO $EOJ /* /. BADEOJ // PAUSE AN ERROR HAS OCCURRED IN CLI6&WP !!!! // PAUSE SEE PRODUCTION LIST FOR CONTACT PROCEDURES !!! // PAUSE *** RESTART INSTRUCTIONS ARE AT THE END OF THE JCL *** // EXEC ABENDRTN,SIZE=AUTO /* /. RESTART /* ************************************************************ /* * R E S T A R T I N S T R U C T I O N S * /* ************************************************************ /* * ABENDING | RESTART AT | * /* * STEP | STEP | SPECIAL INSTRUCTIONS * /* ************************************************************ /* * STEP010 | STEP010 | AFTER PROBLEM CORRECTED * /* * | | RESTART AT DESIGNATED STEP. * /* *------------ --------------|------------------------------* /* * STEP020 | STEP020 | TRANSFER STEP FOR ALL FILES * /* * | | * /* ************************************************************ /& * $$ EOJ
Return to the Sample Job Stream List
//CLI6P JOB (CLI6P),' ', // CLASS=A, // MSGCLASS=X, // MSGLEVEL=(1,1), // REGION=6M //* //JOBLIB INCLUDE MEMBER=JOBLIB //* //* STEP010 >>>>> COPY SOL BILLING FILES TO DISK FILES //*ON $ABEND OR $CANCEL GOTO BADEOJ //*ON $RC GT 04 GOTO BADEOJ //*/. STEP010 //* //* STEP0010 PGM=CLI6W010 //* //STEP0010 EXEC PGM=CLI6W010 //* MT I 'P.CLT6F500.01.OUT' //FILEIN1 DD DSN=MVS.CLT6F500.X01OUT, // DISP=SHR //* MT I 'P.CLT6F500.02.OUT' //FILEIN2 DD DSN=MVS.CLT6F500.X02OUT, // DISP=SHR //* MT I 'P.CLT6F500.03.OUT' //FILEIN3 DD DSN=MVS.CLT6F500.X03OUT, // DISP=SHR //* SD O 'PDCLI6W010.01.SM9' //FILEOT1 DD DSN=PDCLI6.W010-01.SM9, // DISP=(NEW,CATLG,DELETE), // SPACE=(TRK,(1000,250),RLSE), // UNIT=SYSDA //* SD O 'PDCLI6W010.02.S17' //FILEOT2 DD DSN=PDCLI6.W010-02.S17, // DISP=(NEW,CATLG,DELETE), // SPACE=(TRK,(1000,250),RLSE), // UNIT=SYSDA //* SD O 'PDCLI6W010.03.S04' //FILEOT3 DD DSN=PDCLI6.W010-03.S04, // DISP=(NEW,CATLG,DELETE), // SPACE=(TRK,(1000,250),RLSE), // UNIT=SYSDA //SYSOUT INCLUDE MEMBER=SYSOUT //* //* STEP020 >>>>> FPT TRANSFER INITIATION - ALL FILES //*/. STEP020 //* //* STEP0020 PGM=FTP //* //STEP0020 EXEC PGM=FTP,PARM='ACME_SERVER (EXIT' //* MODULE FTP PROCESSED BY PLUG-IN JCLTFTP //* SD I 'PDCLI6W010.01.SM9' PUT //INPUT01 DD DSN=PDCLI6.W010-01.SM9, // DISP=OLD //* SD I 'PDCLI6W010.02.S17' PUT //INPUT02 DD DSN=PDCLI6.W010-02.S17, // DISP=OLD //* SD I 'PDCLI6W010.03.S04' PUT //INPUT03 DD DSN=PDCLI6.W010-03.S04, // DISP=OLD //* PR O SYSLST 00E 0001 //SYSPRINT DD SYSOUT=(0,,1PLY), // DEST=DEV2PNET //* CD I //SYSIN DD * ftpuser ******* CD CLT6 CD OUTBOUND PUT //DD:INPUT01 CSM09&D PUT //DD:INPUT02 CSM17&D PUT //DD:INPUT03 CSM04&D QUIT /* //* //* CLI6P-EOJ //*IF $RC EQ 04 THEN //*GOTO BADEOJ //*IF $RC EQ 03 THEN //*GOTO BADEOJ //*IF $RC EQ 02 THEN //*GOTO BADEOJ //*IF $RC EQ 01 THEN //*GOTO BADEOJ //*GOTO $EOJ //*/. BADEOJ //* //* STEP0030 PGM=ABENDRTN //* // IF (STEP0020.RC EQ 04 // OR STEP0020.RC EQ 03 // OR STEP0020.RC EQ 02 // OR STEP0020.RC EQ 01) THEN //STEP0030 EXEC PGM=ABENDRTN // ENDIF //* //SCRATCH EXEC PGM=IEFBR14 //* //DEL001 DD DSN=PDCLI6.W010-01.SM9,DISP=(MOD,DELETE) //DEL002 DD DSN=PDCLI6.W010-02.S17,DISP=(MOD,DELETE) //DEL003 DD DSN=PDCLI6.W010-03.S04,DISP=(MOD,DELETE) //
Return to the Sample Job Stream List