*DECK VALID 
          IDENT  VALID$ 
*CALL COPYRITE          CDCNET - COPYRIGHT CONTROL DATA. 1985.
          ENTRY  VALID$ 
          SYSCOM B1 
          TITLE  VALID$ - VALIDATE USER/FAMILY. 
          COMMENT  VALID$ - VALIDATE USER/FAMILY. 
          COMMENT - COPYRIGHT CONTROL DATA SYSTEMS INC. 1994. 
 VALID$   SPACE  4,10 
**        VALID$ - VALIDATE USER/FAMILY.
* 
*         *VALID$* ISSUES THE *VALID* MACRO TO VALIDATE A USER/FAMILY.
* 
*         *SYMPL* CALL -
* 
*         SET$VAL (VAL$BLOCK);
* 
*         ENTRY  (VAL$BLOCK) = VALIDATION BLOCK AS DEFINED BY 
*                              *VAL$BLOCK* IN *COMVVAL* AND BY
*                              CPM FUNCTION 40.  ON INPUT, ALL FIELDS 
*                              MARKED *IN* MUST BE DEFINED. 
* 
*                SSJ=        = *SSJ=* ENTRY POINT AND PARAMETER BLOCK 
*                              IS REQUIRED. 
* 
*         EXIT   (VAL$BLOCK) = ALL FIELDS MARKED *OUT* HAVE BEEN
*                              DEFINED OR UPDATED.  IF USER IS INVALID, 
*                              VAL$INDEX IS SET TO ZERO IF NO-ABORT WAS 
*                              SPECIFIED, OTHERWISE PROGRAM IS ABORTED. 
* 
*         USES   X - NONE.
*                A - NONE.
*                B - 1. 
* 
*         MACROS VALID. 
  
  
 VALID$   SUBR               ENTRY/EXIT 
          SB1    1           DEFINE B1=1
          VALID  X1          REQUEST USER ACCOUNT VALIDATION
          EQ     VALID$X     RETURN 
  
          END 
