*DECK DLRWD 
          IDENT  DLRWD
          ENTRY  DLRWD
*IF DEF,IMS 
*#
*1DC  DLRWD 
* 
*     1. PROC NAME           AUTHOR              DATE 
*        DLRWD               P.C.TAM             78/10/05 
* 
*     2. FUNCTIONAL DESCRIPTION.
*        REWIND FILE TO BOI 
* 
*     3. METHOD USED. 
*        CALL REWIND MACRO
* 
*     4. ENTRY PARAMETERS.
*        (A1)                ADDRESS OF THE ADDRESS OF FET
* 
*     5. EXIT PARAMETERS. 
*        NONE 
* 
*     6. COMMON DECKS CALLED. 
*        NONE.
* 
*     7. ROUTINES CALLED. 
*        NONE.
* 
*     8. DAYFILE MESSAGES.
*        NONE.
* 
*#
*ENDIF
  
 DLRWD    SUBR   =           ENTRY/EXIT 
          REWIND X1,R 
          EQ     DLRWDX      RETURN 
  
          END