*COMDECK DMSSAV1
      /*****************************************************************
      ******************************************************************
      * 
      * THE "SAVE-XXX-INFO" ROUTINES SAVE ALL CATALOG INFORMATION 
      * NECESSARY IN ORDER TO PICK UP PROCESSING OF THE CORRESPONDING 
      * ENTITY FROM THIS POINT AT A LATER TIME. 
      * 
      * THE "RESTORE-XXX-INFO" ROUTINES RESTORE ALL CATALOG INFORMATION 
      * NECESSARY IN ORDER TO PICK UP PROCESSING FROM THE POINT WHERE 
      * THE CORRESPONDING "SAVE-XXX-INFO" WAS ORIGINALLY CALLED.
  
  
      ******************************************************************
      * 
      * SAVE-SCH-INFO.
  
       SAVE-SCH-INFO. 
           MOVE CAT-WORK TO SCH-CAT-WORK. 
           MOVE CONSOLID-LINE TO SCH-CON-LINE.
           MOVE DATA-ENTRY-NAME TO SCH-NAME.
           MOVE DATA-ENTRY-CAT TO SCH-CAT.
           MOVE DATA-ENTRY-LINE TO SCH-LINE-NO. 
           MOVE DATA-ENTRY-LINETYPE TO SCH-LINETYPE.
           MOVE DATA-RETURN-CODE TO SCH-DRCODE. 
           MOVE DATA-NEXT-REC TO SCH-NEXT-REC.
           MOVE COLUMN-IN TO SCH-COL-IN.
           MOVE DETAIL-LEN TO SCH-DTL-LEN.
           MOVE SKIP-COMMENTS TO SCH-SKIP-COM.
  
       SAVE-SCH-INFO-XIT. 
           EXIT.
  
  
      ******************************************************************
      * 
      * RESTORE-SCH-INFO. 
  
       RESTORE-SCH-INFO.
           MOVE SCH-CAT-WORK TO CAT-WORK. 
           MOVE SCH-CON-LINE TO CONSOLID-LINE.
           MOVE SCH-NAME TO DATA-ENTRY-NAME.
           MOVE SCH-CAT TO DATA-ENTRY-CAT.
           MOVE SCH-LINE-NO TO DATA-ENTRY-LINE. 
           MOVE SCH-LINETYPE TO DATA-ENTRY-LINETYPE.
           MOVE SCH-DRCODE TO DATA-RETURN-CODE. 
           MOVE SCH-NEXT-REC TO DATA-NEXT-REC.
           MOVE SCH-COL-IN TO COLUMN-IN.
           MOVE SCH-DTL-LEN TO DETAIL-LEN.
           MOVE SCH-SKIP-COM TO SKIP-COMMENTS.
  
       RESTORE-SCH-INFO-XIT.
           EXIT.
