*COMDECK SEMJPDCLS                                                       SEMJMP 
DB$SR01             ;  #ABORT THE RUN, EMPTY INPUT FILE                # SEMJMP 
DB$SR02             ;  #ABORT THE RUN, SYNGEN ERR, SHOULD NOT HAPPEN   # SEMJMP 
DB$SR03             ;  #ABORT THE RUN, 1 WRD ON INPUT NOT ADD, MODIFY, # SEMJMP 
                       #DELETE OR SCHEMA                               # SEMJMP 
DB$SR04             ;  #ADD SUBSCHEMA TO DIRECTORY, NO IF ALREADY ON   # SEMJMP 
DB$SR05             ;  # RETURN YES IF NEXT WORD IS PF-TYPE WORD       #
DB$SR06             ;  # BUILD AREA DIRECTORY AND INFORMATION TABLES   #
                       # ALSO BUILD KEY INFORMATION TABLE              #
DB$SR07             ;  # BUILD SCHEMA INFORMATION TABLE                #
DB$SR08             ;  # RETURN YES IF ENOUGH AREA INFO IS IN          #
                       # (EG, UN/ID AND PFN SUPPLIED)                  #
DB$SR09             ;  #CHECK IF THERE IS A LFN, YES IF THERE IS       # SEMJMP 
DB$SR10             ;  #CLEAR ALL FLAGS                                # SEMJMP 
DB$SR11             ;  #CLOSE SCHEMA FILE                              # SEMJMP 
DB$SR12             ;  #DELETE SCHEMA FROM DIRECTORY, NO IF NOT THERE  # SEMJMP 
DB$SR13             ;  # SET FLAGS TO CAUSE SUBSCHEMA TO BE DELETED    #
                       # FROM DIRECTORY. RETURN NO IF NOT THERE        #
DB$SR14             ;  #END SCAN AND RETURN TO (0,0) TO BUILD SET      # SEMJMP 
DB$SR15             ;  #INITIALIZE FOR CREATION RUN                    # SEMJMP 
DB$SR16             ;  #INITIALIZE FOR MODIFICATION RUN                # SEMJMP 
DB$SR17             ;  #RETURN YES IF CURP1 = 3, 4, 5, 6               # SEMJMP 
                       # (CURWORD IS SCHEMA, ADD, DELETE, OF MODIFY)   #
DB$SR18             ;  #GET SCHEMA STUFF IN CORE FOR MODIFICATION, NO  # SEMJMP 
                       # IF SCHEMA NOT ON DIRECTORY                    #
DB$SR19             ;  # RETURN YES IF NEXP1 = 1 (SCHEMA TYPE WORD)    #
DB$SR20             ;  #SET AFTER IMAGE RECORD LOGGING BIT             # SEMJMP 
DB$SR21             ;  #SET BEFORE IMAGE BLOCK LOGGING BIT             # SEMJMP 
DB$SR22             ;  #SET BEFORE IMAGE RECORD LOGGING BIT            # SEMJMP 
DB$SR23             ;  # SET MODERR, INDICATES ERROR IN MODIFY SET     #
DB$SR24             ;  # ENTER VERSION NAME INTO THE VDT               #
DB$SR25             ;  # SET -NEW SCHEMA- FLAG (NEWSCH) AND            #
                       # -SCHEMA IN CORE- FLAG (SEHINCR)               #
DB$SR26             ;  # STORE JOB CONTROL INFORMATION USER NAME       #
DB$SR27             ;  #STORE CURWORD IN AREANAM                       # SEMJMP 
DB$SR28             ;  # RETURN YES IF NUMBER OF PASSWORDS IS LESS     #
                       # THAN OR EQUAL TO 5                            #
DB$SR29             ;  # PROCESS AREA PERMANENT FILE INFORMATION       #
                       # FOR SAME AS MASTER                            #
DB$SR30             ;  # STORE TRANSACTION UNIT LIMIT                  #
DB$SR31             ;  # STORE CURRENT FILE TYPE (FROM DB$CP2)         #
DB$SR32             ;  # STORE PERMANENT FILE NAME                     #
DB$SR33             ;  # STORE PERMANENT FILE UN/ID                    #
DB$SR34             ;  # STORE PERMANENT FILE PASSWORD                 #
DB$SR35             ;  # STORE PERMANENT FILE FAMILY/SET/PACK NAME     #
DB$SR36             ;  # STORE VOLUME SERIAL NUMBER                    #
DB$SR37             ;  #STORE CURWORD IN SUBNAME                       # SEMJMP 
DB$SR38             ;  #STORE CURWORD IN SCHNAME                       # SEMJMP 
DB$SR39             ;  # SET PERMANENT FILE FAMILY FLAG                #
DB$SR40             ;  # STORE DEVICE TYPE                             #
DB$SR41             ;  # STORE TRANSACTION UPDATE LIMIT                #
DB$SR42             ;  #RETURN YES IF CURWORD IS ADD, CURP1 = 4        # SEMJMP 
DB$SR43             ;  #RETURN YES IF THIS IS A CREATION RUN           # SEMJMP 
DB$SR44             ;  #RETURN YES IF CURWORD IS DELETE, CURP1 = 5     # SEMJMP 
DB$SR45             ;  #RETURN YES IF EOT DETECTED, CURTYPE = 14B      # SEMJMP 
DB$SR46             ;  # RETURNS YES IF MODERR = 0 (INDICATES THIS     #
                       #   MODIFY SET IS ERROR FREE)                   #
DB$SR47             ;  #RETURN YES IF CURWORD IS MODIFY, CURP1 = 6     # SEMJMP 
DB$SR48             ;  # STORE "MASTER" INTO THE VDT                   #
DB$SR49             ;  #RETURN YES IF RESTART FLAG, RSTSCAN, IS SET    # SEMJMP 
DB$SR50             ;  #RETURN YES IF FATAL SCHEMA FLAG, SCFATAL, SET  # SEMJMP 
DB$SR51             ;  #RETURN YES IF CURWORD IS SCHEMA, CURP1 = 3     # SEMJMP 
DB$SR52             ;  # CHANGE AREA TO SAME AS MASTER                 #
DB$SR53             ;  # SET FINISH FLAG                               #
DB$SR54             ;  # STORE VERSION NAME                            #
DB$SR55             ;  # RETURN YES IF BOTH TRF AND RIF PRESENT        #
DB$SR56             ;  # CHECK FOR DUPLICATE CHANGE ENTRY              #
DB$SR57             ;  # STORE FILE NAME                               #
DB$SR58             ;  # STORE JOB CONTROL INFORMATION PASSWORD        #
DB$SR59             ;  # STORE JOB CONTROL INFORMATION FAMILY NAME     #
DB$SR60             ;  # STORE NUMBER OF AREAS IN ADT HEADER           #
DB$SR61             ; # INITIALIZE TEMPORARY CELLS USED IN AREA PROCESS#
DB$SR62             ; # INITIALIZE TEMPORARY CELLS USED IN SS PROCESSG.#
DB$SR63             ;  # CHANGE PERMANENT FILE INFORMATION FOR         #
                       # TRANSACTION RECOVERY FILE                     #
DB$SR64             ; #INITIALIZES VARIOUS CELLS FOR A RESTART         #
DB$SR65             ; #RETURN YES IF CURWORD IS AREA, CURLXID = 1      #
DB$SR66             ;  # BUILD CONSTRAINT USE TABLE                    #
DB$SR67             ;  # CHECK CONSTRAINT USE TABLE                    #
DB$SR68             ;  # DELETE A VERSION                              #
DB$SR69             ;  # REPLACE DATABASE PROCEDURE PF INFO            #
DB$SR70             ;  # SET PERMANENT FILE SETNAME FLAG               #
DB$SR71             ;  # IF AREA IN OLD MD, CHANGE PF DATA AND RETURN  #
                       # YES, ELSE RETURN NO                           #
DB$SR72             ;  # IF INDEX IN OLD MD, CHANGE PF DATA AND        #
                       # RETURN YES, ELSE RETURN NO                    #
DB$SR73             ;  # COMPLETE VIT FOR CURRENT VERSION              #
DB$SR74             ;  # IF FLAG FOR THIS AREA IS SET,                 #
                       # RETURN NO, ELSE RETURN YES                    #
DB$SR75             ;  # CLEAR - AREA HAS BEEN CHANGED- FLAGS          #
DB$SR76             ;  # IF NEITHER PFN NOR INDEX CLAUSE SPECIFIED     #
                       # THEN RETURN NO, ELSE RETURN YES               #
DB$SR77             ;  # SET -SCHEMA FILE CLAUSE SEEN- FLAG            #
DB$SR78             ;  # IF SCHEMA FILE SEEN RETURN YES ELSE RETURN NO #
DB$SR79             ;  # RETURN YES IF NEXT WORD IS PERIOD, ELSE NO    #
DB$SR80             ;  # CLEAR LOG BEFORE IMAGE BLOCK FLAG             #
DB$SR81             ;  # RETURN YES IF NEXT WORD IS AREA-TYPE WORD     #
DB$SR82             ;  # INITIALIZE FOR VERSION PROCESSING             #
DB$SR83             ;  # STORE JOB CONTROL INFORMATION CHARGE/ACCOUNT  #
DB$SR84             ;  # REPLACE JOB CONTROL INFORMATION               #
DB$SR85             ;  # CLEAR LOG BEFORE IMAGE RECORD FLAG            #
DB$SR86             ;  # CLEAR LOG AFTER IMAGE RECORD FLAG             #
DB$SR87             ;  # CHECK THAT AREA EXISTS                        #
DB$SR88             ;  # UDPATE VIT AND CREATE PIT FOR AREA            #
DB$SR89             ;  # VERIFY THAT SPECIFIED VERSION EXISTS IN VDT   #
DB$SR90             ;  # CHANGE PERMANENT FILE INFORMATION FOR QUICK,  #
                       # JOURNAL, RESTART AND BASIC FILES              #
DB$SR91             ;  # RETURN NO IF CURRENT VERSION NAME IS MASTER   #
DB$SR92             ;  # CHECK VALID SET/VSN COMBINATION               #
DB$SR93             ;  # VALIDATE JOB CONTROL INFORMATION              #
DB$SR94             ;  # STORE VERSCNT AND PIT LENGTH IN SDT           #
DB$SR95             ;  # SET MT FLAG - SEVEN TRACK TAPE TYPE           #
DB$SR96             ;  # SET NT FLAG - NINE TRACK TAPE TYPE            #
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$SR1F             ;  # CHECK FOR DUPLICATE TAPE TYPE CLAUSE          #
DB$SR1G             ;  # CHECK FOR DUPLICATE TAPE DENSITY CLAUSE       #
DB$SR1H             ;  # REPLACE LOG OPTIONS FOR CHANGE AREA CLAUSE    #
DB$SR1I             ;  # SET END-OF-RECORD/TRANSMISSION FLAG           #
DB$SR1J             ;  # CHECK IF END-OF-RECORD/TRANSMISSION FLAG      #
DB$SR1K             ;  # SET TAPE FLAG                                 #
DB$SR1M             ;  # SET CCLPROC FLAG                              #
DB$SR1N             ;  # VALIDATE AND STORE CCLPROC PERMANENT FILE NAME#
DB$SR1O             ;  # SET ACCESS FLAG                               #
DB$SR1P             ;  # SET DIRECT ACCESS FLAG                        #
DB$SR1Q             ;  # SET INDIRECT ACCESS FLAG                      #
