!
! LIBRECDEF.CMD
!
!	THIS FILE PERFORMS THE RECORD DEFFINITION FOR THE DATATRIEVE
!	DOCUMENT CONTROL FACILITY
!
DELETE DOCUMENT;
DEFINE RECORD DOCUMENT
 01 DOCUMENT.
  03 NUM PIC 9999 EDIT-STRING ZZZ9.
  03 REV PIC 9999 EDIT-STRING IS ZZZZ.
  03 TYPE PIC X(6).
  03 TITLE PIC X(80).
  03 AUTHOR PIC X(40).
  03 RAUTHOR PIC X(40).
  03 DATE PIC X(8).
  03 SEP-DAT REDEFINES DATE.
         05 DAY PIC Z99.
         05 MONTH PIC XXX.
         05 YEAR PIC 99.
  03 RDATE PIC X(8).
  03 RSEP-DAT REDEFINES RDATE.
         05 RDAY PIC Z99.
         05 RMONTH PIC XXX.
         05 RYEAR PIC 99.
  03 STATUS PIC X(7).
  03 FILE PIC X(15).
  03 SEP-FILE REDEFINES FILE.
       05 GROUP PIC ZZ9.
       05 MEMBER PIC ZZ9.
       05 FILENAME PIC X(9).
  03 KEY.
    05 KEY1 PIC X(20).
    05 KEY2 PIC X(20).
    05 KEY3 PIC X(20).
    05 KEY4 PIC X(20).
    05 KEY5 PIC X(20).
;
!
! NOW SET THE PRIVALADGES
!
DEFINEP DOCUMENT 2,UIC,[*,*],R