*DECK DB$SRSF                                                            SRSF 
USETEXT MD10CTX 
USETEXT MDBCMTX 
      PROC DB$SRSF;                                                      SRSF 
 #                                                                       SRSF 
  *   DB$SRSF - SET FLAGS SEMANTIC ROUTINES      PAGE  1                 SRSF 
  *   J. JAN JANIK                               DATE  11/17/75          SRSF 
* *   R. M. PAPPE (MDU 2.3 ENHANCEMENTS)         DATE  09/12/80 
  *   KIM H. NGUYEN                              DATE  11/09/84 
  
  DC  PURPOSE                                                            SRSF 
                                                                         SRSF 
      A COLLECTION OF SIMPLE PROCS WHICH SET FLAGS USED IN OTHER         SRSF 
      SEMANTIC ROUTINES OR TO FORM PART OF A TABLE ON THE MD.            SRSF 
                                                                         SRSF 
  DC  ENTRY CONDITIONS                                                   SRSF 
                                                                         SRSF 
      NONE                                                               SRSF 
                                                                         SRSF 
  DC  EXIT CONDITIONS                                                    SRSF 
                                                                         SRSF 
      ALL PROCS EXIT BY CALLING DB$NO.                                   SRSF 
  
      DB$SR20 - LOG AFTER IMAGE RECORDS FLAG IS SET 
      DB$SR21 - LOG BEFORE IMAGE BLOCKS FLAG IS SET 
      DB$SR22 - LOG BEFORE IMAGE RECORDS FLAG IS SET
      DB$SR23 - MODERR, FLAG INDICATING ERROR IN MODIFY SET, IS SET      SRSF 
      DB$SR25 - SCHINCR AND NEWSCH ARE SET. INDICATES NEW SCHEMA IN CORE SRSF 
      DB$SR39 - FAMILY FLAG IS SET
      DB$SR53 - FINISH FLAG (FINFLAG) IS SET
      DB$SR70 - SETNAME FLAG IS SET 
      DB$SR77 - SCHEMA FILE CLAUSE SEEN FLAG (SCFILE) SET TO TRUE 
      DB$SR80 - LOG BEFORE IMAGE BLOCKS FLAG IS CLEARED 
      DB$SR85 - LOG BEFORE IMAGE RECORDS FLAG IS CLEARED
      DB$SR86 - LOG AFTER IMAGE RECORDS FLAG IS CLEARED 
      DB$SR95 - SET MT FLAG 
      DB$SR96 - SET NT FLAG 
      DB$SR97 - SET LO DENSITY FLAG 
      DB$SR98 - SET HI DENSITY FLAG 
      DB$SR99 - SET HY DENSITY FLAG 
      DB$SR1A - SET HD DENSITY FLAG 
      DB$SR1B - SET PE DENSITY FLAG 
      DB$SR1C - SET GE DENSITY FLAG 
      DB$SR1D - SET TAPE TYPE CLAUSE SEEN FLAG
      DB$SR1E - SET TAPE DENSITY CLAUSE SEEN FLAG 
      DB$SR1I - SET END-OF-RECORD/TRANSMISSION FLAG 
      DB$SR1K - SET TAPE CLAUSE SEEN FLAG 
      DB$SR1M - SET CCLPROC CLAUSE SEEN FLAG
      DB$SR1O - SET ACCESS CLAUSE SEEN FLAG 
      DB$SR1P - SET DIRECT ACCESS FLAG
      DB$SR1Q - SET INDIRECT ACCESS FLAG
                                                                         SRSF 
  DC  CALLING ROUTINES                                                   SRSF 
                                                                         SRSF 
      DB$SNTX - SYNTAX CRACKER (SYNGEN) 
                                                                         SRSF 
  DC  CALLED ROUTINES                                                    SRSF 
                                                                         SRSF 
      DB$NO  - RETURN TO STD, NO SIDE OF TRANSFER SYMBOL                 SRSF 
                                                                         SRSF 
  DC  NON-LOCAL VARIABLES MODIFIED
                                                                         SRSF 
      ARLOGBIR, ARLOGAIR, ARLOGBIB, ARLOGBIRN, ARLOGAIRN, ARINTREC, 
      ARLOGBIBN, ARINTRECN - FLAGS IN AREAFLAGS IN (1,0) COMMON.
      EOTFLAG - END-OF-RECORD/TRANSMISSION FLAG IN (1,0) COMMON 
      MODERR, SCFATAL - ERROR FLAGS IN 1,0 COMMON, DB$M10C               SRSF 
      SCFILE - FLAG IN 1,0 COMMON 
      FINFLAG,NEWSCH,SCHINCR - FLAGS IN 0,0 COMMON DB$MDBC
      MDPFFMF AND MDPFSNF - WITHIN MDPFINFO IN (1,0) COMMON 
      TAPEFLAGS IN (1,0) COMMON 
 #                                                                       SRSF 
      CONTROL EJECT;                                                     SRSF 
      BEGIN                                                              SRSF 
                                                                         SRSF 
      XDEF                                                               SRSF 
        BEGIN                                                            SRSF 
        PROC DB$SR20;        # LOG AFTER IMAGE RECORDS FLAG IS SET     #
        PROC DB$SR21;        # LOG BEFORE IMAGE BLOCKS FLAG IS SET     #
        PROC DB$SR22;        # LOG BEFORE IMAGE RECORDS FLAG IS SET    #
        PROC DB$SR23;        # MODERR FLAG IS SET (ERROR IN MODIFY)    #
        PROC DB$SR25;        # SCHINCR AND NEWSCH FLAGS ARE SET        #
        PROC DB$SR39;        # FAMILY FLAG IS SET                      #
        PROC DB$SR53;        # FINISH FLAG IS SET (FINFLAG)            #
        PROC DB$SR70;        # SETNAME FLAG IS SET                     #
        PROC DB$SR77;        # SCFILE FLAG IS SET (SCHEMA CLAUSE SEEN) #
        PROC DB$SR80;        # LOG BEFORE IMAGE BLOCKS FLAG IS CLEARED #
        PROC DB$SR85;        # LOG BEFORE RECORDS FLAG IS CLEARED      #
        PROC DB$SR86;        # LOG AFTER IMAGE RECORDS FLAG IS CLEARED #
        PROC DB$SR95;        # SET MT FLAG                             #
        PROC DB$SR96;        # SET NT FLAG                             #
        PROC DB$SR97;        # SET LO DENSITY FLAG                     #
        PROC DB$SR98;        # SET HI DENSITY FLAG                     #
        PROC DB$SR99;        # SET HY DENSITY FLAG                     #
        PROC DB$SR1A;        # SET HD DENSITY FLAG                     #
        PROC DB$SR1B;        # SET PE DENSITY FLAG                     #
        PROC DB$SR1C;        # SET GE DENSITY FLAG                     #
        PROC DB$SR1D;        # SET TAPE TYPE CLAUSE SEEN FLAG          #
        PROC DB$SR1E;        # SET TAPE DENSITY CLAUSE SEEN FLAG       #
        PROC DB$SR1I;        # SET END-OF-RECORD/TRANSMISSION FLAG     #
        PROC DB$SR1K;        # SET TAPE CLAUSE SEEN FLAG               #
        PROC DB$SR1M;        # SET CCLPROC CLAUSE SEEN PROCFLAG        #
        PROC DB$SR1O;        # SET ACCESS CLAUSE SEEN FLAG             #
        PROC DB$SR1P;        # SET DIRECT ACCESS FLAG                  #
        PROC DB$SR1Q;        # SET INDIRECT ACCESS FLAG                #
        END 
                                                                         SRSF 
      XREF                                                               SRSF 
        BEGIN                                                            SRSF 
        PROC DB$NO;          #RETURN TO STD, NO SIDE OF TRANSFER SYMBOL# SRSF 
        END                                                              SRSF 
                                                                         SRSF 
                                                                         SRSF 
                                                                         SRSF 
      PROC DB$SR20;                                                      SRSF 
        BEGIN                                                            SRSF 
        ARLOGAIRN[0] = TRUE;   # OPTION CHANGED FLAG                   #
        ARLOGAIR[0] = TRUE;    # SET LOG AFTER IMAGE RECORDS FLAG      #
        DB$NO;                                                           SRSF 
        END                                                              SRSF 
                                                                         SRSF 
                                                                         SRSF 
                                                                         SRSF 
      PROC DB$SR21;                                                      SRSF 
        BEGIN                                                            SRSF 
        ARLOGBIBN[0] = TRUE;   # OPTION CHANGED FLAG                   #
        ARLOGBIB[0] = TRUE;    # SET LOG BEFORE IMAGE BLOCKS FLAG      #
        DB$NO;                                                           SRSF 
        END                                                              SRSF 
                                                                         SRSF 
                                                                         SRSF 
                                                                         SRSF 
      PROC DB$SR22;                                                      SRSF 
        BEGIN                                                            SRSF 
        ARLOGBIRN[0] = TRUE;   # OPTION CHANGED FLAG                   #
        ARLOGBIR[0] = TRUE;    # SET LOG BEFORE IMAGE RECORDS FLAG     #
        DB$NO;                                                           SRSF 
        END                                                              SRSF 
                                                                         SRSF 
                                                                         SRSF 
                                                                         SRSF 
      PROC DB$SR23;                                                      SRSF 
        BEGIN                                                            SRSF 
        MODERR = 1;          # SET ERROR IN MODIFY SET FLAG            # SRSF 
        DB$NO;                                                           SRSF 
        END                                                              SRSF 
                                                                         SRSF 
                                                                         SRSF 
                                                                         SRSF 
      PROC DB$SR25;                                                      SRSF 
        BEGIN                                                            SRSF 
        SCHINCR = 1;         # SET FLAGS INDICATING NEW SCHEMA IN CORE # SRSF 
        NEWSCH = 1;                                                      SRSF 
        DB$NO;                                                           SRSF 
        END                                                              SRSF 
                                                                         SRSF 
      PROC DB$SR53; 
        BEGIN 
        FINFLAG = 1;         # SET FINISH FLAG                         #
        DB$NO;
        END 
  
      PROC DB$SR77; 
        BEGIN 
        SCFILE = TRUE;
        DB$NO;
        END 
  
      CONTROL EJECT;
      PROC DB$SR39; 
      BEGIN 
 #
* *   DB$SRSF                                    PAGE  1
* *   DB$SR39 - SET FAMILY BIT FOR PERM FILE
* *   J. G. SERPA                                DATE  07/26/80 
* *   R. M. PAPPE                                DATE  09/11/80 
* 
* DC  PURPOSE 
* 
*     SET THE FAMILY BIT IN MDPFINFO FOR THE CURRENT FILE TYPE. 
* 
* DC  ENTRY CONDITIONS
* 
*     KEYWORD "FAMILY" WAS ENCOUNTERED IN THE INPUT STREAM BY 
*     THE FAMILY SUBENTRY CRACKER WITHIN DB$SNTX. 
*     CURFILTYP CONTAINS THE VALUE OF THE CURRENT FILE TYPE.
* 
* DC  EXIT CONDITIONS 
* 
*     THE FAMILY BIT MDPFFMF HAS BEEN SET.
* 
* DC  CALLING ROUTINES
* 
*     DB$SNTX - SYNTAX CRACKER (SYNGEN) 
* 
* DC  CALLED ROUTINES 
* 
*     DB$NO - SYNTAX TABLE DRIVER -NO- RETURN 
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     MDPFFMF - WITHIN MDPFINFO IN (1,0) COMMON 
* 
* DC  DESCRIPTION 
* 
*     FLAG MDPFFMF IN THE APPROPRIATE ENTRY WITHIN MDPFINFO IS SET
*     TO SPECIFY THAT THE NAME WITHIN MDPFSN IS THAT OF A FAMILY. 
*     RETURN IS TO DB$NO. 
* 
 #
  
      MDPFFMF[CURFILTYP] = TRUE;
      DB$NO;
  
      END 
      CONTROL EJECT;
      PROC DB$SR70; 
      BEGIN 
 #
* *   DB$SRSF                                    PAGE  1
* *   DB$SR70 - SET SETNAME FLAG
* *   R. M. PAPPE                                DATE  08/25/80 
* 
* DC  PURPOSE 
* 
*     SET THE SETNAME FLAG IN MDPFINFO. 
* 
* DC  ENTRY CONDITIONS
* 
*     KEYWORD "SETNAME" WAS ENCOUNTERED IN THE INPUT STREAM  BY 
*     THE SETNAME SUBENTRY CRACKER WITHIN DB$SNTX.
*     CURFILTYP CONTAINS THE VALUE OF THE CURRENT FILE TYPE.
* 
* DC  EXIT CONDITIONS 
* 
*     RETURN IS TO DB$NO AFTER THE SETNAME FLAG IN MDPFINFO IS SET. 
* 
* DC  CALLING ROUTINES
* 
*     DB$SNTX - SYNTAX CRACKER (SYNGEN) 
* 
* DC  CALLED ROUTINES 
* 
*     DB$NO  - SYNTAX TABLE DRIVER -NO- RETURN
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     MDPFSNF WITHIN MDPFINFO IS SET TO TRUE. 
* 
* DC  DESCRIPTION 
* 
*     SETNAME FLAG IN MDPFINFO IS SET AND RETURN IS TO DB$NO. 
* 
 #
  
      MDPFSNF[CURFILTYP] = TRUE;
      DB$NO;
  
      END 
      CONTROL EJECT;
      PROC DB$SR80; 
      BEGIN 
 #
* *   DB$SRSF                                    PAGE  1
* *   DB$SR80 - CLEAR LOG BEFORE IMAGE
* *             BLOCKS FLAG 
* *   J. G. SERPA                                DATE  07/15/80 
* 
* DC  PURPOSE 
* 
*     CLEAR THE LOG BEFORE IMAGE BLOCKS FLAG. 
* 
* DC  ENTRY CONDITIONS
* 
*     DB$SNTX ENCOUNTERED "LOG BEFORE IMAGE BLOCKS OFF" CLAUSE IN 
*     THE INPUT STREAM. 
* 
* DC  EXIT CONDITIONS 
* 
*     FLAG ARLOGBIB IS CLEARED AND FLAG ARLOGBIBN IS SET. 
* 
* DC  CALLING ROUTINES
* 
*     DB$SNTX - SYNTAX CRACKER (SYNGEN) 
* 
* DC  CALLED ROUTINES 
* 
*     DB$NO   - SYNTAX TABLE DRIVER -NO- RETURN 
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     ARLOGBIB AND ARLOGBIBN - IN (1,0) COMMON
* 
* DC  DESCRIPTION 
* 
*     LOG BEFORE IMAGE BLOCKS FLAGS (ARLOGBIR AND ARLOGBIRN) ARE
*     SET TO FALSE AND TRUE RESPECTIVELY. RETURN IS TO DB$NO. 
* 
 #
  
      ARLOGBIBN[0] = TRUE;   # OPTION CHANGED FLAG                     #
      ARLOGBIB[0] = FALSE;   # CLEAR LOG BEFORE IMAGE BLOCKS FLAG      #
      DB$NO;
  
      END 
      CONTROL EJECT;
      PROC DB$SR85; 
      BEGIN 
 #
* *   DB$SRSF                                    PAGE  1
* *   DB$SR85 - CLEAR LOG BEFORE IMAGE
* *             RECORDS FLAG
* *   R. M. PAPPE                                DATE  07/28/80 
* 
* DC  PURPOSE 
* 
*     CLEAR THE LOG BEFORE IMAGE RECORDS FLAG.
* 
* DC  ENTRY CONDITIONS
* 
*     "LOG BEFORE IMAGE RECORDS OFF" CLAUSE WAS ENCOUNTERED IN THE
*     INPUT STREAM BY DB$SNTX.
* 
* DC  EXIT CONDITIONS 
* 
*     FLAG ARLOGBIR IS CLEARED AND FLAG ARLOGBIRN IS SET. 
* 
* DC  CALLING ROUTINES
* 
*     DB$SNTX - SYNTAX CRACKER (SYNGEN) 
* 
* DC  CALLED ROUTINES 
* 
*     DB$NO  -  SYNTAX TABLE DRIVER -NO- RETURN 
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     ARLOGBIR AND ARLOGBIRN - IN (1,0) COMMON
* 
* DC  DESCRIPTION 
* 
*     LOG BEFORE IMAGE RECORDS FLAGS (ARLOGBIR AND ARLOGBIRN) IN THE
*     (1,0) OVERLAY COMMON AREA ARE SET TO FALSE AND TRUE RESPECTIVELY. 
*     RETURN IS TO DB$NO. 
* 
 #
  
      ARLOGBIRN[0] = TRUE;   # OPTION CHANGED FLAG                     #
      ARLOGBIR[0] = FALSE;   # CLEAR LOG BEFORE IMAGE RECORDS FLAG     #
      DB$NO;
  
      END 
      CONTROL EJECT;
      PROC DB$SR86; 
      BEGIN 
 #
* *   DB$SRSF                                    PAGE  1
* *   DB$SR86 - CLEAR LOG AFTER IMAGE 
* *             RECORDS FLAG
* *   R. M. PAPPE                                DATE  07/28/80 
* 
* DC  PURPOSE 
* 
*     CLEAR THE LOG AFTER IMAGE RECORDS FLAG. 
* 
* DC  ENTRY CONDITIONS
* 
*     "LOG AFTER IMAGE RECORDS OFF" CLAUSE WAS ENCOUNTERED IN THE 
*     INPUT STREAM BY DB$SNTX.
* 
* DC  EXIT CONDITIONS 
* 
*     FLAG ARLOGAIR IS CLEARED AND FLAG ARLOGAIRN IS SET. 
* 
* DC  CALLING ROUTINES
* 
*     DB$SNTX - SYNTAX CRACKER (SYNGEN) 
* 
* DC  CALLED ROUTINES 
* 
*     DB$NO - SYNTAX TABLE DRIVER -NO- RETURN 
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     ARLOGAIR AND ARLOGAIRN - IN (1,0) COMMON
* 
* DC  DESCRIPTION 
* 
*     LOG AFTER IMAGE RECORDS FLAGS (ARLOGAIR AND ARLOGAIRN) IN THE 
*     (1,0) OVERLAY COMMON AREA ARE SET TO FALSE AND TRUE RESPECTIVELY. 
*     RETURN IS TO DB$NO. 
* 
 #
  
      ARLOGAIRN[0] = TRUE;   # OPTION CHANGED FLAG                     #
      ARLOGAIR[0] = FALSE;   # CLEAR LOG AFTER IMAGE RECORDS FLAG      #
      DB$NO;
  
      END 
      CONTROL EJECT;
      PROC DB$SR95; 
      BEGIN 
 #
* *   DB$SRSF                                    PAGE  1
* *   DB$SR95 - SET MT FLAG 
* *   R. M. PAPPE                                DATE  06/26/81 
* 
* DC  PURPOSE 
* 
*     SET THE MT FLAG.
* 
* DC  ENTRY CONDITIONS
* 
*     DB$SNTX ENCOUNTERED "TAPE TYPE IS MT" CLAUSE. 
* 
* DC  EXIT CONDITIONS 
* 
*     FLAG MTFLAG IN TAPEFLAGS IS SET.
* 
* DC  CALLING ROUTINES
* 
*     DB$SNTX - SYNTAX CRACKER (SYNGEN) 
* 
* DC  CALLED ROUTINES 
* 
*     DB$NO - SYNTAX TABLE DRIVER -NO- RETURN.
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     MTFLAG IN (1,0) COMMON
* 
* DC  DESCRIPTION 
* 
*     MTFLAG IN THE (1,0) OVERLAY COMMON AREA IS SET. 
*     RETURN IS TO DB$NO. 
* 
 #
      MTFLAG[0] = TRUE;      # TAPE TYPE SELECTED IS MT                #
      DB$NO;
  
      END 
      CONTROL EJECT;
      PROC DB$SR96; 
      BEGIN 
 #
* *   DB$SRSF                                    PAGE  1
* *   DB$SR96 - SET NT FLAG 
* *   R. M. PAPPE                                DATE  06/26/81 
* 
* DC  PURPOSE 
* 
*     SET THE NT FLAG.
* 
* DC  ENTRY CONDITIONS
* 
*     DB$SNTX ENCOUNTERED "TAPE TYPE IS NT" CLAUSE. 
* 
* DC  EXIT CONDITIONS 
* 
*     FLAG NTFLAG IN TAPEFLAGS IS SET.
* 
* DC  CALLING ROUTINES
* 
*     DB$SNTX - SYNTAX CRACKER (SYNGEN) 
* 
* DC  CALLED ROUTINES 
* 
*     DB$NO - SYNTAX TABLE DRIVER -NO- RETURN.
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     NTFLAG IN (1,0) COMMMON 
* 
* DC  DESCRIPTION 
* 
*     NTFLAG IN THE (1,0) OVERLAY COMMON AREA IS SET. 
*     RETURN IS TO DB$NO. 
* 
 #
      NTFLAG[0] = TRUE;      # TAPE TYPE SELECTED IS NT                #
      DB$NO;
  
      END 
      CONTROL EJECT;
      PROC DB$SR97; 
      BEGIN 
 #
* *   DB$SRSF                                    PAGE  1
* *   DB$SR97 - SET -LO- DENSITY FLAG 
* *   R. M. PAPPE                                DATE  06/26/81 
* 
* DC  PURPOSE 
* 
*     SET THE -LO- DENSITY FLAG.
* 
* DC  ENTRY CONDITIONS
* 
*     DB$SNTX ENCOUNTERED "DENSITY IS LO" CLAUSE. 
* 
* DC  EXIT CONDITIONS 
* 
*     FLAG LOFLAG IN TAPEFLAGS IS SET.
* 
* DC  CALLING ROUTINES
* 
*     DB$SNTX - SYNTAX CRACKER (SYNGEN) 
* 
* DC  CALLED ROUTINES 
* 
*     DB$NO - SYNTAX TABLE DRIVER -NO- RETURN.
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     LOFLAG IN (1,0) COMMON
* 
* DC  DESCRIPTION 
* 
*     LOFLAG IN THE (1,0) OVERLAY COMMON AREA IS SET. 
*     RETURN IS TO DB$NO. 
* 
 #
      LOFLAG[0] = TRUE;      # DENSITY SELECTED IS LO                  #
      DB$NO;
  
      END 
      CONTROL EJECT;
      PROC DB$SR98; 
      BEGIN 
 #
* *   DB$SRSF                                    PAGE  1
* *   DB$SR98 - SET -HI- DENSITY FLAG 
* *   R. M. PAPPE                                DATE  06/26/81 
* 
* DC  PURPOSE 
* 
*     SET THE -HI- DENSITY FLAG.
* 
* DC  ENTRY CONDITIONS
* 
*     DB$SNTX ENCOUNTERED "DENSITY IS HI" CLAUSE. 
* 
* DC  EXIT CONDITIONS 
* 
*     FLAG HIFLAG IN TAPEFLAGS IS SET.
* 
* DC  CALLING ROUTINES
* 
*     DB$SNTX - SYNTAX CRACKER (SYNGEN) 
* 
* DC  CALLED ROUTINES 
* 
*     DB$NO - SYNTAX TABLE DRIVER -NO- RETURN.
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     HIFLAG IN (1,0) COMMON
* 
* DC  DESCRIPTION 
* 
*     HIFLAG IN THE (1,0) OVERLAY COMMON AREA IS SET. 
*     RETURN IS TO DB$NO. 
* 
 #
      HIFLAG[0] = TRUE;      # DENSITY SELECTED IS HI                  #
      DB$NO;
  
      END 
      CONTROL EJECT;
      PROC DB$SR99; 
      BEGIN 
 #
* *   DB$SRSF                                    PAGE  1
* *   DB$SR99 - SET -HY- DENSITY FLAG 
* *   R. M. PAPPE                                DATE  06/26/81 
* 
* DC  PURPOSE 
* 
*     SET THE -HY- DENSITY FLAG.
* 
* DC  ENTRY CONDITIONS
* 
*     DB$SNTX ENCOUNTERED "DENSITY IS HY" CLAUSE. 
* 
* DC  EXIT CONDITIONS 
* 
*     FLAG HYFLAG IN TAPEFLAGS IS SET.
* 
* DC  CALLING ROUTINES
* 
*     DB$SNTX - SYNTAX CRACKER (SYNGEN) 
* 
* DC  CALLED ROUTINES 
* 
*     DB$NO - SYNTAX TABLE DRIVER -NO- RETURN.
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     HYFLAG IN (1,0) COMMON
* 
* DC  DESCRIPTION 
* 
*     HYFLAG IN THE (1,0) OVERLAY COMMON AREA IS SET. 
*     RETURN IS TO DB$NO. 
* 
 #
      HYFLAG[0] = TRUE;      # DENSITY SELECTEC IS HY                  #
      DB$NO;
  
      END 
      CONTROL EJECT;
      PROC DB$SR1A; 
      BEGIN 
 #
* *   DB$SRSF                                    PAGE  1
* *   DB$SR1A - SET -HD- DENSITY FLAG 
* *   R. M. PAPPE                                DATE  06/26/81 
* 
* DC  PURPOSE 
* 
*     SET THE -HD- DENSITY FLAG.
* 
* DC  ENTRY CONDITIONS
* 
*     DB$SNTX ENCOUNTERED "DENSITY IS HD" CLAUSE. 
* 
* DC  EXIT CONDITIONS 
* 
*     FLAG HDFLAG IN TAPEFLAGS IS SET.
* 
* DC  CALLING ROUTINES
* 
*     DB$SNTX - SYNTAX CRACKER (SYNGEN) 
* 
* DC  CALLED ROUTINES 
* 
*     DB$NO - SYNTAX TABLE DRIVER -NO- RETURN.
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     HDFLAG IN (1,0) COMMON
* 
* DC  DESCRIPTION 
* 
*     HDFLAG IN THE (1,0) OVERLAY COMMON AREA IS SET. 
*     RETURN IS TO DB$NO. 
* 
 #
      HDFLAG[0] = TRUE;      # DENSITY SELECTED IS HD                  #
      DB$NO;
  
      END 
      CONTROL EJECT;
      PROC DB$SR1B; 
      BEGIN 
 #
* *   DB$SRSF                                    PAGE  1
* *   DB$SR1B - SET -PE- DENSITY FLAG 
* *   R. M. PAPPE                                DATE  06/26/81 
* 
* DC  PURPOSE 
* 
*     SET THE -PE- DENSITY FLAG.
* 
* DC  ENTRY CONDITIONS
* 
*     DB$SNTX ENCOUNTERED "DENSITY IS PE" CLAUSE. 
* 
* DC  EXIT CONDITIONS 
* 
*     FLAG PEFLAG IN TAPEFLAGS IS SET.
* 
* DC  CALLING ROUTINES
* 
*     DB$SNTX - SYNTAX CRACKER (SYNGEN) 
* 
* DC  CALLED ROUTINES 
* 
*     DB$NO - SYNTAX TABLE DRIVER -NO- RETURN.
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     PEFLAG IN (1,0) COMMON
* 
* DC  DESCRIPTION 
* 
*     PEFLAG IN THE (1,0) OVERLAY COMMON AREA IS SET. 
*     RETURN IS TO DB$NO. 
* 
 #
      PEFLAG[0] = TRUE;      # DENSITY SELECTED IS PE                  #
      DB$NO;
  
      END 
      CONTROL EJECT;
      PROC DB$SR1C; 
      BEGIN 
 #
* *   DB$SRSF                                    PAGE  1
* *   DB$SR1C - SET -GE- DENSITY FLAG 
* *   R. M. PAPPE                                DATE  06/26/81 
* 
* DC  PURPOSE 
* 
*     SET THE -GE- DENSITY FLAG.
* 
* DC  ENTRY CONDITIONS
* 
*     DB$SNTX ENCOUNTERED "DENSITY IS GE" CLAUSE. 
* 
* DC  EXIT CONDITIONS 
* 
*     FLAG PEFLAG IN TAGEFLAGS IS SET.
* 
* DC  CALLING ROUTINES
* 
*     DB$SNTX - SYNTAX CRACKER (SYNGEN) 
* 
* DC  CALLED ROUTINES 
* 
*     DB$NO - SYNTAX TABLE DRIVER -NO- RETURN.
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     GEFLAG IN (1,0) COMMON
* 
* DC  DESCRIPTION 
* 
*     GEFLAG IN THE (1,0) OVERLAY COMMON AREA IS SET. 
*     RETURN IS TO DB$NO. 
* 
 #
      GEFLAG[0] = TRUE;      # DENSITY SELECTED IS GE                  #
      DB$NO;
  
      END 
      CONTROL EJECT;
      PROC DB$SR1D; 
      BEGIN 
 #
* *   DB$SRSF                                    PAGE  1
* *   DB$SR1D - SET TAPE TYPE CLAUSE SEEN FLAG
* *   R. M. PAPPE                                DATE  06/26/81 
* 
* DC  PURPOSE 
* 
*     SET THE TAPE TYPE CLAUSE SEEN FLAG
* 
* DC  ENTRY CONDITIONS
* 
*     DB$SNTX ENCOUNTERED "TAPE TYPE" CLAUSE. 
* 
* DC  EXIT CONDITIONS 
* 
*     FLAG TYPEFLAG IN TAPEFLAGS IS SET.
* 
* DC  CALLING ROUTINES
* 
*     DB$SNTX - SYNTAX CRACKER (SYNGEN) 
* 
* DC  CALLED ROUTINES 
* 
*     DB$NO - SYNTAX TABLE DRIVER -NO- RETURN.
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     TYPEFLAG IN (1,0) COMMON
* 
* DC  DESCRIPTION 
* 
*     TYPEFLAG IN THE (1,0) OVERLAY COMMON AREA IS SET. 
*     RETURN IS TO DB$NO. 
* 
 #
      TYPEFLAG[0] = TRUE;     # TYPE CLAUSE SEEN                       #
      DB$NO;
  
      END 
      CONTROL EJECT;
      PROC DB$SR1E; 
      BEGIN 
 #
* *   DB$SRSF                                    PAGE  1
* *   DB$SR1E - SET TAPE DENSITY CLAUSE SEEN FLAG 
* *   R. M. PAPPE                                DATE  06/26/81 
* 
* DC  PURPOSE 
* 
*     SET THE TAPE DENSITY CLAUSE SEEN FLAG.
* 
* DC  ENTRY CONDITIONS
* 
*     DB$SNTX ENCOUNTERED "TAPE DENSITY" CLAUSE.
* 
* DC  EXIT CONDITIONS 
* 
*     FLAG DENSFLAG IN TAPEFLAGS IS SET.
* 
* DC  CALLING ROUTINES
* 
*     DB$SNTX - SYNTAX CRACKER (SYNGEN) 
* 
* DC  CALLED ROUTINES 
* 
*     DB$NO - SYNTAX TABLE DRIVER -NO- RETURN.
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     DENSFLAG IN (1,0) COMMON
* 
* DC  DESCRIPTION 
* 
*     DENSFLAG IN THE (1,0) OVERLAY COMMON AREA IS SET. 
*     RETURN IS TO DB$NO. 
* 
 #
      DENSFLAG[0] = TRUE;     # DENSITY CLAUSE SEEN                    #
      DB$NO;
  
      END 
      CONTROL EJECT;
      PROC DB$SR1I; 
      BEGIN 
 #
* *   DB$SRSF                                    PAGE  1
* *   DB$SR1I - SET END-OF-RECORD/TRANSMISSION FLAG 
* *   R. M. PAPPE                                DATE  11/05/81 
* 
* DC  PURPOSE 
* 
*     SET THE END-OF-RECORD/TRANSMISSION FLAG.
* 
* DC  ENTRY CONDITIONS
* 
*     DB$SNTX ENCOUNTERED END-OF-RECORD OR END-OF-FILE IN THE 
*     INPUT STREAM. 
* 
* DC  EXIT CONDITIONS 
* 
*     FLAG EOTFLAG IS SET.
* 
* DC  CALLING ROUTINES
* 
*     DB$SNTX - SYNTAX CRACKER (SYNGEN) 
* 
* DC  CALLED ROUTINES 
* 
*     DB$NO  - SYNTAX TABLE DRIVER -NO- RETURN. 
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     EOTFLAG IN (1,0) COMMON.
* 
* DC  DESCRIPTION 
* 
*     EOTFLAG IN THE (1,0) OVERLAY COMMON AREA IS SET.
*     RETURN IS TO DB$NO. 
* 
 #
      EOTFLAG = TRUE;        # END-OF-RECORD/FILE FOUND                #
      DB$NO;
  
      END 
      CONTROL EJECT;
      PROC DB$SR1K; 
      BEGIN 
 #
* *   DB$SRSF                                    PAGE  1
* *   DB$SR1K - SET TAPE CLAUSE FLAG SEEN FLAG
* *   KIM H. NGUYEN                              DATE  11/09/84 
* 
* DC  PURPOSE 
* 
*     SET THE TAPE CLAUSE SEEN FLAG 
* 
* DC  ENTRY CONDITIONS
* 
*     DB$SNTX ENCOUNTERED "TAPE" CLAUSE 
* 
* DC  EXIT CONDITIONS 
* 
*     FLAG TAPEFLAG IN TAPEFLAGS IS SET.
* 
* DC  CALLING ROUTINES
* 
*     DB$SNTX - SYNTAX CRACKER (SYNGEN) 
* 
* DC  CALLED ROUTINES 
* 
*     DB$NO - SYNTAX TABLE DRIVER -NO- RETURN.
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     PROCFLAG IN (1,0) 
*     TAPEFLAG IN (1,0) 
* 
* DC  DESCRIPTION 
* 
*     IF THE PROCFLAG IN THE (1,0) OVERLAY COMMON AREA WAS SET, THEN
*     IGNORE THE TAPE CLAUSE , ELSE THE TAPEFLAG IN THE (1,0) OVERLAY 
*     IS SET. 
*     RETURN IS TO DB$NO. 
* 
 #
  
      IF PROCFLAG[0]                   # IF CCLPROC CLAUSE HAS BEEN    #
      THEN                             # SEEN THEN IGNORE THE TAPE     #
        BEGIN                          # CLAUSE                        #
        TAPEFLAG[0] = FALSE;
        END 
      ELSE
        BEGIN 
        TAPEFLAG[0] = TRUE;            # TAPE CLAUSE SEEN              #
        END 
      DB$NO;
  
      END 
      CONTROL EJECT;
      PROC DB$SR1M; 
      BEGIN 
 #
* *   DB$SRSF                                    PAGE  1
* *   DB$SR1M - SET CCLPROC CLAUSE FLAG SEEN "PROCFLAG" 
* *   KIM H. NGUYEN                              DATE  11/09/84 
* 
* DC  PURPOSE 
* 
*     SET THE CCLPROC CLAUSE SEEN FLAG "PROCFLAG" 
* 
* DC  ENTRY CONDITIONS
* 
*     DB$SNTX ENCOUNTERED "CCLPROC" CLAUSE
* 
* DC  EXIT CONDITIONS 
* 
*     FLAG PROCFLAG IN CCLFLAGS IS SET. 
* 
* DC  CALLING ROUTINES
* 
*     DB$SNTX - SYNTAX CRACKER (SYNGEN) 
* 
* DC  CALLED ROUTINES 
* 
*     DB$NO - SYNTAX TABLE DRIVER -NO- RETURN.
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     PROCFLAG IN (1,0) 
* 
* DC  DESCRIPTION 
* 
*     PROCFLAG IN THE (1,0) OVERLAY COMMON AREA IS SET. 
*     RETURN IS TO DB$NO. 
* 
 #
      PROCFLAG[0] = TRUE;              # CCLPROC CLAUSE SEEN           #
      DB$NO;
  
      END 
      CONTROL EJECT;
      PROC DB$SR1O; 
      BEGIN 
 #
* *   DB$SRSF                                    PAGE  1
* *   DB$SR1O - SET ACCESS CLAUSE SEEN FLAG 
* *   KIM H. NGUYEN                              DATE  11/09/84 
* 
* DC  PURPOSE 
* 
*     SET THE ACCESS CLAUSE SEEN FLAG.
* 
* DC  ENTRY CONDITIONS
* 
*     DB$SNTX ENCOUNTERED "ACCESS" CLAUSE 
* 
* DC  EXIT CONDITIONS 
* 
*     FLAG ACCESFLG IN CCLFLAGS IS SET. 
* 
* DC  CALLING ROUTINES
* 
*     DB$SNTX - SYNTAX CRACKER (SYNGEN) 
* 
* DC  CALLED ROUTINES 
* 
*     DB$NO - SYNTAX TABLE DRIVER -NO- RETURN.
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     PROCFLAG IN (1,0) 
* 
* DC  DESCRIPTION 
* 
*     ACCESFLG IN THE (1,0) OVERLAY COMMON AREA IS SET. 
*     RETURN IS TO DB$NO. 
* 
 #
      ACCESFLG[0] = TRUE;              # ACCESS CLAUSE SEEN            #
      DB$NO;
  
      END 
      CONTROL EJECT;
      PROC DB$SR1P; 
      BEGIN 
 #
* *   DB$SRSF                                    PAGE  1
* *   DB$SR1P - SET -DIRECT- ACCESS FLAG
* *   KIM H. NGUYEN                              DATE  11/09/84 
* 
* DC  PURPOSE 
* 
*     SET THE -DIRECT- ACCESS FLAG. 
* 
* DC  ENTRY CONDITIONS
* 
*     DB$SNTX ENCOUNTERED "ACCESS IS DIRECT CLAUSE" 
* 
* DC  EXIT CONDITIONS 
* 
*     FLAG DIRFLAG IN CCLFLAGS IS SET.
* 
* DC  CALLING ROUTINES
* 
*     DB$SNTX - SYNTAX CRACKER (SYNGEN) 
* 
* DC  CALLED ROUTINES 
* 
*     DB$NO - SYNTAX TABLE DRIVER -NO- RETURN.
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     DIRFLAG IN (1,0) COMMON 
* 
* DC  DESCRIPTION 
* 
*     DIRFLAG IN THE (1,0) OVERLAY COMMON AREA IS SET.
*     RETURN IS TO DB$NO. 
* 
 #
      DIRFLAG[0] = TRUE;               # ACCESS SELECTED IS DIRECT     #
      INDFLAG[0] = FALSE; 
      DB$NO;
  
      END 
      CONTROL EJECT;
      PROC DB$SR1Q; 
      BEGIN 
 #
* *   DB$SRSF                                    PAGE  1
* *   DB$SR1Q - SET -INDIRECT- ACCESS FLAG
* *   KIM H. NGUYEN                              DATE  11/09/84 
* 
* DC  PURPOSE 
* 
*     SET THE -INDIRECT- ACCESS FLAG. 
* 
* DC  ENTRY CONDITIONS
* 
*     DB$SNTX ENCOUNTERED "ACCESS IS INDIRECT CLAUSE" 
* 
* DC  EXIT CONDITIONS 
* 
*     FLAG INDFLAG IN CCLFLAGS IS SET.
* 
* DC  CALLING ROUTINES
* 
*     DB$SNTX - SYNTAX CRACKER (SYNGEN) 
* 
* DC  CALLED ROUTINES 
* 
*     DB$NO - SYNTAX TABLE DRIVER -NO- RETURN.
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     INDFLAG IN (1,0) COMMON 
* 
* DC  DESCRIPTION 
* 
*     INDFLAG IN THE (1,0) OVERLAY COMMON AREA IS SET.
*     RETURN IS TO DB$NO. 
* 
 #
      INDFLAG[0] = TRUE;               # ACCESS SELECTED IS INDIRECT   #
      DIRFLAG[0] = FALSE; 
      DB$NO;
  
      END 
      END                                                                SRSF 
      TERM                                                               SRSF 
