*DECK DB$NRR
USETEXT CDCSCTX 
      PROC DB$NRR;
 #
* *     DB$NRR  NO RERUN BIT SET ROUTINE         PAGE  1
* *   R.C.KLOENNE                                01/06/78 
* 
* DC  PURPOSE 
      SET NORERUN IF NORERUN FLAG IS FALSE
* 
* DC  ENTRY CONDITIONS
*     AREA MODIFICATION HAS TAKEN PLACE 
* 
* DC  EXIT CONDITION
*     NORERUN FLAG IS TRUE. 
*     NORERUN BIT IS SET
* 
* DC  CALLING ROUTINES
*     DB$WR2,DB$REW$,DB$DEL$
* 
* DC  CALLED ROUTINES 
# 
      XREF PROC DB$FLOP;           # GENERATE A FLOW POINT             #
      XREF PROC DB$POP;            # RESTORE VALUE FROM RCB STACK      #
      XREF PROC DB$PUSH;           # SAVE VALUE ON RCB STACK           #
      XREF PROC DB$SFCL;           # GENERATE SFCALL REQUEST           #
# 
* 
* DC  NON LOCAL VARIABLES 
*     TQT  (CDCSCOMMON   )
* 
* DC  DESCRIPTION 
 #
      BEGIN 
  
      CONTROL IFGR DFFLOP,0;
        DB$FLOP("NRR    ");        # GENERATE FLOW POINT - ENTRY       #
      CONTROL ENDIF;
  
 #
      THE NO RERUN BIT IS SET ONCE FOR ANY USER JOB MODIFYING 
      AN AREA USING CDCS. 
 #
      IF NOT TQNRR
      THEN
        BEGIN 
        DB$PUSH(DB$NRR);           # SAVE RETURN LINKAGE               #
        DB$SFCL(DFSFRERN,DFNORR,0,0); 
        DB$POP(DB$NRR);            # RESTORE RETURN LINKAGE            #
        TQNRR = TRUE; 
        END 
      END 
      TERM
