*DECK DB$SRAC 
USETEXT SCANTXT 
USETEXT MD10CTX 
  
  
      PROC DB$SRAC; 
      BEGIN 
 #
* *   DB$SRAC - JOB CONTROL - ACCOUNTING ENTRY   PAGE  1
* *             SEMANTIC ROUTINES 
* *   J. G. SERPA                                DATE  02/02/81 
* 
* DC  PURPOSE 
* 
*     THIS IS A COLLECTION OF SEMANTIC ROUTINES WHICH STORE INFORMATION 
*     RELATED TO THE ACCOUNTING DATA INFORMATION WITHIN THE JOB 
*     CONTROL INFORMATION ENTRY.
* 
*     FOR A DETAILED DESCRIPTION, PLEASE REFER TO EACH INDIVIDUAL 
*     ROUTINE.
# 
      XDEF PROC DB$SR26;
      XDEF PROC DB$SR58;
      XDEF PROC DB$SR59;
      XDEF PROC DB$SR83;
      XDEF PROC DB$SR1N;
 #                                                                     #
      CONTROL EJECT;
      PROC DB$SR26; 
      BEGIN 
 #
* *   DB$SRAC                                    PAGE  1
* *   DB$SR26 - STORE JOB CONTROL -UN- PARAMETER
* *   J. G. SERPA                                DATE  02/02/81 
* *   H.S.WOO                                    DATE  04/08/81 
* 
* DC  PURPOSE 
* 
*     VALIDATE AND STORE THE JOB CONTROL -UN- PARAMETER 
* 
* DC  ENTRY CONDITIONS
* 
*     CURWORD - CONTAINS THE USER NAME. 
*     DB$CLNG - CONTAINS THE LENGTH IN CHARACTERS OF THE USER NAME. 
*     JOBUN   - IS NON-BLANK IF THE USER NAME WAS ALREADY SPECIFIED.
* 
* DC  EXIT CONDITIONS 
* 
*     IF THE UN IS LEGAL, IT IS STORED IN FIELD JOBUN AND EXIT IS TO
*     DB$YES. IF THE NAME IS ILLEGAL OR HAS ALREADY BEEN SPECIFIED, EXIT
*     IS TO DB$NO.
* 
* DC  CALLING ROUTINES
* 
*     DB$SNTX - SYNTAX CRACKER (SYNGEN) 
* 
* DC  CALLED ROUTINES 
* 
# 
      XREF FUNC DB$CKLT B;         # VALIDATE LITERAL                  #
      XREF PROC DB$NO;             # SYNTAX TABLE DRIVER -NO- RETURN   #
      XREF PROC DB$YES;            # SYNTAX TABLE DRIVER -YES- RETURN  #
# 
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     JOBUN IN THE (1,0) COMMON (DB$M10C).
* 
* DC  DESCRIPTION 
* 
*     CALL DB$CKLT TO CHECK IF CURWORD CONTAINS A VALID USER NAME.  IF
*     THE CONTENT OF CURWORD IS A VALID USER NAME (DB$CKLT = TRUE) AND
*     THE USER NAME HAS NOT YET BEEN SPECIFIED, THEN STORE CURWORD INTO 
*     JOBUN AND EXIT TO DB$YES. OTHERWISE, EXIT IS TO DB$NO.
* 
 #
        IF DB$CKLT                 # IF USER NAME IS VALID             #
          AND JOBUN EQ " "         # AND USER NAME WAS NOT SPECIFIED   #
        THEN
          BEGIN                    # CURRENT USER NAME ASSIGNED        #
          JOBUN = C<0,DB$CLNG>CURWORD[0]; 
          DB$YES;                  # EXIT TO DB$STD                    #
  
          END 
        ELSE                       # INVALID USER NAME                 #
          BEGIN 
          DB$NO;
  
          END 
  
      END 
      CONTROL EJECT;
      PROC DB$SR58; 
      BEGIN 
 #
* *   DB$SRAC                                    PAGE  1
* *   DB$SR58 - STORE JOB CONTROL -PW- PARAMETER
* *   H.S.WOO                                    DATE  04/08/81 
* 
* DC  PURPOSE 
* 
*     VALIDATE AND STORE THE JOB CONTROL -PW- PARAMETER 
* 
* DC  ENTRY CONDITIONS
* 
*     CURWORD - CONTAINS THE PASSWORD.
*     DB$CLNG - CONTAINS THE LENGTH IN CHARACTERS OF THE PASSWORD.
*     JOBPW   - IS NON-BLANK IF THE PASSWORD WAS ALREADY SPECIFIED. 
* 
* DC  EXIT CONDITIONS 
* 
*     IF THE PASSWORD IS LEGAL, IT IS STORED IN JOBPW AND EXIT IS TO
*     DB$YES. IF THE PASSWORD IS ILLEGAL OR WAS ALREADY SPECIFIED,
*     EXIT IS TO DB$NO. 
* 
* DC  CALLING ROUTINES
* 
*     DB$SNTX - SYNTAX CRACKER (SYNGEN) 
* 
* DC  CALLED ROUTINES 
* 
# 
      XREF FUNC DB$CKLT B;         # VALIDATE LITERAL                  #
      XREF PROC DB$NO;             # SYNTAX TABLE DRIVER -NO- RETURN   #
      XREF PROC DB$YES;            # SYNTAX TABLE DRIVER -YES- RETURN  #
# 
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     JOBPW IN (1,0) COMMON (DB$M10C).
* 
* DC  DESCRIPTION 
* 
*     CALL DB$CKLT TO CHECK IF CURWORD CONTAINS A VALID PASSWORD.  IF 
*     THE CONTENT OF CURWORD CONTAINS A VALID PASSWORD (DB$CKLT = TRUE) 
*     AND THE PASSWORD HAS NOT YET BEEN SPECIFIED, THEN STORE CURWORD 
*     INTO JOBPW, AND EXIT IS TO DB$YES. OTHERWISE, EXIT IS TO DB$NO. 
* 
 #
  
        IF DB$CKLT                 # IF PASSWORD IS VALID AND          #
          AND JOBPW EQ " "         # PASSWORD WAS NOT SPECIFIED        #
        THEN
          BEGIN                    # CURRENT PASSWORD ASSIGNED         #
          JOBPW = C<0,DB$CLNG>CURWORD[0]; 
          DB$YES;                  # RETURN TO DB$STD                  #
  
          END 
        ELSE                       # INVALID PASSWORD                  #
          BEGIN 
          DB$NO;
  
          END 
  
      END 
      CONTROL EJECT;
      PROC DB$SR59; 
      BEGIN 
 #
* *   DB$SRAC                                    PAGE  1
* *   DB$SR59 - STORE JOB CONTROL -FAMILY- PARAMETER
* *   J. G. SERPA                                DATE  02/02/81 
* *   H.S.WOO                                    DATE  04/08/81 
* 
* DC  PURPOSE 
* 
*     VALIDATE AND STORE THE JOB CONTROL -FAMILY- PARAMETER 
* 
* DC  ENTRY CONDITIONS
* 
*     CURWORD - CONTAINS THE FAMILY NAME. 
*     DB$CLNG - CONTAINS THE LENGTH IN CHARACTERS OF THE FAMILY NAME. 
*     JOBFAM   - IS NON-BLANK IF THE FAMILY NAME WAS ALREADY SPECIFIED. 
* 
* DC  EXIT CONDITIONS 
* 
*     IF THE FAMILY NAME IS LEGAL, IT IS STORED IN JOBFAM AND EXIT
*     IS TO DB$YES. IF THE NAME IS ILLEGAL OR HAS ALREADY BEEN SPECIFIED
*     EXIT IS TO DB$NO. 
* 
* DC  CALLING ROUTINES
* 
*     DB$SNTX - SYNTAX CRACKER (SYNGEN) 
* 
* DC  CALLED ROUTINES 
* 
# 
      XREF FUNC DB$CKLT B;         # VALIDATE LITERAL                  #
      XREF PROC DB$NO;             # SYNTAX TABLE DRIVER -NO- RETURN   #
      XREF PROC DB$YES;            # SYNTAX TABLE DRIVER -YES- RETURN  #
# 
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     JOBFAM IN THE (1,0) COMMON (DB$M10C). 
* 
* DC  DESCRIPTION 
* 
*     CALL DB$CKLT TO CHECK IF CURWORD CONTAINS A VALID FAMILY NAME.
*     IF THE CONTENT OF CURWORD CONTAINS A VALID FAMILY NAME (DB$CKLT=
*     TRUE) AND THE FAMILY HAS NOT YET BEEN SPECIFIED, THEN STORE 
*     CURWORD IN JOBFAM AND EXIT TO DB$YES. OTHERWISE, EXIT TO DB$NO. 
* 
 #
  
        IF DB$CKLT                 # IF VALID FAMILY NAME              #
          AND JOBFAM EQ " "        # AND FAMILY NAME NOT SPECIFIED     #
        THEN
          BEGIN                    # CURRENT FAMILY NAME ASSIGNED      #
          JOBFAM = C<0,DB$CLNG>CURWORD[0];
          DB$YES; 
  
          END 
        ELSE                       # INVALID FAMILY NAME               #
          BEGIN 
          DB$NO;
  
          END 
  
      END 
      CONTROL EJECT;
      PROC DB$SR83; 
      BEGIN 
 #
* *   DB$SRAC                                    PAGE  1
* *   DB$SR83 - STORE JOB CONTROL -CHARGE/ACCOUNT- PARAMETER
* *   J. G. SERPA                                DATE  02/02/81 
* *   H.S.WOO                                    DATE  04/08/81 
* 
* DC  PURPOSE 
* 
*     STORE THE JOB CONTROL INFORMATION -CHARGE/ACCOUNT- PARAMETER
* 
* DC  ENTRY CONDITIONS
* 
*     CHARGE   - IS NON-BLANK IF CHARGE/ACCOUNT WAS ALREADY SPECIFIED.
*     CURWORDC - CONTAINS THE CHARGE/ACCOUNT. 
*     DB$CLNG  - CONTAINS THE LENGTH IN CHARACTERS OF THE CHARGE/ACCOUNT
* 
* DC  EXIT CONDITIONS 
* 
*     IF CHARGE/ACCOUNT HAS NOT YET BEEN SPECIFIED, THEN STORE CURWORDC 
*     INTO CHARGE AND DB$CLNG INTO CHARGELEN,  EXIT TO DB$YES.
*     OTHERWISE,  EXIT IS TO DB$NO. 
* 
* DC  CALLING ROUTINES
* 
*     DB$SNTX - SYNTAX CRACKER (SYNGEN) 
* 
* DC  CALLED ROUTINES 
# 
      XREF PROC DB$NO;             # SYNTAX TABLE DRIVER -NO- RETURN   #
      XREF PROC DB$YES;            # SYNTAX TABLE DRIVER -YES- RETURN  #
# 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     CHARGE AND CHARGELEN IN THE (1,0) COMMON (DB$M10C). 
* 
* DC  DESCRIPTION 
* 
*     IF THE CHARGE/ACCOUNT WAS NOT PREVIOUSLY SPECIFIED, STORE CURWORDC
*     INTO CHARGE AND DB$CLNG INTO CHARGELEN, AND RETURN TO DB$YES. 
*     OTHERWISE, RETURN TO DB$NO. 
* 
 #
  
        IF CHARGE EQ " "           # IF CHARGE WAS NOT SPECIFIED       #
        THEN
          BEGIN 
          CHARGE = CURWORDC[0];    # CURRENT CHARGE ASSIGNED           #
          CHARGELEN = DB$CLNG;     # CURRENT CHARGE LENGTH ASSIGNED    #
          DB$YES; 
  
          END 
        ELSE                       # CHARGE WAS SPECIFIED              #
          BEGIN 
          DB$NO;
  
          END 
      END 
      CONTROL EJECT;
      PROC DB$SR1N; 
      BEGIN 
 #
* *   DB$SRAC                                    PAGE  1
* *   DB$SR1N - STORE JOB CONTROL -CCLPROC- PARAMETER 
* *   KIM H. NGUYEN                              DATE  11/14/84 
* 
* DC  PURPOSE 
* 
*     VALIDATE AND STORE THE JOB CONTROL -CCLPROC- PARAMETER
* 
* DC  ENTRY CONDITIONS
* 
*     CURWORD - CONTAINS THE CCLPROC FILE NAME. 
*     DB$CLNG - CONTAINS THE LENGTH IN CHARACTERS OF THE CCLPROC NAME.
*     CCLPROCNAME - IS NON-BLANK IF THE CCLPROC NAME WAS ALREADY
*                   SPECIFIED.
* 
* DC  EXIT CONDITIONS 
* 
*     IF THE CCLPROC FILE NAME IS LEGAL, IT IS STORED IN CCLPROCNAME AND
*     EXIT TO DB$YES.  IF THE NAME IS ILLEGAL OR HAD ALREADY BEEN 
*     SPECIFIED, THEN EXIT IS TO DB$NO. 
* 
* DC  CALLING ROUTINES
* 
*     DB$SNTX - SYNTAX CRACKER (SYNGEN) 
* 
* DC  CALLED ROUTINES 
* 
# 
      XREF FUNC DB$CKLT B;         # VALIDATE LITERAL                  #
      XREF PROC DB$NO;             # SYNTAX TABLE DRIVER -NO- RETURN   #
      XREF PROC DB$YES;            # SYNTAX TABLE DRIVER -YES- RETURN  #
# 
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     CCLPROCNAME IN THE (1,0) COMMON (DB$M10C).
* 
* DC  DESCRIPTION 
* 
*     CALL DB$CKLT TO CHECK IF CURWORD CONTAINS A VALID CCLPROC NAME. 
*     IF THE CONTENT OF CURWORD CONTAINS A VALID CCLPROC NAME (DB$CKLT= 
*     TRUE) AND THE CCLPROC NAME HAS NOT YET BEEN SPECIFIED, THEN STORE 
*     CURWORD IN CCLPROCNAME AND EXIT TO DB$YES. OTHERWISE, EXIT TO 
*     DB$NO.
* 
 #
  
        IF DB$CKLT                 # IF VALID FAMILY NAME              #
          AND CCLPROCNAME EQ " "   # AND CCLPROC NAME NOT SPECIFIED    #
        THEN
          BEGIN                    # CURRENT CCLPROC NAME ASSIGNED     #
          CCLPROCNAME = C<0,DB$CLNG>CURWORD[0]; 
          DB$YES; 
  
          END 
        ELSE                       # INVALID CCLPROC FILE NAME         #
          BEGIN 
          DB$NO;
  
          END 
  
      END 
      END 
      TERM
