* $$ JOB JNM=FZABD2VJ,USER='ACCOUNTING'
* $$ LST DISP=H,CLASS=Q,LST=SYSLST,FNO=LPO1
* $$ LST DISP=H,CLASS=X,LST=X'02E',FNO=CK07,JSEP=0,OUTBIN=1, *
* $$ DEST=(,DUM1),USER='CHK'
* $$ LST DISP=H,CLASS=X,LST=X'03E',FNO=CK07,JSEP=0,OUTBIN=2,DEST=(,DUM2)
* $$ LST DISP=K,CLASS=G,LST=X'01E',FNO=LPO1, X
* $$ LTAB=06000409141924293400444900
// JOB FZABD2VJ (CMLD045) PRINT ABS REFUND CHECKS
/*
/* THIS JOB UPDATES THE ISSUED_CHECKS SQL TABLE
/*
// UPSI 10000000 BYTE ONE CONTROLS THE CONFIRMATION OF CHECK NO.
/* 1 = DO NOT PROMPT OPERATOR. 0=PROMPT OPERATOR
/* USES FILE CLEDGER CHECK LEDGER FILE
/* USES FILE CMLCHIS ABS REFUND HISTORY
// ASSGN SYS010,X'03E' CHECKS DUPLICATES
// ASSGN SYS005,X'02E' CHECKS
// ASSGN SYS006,X'01E' ERROR REPORT
// DLBL CMLCHI1,'PATH.PROD.CAB.VC.RH.DATE.ALT',0,VSAM,CAT=VSAM04
// DLBL CMLCHI2,'PATH.PROD.CAB.VC.RH.CHECK.ALT',0,VSAM,CAT=VSAM04
// DLBL ABSIN,'HOAB.SD.SORTED.VOUCHER.CHECK.INTRFACE',0,VSAM,CAT=WORK
// DLBL ABSOUT,'HOAB.SD.SORTED.VOUCHER.CHECK.INTRFACE',0,VSAM,CAT=WORK
// DLBL CHECKNO,'PROD.HOLD.VOUCHER.CHECK.NUMBER.FILE',,VSAM,CAT=VSAM04,X
BUFNI=40,BUFND=2
// EXEC CMLD045,PARM='/UPSI(10000000)'
/*
* STEP 2 OF 2 - STORE VOUCHER CHECK INTERFACE TO ACME FTP SERVER
// UPSI 0
// EXEC BSTTFTPC,SIZE=BSTTFTPC
ID 10
OPEN ACME_SERVER
USER VSEUSER
PASS VSEPASS
PWD
CWD \FTPROOT\ACME
INPUT SAM ABSOUT BLKSZ 4000 RECSZ 400 RECFM FB
TYPE A
STOR SORTED.VOUCHER.CHECK.INTRFACE.TXT
QUIT
/*
/&
* $$ EOJ
Return to the Sample Job Stream List
//FZABD2VJ JOB (FZABD2VJ),' ', // CLASS=A, // MSGCLASS=X, // MSGLEVEL=(1,1), // REGION=6M //* //JOBLIB INCLUDE MEMBER=JOBLIB //* //* STEP0010 PGM=CMLD045 //* //STEP0010 EXEC PROC=DB2BATCH, // PROGRAM=CMLD045, // PLAN=PLAN1, // PARMS='/UPSI(10000000)', // SYSTEM=DB2P //* VS VS U VSAM04 S 'PROD.CAB.VC.REFUND.HISTORY' //CMLCHIS DD DSN=MVS.PROD.CAB.VC.REFUND.HISTORY, // DISP=SHR //* VS VS U VSAM04 CMLCHI2 'PATH.PROD.CAB.VC.RH.CHECK.ALT' //CMLCHIS2 DD DSN=MVS.PATH.PROD.CAB.VC.RH.CHECK.ALT, // DISP=SHR //* VS VS U VSAM04 CMLCHI1 'PATH.PROD.CAB.VC.RH.DATE.ALT' //CMLCHIS1 DD DSN=MVS.PATH.PROD.CAB.VC.RH.DATE.ALT, // DISP=SHR //* VS VS U VSAM04 'PROD.HOLD.VOUCHER.CHECK.NUMBER.FILE' //CHECKNO DD SUBSYS=(BLSR,DDNAME=CHECKNOX) //CHECKNOX DD DSN=MVS.PROD.HOLD.VOUCHER.CHECK.NUMBER.FILE, // DISP=SHR //* VS VS X VSAM02 S 'PROD.CHECK.LEDGER.FILE' //CLEDGER DD DSN=MVS.PROD.CHECK.LEDGER.FILE, // DISP=SHR //* VS I HABMSTR /0/0 OPT=Y HAB993 //* SD VS O WORKCAT 'HOAB.SD.SORTED.VOUCHER.CHECK.INTRFACE' //ABSOUT DD DSN=SFB8.HOAB.SD.SORTED.VOUCHER.CHECK.INTRFACE, // DISP=(NEW,CATLG,DELETE), // SPACE=(TRK,(1000,250),RLSE), // UNIT=SYSDA //* SD VS I WORKCAT 'HOAB.SD.SORTED.VOUCHER.CHECK.INTRFACE' //ABSIN DD DSN=*.ABSOUT,VOL=REF=*.ABSOUT,DISP=OLD //* PR O SYS010 03E 0003 //PRT2 DD SYSOUT=(X,,CK07), // DEST=(N1,DUM2) //* PR O SYS006 01E 0004 //PRT3 DD SYSOUT=(G,,LPO1), // FCB=LTAB //* PR O SYS005 02E 0002 //PRT1 DD SYSOUT=(X,,CK07), // DEST=(N1,DUM1) //SYSOUT INCLUDE MEMBER=SYSOUT //* CD I SYSIPT 00C //SYSIN DD * /* //* //* STEP 2 OF 2 - STORE VOUCHER CHECK INTERFACE TO ACME FTP SERVER //* //* STEP0020 PGM=FTP BSTTFTPC //* //STEP0020 EXEC PGM=FTP,PARM='ACME_SERVER (EXIT' //* MODULE BSTTFTPC PROCESSED BY PLUG-IN BSTTFTPC //* MODULE FTPBATCH PROCESSED BY PLUG-IN JCLTFTP //* SD VS I WORKCAT C 'HOAB.SD.SORTED.VOUCHER.CHECK.INTRF+ PUT //ABSOUT DD DSN=SFB8.HOAB.SD.SORTED.VOUCHER.CHECK.INTRFACE, // DISP=SHR //* PR O SYSLST 00E 0001 //SYSPRINT DD SYSOUT=(Q,,LPO1) //* CD I //SYSIN DD * VSEUSER VSEPASS CD \FTPROOT\ACME ASCII PUT //DD:ABSOUT SORTED.VOUCHER.CHECK.INTRFACE.TXT QUIT /* //
Return to the Sample Job Stream List