//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..PROCS.BATCH.LIB                       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