!
! CREATE DOMAIN OF DIRECTORIES 
!
! PICK ALL FILES WHOSE NAME CONTAINS ".DIR"
!
DELETE DIR;
DEFINE DOMAIN DIR USING WREC ON DIR.DAT;
!
! TABLE GIVES DIRECTORY FILE NAME FROM DIRECTORY FILE NUMBER
!
DELETE DIR_T;
DEFINE TABLE DIR_T FROM DIR
USING F_NUM:F_NAME
ELSE " UNDEFINED "
END-TABLE
!
DEFINE FILE FOR DIR KEY = F_NUM (DUP);
!
READY RINDX READ
READY DIR WRITE
!
FOR RINDX WITH F_NAME CONT ".DIR"
  STORE DIR USING WREC = WREC
!
PRINT F_NUM,F_NAME OF ALL DIR