*COMDECK SUB60
*CALL SUB00 
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   C K I M F O V                      #
                                #                                      #
          CKIMFOV             ; # *STDYES* IF IN PROPER OVERLAY FOR    #
                                # *STORE*/*MODIFY*/*REMOVE* DIRECTIVE. #
                                # ELSE, RETURN THROUGH *STDNO*.        #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #     C K O V L Y                      #
                                #                                      #
          CKOVLY              ; # *STDYES IF IN PROPER OVERLAY         #
                                # FOR MOVE/EVALUATE DIRECTIVE          #
                                #                                      #
                                #--------------------------------------#
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   D I S P L A Y                      #
                                #                                      #
          DISPEND             ; # FINISH DISPLAY TABLE                 #
          DISPTBL             ; # SET DISPLAY TABLE                    #
          SETDISFROM          ; # SET -DISPLAY FROM-, SAVE LFN         #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   E X T R A C T                      #
                                #                                      #
          BUDEXTR             ; # BUILD EXTRACT TABLE ENTRY            #
          BUDFIT              ; # INITIALIZE INFO FOR -UPON- LFN       #
          CHKAS               ; # CHECK IF -AS- CLAUSE LEGAL           #
          CHKFIGS             ; # CHECK FOR LEGAL USE OF FIG SUBSCRIPT #
          DIROVOFF            ; # SET TEMP DIRECTORY OVERRIDE TO OFF   #
          DIROVON             ; # SET TEMP DIRECTORY OVERRIDE TO ON    #
          GET15               ; # ALLOC A 15-WD BLK FOR EXTRACT TABLE  #
          NEWLFNLINK          ; # LINK NEW LFN INTO -LFNLIST-          #
          RLSALL              ; # RELEASE -DESLIST- TABLE SPACE        #
          RSDESLIST           ; # RESTORE -DESLIST-                    #
          SVDESLIST           ; # SAVE AND ZERO -DESLIST-              #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   I F S Y N                          #
                                #                                      #
          CKFILL              ; # CHECKS FOR IMMED OR DEFERRED EVAL    #
          IFTEMP              ; # EVALUATES *IF* ON TEMPORARIES        #
          SETIFTBL            ; # FLAGS TYPE OF THING *IF*ED           #
          SETNEXT             ; # FLAG NEXT TRANSMISSION AS PREDICATE  #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   I M F D I C T                      #
                                #                                      #
          FOL$END             ; # STORE NAVIGATION STRATEGY            #
          FOL$INI             ; # INITIALIZE FOLLOW DIRECTIVE          #
          FOL$OFF             ; # TERMINATE FOLLOW DIRECTIVE           #
          GET$AP              ; # FIND PATH GIVEN SEARCH KEYS          #
          INITID              ; # INITIALIZE QUERY UPDATE TABLES       #
          STO$AP              ; # GET ACCESS PATH IDENTIFIER           #
          STO$MEM             ; # GET COSET AND MEMBER IDENTIFIERS     #
          STO$OWN             ; # GET COSET AND OWNER IDENTIFIERS      #
          STO$REC             ; # GET RECORD IDENTIFIER                #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
                                #--------------------------------------#
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #     M O V E V A L                    #
                                #                                      #
          MOVEXEC             ; # ISOLATE AREA, IF ANY. BUILD MOVE TABL#
          MVEXP               ; # *MOVE* AN EXPRESSION                 #
          SAVEVA              ; # SAVE *EVALUATE* ENTRY                #
          SETMOVE             ; # INITIALIZE *MOVE* CLAUSE             #
          SETPOIN             ; # CLEAR SM$GROUPID                     #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   N A V I C H K                      #
                                #                                      #
          NAVICHK             ; # NAVIGATIONAL STRATEGY CHECK          #
          SEGMCHK             ; # PATH SEGMENTATION CHECK              #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   S A M E                            #
                                #                                      #
          GETSAME             ; # RETRIEVE FROM *SAME* ARRAY           #
          MOVSAME             ; # SAVE IN *SAME* ARRAY                 #
          SAVPTR              ; # SAVE POINTER TO NEW *SAME* LIST      #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   S E M S M R                        #
                                #                                      #
          CHKSMR              ; # VALIDITY CHECK FOR STORE/MOD/REMOVE  #
          DE$INI              ; # INITIALIZE FOR DISPLAY/EXTRACT       #
          EV$INI              ; # INITIALIZE FOR *EVALUATE*            #
          IF$INI              ; # SET BASCODE FOR *IF*                 #
          MOD$INI             ; # BEGIN ANALYSIS OF -MODIFY-           #
          MOV$INI             ; # INITIALIZE -MOVE- DIRECTIVE          #
          REM$INI             ; # BEGIN ANALYSIS OF -REMOVE-           #
          SAVDATA             ; # SAVE SETTING ENTRY                   #
          SAVEUSI             ; # SAVE USING ENTRY                     #
          SETFROM             ; # CHECK AND SAVE *FROM* FIT            #
          SETPV               ; # SET *PASS/VETO* FLAG                 #
          SETSET              ; # INITIALIZE *SETTING* FOR *STORE*     #
          SETUSI              ; # INITIALIZE *USING* FOR *MOD/REMOVE*  #
          SETUSISET           ; # INITIALIZE *SETTING* FOR *MOD/REMOVE*#
          SET60               ; # INITIALIZE FOR DATA BASE ACCESS      #
          STO$INI             ; # BEGIN ANALYSIS OF -STORE             #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
