The following example defines the record PHONE_REC:

       DTR> DECLARE RECORD PHONE_REC USING
       DFN> 01 PHONE.
       DFN> 02 NAME PIC X(20).
       DFN> 02 NUMBER PIC 9(7) EDIT_STRING IS XXX-XXXX.
       DFN> 02 LOCATION PIC X(9).
       DFN> 02 DEPARTMENT PIC XX.
       DFN> ;
       [Record is 38 bytes long.]

       The following example defines the record FAMILY:

       DTR> DECLARE RECORD FAMILY USING
       DFN> 01 FAMILY.
       DFN>    03 PARENTS.
       DFN>        06 FATHER PIC X(10).
       DFN>        06 MOTHER PIC X(10).
       DFN>    03 NUMBER_KIDS PIC 99 EDIT_STRING IS Z9.
       DFN>    03 KIDS OCCURS 0 TO 10 TIMES DEPENDING ON NUMBER_KIDS.
       DFN>        06 EACH_KID.
       DFN>            09 KID_NAME PIC X(10) QUERY_NAME IS KID.
       DFN>            09 AGE PIC 99 EDIT_STRING IS Z9.
       DFN> ;
       [Record is 142 bytes long.]
       DTR>

       The following example declares the record YACHT_REC
       using fields from other records.

       DTR> DECLARE RECORD VERSION_ID USING
       DFN> 01 VERSION_ID PIC x(16) .
       DFN> ;
       [Record is 16 bytes long.]
       DTR>
       DTR> DECLARE RECORD SUPER_YACHT USING
       DFN> 01 SUPER_BOAT .
       DFN> 10 FROM GROUP CDD$TOP.DTR$LIB.DEMO.YACHT .
       DFN> 10 SPEED REAL .
       DFN> 10 FROM FIELD VERSION_ID .
       DFN> ;
       DTR>
       DTR> DECLARE DOMAIN SUPER_YACHTS USING SUPER_YACHT
       DFN> ON NDS_DECLARE_HELP_02.DAT ;
       DTR>
       DTR> SET NO CDD ;
       DTR> DEFINE FILE FOR SUPER_YACHTS ;
       DTR> READY SUPER_YACHTS ;
       DTR> SHOW FIELDS FOR SUPER_YACHTS ;
       SUPER_YACHTS
          SUPER_BOAT
             BOAT
                TYPE
                   MANUFACTURER (BUILDER)      <Character string>
                   MODEL       <Character string>
                SPECIFICATIONS (SPECS)
                   RIG <Character string>
                   LENGTH_OVER_ALL (LOA)       <Character string>
                   DISPLACEMENT (DISP) <Number>
                   BEAM        <Number>
                   PRICE       <Number>
             SPEED     <Number>
             VERSION_ID        <Character string>