*DECK OPRETN
          IDENT  OPRETN 
          ENTRY  OPRETN 
          EXT    XTRACE 
          COMMENT   RETURN FILE TO SYSTEM 
*#
*1DC OPRETN 
* 
*         1. SUBROUTINE      AUTHOR              DATE 
*            OPRETN          E. GEE              86/02/04 
* 
*         2. FUNCTIONAL DESCRIPTION.
*            RETURN FILE TO SYSTEM. 
* 
*            SYMPL CALL:  OPRETN(FILE); 
* 
*                         WHERE FILE = FIRST WORD ADDRESS OF THE FET
* 
*         3. METHOD USED. 
*            EXECUTE RETURN NOS MACRO WITH RECALL.
* 
*         4. ENTRY PARAMETERS.
*            A1              ADDRESS OF PARAMETER LIST CONTAINING 
*                            ADDRESS OF FET 
* 
*         5. EXIT PARAMETERS. 
*            NONE.
* 
*         6. COMMON DECKS CALLED. 
*            INPARU          INSTALLATION OPTIONS 
*            MACDEF          SYMPL DATA STRUCTURE MACROS
* 
*         7. SUBROUTINES AND MACROS CALLED. 
*            RETURN          RETURN FILE TO SYSTEM
*            XTRACE          RECORD PROCEDURE CALL
* 
*         8. DAYFILE MESSAGES.
*            NONE.
* 
*#
  
*CALL MACDEF
*CALL INPARU
  
************************************************************************
  
 OPRETN   SUBR   =           ENTRY/EXIT 
  
 ZZDN1    IFEQ   ZZDN,1 
  
 DEBUG1   IFEQ   DEBUG,1
          SX6    A1          A1 = ADDRESS OF PARAMETER BLOCK
          SA6    ADRPAR      SAVE ADDRESS OF PARAMETER BLOCK
          SX1    XOPRETN     ABBREV OF PROC FOR XTRACE CALL 
          RJ     XTRACE      TRACE PROCEDURE CALL 
          SA1    ADRPAR      X1 = ADDRESS OF PARAMETER BLOCK
          SA1    X1          X1 = ADDRESS OF FET
 DEBUG1   ENDIF 
  
          RETURN X1,R        RETURN FILE WITH RECALL
          EQ     OPRETNX     RETURN 
  
 DEBUG2   IFEQ   DEBUG,1
 ADRPAR   BSSZ   1           ADDRESS OF FET 
 XOPRETN  DATA   L*OPRTN* 
 DEBUG2   ENDIF 
  
 ZZDN1    ENDIF 
  
          END 
