*DECK CKIMFOV 
USETEXT TENVIRN 
USETEXT TXSTD 
      PROC CKIMFOV; 
      BEGIN 
  
      DEF SMRIMF$OVL #O"60"#;      # SECONDARY OVERLAY LEVEL FOR THE   #
                                   # STORE/MODIFY/REMOVE DIRECTIVES IN #
                                   # IMF DATA BASE MODE                #
  
      XREF ITEM IMFDBM B;          # TRUE IF IMF DATA BASE MODE        #
  
#----------------------------------------------------------------------#
#                                                                      #
#     C K I M F O V                                                    #
#                                                                      #
#     THIS ROUTINE LEAVES CP2B SET TO THE SECONDARY OVERLAY LEVEL      #
#     DEFINED IN LEXID IF NOT IMF DATABASE MODE, OR SETS CP2B TO       #
#     SMRIMF$OVL IF IMF DATA BASE MODE.  THEN IT RETURNS THROUGH       #
#     *STDYES* IF THIS IS THE CORRECT OVERLAY, ELSE THROUGH *STDNO*    #
#     TO INDICATE AN OVERLAY SWAP MUST OCCUR.                          #
#                                                                      #
#----------------------------------------------------------------------#
  
      IF IMFDBM              # IF IMF DATA BASE MODE                   #
      THEN
        BEGIN 
        CP2B[0] = SMRIMF$OVL;      # SET SECONDARY OVERLAY LEVEL FOR   #
                                   # STORE/MODIFY/REMOVE DIRECTIVES IN #
                                   # IMF DATABASE MODE                 #
        END 
  
      IF SECONDARY EQ CP2B[0]      # IF IN PROPER OVERLAY              #
      THEN
        BEGIN 
        STDYES;                    # IN PROPER OVERLAY, GOOD RETURN    #
        END 
  
      ELSE
        BEGIN 
        STDNO;                     # IN WRONG OVERLAY, BAD RETURN      #
        END 
      END 
      TERM
