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