* $$ JOB JNM=P74JDC02,DISP=H,CLASS=C,PRI=5
* $$ LST DISP=K,CLASS=J,FCB=FCB2JSTK,FNO=STK1,USER=CONTROL.FILE, C
* $$ SYSID=N
* $$ LST LST=71E,DISP=K,CLASS=J,FCB=FCB2JSTK,FNO=STK1,USER=ACCT,COPY=2,C
* $$ SYSID=N
* $$ LST LST=72E,DISP=K,CLASS=J,FCB=FCB2JSTK,FNO=STK1,USER=CLAIMS, C
* $$ SYSID=N
* $$ LST LST=73E,DISP=K,CLASS=J,FCB=FCB2JSTK,FNO=STK1,USER=MIS,SYSID=N
// JOB P74JDC02
*
* 920929.0001 RAA 09/29/92 ADD CONTROL CARD PXXGLACT TO C00BD582
* TO SUPPLY ACCT PERIOD TO VOIDS/STOP PAY/
* RENUM CHECKS FOR JOURNAL ENTRIES.
*
// OPTION LOG,LOGSRC
// ASSGN SYSLST,73E
./ INCLUDE HALDMPDT,LIB=(FSLJ,SYS040)
* ************************************************************ *
* CO.74 DAILY DISBURSMENT CYCLE *
* ************************************************************ *
* JMCL NAME=STEP001
* STEP STEP001
* ************************************************************ *
* STEP 1) BEMT COMMAND AND FAVOR BACKUP OF DISBURSMENT CO.74 *
* AND CLAIMS MASTERS *
* --------------------------------- *
* PROGRAM - GVEXPORT *
* TAPE OUT - P74DBBKP.CHECKS *
* ************************************************************ *
*
// EXEC BEMT IF=(HC EQ 00),DATA
FSL CEMT SET DAT(N74DM) CLO
/*
* //IJSYSUC DD DSN=FSLCAT,
* // AMP=AMORG,DISP=SHR
* //REF DD DSN='PDSN.00786(0)',
* // DISP=(OLD,KEEP)
* //BKP DD DSN='P74DBBKP.CHECKS(+0)',
* // DISP=(NEW,CATLG),
* // OPTION=(RUN,TPL=U),UNIT=CART,
* // VOL=(PRIVATE,,,,REF=*.REF)
// EXEC GVEXPORT IF=(HC EQ 00),DATA
FVROUT=BKP(SYS005)
EXPORT EXO
CLUSTER
CL=P74.DISBURSE.MASTER
CL=P00.CLAIMS.MASTER.FILE
/*
* JMCL NAME=STEP002
* STEP STEP002
* ************************************************************ *
* STEP 2) UPDATE WRITTEN CHECKS FROM CHECKQ CO.74 *
* --------------------------------- *
* PROGRAM - C00BD580 *
* ************************************************************ *
// ASSGN SYS007,71E
* //COMSEC DD DSN=N00.COMSEC.CICS,
* // AMP=AMORG,DISP=SHR,OPTION=CAT=FSLPUCT
* //DBCHKQ DD DSN=P74.DISBURSE.MASTER,
* // AMP=AMORG,DISP=SHR,OPTION=CAT=FSLPUCT
* //DBMSTR DD DSN=P74.DISBURSE.MASTER,
* // AMP=AMORG,DISP=SHR,OPTION=CAT=FSLPUCT
* //PLNFILE DD DSN=N00.PLAN.DESC.FILE,
* // AMP=AMORG,DISP=SHR,OPTION=CAT=FSLPUCT
* //WRKFILE DD DSN='P74JDC02.DISKWK1',
* // DISP=(NEW,CATLG),UNIT=DISK,
* // VOL=SER=POOL01,SPACE=(TRK,(100,100),RLSE)
* //CHKFILE DD DSN='P74JDC02.DISKWK2',
* // DISP=(NEW,CATLG),UNIT=DISK,
* // VOL=SER=POOL01,SPACE=(TRK,(100,100),RLSE)
* //SORTWK1 DD DSN=$$$.SORTWK1,DISP=(NEW,DELETE),UNIT=DISK,
* // VOL=SER=POOL02,SPACE=(TRK,(600,600))
* //SORTWK2 DD DSN=$$$.SORTWK2,DISP=(NEW,DELETE),UNIT=DISK,
* // VOL=SER=POOL02,SPACE=(TRK,(600,600))
* //SORTWK3 DD DSN=$$$.SORTWK3,DISP=(NEW,DELETE),UNIT=DISK,
* // VOL=SER=POOL02,SPACE=(TRK,(600,600))
// EXEC C00BD580 IF=(HC EQ 00),DATA
74
./ INCLUDE PXXGLACT,LIB=(FSLJ,SYS040)
/*
* JMCL NAME=STEP003
* STEP STEP003
* ************************************************************ *
* STEP 3) UPDATE VENDORS FROM WRITTEN CHECKS CO.74 *
* ---------------------------------- *
* PROGRAM - C00BD582 *
* ************************************************************ *
// ASSGN SYS007,71E
* //COMSEC DD DSN=N00.COMSEC.CICS,
* // AMP=AMORG,DISP=SHR,OPTION=CAT=FSLPUCT
* //DBMSTR DD DSN=P74.DISBURSE.MASTER,
* // AMP=AMORG,DISP=SHR,OPTION=CAT=FSLPUCT
* //CKMSTR DD DSN=P74.DISBURSE.MASTER,
* // AMP=AMORG,DISP=SHR,OPTION=CAT=FSLPUCT
* //PLNFILE DD DSN=N00.PLAN.DESC.FILE,
* // AMP=AMORG,DISP=SHR,OPTION=CAT=FSLPUCT
* //DBMTRN DD DSN='N74DMTRN.D',
* // DISP=(NEW,CATLG),UNIT=DISK,
* // VOL=SER=POOL01,SPACE=(TRK,(100,100),RLSE)
* //SORTWK1 DD DSN=$$$.SORTWK1,DISP=(NEW,DELETE),UNIT=DISK,
* // VOL=SER=POOL02,SPACE=(TRK,(600,600))
* //SORTWK2 DD DSN=$$$.SORTWK2,DISP=(NEW,DELETE),UNIT=DISK,
* // VOL=SER=POOL02,SPACE=(TRK,(600,600))
* //SORTWK3 DD DSN=$$$.SORTWK3,DISP=(NEW,DELETE),UNIT=DISK,
* // VOL=SER=POOL02,SPACE=(TRK,(600,600))
// EXEC C00BD582 IF=(HC EQ 00),DATA
74
./ INCLUDE PXXGLACT,LIB=(FSLJ,SYS040)
/*
* JMCL NAME=STEP004
* STEP STEP004
* **********************************************************
* STEP004 - PRODUCE CHECK REGISTER CO.74 *
* --------------------- *
* PROGRAM - C00BD583 *
* DISK IN - N74DMTRN.D *
* DISK OUT1 - P00.D.SAL.POSPAY *
* DISK OUT2 - P00.D.SAL.TXT.POSPAY *
* ******************************************************** *
* $$ LST LST=0E6,DISP=K,CLASS=R
// ASSGN SYS007,0E6
* //COMSEC DD DSN=N00.COMSEC.CICS,
* // AMP=AMORG,DISP=SHR,OPTION=CAT=FSLPUCT
* //DBMSTR DD DSN=P74.DISBURSE.MASTER,
* // AMP=AMORG,DISP=SHR,OPTION=CAT=FSLPUCT
* //PLNFILE DD DSN=N00.PLAN.DESC.FILE,
* // AMP=AMORG,DISP=SHR,OPTION=CAT=FSLPUCT
* //DBMTRN DD DSN='N74DMTRN.D(0)',
* // DISP=(OLD,PASS)
* //SORTWK1 DD DSN=$$$.SORTWK1,DISP=(NEW,DELETE),UNIT=DISK,
* // VOL=SER=POOL02,SPACE=(TRK,(600,600))
* //SORTWK2 DD DSN=$$$.SORTWK2,DISP=(NEW,DELETE),UNIT=DISK,
* // VOL=SER=POOL02,SPACE=(TRK,(600,600))
* //SORTWK3 DD DSN=$$$.SORTWK3,DISP=(NEW,DELETE),UNIT=DISK,
* // VOL=SER=POOL02,SPACE=(TRK,(600,600))
* //POSPAY DD DSN='P00.D.SAL.POSPAY(+0)',
* // DISP=(NEW,CATLG),UNIT=DISK,
* // VOL=SER=POOL02,SPACE=(TRK,(100,100),RLSE)
* //TXTFIL DD DSN='P00.D.SAL.TXT.POSPAY(+0)',
* // DISP=(NEW,CATLG),UNIT=DISK,
* // VOL=SER=POOL02,SPACE=(TRK,(100,100),RLSE)
// EXEC C00BD583 IF=(HC EQ 00),DATA
74
/*
* $$ LST LST=0E6,DISP=K,CLASS=R
* JMCL NAME=STEP005
* STEP STEP005
* ************************************************************ *
* STEP 5) GENERATE G/L ACCOUNTING CO.74 *
* ----------------------- *
* PROGRAM - C00BD585 *
* ************************************************************ *
* $$ LST LST=0E4,DISP=K,CLASS=R,FCB=FCB2JSTK,FNO=STK1
// ASSGN SYS007,0E4
// ASSGN SYS008,72E
// ASSGN SYS008,IGN
* //COMSEC DD DSN=N00.COMSEC.CICS,
* // AMP=AMORG,DISP=SHR,OPTION=CAT=FSLPUCT
* //DBMSTR DD DSN=P74.DISBURSE.MASTER,
* // AMP=AMORG,DISP=SHR,OPTION=CAT=FSLPUCT
* //PLNFILE DD DSN=N00.PLAN.DESC.FILE,
* // AMP=AMORG,DISP=SHR,OPTION=CAT=FSLPUCT
// UPSI 1XXXXXXX UPSI 0 ON = NO PRIOR GLDM INPUT
// UPSI X1XXXXXX UPSI 1 ON = TESTING
// UPSI XXXXXXX1 UPSI 7 ON = AUTO RESET (GENERATE EMPTY FILE)
// UPSI 00000000
* //DBMTRN DD DSN='N74DMTRN.D(0)',
* // DISP=(OLD,KEEP)
* //GLOUT DD DSN='N74GLDM.D',
* // DISP=(NEW,CATLG),UNIT=DISK,
* // VOL=SER=POOL01,SPACE=(TRK,(100,100),RLSE)
* //GLIN DD DSN='N74GLDM.D(0)',
* // DISP=(OLD,KEEP)
* //SORTWK1 DD DSN=$$$.SORTWK1,DISP=(NEW,DELETE),UNIT=DISK,
* // VOL=SER=POOL02,SPACE=(TRK,(600,600))
// EXEC C00BD585 IF=(HC EQ 00),DATA
74
/*
* $$ LST LST=0E4,DISP=K,CLASS=R,FCB=FCB2JSTK,FNO=STK1
*
// EXEC BEMT IF=(HC EQ 00),DATA
FSL CEMT SET DAT(N74DM) OPE
/*
* JMCL NAME=STEP006
* STEP STEP006
* ************************************************************ *
* STEP 6) POST CHECK NUMBERS TO CLAIMS SYSTEM CO.74 *
* ----------------------- *
* PROGRAM - P00BD584 *
* ************************************************************ *
*
// EXEC BEMT DATA
FSL CEMT SET DAT(P00CLMF) CLO
/*
* $$ LST LST=0E8,DISP=K,CLASS=R,FNO=STK1
// ASSGN SYS007,0E8
* //CLMMSTR DD DSN=P00.CLAIMS.MASTER.FILE,
* // AMP=AMORG,DISP=SHR,OPTION=CAT=FSLPUCT
* //DBMSTR DD DSN=P74.DISBURSE.MASTER,
* // AMP=AMORG,DISP=SHR,OPTION=CAT=FSLPUCT
* //DBMTRN DD DSN='N74DMTRN.D(0)',
* // DISP=(OLD,KEEP)
* //SORTWK1 DD DSN=$$$.SORTWK1,DISP=(NEW,DELETE),UNIT=DISK,
* // VOL=SER=POOL02,SPACE=(TRK,(500,500))
* //SORTWK2 DD DSN=$$$.SORTWK2,DISP=(NEW,DELETE),UNIT=DISK,
* // VOL=SER=POOL02,SPACE=(TRK,(500,500))
* //SORTWK3 DD DSN=$$$.SORTWK3,DISP=(NEW,DELETE),UNIT=DISK,
* // VOL=SER=POOL02,SPACE=(TRK,(500,500))
// EXEC P00BD584 DATA
/*
* $$ LST LST=0E8,DISP=K,CLASS=R,FNO=STK1
*
// EXEC BEMT DATA
FSL CEMT SET DAT(P00CLMF) OPE
/*
// RESET SYS007
// RESET SYS008
* JMCL NAME=STEP007
* STEP STEP007
* ******************************************************** *
* STEP 7) RESET PREM. REFUNDS FILE FOR DISBURSMENTS CO.74 *
* ---------------------------------------- *
* PROGRAM - C00BD522 *
* UPSI - UPSI 10000000 = NO PRIOR INPUT *
* - UPSI 00000000 = PRIOR INPUT *
* - UPSI 00000001 = RESET FILE *
* ******************************************************** *
// UPSI 1XXXXXXX UPSI 0 ON = NO PRIOR CRNB INPUT
// UPSI XXXXXXX1 UPSI 7 ON = AUTO RESET (GENERATE EMPTY FILE)
// UPSI 00000001
// ASSGN SYS007,72E
* //COMSEC DD DSN=N00.COMSEC.CICS,
* // AMP=AMORG,DISP=SHR,OPTION=CAT=FSLPUCT
* //KEYREAD DD DSN=N74.POLICY.MASTER,
* // AMP=AMORG,DISP=SHR,OPTION=CAT=FSLPUCT
* //PLNFILE DD DSN=N00.PLAN.DESC.FILE,
* // AMP=AMORG,DISP=SHR,OPTION=CAT=FSLPUCT
* //TRANFL DD DSN='P74DISB.CASH(0)',
* // DISP=(OLD,KEEP)
* //CPOLDCR DD DSN='N74CRNB.D',
* // DISP=(NEW,CATLG),UNIT=DISK,
* // DCB=(BLKSIZE=22986),
* // VOL=SER=POOL01,SPACE=(TRK,(100,100),RLSE)
* //PPOLDCR DD DUMMY,OPTION=SYS050
// EXEC C00BD522 DATA EXTRACT.PREM.REFUNDS.FOR.DISB
74
/*
* JMCL NAME=STEP008
* STEP STEP008
* ******************************************************** *
* STEP 8) RESET NFO TRANS FOR DISBURSMENT CO.74 *
* --------------------------------- *
* PROGRAM - C00BD521 *
* UPSI - UPSI 10000000 = NO PRIOR INPUT *
* - UPSI 00000000 = PRIOR INPUT *
* - UPSI 00000001 = RESET FILE *
* ******************************************************** *
// UPSI 1XXXXXXX UPSI 0 ON = NO PRIOR CRNFO INPUT
// UPSI XXXXXXX1 UPSI 7 ON = AUTO RESET (GENERATE EMPTY FILE)
// UPSI 00000001
// ASSGN SYS007,72E
// ASSGN SYS010,SYSRDR
* //COMSEC DD DSN=N00.COMSEC.CICS,
* // AMP=AMORG,DISP=SHR,OPTION=CAT=FSLPUCT
* //KEYREAD DD DSN=N74.POLICY.MASTER,
* // AMP=AMORG,DISP=SHR,OPTION=CAT=FSLPUCT
* //PLNFILE DD DSN=N00.PLAN.DESC.FILE,
* // AMP=AMORG,DISP=SHR,OPTION=CAT=FSLPUCT
* //TREAD DD DSN='P74DISB.FM(0)',
* // DISP=(OLD,KEEP)
* //CPOLDCR DD DSN='N74CRNFO.D',
* // DISP=(NEW,CATLG),UNIT=DISK,
* // VOL=SER=POOL01,SPACE=(TRK,(100,100),RLSE)
* //PPOLDCR DD DSN='N74CRNFO.D(0)',
* // DISP=(OLD,KEEP)
// EXEC C00BD521 IF=(HC EQ 00),DATA EXTRACT.NFO.TRANS.F
74
./ INCLUDE N74ACCT,LIB=(FSLJ,SYS040)
/*
* $$ LST LST=72E,DISP=K,CLASS=J,FCB=FCB2JSTK,FNO=STK1,USER=CLAIMS
* JMCL NAME=STEP009
* STEP STEP009 P74JDC02 12/10/98
* *********************************************************
* STEP 9) BACKUP OF DAILY CUMULATIVE FILES *
* ----------------------- *
* TAPE OUT - P74JDC02.DAILY.BCKP *
* PROGRAM - DUSP *
* ****************************************************** *
* //FILE01 DD DSN='N74DMTRN.D(0)',
* // DISP=(OLD,KEEP)
* //FILE02 DD DSN='N74GLDM.D(0)',
* // DISP=(OLD,KEEP)
* //FILE03 DD DSN='N74CRNB.D(0)',
* // DISP=(OLD,KEEP)
* //FILE04 DD DSN='N74CRNFO.D(0)',
* // DISP=(OLD,KEEP)
* //FILE05 DD DSN='N74CRCLM.D(0)',
* // DISP=(OLD,KEEP)
* //FILE06 DD DSN='P00.D.SAL.POSPAY(0)',
* // DISP=(OLD,KEEP)
* //REF DD DSN='PDSN.00787(0)',
* // DISP=(OLD,KEEP)
* //SYS001 DD DSN='P74JDC02.DAILY.BCKP(+0)',
* // DISP=(NEW,CATLG),
* // OPTION=(TPL=U),UNIT=CART,
* // VOL=(PRIVATE,,,,REF=*.REF)
// EXEC DUSP,SIZE=DUSP IF=(HC EQ 00),DATA
SET TAPOUT1=SYS001 ;
DUMP FILE01(SAM) ;
DUMP FILE02(SAM) ;
DUMP FILE03(SAM) ;
DUMP FILE04(SAM) ;
DUMP FILE05(SAM) ;
DUMP FILE06(SAM) ;
/*
* STEP STEP010 P74JDC02 09/25/98
* **********************************************************
* STEP 10) POWERTOOLS *
* --------------------------------- *
* PROGRAM - SDSPT *
* **********************************************************
// ASSGN SYS017,01E * TO DOWNTOWN GLOBE
// ASSGN SYS018,0E6 * TO PRINT AT UA
// EXEC SDSPT IF=(HC EQ 00),DATA
OPTION NOCANCEL
COPYSEG,017,P74JDC02,CLASS=P,USER=GLOBE,DISP=K,SYSID=N,FNO=1401
COPYSEG,018,P74JDC02,CLASS=J,COPY=2,FNO=W1DE,DISP=K,FCB=FCB2JSTK
COPY,P74JDC02,R,ALLSEGS,017,018
/*
// EXEC SDSPT IF=(HC EQ 00),DATA
OPTION NOCANCEL
CMD A LST,*P74JDC0,CCLASS=R,DISP=K,DEST=FSLPWR,USER=LOCAL
/*
* STEP STEP011 P74JDC02 08/19/98
* **********************************************************
* STEP 11) POWERTOOLS *
* --------------------------------- *
* PROGRAM - SDSPT *
* DISK OUT - P74JDC02.S.OUTBOUND *
* **********************************************************
// EXEC SDSPT IF=(HC EQ 00),DATA
OPTION NOCANCEL
CMD A LST,*P74JDC0,CCLASS=R,DISP=K,DEST=FSLPWR,USER=LOCAL
/*
* //SEQ3380 DD DSN='P74JDC02.S.DOWNLOAD',
* // DISP=(NEW,CATLG),UNIT=DISK,
* // VOL=SER=POOL01,SPACE=(TRK,(400,400),RLSE)
// EXEC SDSPT DATA
OPTION NOBLANKS
COPY,*P74JDC02,R,OUTPUT=SEQ3380(LEAVE)
/*
// EXEC SDSPT IF=(HC EQ 00),DATA
OPTION NOCANCEL
CMD A LST,*P74JDC0,CCLASS=R,DISP=K
/*
* JMCL NAME=STEP012
* STEP STEP012 P74JDC02 08/24/98
* **********************************************************
* STEP 12) POWERTOOLS *
* --------------------------------- *
* PROGRAM - SDSPT *
* **********************************************************
// EXEC SDSPT IF=(HC EQ 00),DATA
OPTION NOCANCEL
CMD A LST,*P74JDC02,CCLASS=R,CLASS=W,FNO=W1DE,DISP=L,SYSID=N
CMD A LST,*P74JDC02,CCLASS=P,CLASS=W,FNO=W1DE,DISP=L,SYSID=N
/*
* JMCL NAME=STEP013
* STEP STEP013 P74JDC02 04/28/99
* **********************************************************
* STEP 13) *
* --------------------------------- *
* PROGRAM - OUTBOUND *
* DISK IN - P74JDC02.S.OUTBOUND *
* PC FILE OUT- P74JDC2.DAT *
* **********************************************************
* //INFILE DD DSN='P74JDC02.S.DOWNLOAD(0)',
* // DISP=(OLD,KEEP)
// EXEC OUTBOUND DATA
PARM APPLID(OUTB1) WAITAPPL(1000)
SESSION PCNAME (U1EE)
COPY FROMFILE(INFILE) -
TOPC (E:\DOWNLOAD\P74JDC2.DAT) -
ACCESSMETHOD(SAM) -
RECFM(FB) BLKSIZE(27930) LRECL(133) -
PCCRLF(YES) BINARY(YES) BLANKSTRIP(NO) PCCHARSET(ASCII) -
REPLACE (OK)
/*
* TOPC (P:\P74JDC2.DAT) -
// IF $RC GT 0 THEN
// PAUSE MCKINNEY OPER - OUTBOUND DID NOT WORK /JOB P74JDC02 - STEP013
/*
* JMCL NAME=STEP014
* STEP STEP014 P74JDC02 12/10/98
* **********************************************************
* STEP 14) *
* --------------------------------- *
* PROGRAM - OUTBOUND *
* DISK IN - P00.D.SAL.POSPAY *
* PC FILE OUT- SLPP&DATEPROD..DAT *
* *
* SRR 05/04/99 CHANGED SALPOSP TO SLPP IN FILENAME *
* SRR 05/04/99 ADDED &DATEPROD TO FILE NAME *
* **********************************************************
* //INFILE DD DSN='P00.D.SAL.POSPAY(0)',
* // DISP=(OLD,KEEP)
// EXEC OUTBOUND DATA
PARM APPLID(OUTB1)
SESSION PCNAME (U1EE)
COPY FROMFILE(INFILE) -
TOPC (E:\DOWNLOAD\SLPP&DATEPROD..DAT) -
ACCESSMETHOD(SAM) -
RECFM(FB) BLKSIZE(80) LRECL(80) -
PCCRLF(YES) BINARY(YES) BLANKSTRIP(NO) PCCHARSET(ASCII) -
REPLACE (OK)
/*
// IF $RC GT 0 THEN
// PAUSE MCKINNEY OPER - OUTBOUND DID NOT WORK /JOB P74JDC02 - STEP014
/*
* JMCL NAME=STEP015
* STEP STEP015 P74JDC02 05/17/99
* **********************************************************
* STEP 15) OUTBOUND *
* ------------------------ *
* PROGRAM - OUTBOUND *
* DISK IN - P00.D.SAL.TXT.POSPAY *
* PC FILE OUT - SALPOSP&DLYCYCLE.TXT *
* *
* SRR 05/04/99 ADDED &DATEPROD TO FILE NAME *
* **********************************************************
* //INFILE DD DSN='P00.D.SAL.TXT.POSPAY(0)',
* // DISP=(OLD,KEEP)
// EXEC OUTBOUND DATA
PARM APPLID(OUTB1)
SESSION PCNAME (U1EE)
COPY FROMFILE(INFILE) -
TOPC (E:\DOWNLOAD\SDISP&DATEPROD..TXT) -
ACCESSMETHOD(SAM) -
RECFM(FB) BLKSIZE(87) LRECL(87) -
PCCRLF(YES) BINARY(YES) BLANKSTRIP(NO) PCCHARSET(ASCII) -
REPLACE(OK)
/*
// IF $RC GT 0 THEN
// PAUSE MCKINNEY OPER - OUTBOUND DID NOT WORK/JOB P74JDC02 - STEP015
/*
* TOPC (E:\DOWNLOAD\SDISP&DATEPROD..TXT)
/&
* $$ EOJ
Return to the Sample Job Stream List
//P74JDC02 JOB (P74JDC02),' ',
// CLASS=A,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// REGION=6M
//*
//JOBLIB INCLUDE MEMBER=JOBLIB
//*
//*
//* 920929.0001 RAA 09/29/92 ADD CONTROL CARD PXXGLACT TO C00BD582
//* TO SUPPLY ACCT PERIOD TO VOIDS/STOP PAY/
//* RENUM CHECKS FOR JOURNAL ENTRIES.
//*
//* ************************************************************ *
//* CO.74 DAILY DISBURSMENT CYCLE *
//* ************************************************************ *
//* JMCL NAME=STEP001
//* STEP STEP001
//* ************************************************************ *
//* STEP 1) BEMT COMMAND AND FAVOR BACKUP OF DISBURSMENT CO.74 *
//* AND CLAIMS MASTERS *
//* --------------------------------- *
//* PROGRAM - GVEXPORT *
//* TAPE OUT - P74DBBKP.CHECKS *
//* ************************************************************ *
//*
//*
//* STEP0010 PGM=BEMT
//*
//STEP0010 EXEC PGM=BEMT
//* PR O
//SYSPRINT DD SYSOUT=*
//* CD I
//SYSIN DD *
FSL CEMT SET DAT(N74DM) CLO
/*
//*
//* STEP0020 PGM=ADRDSSU GVEXPORT
//*
//STEP0020 EXEC PGM=ADRDSSU
//* MODULE GVEXPORT PROCESSED BY PLUG-IN JCLTFAV1
//* VS VS I FSLPUCT A 'P74.DISBURSE.MASTER' BACKUP
//#BACKUP DD DUMMY,DSN=MVS.P74.DISBURSE.MASTER
//* VS VS I FSLPUCT A 'P00.CLAIMS.MASTER.FILE' BACKUP
//#BACKUP DD DUMMY,DSN=MVS.P00.CLAIMS.MASTER.FILE
//* MT I E 'PDSN.00786(0)'
//REF DD DSN=MVS.PDSN.X00786(0),
// DISP=SHR
//* MT O SYS005 UA E 'P74DBBKP.CHECKS(+0)' BACKUP
//BKP DD DSN=MVS.P74DBBKP.CHECKS(+1),
// DISP=(NEW,CATLG,DELETE),
// VOL=(,,REF=*.REF),LABEL=2
//* PR O
//SYSPRINT DD SYSOUT=*
//* CD I
//SYSIN DD *
DUMP -
DATASET( -
INCLUDE( -
MVS.P74.DISBURSE.MASTER -
MVS.P00.CLAIMS.MASTER.FILE -
)) -
SPHERE -
SHARE -
TOL(ENQF) -
OUTDD(BKP)
/*
//*
//* JMCL NAME=STEP002
//* STEP STEP002
//* ************************************************************ *
//* STEP 2) UPDATE WRITTEN CHECKS FROM CHECKQ CO.74 *
//* --------------------------------- *
//* PROGRAM - C00BD580 *
//* ************************************************************ *
//*
//* STEP0030 PGM=C00BD580
//*
//STEP0030 EXEC PGM=C00BD580
//* VS VS I FSLPUCT E 'N00.COMSEC.CICS'
//COMSEC DD DSN=MVS.N00.COMSEC.CICS,
// DISP=SHR
//* VS VS I FSLPUCT E 'P74.DISBURSE.MASTER'
//DBCHKQ DD DSN=MVS.P74.DISBURSE.MASTER,
// DISP=SHR
//* VS VS I FSLPUCT E 'P74.DISBURSE.MASTER'
//DBMSTR DD DSN=MVS.P74.DISBURSE.MASTER,
// DISP=SHR
//* VS VS I FSLPUCT E 'N00.PLAN.DESC.FILE'
//PLNFILE DD DSN=MVS.N00.PLAN.DESC.FILE,
// DISP=SHR
//* SD O E 'P74JDC02.DISKWK1'
//WRKFILE DD DSN=MVS.P74JDC02.DISKWK1,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(100,100),RLSE),
// UNIT=SYSDA
//* SD O E 'P74JDC02.DISKWK2'
//CHKFILE DD DSN=MVS.P74JDC02.DISKWK2,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(100,100),RLSE),
// UNIT=SYSDA
//* PR O SYS007 71E 0002
//SYS007 DD SYSOUT=(J,,STK1),
// COPIES=2,
// FCB=JSTK
//* PR O SYS008 UA
//SYS008 DD SYSOUT=*
//SYSOUT INCLUDE MEMBER=SYSOUT
//*DLBL SORTWK2,'$$$.SORTWK2',,SD
//*DLBL SORTWK3,'$$$.SORTWK3',,SD
//* CD I SYS010 UA
//SYS010 DD *
74
./ INCLUDE PXXGLACT,LIB=(FSLJ,SYS040)
/*
//*
//* JMCL NAME=STEP003
//* STEP STEP003
//* ************************************************************ *
//* STEP 3) UPDATE VENDORS FROM WRITTEN CHECKS CO.74 *
//* ---------------------------------- *
//* PROGRAM - C00BD582 *
//* ************************************************************ *
//*
//* STEP0040 PGM=C00BD582
//*
//STEP0040 EXEC PGM=C00BD582
//* VS VS I FSLPUCT E 'N00.COMSEC.CICS'
//COMSEC DD DSN=MVS.N00.COMSEC.CICS,
// DISP=SHR
//* VS VS I FSLPUCT E 'P74.DISBURSE.MASTER'
//DBMSTR DD DSN=MVS.P74.DISBURSE.MASTER,
// DISP=SHR
//* VS VS I FSLPUCT E 'P74.DISBURSE.MASTER'
//CKMSTR DD DSN=MVS.P74.DISBURSE.MASTER,
// DISP=SHR
//* VS VS I FSLPUCT E 'N00.PLAN.DESC.FILE'
//PLNFILE DD DSN=MVS.N00.PLAN.DESC.FILE,
// DISP=SHR
//* SD O E 'N74DMTRN.D'
//DBMTRN DD DSN=MVS.N74DMTRN.D(+1),
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(100,100),RLSE),
// UNIT=SYSDA
//SYSOUT INCLUDE MEMBER=SYSOUT
//*DLBL SORTWK2,'$$$.SORTWK2',,SD
//*DLBL SORTWK3,'$$$.SORTWK3',,SD
//*
//* JMCL NAME=STEP004
//* STEP STEP004
//* **********************************************************
//* STEP004 - PRODUCE CHECK REGISTER CO.74 *
//* --------------------- *
//* PROGRAM - C00BD583 *
//* DISK IN - N74DMTRN.D *
//* DISK OUT1 - P00.D.SAL.POSPAY *
//* DISK OUT2 - P00.D.SAL.TXT.POSPAY *
//* ******************************************************** *
//*
//* STEP0050 PGM=C00BD583
//*
//STEP0050 EXEC PGM=C00BD583
//* VS VS I FSLPUCT E 'N00.COMSEC.CICS'
//COMSEC DD DSN=MVS.N00.COMSEC.CICS,
// DISP=SHR
//* VS VS I FSLPUCT E 'P74.DISBURSE.MASTER'
//DBMSTR DD DSN=MVS.P74.DISBURSE.MASTER,
// DISP=SHR
//* VS VS I FSLPUCT E 'N00.PLAN.DESC.FILE'
//PLNFILE DD DSN=MVS.N00.PLAN.DESC.FILE,
// DISP=SHR
//* I E 'N74DMTRN.D(0)'
//DBMTRN DD DSN=MVS.N74DMTRN.D(+1),
// DISP=OLD
//* SD O E 'P00.D.SAL.POSPAY(+0)'
//POSPAY DD DSN=MVS.P00.D.SAL.POSPAY(+1),
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(100,100),RLSE),
// UNIT=SYSDA
//* SD O E 'P00.D.SAL.TXT.POSPAY(+0)'
//TXTFIL DD DSN=MVS.P00.D.SAL.TXT.POSPAY(+1),
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(100,100),RLSE),
// UNIT=SYSDA
//SYSOUT INCLUDE MEMBER=SYSOUT
//*DLBL SORTWK2,'$$$.SORTWK2',,SD
//*DLBL SORTWK3,'$$$.SORTWK3',,SD
//*
//* JMCL NAME=STEP005
//* STEP STEP005
//* ************************************************************ *
//* STEP 5) GENERATE G/L ACCOUNTING CO.74 *
//* ----------------------- *
//* PROGRAM - C00BD585 *
//* ************************************************************ *
//*
//* STEP0060 PGM=C00BD585
//*
//STEP0060 EXEC PGM=C00BD585
//* VS VS I FSLPUCT E 'N00.COMSEC.CICS'
//COMSEC DD DSN=MVS.N00.COMSEC.CICS,
// DISP=SHR
//* VS VS I FSLPUCT E 'P74.DISBURSE.MASTER'
//DBMSTR DD DSN=MVS.P74.DISBURSE.MASTER,
// DISP=SHR
//* VS VS I FSLPUCT E 'N00.PLAN.DESC.FILE'
//PLNFILE DD DSN=MVS.N00.PLAN.DESC.FILE,
// DISP=SHR
//* I E 'N74DMTRN.D(0)'
//DBMTRN DD DSN=MVS.N74DMTRN.D(+1),
// DISP=OLD
//* I E 'N74GLDM.D(0)'
//GLIN DD DSN=MVS.N74GLDM.D(0),
// DISP=SHR
//* SD O E 'N74GLDM.D'
//GLOUT DD DSN=MVS.N74GLDM.D(+1),
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(100,100),RLSE),
// UNIT=SYSDA
//* PR O SYS007 0E4 0007
//SYS007 DD SYSOUT=(R,,STK1),
// FCB=JSTK
//* PR O SYS008 IGN
//SYS008 DD DUMMY
//SYSOUT INCLUDE MEMBER=SYSOUT
//* CD I SYS010 UA
//SYS010 DD *
74
/*
//*
//*
//*
//* STEP0070 PGM=BEMT
//*
//STEP0070 EXEC PGM=BEMT
//* PR O
//SYSPRINT DD SYSOUT=*
//* CD I
//SYSIN DD *
FSL CEMT SET DAT(N74DM) OPE
/*
//*
//* JMCL NAME=STEP006
//* STEP STEP006
//* ************************************************************ *
//* STEP 6) POST CHECK NUMBERS TO CLAIMS SYSTEM CO.74 *
//* ----------------------- *
//* PROGRAM - P00BD584 *
//* ************************************************************ *
//*
//*
//* STEP0080 PGM=BEMT
//*
//STEP0080 EXEC PGM=BEMT
//* PR O
//SYSPRINT DD SYSOUT=*
//* CD I
//SYSIN DD *
FSL CEMT SET DAT(P00CLMF) CLO
/*
//*
//* STEP0090 PGM=P00BD584
//*
//STEP0090 EXEC PGM=P00BD584
//* VS VS I FSLPUCT E 'P00.CLAIMS.MASTER.FILE'
//CLMMSTR DD DSN=MVS.P00.CLAIMS.MASTER.FILE,
// DISP=SHR
//* VS VS I FSLPUCT E 'P74.DISBURSE.MASTER'
//DBMSTR DD DSN=MVS.P74.DISBURSE.MASTER,
// DISP=SHR
//* I E 'N74DMTRN.D(0)'
//DBMTRN DD DSN=MVS.N74DMTRN.D(+1),
// DISP=OLD
//* PR O SYS007 0E8 0009
//SYS007 DD SYSOUT=(R,,STK1)
//SYSOUT INCLUDE MEMBER=SYSOUT
//*DLBL SORTWK2,'$$$.SORTWK2',,SD
//*DLBL SORTWK3,'$$$.SORTWK3',,SD
//*
//*
//*
//* STEP0100 PGM=BEMT
//*
//STEP0100 EXEC PGM=BEMT
//* PR O
//SYSPRINT DD SYSOUT=*
//* CD I
//SYSIN DD *
FSL CEMT SET DAT(P00CLMF) OPE
/*
//*
//* JMCL NAME=STEP007
//* STEP STEP007
//* ******************************************************** *
//* STEP 7) RESET PREM. REFUNDS FILE FOR DISBURSMENTS CO.74 *
//* ---------------------------------------- *
//* PROGRAM - C00BD522 *
//* UPSI - UPSI 10000000 = NO PRIOR INPUT *
//* - UPSI 00000000 = PRIOR INPUT *
//* - UPSI 00000001 = RESET FILE *
//* ******************************************************** *
//*
//* STEP0110 PGM=C00BD522
//*
//STEP0110 EXEC PGM=C00BD522,PARM='/UPSI(00000001)'
//* VS VS I FSLPUCT E 'N00.COMSEC.CICS'
//COMSEC DD DSN=MVS.N00.COMSEC.CICS,
// DISP=SHR
//* VS VS I FSLPUCT E 'N74.POLICY.MASTER'
//KEYREAD DD DSN=MVS.N74.POLICY.MASTER,
// DISP=SHR
//* VS VS I FSLPUCT E 'N00.PLAN.DESC.FILE'
//PLNFILE DD DSN=MVS.N00.PLAN.DESC.FILE,
// DISP=SHR
//* I E 'P74DISB.CASH(0)'
//TRANFL DD DSN=MVS.P74DISB.CASH(0),
// DISP=SHR
//* SD O E 'N74CRNB.D'
//CPOLDCR DD DSN=MVS.N74CRNB.D(+1),
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(100,100),RLSE),
// UNIT=SYSDA
//* PR O SYS007 72E 0003
//SYS007 DD SYSOUT=(J,,STK1),
// FCB=JSTK
//SYSOUT INCLUDE MEMBER=SYSOUT
//*DLBL PPOLDCR,'--> NO FILE-ID ON EPIC DD <--',,
//* CD I SYS010 UA
//SYS010 DD *
74
/*
//*
//* JMCL NAME=STEP008
//* STEP STEP008
//* ******************************************************** *
//* STEP 8) RESET NFO TRANS FOR DISBURSMENT CO.74 *
//* --------------------------------- *
//* PROGRAM - C00BD521 *
//* UPSI - UPSI 10000000 = NO PRIOR INPUT *
//* - UPSI 00000000 = PRIOR INPUT *
//* - UPSI 00000001 = RESET FILE *
//* ******************************************************** *
//*
//* STEP0120 PGM=C00BD521
//*
//STEP0120 EXEC PGM=C00BD521,PARM='/UPSI(00000001)'
//* VS VS I FSLPUCT E 'N00.COMSEC.CICS'
//COMSEC DD DSN=MVS.N00.COMSEC.CICS,
// DISP=SHR
//* VS VS I FSLPUCT E 'N74.POLICY.MASTER'
//KEYREAD DD DSN=MVS.N74.POLICY.MASTER,
// DISP=SHR
//* VS VS I FSLPUCT E 'N00.PLAN.DESC.FILE'
//PLNFILE DD DSN=MVS.N00.PLAN.DESC.FILE,
// DISP=SHR
//* I E 'N74CRNFO.D(0)'
//PPOLDCR DD DSN=MVS.N74CRNFO.D(0),
// DISP=SHR
//* SD O E 'N74CRNFO.D'
//CPOLDCR DD DSN=MVS.N74CRNFO.D(+1),
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(100,100),RLSE),
// UNIT=SYSDA
//* PR O SYS007 72E 0003
//SYS007 DD SYSOUT=(J,,STK1),
// FCB=JSTK
//SYSOUT INCLUDE MEMBER=SYSOUT
//*DLBL TREAD,'P74DISB.FM',,
//* CD I SYS010 00C
//SYS010 DD *
74
./ INCLUDE N74ACCT,LIB=(FSLJ,SYS040)
/*
//*
//* JMCL NAME=STEP009
//* STEP STEP009 P74JDC02 12/10/98
//* *********************************************************
//* STEP 9) BACKUP OF DAILY CUMULATIVE FILES *
//* ----------------------- *
//* TAPE OUT - P74JDC02.DAILY.BCKP *
//* PROGRAM - DUSP *
//* ****************************************************** *
//*
//* STEP0130 PGM=ADRDSSU DUSP
//*
//STEP0130 EXEC PGM=ADRDSSU
//* MODULE DUSP PROCESSED BY PLUG-IN JCLTDUSP
//* SD I E FILE01 'N74DMTRN.D(0)' BACKUP
//#BACKUP DD DUMMY,DSN=MVS.N74DMTRN.D
//* SD I E FILE02 'N74GLDM.D(0)' BACKUP
//#BACKUP DD DUMMY,DSN=MVS.N74GLDM.D
//* SD I E FILE03 'N74CRNB.D(0)' BACKUP
//#BACKUP DD DUMMY,DSN=MVS.N74CRNB.D
//* SD I E FILE04 'N74CRNFO.D(0)' BACKUP
//#BACKUP DD DUMMY,DSN=MVS.N74CRNFO.D
//* SD I E FILE05 'N74CRCLM.D(0)' BACKUP
//#BACKUP DD DUMMY,DSN=MVS.N74CRCLM.D
//* SD I E FILE06 'P00.D.SAL.POSPAY(0)' BACKUP
//#BACKUP DD DUMMY,DSN=MVS.P00.D.SAL.POSPAY
//* MT I E 'PDSN.00787(0)'
//REF DD DSN=MVS.PDSN.X00787(0),
// DISP=SHR
//* MT O E 'P74JDC02.DAILY.BCKP(+0)' BACKUP
//SYS001 DD DSN=MVS.P74JDC02.DAILY.BCKP(+1),
// DISP=(NEW,CATLG,DELETE),
// VOL=(,,REF=*.REF),LABEL=2
//* PR O
//SYSPRINT DD SYSOUT=*
//* CD I
//SYSIN DD *
DUMP -
DATASET( -
INCLUDE( -
MVS.N74DMTRN.D(0) -
MVS.N74GLDM.D(0) -
MVS.N74CRNB.D(0) -
MVS.N74CRNFO.D(0) -
MVS.N74CRCLM.D(0) -
MVS.P00.D.SAL.POSPAY(0) -
)) -
SPHERE -
SHARE -
OUTDD(SYS001)
/*
//*
//* STEP STEP010 P74JDC02 09/25/98
//* **********************************************************
//* STEP 10) POWERTOOLS *
//* --------------------------------- *
//* PROGRAM - SDSPT *
//* **********************************************************
//*
//* STEP0140 PGM=SDSPT
//*
//STEP0140 EXEC PGM=SDSPT
//* PR O
//SYSPRINT DD SYSOUT=*
//* PR O SYS017 01E
//SYS017 DD SYSOUT=*
//* PR O SYS018 0E6 0006
//SYS018 DD SYSOUT=R
//* CD I
//SYSIN DD *
OPTION NOCANCEL
COPYSEG,017,P74JDC02,CLASS=P,USER=GLOBE,DISP=K,SYSID=N,FNO=1401
COPYSEG,018,P74JDC02,CLASS=J,COPY=2,FNO=W1DE,DISP=K,FCB=FCB2JSTK
COPY,P74JDC02,R,ALLSEGS,017,018
/*
//*
//* STEP0150 PGM=SDSPT
//*
//STEP0150 EXEC PGM=SDSPT
//* PR O
//SYSPRINT DD SYSOUT=*
//* PR O SYS017 01E
//SYS017 DD SYSOUT=*
//* PR O SYS018 0E6 0006
//SYS018 DD SYSOUT=R
//* CD I
//SYSIN DD *
OPTION NOCANCEL
CMD A LST,*P74JDC0,CCLASS=R,DISP=K,DEST=FSLPWR,USER=LOCAL
/*
//*
//* STEP STEP011 P74JDC02 08/19/98
//* **********************************************************
//* STEP 11) POWERTOOLS *
//* --------------------------------- *
//* PROGRAM - SDSPT *
//* DISK OUT - P74JDC02.S.OUTBOUND *
//* **********************************************************
//*
//* STEP0160 PGM=SDSPT
//*
//STEP0160 EXEC PGM=SDSPT
//* PR O
//SYSPRINT DD SYSOUT=*
//* PR O SYS017 01E
//SYS017 DD SYSOUT=*
//* PR O SYS018 0E6 0006
//SYS018 DD SYSOUT=R
//* CD I
//SYSIN DD *
OPTION NOCANCEL
CMD A LST,*P74JDC0,CCLASS=R,DISP=K,DEST=FSLPWR,USER=LOCAL
/*
//*
//* STEP0170 PGM=SDSPT
//*
//STEP0170 EXEC PGM=SDSPT
//* SD O E 'P74JDC02.S.DOWNLOAD'
//SEQ3380 DD DSN=MVS.P74JDC02.S.DOWNLOAD,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(400,400),RLSE),
// UNIT=SYSDA
//* PR O
//SYSPRINT DD SYSOUT=*
//* PR O SYS017 01E
//SYS017 DD SYSOUT=*
//* PR O SYS018 0E6 0006
//SYS018 DD SYSOUT=R
//* CD I
//SYSIN DD *
OPTION NOBLANKS
COPY,*P74JDC02,R,OUTPUT=SEQ3380(LEAVE)
/*
//*
//* STEP0180 PGM=SDSPT
//*
//STEP0180 EXEC PGM=SDSPT
//* SD O E 'P74JDC02.S.DOWNLOAD'
//SEQ3380 DD DSN=MVS.P74JDC02.S.DOWNLOAD,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(400,400),RLSE),
// UNIT=SYSDA
//* PR O
//SYSPRINT DD SYSOUT=*
//* PR O SYS017 01E
//SYS017 DD SYSOUT=*
//* PR O SYS018 0E6 0006
//SYS018 DD SYSOUT=R
//* CD I
//SYSIN DD *
OPTION NOCANCEL
CMD A LST,*P74JDC0,CCLASS=R,DISP=K
/*
//*
//* JMCL NAME=STEP012
//* STEP STEP012 P74JDC02 08/24/98
//* **********************************************************
//* STEP 12) POWERTOOLS *
//* --------------------------------- *
//* PROGRAM - SDSPT *
//* **********************************************************
//*
//* STEP0190 PGM=SDSPT
//*
//STEP0190 EXEC PGM=SDSPT
//* SD O E 'P74JDC02.S.DOWNLOAD'
//SEQ3380 DD DSN=MVS.P74JDC02.S.DOWNLOAD,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(400,400),RLSE),
// UNIT=SYSDA
//* PR O
//SYSPRINT DD SYSOUT=*
//* PR O SYS017 01E
//SYS017 DD SYSOUT=*
//* PR O SYS018 0E6 0006
//SYS018 DD SYSOUT=R
//* CD I
//SYSIN DD *
OPTION NOCANCEL
CMD A LST,*P74JDC02,CCLASS=R,CLASS=W,FNO=W1DE,DISP=L,SYSID=N
CMD A LST,*P74JDC02,CCLASS=P,CLASS=W,FNO=W1DE,DISP=L,SYSID=N
/*
//*
//* JMCL NAME=STEP013
//* STEP STEP013 P74JDC02 04/28/99
//* **********************************************************
//* STEP 13) *
//* --------------------------------- *
//* PROGRAM - OUTBOUND *
//* DISK IN - P74JDC02.S.OUTBOUND *
//* PC FILE OUT- P74JDC2.DAT *
//* **********************************************************
//*
//* STEP0200 PROC=OUTBOUND OUTBOUND
//*
//STEP0200 EXEC PROC=OUTBOUND
//* MODULE OUTBOUND PROCESSED BY PLUG-IN OUTBOUND
//* SD I E 'P74JDC02.S.DOWNLOAD(0)'
//INFILE DD DSN=MVS.P74JDC02.S.DOWNLOAD,
// DISP=OLD
//* PR O SYSLST 73E 0004
//SYSPRINT DD SYSOUT=(J,,STK1),
// FCB=JSTK
//* CD I SYSIPT 00C
//SYSIN DD *
PARM APPLID(OUTB1) WAITAPPL(1000)
SESSION PCNAME (U1EE)
COPY FROMFILE(INFILE) -
TOPC (E:\DOWNLOAD\P74JDC2.DAT) -
ACCESSMETHOD(SAM) -
RECFM(FB) BLKSIZE(27930) LRECL(133) -
PCCRLF(YES) BINARY(YES) BLANKSTRIP(NO) PCCHARSET(ASCII) -
REPLACE (OK)
/*
//*
//* TOPC (P:\P74JDC2.DAT) -
//* JMCL NAME=STEP014
//* STEP STEP014 P74JDC02 12/10/98
//* **********************************************************
//* STEP 14) *
//* --------------------------------- *
//* PROGRAM - OUTBOUND *
//* DISK IN - P00.D.SAL.POSPAY *
//* PC FILE OUT- SLPP&DATEPROD..DAT *
//* *
//* SRR 05/04/99 CHANGED SALPOSP TO SLPP IN FILENAME *
//* SRR 05/04/99 ADDED &DATEPROD TO FILE NAME *
//* **********************************************************
//*IF $RC GT 0 THEN
//*
//* STEP0210 PROC=OUTBOUND OUTBOUND
//*
//STEP0210 EXEC PROC=OUTBOUND
//* MODULE OUTBOUND PROCESSED BY PLUG-IN OUTBOUND
//* SD I E 'P00.D.SAL.POSPAY(0)'
//INFILE DD DSN=MVS.P00.D.SAL.POSPAY(+1),
// DISP=OLD
//* PR O SYSLST 73E 0004
//SYSPRINT DD SYSOUT=(J,,STK1),
// FCB=JSTK
//* CD I SYSIPT 00C
//SYSIN DD *
PARM APPLID(OUTB1)
SESSION PCNAME (U1EE)
COPY FROMFILE(INFILE) -
TOPC (E:\DOWNLOAD\SLPP&DATEPROD..DAT) -
ACCESSMETHOD(SAM) -
RECFM(FB) BLKSIZE(80) LRECL(80) -
PCCRLF(YES) BINARY(YES) BLANKSTRIP(NO) PCCHARSET(ASCII) -
REPLACE (OK)
/*
//*
//* JMCL NAME=STEP015
//* STEP STEP015 P74JDC02 05/17/99
//* **********************************************************
//* STEP 15) OUTBOUND *
//* ------------------------ *
//* PROGRAM - OUTBOUND *
//* DISK IN - P00.D.SAL.TXT.POSPAY *
//* PC FILE OUT - SALPOSP&DLYCYCLE.TXT *
//* *
//* SRR 05/04/99 ADDED &DATEPROD TO FILE NAME *
//* **********************************************************
//*IF $RC GT 0 THEN
//*
//* STEP0220 PROC=OUTBOUND OUTBOUND
//*
//STEP0220 EXEC PROC=OUTBOUND
//* MODULE OUTBOUND PROCESSED BY PLUG-IN OUTBOUND
//* SD I E 'P00.D.SAL.TXT.POSPAY(0)'
//INFILE DD DSN=MVS.P00.D.SAL.TXT.POSPAY(+1),
// DISP=OLD
//* PR O SYSLST 73E 0004
//SYSPRINT DD SYSOUT=(J,,STK1),
// FCB=JSTK
//* CD I SYSIPT 00C
//SYSIN DD *
PARM APPLID(OUTB1)
SESSION PCNAME (U1EE)
COPY FROMFILE(INFILE) -
TOPC (E:\DOWNLOAD\SDISP&DATEPROD..TXT) -
ACCESSMETHOD(SAM) -
RECFM(FB) BLKSIZE(87) LRECL(87) -
PCCRLF(YES) BINARY(YES) BLANKSTRIP(NO) PCCHARSET(ASCII) -
REPLACE(OK)
/*
//*
//SCRATCH EXEC PGM=IEFBR14
//*
//DEL001 DD DSN=MVS.P74JDC02.S.DOWNLOAD,DISP=(MOD,DELETE)
//
Return to the Sample Job Stream List