*COMDECK NP$RWD 
          IDENT  NP$RWD 
          ENTRY  NP$RWD 
*         REWIND FILE BOI 
  
*CALL NP$CRT
*IF DEF,IMS 
*#
* 
*     1. PROC NAME           AUTHOR              DATE 
*        NP$RWD              P.C.TAM             79/09/11 
* 
*     2. FUNCTIONAL DESCRIPTION 
*        REWIND FILE TO BOI 
* 
*     3. METHOD USED
*        USE REWIND MACRO 
* 
*     4. ENTRY CONDITION
*        (X1) - ADDRESS OF DB$FET FOR FILE TO BE REWOUND
* 
*     5. EXIT CONDITION 
*        FILE REWOUND 
* 
*     6. COMMON DECKS USED
*        NONE 
* 
*     7. PROCEDURES/FUNCTIONS CALLED
*        NONE 
* 
*     8. DAYFILE/DIAGNOSTIC MESSAGES
*        NONE 
* 
*#
*ENDIF
  
 NP$RWD   SUBR   =           ENTRY/EXIT 
          REWIND X1 
          EQ     NP$RWDX     EXIT 
          END 
  
