SET DICTIONARY SLIB
DELETE INIT-DOM;
DELETE INIT-DOM-REC;
DEFINE RECORD INIT-DOM-REC
01 INIT-DOM.
  02 IGR PIC 999.
  02 IME PIC 999.
  02 INAM PIC X(20).
  02 ISP PIC X(20).
  02 IDAT PIC 999999.
;
DEFINE DOMAIN INIT-DOM USING INIT-DOM-REC ON  DTRDAT.DAT;
DEFINEP INIT-DOM 2,UIC,[*,*],R
DEFINEP INIT-DOM-REC 2,UIC,[*,*],R