//JOBCARD
//*
//*
//**********************************************************************
//* *   UTILITY TO LIST ACR/D HISTORY DATA BASE FROM KEY1 TO KEY2    * *
//**********************************************************************
//UDSUTIL PROC OUT=,                        OUTPUT CLASS
//             UNIHF=                       UNIHF   DSN
//STEP1   EXEC PGM=UDSUTIL
//UNICF    DD  DSN=UNI.ACR.UNICF,
//             DISP=SHR
//UNIUF    DD  DSN=GCC1.DET93.USEROPT,
//             DISP=SHR
//STEPLIB  DD  DSN=UNI.TS.R90V3M00.LOADLIB,
//             DISP=SHR
//SYSUDUMP DD  SYSOUT=&OUT
//SYSABOUT DD  SYSOUT=&OUT
//SYSOUT   DD  SYSOUT=&OUT
//SYSPRINT DD  SYSOUT=&OUT,DCB=BLKSIZE=133
//UNIHF    DD  DSN=&UNIHF,
//             DISP=SHR
//UNIHLR   DD  SYSOUT=&OUT,
//             DCB=(RECFM=FBA,LRECL=133,BLKSIZE=133)
//UNIWRK4  DD  DSN=&&ACRWORK4,
//             DCB=(RECFM=FB,LRECL=46,BLKSIZE=8188),
//             DISP=(,PASS,DELETE),
//             UNIT=SYSALLDA,
//             SPACE=(CYL,(1,1),RLSE)
//SORTWK01 DD  SPACE=(CYL,(5,5),RLSE),UNIT=SYSALLDA
//SORTWK02 DD  SPACE=(CYL,(5,5),RLSE),UNIT=SYSALLDA
//SORTWK03 DD  SPACE=(CYL,(5,5),RLSE),UNIT=SYSALLDA
//SORTWK04 DD  SPACE=(CYL,(5,5),RLSE),UNIT=SYSALLDA
//SORTWK05 DD  SPACE=(CYL,(5,5),RLSE),UNIT=SYSALLDA
//SORTWK06 DD  SPACE=(CYL,(5,5),RLSE),UNIT=SYSALLDA
//IGZSRTCD DD  DUMMY
//IGZSRTCD DD  DUMMY
//UNIINP   DD  DDNAME=UNIINP
//UNIDER   DD  SYSOUT=&OUT,
//             DCB=(RECFM=FBA,LRECL=133,BLKSIZE=133)
//UNITR    DD  SYSOUT=&OUT,
//             DCB=(RECFM=FBA,LRECL=133,BLKSIZE=133)
//   PEND
//UDSHFL  EXEC UDSUTIL,
//             OUT='*',
//             UNIHF='GCC1.DET93.HIST'
//STEP1.UNIINP DD *
LIST     DHF     001
                 002
/*