Return to the Sample Job Stream List

FZABD3AJ Sample Job Stream

Original JCL (VSE)

* $$ JOB JNM=FZABD3AJ,USER='CAS VCH ACCNTG'
* $$ LST DISP=H,CLASS=Q,JSEP=1,LST=SYSLST
// JOB FZABD3AJ (CMLU025)    BACKUP CHECK FILES
// OPTION LOG
/* BACKUP ISSUED_CHECKS DBSPACE, CAN RESTORE WITH FZVCR06J
// TLBL SQLRECS,'FLVC.PRO.ISSCHK.DB.UNLOAD,U'       BACKUP FILE
// EXEC     ARIDBS,SIZE=(ARIDBS,64K)
CONNECT ACCOUNT IDENTIFIED BY PROGRAMS TO SQLPDB;
SET AUTOCOMMIT(ON)
SET STATISTICS(ON)
COMMENT '***  BACKUP ISSUED_CHECKS DBSPACE  ***'
UNLOAD DBSPACE (ISSUED_CHECKS_DB)
  OUTFILE (SQLRECS PDEV(TAPE)  REWIND);
/*
/* FILES MAY BE RESTORED WITH FZVCR02J, FILES BACKED UP ARE:
/*       PROD.CHECK.LEDGER.FILE
/*       PROD.CHECK.VENDOR.FILE
/*       PROD.CAB.VC.REFUND.HISTORY
/*       PROD.HOLD.VOUCHER.CHECK.NUMBER.FILE
/*
// TLBL TAPEOUT,'C45VCGLB,U'
// TLBL TAPETWO,'C45VCGLB,U'             DUPLEX
// UPSI 1111                             DUPLEX
// EXEC DRD,SIZE=200K
SAVE=NOP,PRINT=LIST,BLOCKSIZE=65000,AUTO=YES,FAST=YES
SAVE=LOG,SCAT=VSAM02,PARTIAL=SELECT,VUSE=SA
PROD.CHECK*
/*
SAVE=LOG,SCAT=VSAM04,PARTIAL=SELECT,VUSE=SA,ASSOC=YES
PROD.HOLD.VOUCHER.CHECK*
PROD.CAB.VC.REFUND*
/*
SAVE=NOP,TAPE=RUN
/*
/&
* $$ EOJ
   

Return to the Sample Job Stream List

Translated JCL (MVS)

//FZABD3AJ JOB (FZABD3AJ),'                    ',
//             CLASS=A,
//             MSGCLASS=X,
//             MSGLEVEL=(1,1),
//             REGION=6M
//*
//JOBLIB  INCLUDE MEMBER=JOBLIB
//*
//*     STEP0010  PROC=DSNUPROC                                         ARIDBS
//*
//STEP0010 EXEC PROC=DSNUPROC,PARM='DB2P'
//* MODULE ARIDBS PROCESSED BY PLUG-IN JCLTDBSU
//* MT O SYS005 UA             'FLVC.PRO.ISSCHK.DB.UNLOAD,U'
//SQLRECS  DD  DSN=FLVC.PRO.ISSCHK.DB.UNLOAD,
//             DISP=(NEW,CATLG,DELETE),
//             UNIT=TAPE
//* PR O SYSLST 00E 0001
//SYSPRINT DD  SYSOUT=Q
//* PR O
//UTPRINT  DD  SYSOUT=*
//* CD I
//SYSIN    DD  *
UNLOAD TABLESPACE(ISSUED_CHECKS_DB) UNLDDN(SQLRECS)
/*
//*
//*     STEP0020  PGM=ADRDSSU                                           DRD
//*
//STEP0020 EXEC PGM=ADRDSSU
//* MODULE DRD PROCESSED BY PLUG-IN JCLTDRD
//* VS VS    I VSAM02   A          'PROD.CHECK*'                        BACKUP
//#BACKUP  DD  DUMMY,DSN='MVS.PROD.CHECK*'
//* VS VS    I VSAM04   A          'PROD.HOLD.VOUCHER.CHECK*'           BACKUP
//#BACKUP  DD  DUMMY,DSN='MVS.PROD.HOLD.VOUCHER.CHECK*'
//* VS VS    I VSAM04   A          'PROD.CAB.VC.REFUND*'                BACKUP
//#BACKUP  DD  DUMMY,DSN='MVS.PROD.CAB.VC.REFUND*'
//* MT O SYS007 UA             'C45VCGLB,U'                             BACKUP
//TAPEOUT  DD  DSN=PROD.C45VCGLB(+1),
//             DISP=(NEW,CATLG,DELETE),
//             UNIT=TAPE
//* MT O SYS006 UA             'C45VCGLB,U'                             BACKUP
//TAPETWO  DD  DSN=PROD.C45VCGLB(+2),
//             DISP=(NEW,CATLG,DELETE),
//             UNIT=TAPE
//* PR O
//SYSPRINT DD  SYSOUT=*
//* CD I
//SYSIN    DD  *
 DUMP -
   DATASET( -
     INCLUDE( -
       MVS.PROD.CHECK* -
       MVS.PROD.HOLD.VOUCHER.CHECK* -
       MVS.PROD.CAB.VC.REFUND* -
            )) -
   SPHERE -
   SHARE -
   TOL(ENQF) -
   OUTDD(TAPEOUT,TAPETWO)
/*
//
   

Return to the Sample Job Stream List