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