//JOBCARD
//*
//*
//**********************************************************************
//* *   UTILITY TO LIST ACR/S HISTORY DATA BASE   FROM KEY1 TO KEY2  * *
//**********************************************************************
//UACHFL  PROC OUT=,                        OUTPUT CLASS
//             UACHIST=,                    UNIHF   DSN
//             UACDEFN=                     UNIHF   DSN
//STEP1   EXEC PGM=UACUTIL
//STEPLIB  DD  DSN=UNI.TS.R90V3M00.LOADLIB,
//             DISP=SHR
//UNICF    DD  DSN=UNI.ACR.UNICF,
//             DISP=SHR
//UNIUF    DD  DSN=GCC1.SUM93.USEROPT,
//             DISP=SHR
//SYSUDUMP DD  SYSOUT=&OUT
//SYSABOUT DD  SYSOUT=&OUT
//SYSOUT   DD  SYSOUT=&OUT
//SYSPRINT DD  SYSOUT=&OUT,DCB=BLKSIZE=133
//UNIHF    DD  DSN=&UACHIST,
//             DISP=SHR
//UNIDF    DD  DSN=&UACDEFN,
//             DISP=SHR
//UNIHLR   DD  SYSOUT=&OUT,
//             DCB=(RECFM=FBA,LRECL=133,BLKSIZE=133)
//UNIHFW   DD  DSN=&&UACWORK,
//             DCB=(RECFM=FB,LRECL=9200,BLKSIZE=0),
//             DISP=(,PASS,DELETE),
//             UNIT=SYSALLDA,
//             SPACE=(CYL,(10,10),RLSE)
//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)
//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
//   PEND
//LISTHF  EXEC UACHFL,
//             OUT='*',
//             UACHIST='GCC1.SUM93.HIST',
//             UACDEFN='GCC1.SUM93.DEFN'
//STEP1.UNIINP  DD *
LIST     HF
/*