!
! SLMHISDEF.CMD
!
DELETE HISTORY;
DEFINE RECORD HISTORY
01 HISTORY-REC.
  03 SUB-PROJECT PIC X(20).
  03 PROCESS PIC X(20).
  03 MODULE-TITLE PIC X(6).
  03 TRACE PIC XXX999.
  03 MODULE-IDENT-EXTRACTED PIC X(6).
  03 DATE-EXTRACTED PIC Z9Z9Z9 EDIT-STRING IS Z9/Z9/Z9.
  03 EXTDATE REDEFINES DATE-EXTRACTED.
    05 EMONTH PIC Z9.
    05 EDAY PIC Z9.
    05 EYEAR PIC Z9.
  03 MODULE-IDENT-RETURNED PIC X(6).
  03 DATE-RETURNED PIC Z9Z9Z9 EDIT-STRING IS Z9/Z9/Z9.
   03 RETDATE REDEFINES DATE-RETURNED.
    05 RMONTH PIC Z9.
    05 RDAY PIC Z9.
    05 RYEAR PIC 99.
  03 EXTRACTORS-UIC PIC 999999.
  03 UIC REDEFINES EXTRACTORS-UIC.
    05 GROUP PIC ZZ9.
    05 MEMBER PIC ZZ9.
  03 EXTRACTORS-NAME PIC  X(20).
  03 STATUS PIC X(10).
  03 COMMENT PIC X(80).
  03 ACCESID PIC 9999 EDIT-STRING IS ZZZ9.
  03 JUNK PIC X(33).
;
DEFINEP HISTORY 2,UIC,[*,*],R