*DECK NDRRSTR 
USETEXT COMCBEG 
USETEXT COMRNDR 
PROC NDRRSTR; 
# TITLE NDRRSTR - NDR RESTART. #
  
      BEGIN  # NDRRSTR #
  
# 
**    NDRRSTR - NDR RESTART.
* 
*     THIS ROUTINE CLEARS THE NDR FUNCTION COMPLETE FIELD IN
*     NDR"S REQUEST BUFFER TO RESTART NDR.
* 
*     ENTRY   - NDR"S REQUEST BUFFER HAS BEEN SET UP. 
* 
*     EXIT    - NDR HAS BEEN RESTARTED. 
* 
*     PROCESS - CLEAR NDR FUNCTION COMPLETE FIELD.
*               RETURN. 
* 
*     NOTE    - THIS ROUTINE IS NECESSARY BECAUSE THE SYMPL 
*               COMPILER CAN SHUFFLE CODE WHILE IT IS 
*               OPTIMIZING AND IT IS POSSIBLE THAT CODE TO SET
*               UP NDR"S REQUEST BUFFER HAS NOT BEEN EXECUTED BEFORE
*               NDR"S COMPLETE FIELD IS CLEARED.
# 
  
  
CONTROL EJECT;
  
      NDR$FUNCOM = 0; 
  
      END  # NDRRSTR #
  
      TERM
