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