!
! SLMMODDEF.CMD -- SOURCE LIBRARY MONITORING MODULE RECORD DEFFINITION
!
! EDIT NUMBER = 0001
! EDITED BY: D.B.CURTIS  8 APR 80  17:11
!
!
DELETE MODULEDEF;
DEFINE RECORD MODULEDEF
01 MODINFO.
  03 SUB-PROJECT PIC X(20).
  03 PROCESS PIC X(20).
  03 AUTHOR PIC X(20).
  03 MODULE-TITLE PIC X(6).
  03 SRCLIB.
    05 SLDEV PIC XX.
    05 SLGROUP PIC 999 EDIT-STRING IS ZZ9 QUERY-HEADER IS " ".
    05 SLMEMBER PIC 999 EDIT-STRING IS ZZ9 QUERY-HEADER IS " ".
    05 SLFILE PIC X(9) QUERY-HEADER IS "SOURCE"/"LIBRARY".
    05 SLEXT PIC X(3) QUERY-HEADER IS " ".
    05 VOLID PIC X(12) QUERY-HEADER IS " ".
  03 STATUS PIC X(10).
  03 MODULE-IDENT PIC X(6).
  03 SEP-MODID REDEFINES MODULE-IDENT.
      05 MODHIG PIC XXX.
      05 MODLOW PIC XXX.
  03 FILENAME.
    05 MGROUP PIC 999 QUERY-HEADER IS " " EDIT-STRING IS ZZ9.
    05 MMEMBER PIC 999 QUERY-HEADER IS " " EDIT-STRING IS ZZ9.
    05 MFILE PIC X(9).
    05 MEXT PIC X(3).
  03 CREATION-DATE PIC Z9Z9Z9 EDIT-STRING IS Z9/Z9/Z9.
  03 CDATE REDEFINES CREATION-DATE.
      05 CMON PIC Z9.
      05 CDAY PIC Z9.
      05 CYR  PIC Z9.
  03 LAST-INSERTION-DATE PIC Z9Z9Z9 EDIT-STRING IS Z9/Z9/Z9.
  03 LIDATE REDEFINES LAST-INSERTION-DATE.
       05 LIMON PIC Z9.
       05 LIDAY PIC Z9.
       05 LIYR  PIC Z9.
  03 OBJLIB.
    05 OLDEV PIC XX.
    05 OLGROUP PIC 999 EDIT-STRING IS ZZ9.
    05 OLMEMBER PIC 999 EDIT-STRING IS ZZ9.
    05 OLFILE PIC X(9).
    05 OLEXT PIC X(3).
  03 ASSEMBLY-STRING PIC X(40).
  03 COMMENT PIC X(80).
  03 ACCESS-NUMBER PIC 9999 EDIT-STRING IS ZZZZ.
;
DEFINEP MODULEDEF 2,UIC,[*,*],R