!
! DEF.DTR - Create domain and record definitions to describe
! 	    SEARCHER's output file.
!
! Fields are:
!
!	BLOCK		LOGIGAL BLOCK NUMBEROF FILE HEADER
!	F_NUM		FILE NUMBER
!	F_SEQ		SEQUENCE NUMBER
!	F_NAME		FILE NAME
!	CR_DATE		CREATION DATE
!	REV_DATE	REVISION DATE
!	DIR_NUM		FILE NUMBER OF PARENT DIRECTORY
!	DIR_SEQ		  ITS SEQUENCE NUMBER
!	EXT_HEADER	FILE NUMBER AND SEQUENCE OF AN EXTENSION HEADER
!
delete RINDX;
define domain RINDX USING WREC ON FOR002.DAT;
!
DELETE WREC;
DEFINE RECORD WREC USING
01 WREC.
03 FILLER PIC X.
03 BLOCK PIC X(7).
03 F_NUM PIC X(6).
03 F_SEQ PIC X(6).
03 FILLER PIC XX.
03 F_NAME PIC X(20).
03 CR_DATE PIC X(20).
03 CR_DATE_PARTS REDEFINES CR_DATE.
 05 CR_DAY PIC XX.
 05 FILLER PIC X.
 05 CR_MON PIC XXX.
 05 FILLER PIC X.
 05 CR_YEAR PIC XXXX.
 05 FILLER PIC X(9).
03 FILLER PIC X.
03 REV_DATE PIC X(20).
03 REV_DATE_PARTS REDEFINES REV_DATE.
 05 REV_DAY PIc XX.
 05 FILLER PIC X.
 05 REV_MON PIC XXX.
 05 FILLER PIC X.
 05 REV_YEAR PIC XXXX.
 05 FILLER PIC X(9).
03 DIR_NUM PIC X(6).
03 DIR_SEQ PIC X(6).
03 EXT_HEADER PIC X(12).
;