104 lines
8.1 KiB
Plaintext
104 lines
8.1 KiB
Plaintext
//DESEMTD1 JOB (UI,4300,3400,T),PROD.EMTDLY.INPROD, 00010009
|
|
// CLASS=P,MSGCLASS=X 00020009
|
|
//**** TYPRUN=SCAN, 00030002
|
|
// USER=#DOADTS, 00040016
|
|
// NOTIFY=ECNTSUP,REGION=0M 00050015
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//** 00051018
|
|
//**********************************************************************00051018
|
|
//** 00051018
|
|
//** THIS JOB WAS REMOVED FROM SCHEDULE ON 8/12/11 DUE TO INACTIVITY 00051018
|
|
//** ON THE L5 THRU L9 SCREENS. ..................... ZL1 00051018
|
|
//** 00051018
|
|
//**********************************************************************00051018
|
|
//* RUN THE TAPE TRACKING (TT) DAILY 00052018
|
|
//* (MORE FORMALLY KNOWN AS {EMT} IN SOME CIRCLES) 00053018
|
|
//* 00054018
|
|
//* NOTE: THIS JOB RUNS AFTER A SUCCESSFUL UI TAX PROD DAILY 00055018
|
|
//**** 00060009
|
|
// SET LVLNODE='PROD' 00070009
|
|
// SET LDEST=U@PRT65 00080004
|
|
// SET LHOLD='YES' 00090004
|
|
// SET BKUPGEN='(+1)' 00093006
|
|
//*** SET TRANEMI='DOESTAX.PROD.BKP.EMTRAN(+0)' 00100010
|
|
//*** SET TRANW4I='DOESTAX.PROD.BKP.W4TRAN(+0)' 00110010
|
|
//*** SET TRANEMI='DOESTAX.CONV.GBEMTRAN' 00120002
|
|
//*** SET TRANW4I='DOESTAX.CONV.GBW4TRAN' 00130002
|
|
//**** 00190002
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00210002
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00220002
|
|
//**** 00220106
|
|
//* BACKUP THE GBEMTRAN FILE 00220206
|
|
//**** 00220406
|
|
//STEP0050 EXEC PGM=IDCAMS, 00221006
|
|
// COND=(0,LT) 00222006
|
|
//SYSPRINT DD SYSOUT=* 00223006
|
|
//INDD01 DD DSN=DOESTAX.CONV.GBEMTRAN,DISP=SHR 00224006
|
|
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..BKP.EMTRAN&BKUPGEN., 00225006
|
|
// DISP=(,CATLG,DELETE), 00226006
|
|
// UNIT=CART, 00227006
|
|
// VOLUME=(,RETAIN), 00228006
|
|
// LABEL=(1,SL), 00229006
|
|
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00229106
|
|
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR 00229214
|
|
//**** 00229306
|
|
//* BACKUP THE GBW4TRAN FILE 00229406
|
|
//**** 00229506
|
|
//STEP0075 EXEC PGM=IDCAMS, 00229706
|
|
// COND=(0,LT) 00229806
|
|
//SYSPRINT DD SYSOUT=* 00229906
|
|
//INDD01 DD DSN=DOESTAX.CONV.GBW4TRAN,DISP=SHR 00230006
|
|
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..BKP.W4TRAN&BKUPGEN., 00230106
|
|
// DISP=(,CATLG,DELETE), 00230206
|
|
// UNIT=CART, 00230306
|
|
// VOLUME=(,RETAIN,REF=*.STEP0050.OUTDD01), 00230406
|
|
// LABEL=(2,SL), 00230506
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=90,BLKSIZE=9000) 00230606
|
|
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR 00230714
|
|
//**** 00231002
|
|
//* RESTORE THE SPEC OLA BACKUP FROM THE DAILY (DTSPDAY1) 00240004
|
|
//**** 00250002
|
|
//STEP0100 EXEC DESOLARS, 00260004
|
|
// LVLNDIN='PROD',LVLNDOUT='PROD', 00270010
|
|
// BKUPGEN='(+0)' 00271017
|
|
//**** 00280002
|
|
//* SCAN THE PROD.OLA FOR ANY TYPE 061 TT UPDT TRX'S 00290004
|
|
//* (SUCH AS EMT RECS, OR W4 RECS, ETC.) 00300002
|
|
//* 00310002
|
|
//STEP0200 EXEC DESBD110 00320002
|
|
//**STEP0100.INDD01 DD DSN=&TRANEMI.,DISP=SHR 00330010
|
|
//**STEP0110.INDD01 DD DSN=&TRANW4I.,DISP=SHR 00340010
|
|
//**** 00350002
|
|
//* PERFORM THE ELECTRONIC MEDIA DAILY UPDATE 00360002
|
|
//* (SAVE THE EMT TRX'S OFF TO GDG FILES) 00370002
|
|
//* 00380002
|
|
//STEP0300 EXEC DESBD220 00390002
|
|
//**** 00400002
|
|
//* PERFORM EHDR MAINTENANCE 00410002
|
|
//* (SUCH AS UPDATING THE LOG # LAST USED) 00420002
|
|
//* 00430002
|
|
//STEP0400 EXEC DESBD130 00440002
|
|
//**** 00450002
|
|
//* ZAP THE OLA FILE (AGAIN - SAME AS AT END OF DAILY) 00460005
|
|
//* 00470002
|
|
//STEP0500 EXEC DESOLAZP 00480005
|
|
//**** 00501005
|
|
//* SORT THE DES RPT RECORDS 00502005
|
|
//* 00503005
|
|
//STEP0700 EXEC DESRSORT, 00504005
|
|
// LGEN='(+1)' 00505005
|
|
//**** 00506005
|
|
//* PRINT THE DES RPT RECORDS 00510002
|
|
//* 00520002
|
|
//STEP0800 EXEC DESRQRPT 00530002
|
|
//STEP0100.RPT101R1 DD HOLD=YES 00540002
|
|
//STEP0100.RPT102R1 DD HOLD=YES 00550002
|
|
//STEP0100.RPT102R2 DD HOLD=YES 00560002
|
|
//STEP0100.RPT980R1 DD HOLD=YES 00570002
|
|
//**** 00590007
|
|
//* STD BACKUP AFTER EMT DAILY 00600007
|
|
//* 00610007
|
|
//STEP0900 EXEC DTSUTVSM, 00620008
|
|
// BKUPGEN='(+1)' 00630007
|
|
//**** 00640007
|