*DECK SETVAL
          IDENT  SETVAL 
*CALL COPYRITE          CDCNET - COPYRIGHT CONTROL DATA. 1985.
          ENTRY  SETVAL 
          SYSCOM B1 
          TITLE  SETVAL - SET VALIDATION LIMITS.
          COMMENT  SETVAL - SET VALIDATION LIMITS.
          COMMENT - COPYRIGHT CONTROL DATA SYSTEMS INC. 1994. 
 SETVAL   SPACE  4,10 
**        SETVAL - SET VALIDATION LIMITS. 
* 
*         *SETVAL* ISSUES *CPM* FUNCTION 115 TO UPDATE THE USER 
*         ACCESS/VALIDATION WORDS (ALMW,ACLW,AACW) IN THE CONTROL 
*         POINT AREA. 
* 
*         *SYMPL* CALL -
* 
*         SETVAL (BLOCK); 
* 
*         ENTRY  (BLOCK) = THREE-WORD ARRAY CONTAINING *ALMW*, *ACLW*,
*                          AND *AACW* IN THAT ORDER.  THE FORMAT OF 
*                          THESE WORDS ARE DEFINED IN *PPCOM*.
* 
*                SSJ=    = *SSJ=* ENTRY POINT IS REQUIRED.
* 
*         EXIT   ACCESS/VALIDATION WORDS UPDATED IN CONTROL POINT AREA. 
* 
*         USES   X - 2. 
*                A - NONE.
*                B - 1. 
* 
*         CALLS  CPM=.
  
  
 SETVAL   SUBR               ENTRY/EXIT 
          SB1    1           DEFINE B1=1
          SX2    CPMUCS      SET CPM FUNCTION CODE
          RJ     =X_CPM=     ISSUE CPM REQUEST
          EQ     SETVALX     RETURN 
  
 CPMUCS   EQU    115B        CPM FUNCTION CODE TO UPDATE USER ACCESS
  
          EJECT 
          ENTRY  SETUI
          SYSCOM B1 
          TITLE  SETUI - SET USER INDEX IN CPA. 
          COMMENT  SETUI - SET USER INDEX IN CPA. 
          COMMENT - COPYRIGHT CONTROL DATA SYSTEMS INC. 1994. 
 SETUI    SPACE  4,10 
**        SETUI - SET USER INDEX IN CPA.
* 
*         *SETUI* ISSUES *CPM* FUNCTION 21 TO SET THE USER INDEX
*         IN THE CONTROL POINT AREA.
* 
*         *SYMPL* CALL -
* 
*         SETUI (INDEX);
* 
*         ENTRY - INDEX = USER INDEX TO BE SET. 
* 
*                SSJ=    = *SSJ=* ENTRY POINT IS REQUIRED.
* 
  
 SETUI    SUBR               ENTRY/EXIT 
          SB1    1           DEFINE B1=1
          SA1    X1          PICK UP INDEX VALUE
          SX2    CPMUIS      SET CPM FUNCTION CODE
          RJ     =X_CPM=     ISSUE CPM REQUEST
          EQ     SETUIX      RETURN 
  
 CPMUIS   EQU    21B         CPM FUNCTION CODE TO SET USER INDEX
          ENTRY  DECRSC 
          SYSCOM B1 
          TITLE  DECRSC- DECREMENT THE SECURITY COUNT.
          COMMENT  SETUI - DECREMENT THE SECURITY COUNT.
          COMMENT - COPYRIGHT CONTROL DATA SYSTEMS INC. 1994. 
 DECRSC   SPACE  4,10 
**        DECRSC - DECREMENT THE SECURITY COUNT.
* 
*         *DECRSC* ISSUES *CPM* FUNCTION 114 TO DECREMENT THE SECURITY
*         COUNT OF A USER.
* 
*         *SYMPL* CALL -
* 
*         DECRSC (PARAM); 
* 
*         ENTRY - PARAM = PARAMETER BLOCK FOR CPM.
* 
*                SSJ=    = *SSJ=* ENTRY POINT IS REQUIRED.
* 
  
 DECRSC   SUBR               ENTRY/EXIT 
          SB1    1           DEFINE B1=1
          SX2    CPMDCR      SET CPM FUNCTION CODE
          RJ     =X_CPM=     ISSUE CPM REQUEST
          EQ     DECRSCX     RETURN 
  
 CPMDCR   EQU    114B        CPM FUNCTION CODE TO DECREMENT SECURITY CNT
          END 
