*COMDECK DATSAV5
  
       01  HOLD-REC.
           03  REC-CAT-WORK       PICTURE X(162). 
           03  REC-CON-LINE       PICTURE X(148). 
           03  REC-NAME           PICTURE X(32).
           03  REC-NEXT-REC       PICTURE 9(4). 
           03  REC-CAT            PICTURE X(3). 
           03  REC-LINE-NO        PICTURE X(4). 
           03  REC-LINETYPE       PICTURE X.
           03  REC-DRCODE         PICTURE X.
           03  REC-COL-IN         PICTURE 9(4). 
           03  REC-DTL-LEN        PICTURE 9(3). 
           03  REC-SKIP-COM       PICTURE X.
  
       01  HOLD-ELEM. 
           03  ELEM-CAT-WORK      PICTURE X(162). 
           03  ELEM-CON-LINE      PICTURE X(48).
           03  ELEM-NAME          PICTURE X(32).
           03  ELEM-NEXT-REC      PICTURE 9(4). 
           03  ELEM-CAT           PICTURE X(3). 
           03  ELEM-LINE-NO       PICTURE X(4). 
           03  ELEM-LINETYPE      PICTURE X.
           03  ELEM-DRCODE        PICTURE X.
           03  ELEM-COL-IN        PICTURE 9(4). 
           03  ELEM-DTL-LEN       PICTURE 9(3). 
           03  ELEM-SKIP-COM      PICTURE X.
  
       01  HOLD-GRP.
           03  LEVEL-IDX          PICTURE 99. 
