*DECK DMLSIR
      PROC DMLSIR(IMRTN); 
      BEGIN 
 #
* *   DMLSIR - SET/RESET IMMEDIATE RETURN        PAGE  1
* *   W P CEAGLIO                                DATE  11/04/81 
* 
* DC  PURPOSE 
* 
*     SET/RESET THE IMMEDIATE RETURN INDICATOR FOR A RUN-UNIT.
* 
* DC  ENTRY CONDITIONS
* 
*     PARAMETERS
# 
      ITEM IMRTN   I;        # INPUT - IMMEDIATE RETURN FUNCTION       #
                             # NQ 0 - SET IMMEDIATE RETURN             #
                             # EQ 0 - RESET (DISABLE) IMMEDIATE RETURN #
# 
*     ASSUMPTIONS 
* 
*     NONE. 
* 
* DC  EXIT CONDITIONS 
* 
*     IMMEDIATE RETURN IS SET/RESET FOR THIS RUN-UNIT.
* 
* DC  CALLING ROUTINES
* 
*     HOST-LANGUAGE VIA CALL STATEMENT. 
* 
* DC  CALLED ROUTINES 
# 
      XREF PROC DB$SIR;      # SET/RESET IMMEDIATE RETURN STATUS       #
# 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     NONE DIRECTLY (DB$SIR COMPLETES REQUEST PACKET).
* 
* DC  DESCRIPTION 
* 
*     CALL *DB$SIR* TO SET OR RESET THE IMMEDIATE RETURN INDICATOR. 
* 
 #
  
  
# S T A R T   O F   D M L S I R   E X E C U T A B L E   C O D E        #
  
      DB$SIR(IMRTN);
      END 
      TERM
