//DTSRQ305 JOB (UI,4300,3400,T),BE305,CLASS=S,MSGCLASS=X,
//         NOTIFY=ECNTJP2,
//****     TYPRUN=SCAN,
//****     TYPRUN=HOLD,
//         REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//*
//   SET LVLNODE='PROD'
//   SET   LHOLD='YES'
//****
//*    ON REQUEST REPORT DTSBR305 -                                 *
//*                      TRIAL BAL RPT
//****
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**
//*                       NO BACKUP NEEDED BEFORE THIS REPORT
//**
//STEP0200 EXEC DTSUEXT,
//             RUNTYPE='OR'
//*
//STEP0100.EXTPARM DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ305),
//         DISP=SHR
/*
//STEP0100.DTSFRCVB DD  DSN=DOESTAX.PROD.BE305.RCVBL,
//           DISP=(OLD,KEEP,KEEP)
//*                        REPORT RECORD SORT
//STEP0250 EXEC DTSRSORT
//*                        REPORT GENERATION
//STEP0300 EXEC DTSRQRPT
//STEP0100.RPT305R1 DD  SYSOUT=(V,DTS305R1),HOLD=&LVDHOLD.,             00630200
//         DEST=&LDEST.
//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS                00630200