*COMDECK DMSSAV4
  
  
      ******************************************************************
      * 
      * SAVE-ALT-INFO.
      * 
      * "SAVE-ALT-INFO" IS CALLED WHEN MORE THAN ONE LEVEL OF CATEGORY
      * INFORMATION MUST BE SAVED FOR AN ENTITY.
  
       SAVE-ALT-INFO. 
           MOVE CAT-WORK TO ALT-CAT-WORK. 
           MOVE DATA-ENTRY-NAME TO ALT-NAME.
           MOVE DATA-ENTRY-CAT TO ALT-CAT.
           MOVE DATA-ENTRY-LINE TO ALT-LINE-NO. 
           MOVE DATA-ENTRY-LINETYPE TO ALT-LINETYPE.
           MOVE DATA-RETURN-CODE TO ALT-DRCODE. 
           MOVE DATA-NEXT-REC TO ALT-NEXT-REC.
           MOVE COLUMN-IN TO ALT-COL-IN.
           MOVE DETAIL-LEN TO ALT-DTL-LEN.
           MOVE SKIP-COMMENTS TO ALT-SKIP-COM.
  
       SAVE-ALT-INFO-XIT. 
           EXIT.
  
  
      ******************************************************************
      * 
      * RESTORE-ALT-INFO. 
  
       RESTORE-ALT-INFO.
           MOVE ALT-CAT-WORK TO CAT-WORK. 
           MOVE ALT-NAME TO DATA-ENTRY-NAME.
           MOVE ALT-CAT TO DATA-ENTRY-CAT.
           MOVE ALT-LINE-NO TO DATA-ENTRY-LINE. 
           MOVE ALT-LINETYPE TO DATA-ENTRY-LINETYPE.
           MOVE ALT-DRCODE TO DATA-RETURN-CODE. 
           MOVE ALT-NEXT-REC TO DATA-NEXT-REC.
           MOVE ALT-COL-IN TO COLUMN-IN.
           MOVE ALT-DTL-LEN TO DETAIL-LEN.
           MOVE ALT-SKIP-COM TO SKIP-COMMENTS.
  
       RESTORE-ALT-INFO-XIT.
           EXIT.
