Return to the Sample Job Stream List

CLI6P Sample Job Stream

Original JCL (VSE)

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

Translated JCL (MVS)

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