*DECK DLCLOSE 
          IDENT  DLCLOSE
          ENTRY  DLCLOSE
*IF DEF,IMS 
*#
*1DC  DLCLOSE 
* 
*     1. PROC NAME           AUTHOR              DATE 
*        DLCLOSE             P.C.TAM             78/10/05 
* 
*     2. FUNCTIONAL DESCRIPTION.
*        CLOSE FILE.
* 
*     3. METHOD USED. 
*        USE CLOSE MACRO. 
* 
*     4. ENTRY PARAMETERS.
*        (A1)                ADDRESS OF THE ADDRESS OF FET
*        (A1)+1              ADDRESS OF THE ADDRESS OF REWIND/NR. 
* 
*     5. EXIT PARAMETERS. 
*        NONE.
* 
*     6. COMMON DECKS CALLED. 
*        MACDEF MISDEFX 
* 
*     7. ROUTINES CALLED. 
*        NONE.
* 
*     8. DAYFILE MESSAGES.
*        NONE.
* 
*#
*ENDIF
  
*CALL MACDEF
*CALL MISDEFX 
  
 DLCLOSE  SUBR   =           ENTRY/EXIT 
          SA2    A1+1        GET 2ND PARAMETER
          SA2    X2 
          SX2    X2-CLOSNR   CHECK IF CLOSE REWIND OR OTHERWISE 
          ZR     X2,CNR      BRANCH IF CLOSE NO REWIND
  
*         CLOSE FILE WITH REWIND
  
          CLOSE  X1,REWIND,R
          EQ     DLCLOSEX    RETURN 
  
*         CLOSE NO REWIND 
  
 CNR      BSS    0
          CLOSE  X1,NR,R
          EQ     DLCLOSEX    RETURN 
  
          END