*COMDECK DMSSAVSUB
  
  
      ******************************************************************
      * 
      * SAVE-SUB-INFO.
  
       SAVE-SUB-INFO. 
           MOVE CAT-WORK TO SUB-CAT-WORK. 
           MOVE CONSOLID-LINE TO SUB-CON-LINE.
           MOVE DATA-ENTRY-NAME TO SUB-NAME.
           MOVE DATA-ENTRY-CAT TO SUB-CAT.
           MOVE DATA-ENTRY-LINE TO SUB-LINE-NO. 
           MOVE DATA-ENTRY-LINETYPE TO SUB-LINETYPE.
           MOVE DATA-RETURN-CODE TO SUB-DRCODE. 
           MOVE DATA-NEXT-REC TO SUB-NEXT-REC.
           MOVE COLUMN-IN TO SUB-COL-IN.
           MOVE DETAIL-LEN TO SUB-DTL-LEN.
           MOVE SKIP-COMMENTS TO SUB-SKIP-COM.
  
       SAVE-SUB-INFO-XIT. 
           EXIT.
  
  
      ******************************************************************
      * 
      * RESTORE-SUB-INFO. 
  
       RESTORE-SUB-INFO.
           MOVE SUB-CAT-WORK TO CAT-WORK. 
           MOVE SUB-CON-LINE TO CONSOLID-LINE.
           MOVE SUB-NAME TO DATA-ENTRY-NAME.
           MOVE SUB-CAT TO DATA-ENTRY-CAT.
           MOVE SUB-LINE-NO TO DATA-ENTRY-LINE. 
           MOVE SUB-LINETYPE TO DATA-ENTRY-LINETYPE.
           MOVE SUB-DRCODE TO DATA-RETURN-CODE. 
           MOVE SUB-NEXT-REC TO DATA-NEXT-REC.
           MOVE SUB-COL-IN TO COLUMN-IN.
           MOVE SUB-DTL-LEN TO DETAIL-LEN.
           MOVE SUB-SKIP-COM TO SKIP-COMMENTS.
  
       RESTORE-SUB-INFO-XIT.
           EXIT.
