*COMDECK DMSSAV3
  
  
      ******************************************************************
      * 
      * SAVE-ITEM-INFO. 
      * 
      * "SAVE-ITEM-INFO" IT IS CALLED BY EVERY "ADD-XXX-NAME" ROUTINE.
  
       SAVE-ITEM-INFO.
           MOVE CAT-WORK TO ITEM-CAT-WORK.
           MOVE DATA-ENTRY-NAME TO ITEM-NAME. 
           MOVE DATA-ENTRY-CAT TO ITEM-CAT. 
           MOVE DATA-ENTRY-LINE TO ITEM-LINE-NO.
           MOVE DATA-ENTRY-LINETYPE TO ITEM-LINETYPE. 
           MOVE DATA-RETURN-CODE TO ITEM-DRCODE.
           MOVE DATA-NEXT-REC TO ITEM-NEXT-REC. 
           MOVE COLUMN-IN TO ITEM-COL-IN. 
           MOVE DETAIL-LEN TO ITEM-DTL-LEN. 
  
       SAVE-ITEM-INFO-XIT.
           EXIT.
  
  
      ******************************************************************
      * 
      * RESTORE-ITEM-INFO.
  
       RESTORE-ITEM-INFO. 
           MOVE ITEM-CAT-WORK TO CAT-WORK.
           MOVE ITEM-NAME TO DATA-ENTRY-NAME. 
           MOVE ITEM-CAT TO DATA-ENTRY-CAT. 
           MOVE ITEM-LINE-NO TO DATA-ENTRY-LINE.
           MOVE ITEM-LINETYPE TO DATA-ENTRY-LINETYPE. 
           MOVE ITEM-DRCODE TO DATA-RETURN-CODE.
           MOVE ITEM-NEXT-REC TO DATA-NEXT-REC. 
           MOVE ITEM-COL-IN TO COLUMN-IN. 
           MOVE ITEM-DTL-LEN TO DETAIL-LEN. 
  
       RESTORE-ITEM-INFO-XIT. 
           EXIT.
