*COMDECK SUB15
*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  #
                                #                                      #
                                #   D E L U P S Y N                    #
                                #                                      #
          CHKDIU              ; # VALIDITY CHECKS FOR *DEL/INS/UPD*    #
          CHKSMR              ; # VALIDITY CHECKS FOR *STORE/MOD/REM*  #
          FLGERR              ; # SETS *KEYERRFLG* TRUE                #
          FONDKEY             ; # CHECKS THAT SOME KEY WAS FOUND       #
          FRECNAM             ; # FLAGS USE OF RECORD-NAME             #
          PERM                ; # SET FLAGS FOR *DEL/INS/UPD*          #
          SAVDATA             ; # BUILD ATTRIBUTE TABLE FOR AREA ITEM  #
          SAVEKEY             ; # FLAG SET FOR KEY LITERAL             #
          SAVEUSI             ; # BUILD ENTRY FOR SEARCH KEY           #
          SETFROM             ; # SET *FROM* OPTION                    #
          SETPV               ; # SET *PASS/VETO* FLAG                 #
          SETSET              ; # SET FLAGS FOR *SETTING*              #
          SETUSING            ; # SET FLAGS FOR *USING*                #
          SETUSI              ; # SET FLAGS FOR *USING*                #
          SETUSISET           ; # SET FLAGS FOR *SETTING* WITH *USING* #
          STKEY               ; # STORE KEY ATTRIBUTES IN BASIC TABLE  #
          TEMPONLY            ; # SET FLAG TEMPORARY NAME MUST FOLLOW  #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   M O V E V A L                      #
                                #                                      #
          MOVEXEC             ; # ISOLATE AREA, IF ANY. BUILD MOVE TBL #
          MVEXP               ; # *MOVE* AN EXPRESSION                 #
          SAVEVA              ; # SAVE AN *EVALUATE* ENTRY             #
          SETCOD9             ; # SET BASC CODE 9 (MOVE)               #
          SETCO10             ; # SET BASC CODE 10 (EVALUATE)          #
          SETMOVE             ; # ALLOCATE *MOVE* TABLE                #
          SETPOIN             ; # CLEAR SM$GROUPID TO ZERO             #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   S E T 4 0                          #
                                #                                      #
          ALGRPID             ; # ALLOCATE GROUP-ID                    #
          SET40               ; # INITIALIZE FOR FILE ACCESS COMMAND   #
                                #                                      #
                                #--------------------------------------#
  
