*DECK,RENSR 
          IDENT  RENSR
*CALL COPYRITE
          ENTRY  RENSR
          SYSCOM B1 
          TITLE  RENSR - RENABLE SRU ACCUMULATION.
          COMMENT  RENSR - RENABLE SRU ACCUMULATION.
          COMMENT - COPYRIGHT CONTROL DATA SYSTEMS INC. 1994. 
 RENSR    SPACE  4,10 
**        RENSR - RENABLE SRU ACCUMULATION. 
* 
*         *RENSR* RENABLES THE SRU ACCUMULATOR. 
* 
*         *SYMPL* CALL -
* 
*         RENSR 
* 
*         ENTRY  JOB MUST HAVE AN SSJ= ENTRY POINT. 
* 
*         EXIT   SRU ACCUMULATOR RENABLED.
* 
*         USES   X - NONE.
*                A - NONE.
*                B - 1. 
* 
*         MACROS DISSR. 
  
  
 RENSR    SUBR               ENTRY/EXIT 
          SB1    1
          DISSR  1S12+0      RE-ENABLE SRU ACCUMULATION, NO UNIT CHARGE 
          EQ     RENSRX      RETURN 
  
          END 
