DEFINE DOMAIN DIFDB USING DIFDB_REC
 ON DIFDB_FILE;
DEFINE RECORD DIFDB_REC USING
01 DIFDB_REC.
    05  ID      PIC IS S9(8)
                EDIT_STRING IS  -Z(7)9.
    05  C       PIC IS S9(4)
                EDIT_STRING IS  -Z(3)9.
    05  R       PIC IS S9(4)
                EDIT_STRING IS  -Z(3)9.
    05  AUXKY   PIC X(8).
    05  FRMLA   PIC X(109).
    05  DFMT    PIC X(9).
    05  CODE    PIC X(1).
;
DEFINE FILE FOR DIFDB-
 KEY = ID (NO DUP),-
 KEY = C (DUP,CHANGE),-
 KEY = R (DUP,CHANGE),-
 KEY = AUXKY (DUP,CHANGE)