//DTSRQ328 JOB (UI,4300,3400,T),DTSRQ328,CLASS=A,MSGCLASS=X,            00000010
//**       TYPRUN=SCAN,
//         USER=#DOADTS,
//         NOTIFY=ECNTZL1
//*                                                                     00001700
//   SET LVLNODE='PROD'
//   SET MSTNODE='PROD'
//   SET LHOLD='YES'                                                    00001700
//   SET PRTHOLD='YES'                                                  00001700
//   SET LVDHOLD='YES'                                                  00001700
//   SET LDEST='LOCAL'                                                  00001700
//   SET S0910='+0'                                                     00001700
//*  SET LDEST='U@PRT65'                                                00001700
//*                                                                     00001700
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB                       00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
//*                                                                     00001700
//*                                                                     00001700
//STEP0100 EXEC DTSUX328
//
//STEP0200 EXEC PGM=SORT,                          SORT REPORT RECORDS
//             COND=(0,LT)
//SYSOUT   DD  SYSOUT=*
//SORTIN   DD  DSN=DOESTAX.&LVLNODE..BE327.RPT(+0),DISP=SHR    325 RPTS
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE)
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE)
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE)
//SORTOUT  DD  DSN=&&SRTRPT,
//             DISP=(,PASS,DELETE),
//             UNIT=SYSDA,
//             SPACE=(8192,(1000,1000),RLSE),
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN    DD  DSN=DOESTAX.CONV.USER.PARMLIB(DTSSRREC),DISP=SHR
//********************************************************************
//STEP0200 EXEC DTSD0A
//STEP0990.DTSFVRI1  DD  DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE)
//*
//*******************************************************************