*COMDECK DATSAVSUB
  
       01  HOLD-SUB.
           03  SUB-CAT-WORK       PICTURE X(162). 
           03  SUB-CON-LINE       PICTURE X(138). 
           03  SUB-NAME           PICTURE X(32).
           03  SUB-NEXT-REC       PICTURE 9(4). 
           03  SUB-CAT            PICTURE X(3). 
           03  SUB-LINE-NO        PICTURE X(4). 
           03  SUB-LINETYPE       PICTURE X.
           03  SUB-DRCODE         PICTURE X.
           03  SUB-COL-IN         PICTURE 9(4). 
           03  SUB-DTL-LEN        PICTURE 9(3). 
           03  SUB-SKIP-COM       PICTURE X.
