*DECK CUVMAIN                                                            CUVMAIN
      PROC CUVMAIN;                                                      CUVMAIN
#----------------------------------------------------------------------# CUVMAIN
#                                                                      # CUVMAIN
#     C U V M A I N                                                    # CUVMAIN
#                                                                      # CUVMAIN
#     THIS PROC CONTAINS ALL DEFINITIONS NEEDED BY MORE THAN ONE OF    #
#     THE (5,X) OVERLAYS.                                              #
#                                                                      # CUVMAIN
#----------------------------------------------------------------------# CUVMAIN
                                                                         CUVMAIN
      BEGIN                                                              CUVMAIN
                                                                         CUVMAIN
#     NO SYMPL TEXTS OR COMDECKS BEING CALLED AT THIS TIME.            #
                                                                         CUVMAIN
                                                                         CUVMAIN
#----------------------------------------------------------------------# CUVMAIN
#   S T A R T   O F   X D E F                                          # CUVMAIN
                                                                         CUVMAIN
      XDEF ITEM  NEWATBL I;        # AREA TBL PTR FOR SUBSCHEMA DURING #
                                   # USE INITIALIZATION BY (5,1)       # CUVMAIN
      XDEF ITEM  SAMELFN B;        # TRUE IF LFN OF NEW SUBSCHEMA FILE #
                                   # SAME AS PREVIOUS (NOS ONLY)       #
      XDEF ITEM  SBSCHG B;         # TRUE IF PICKING UP DIFFERENT SUBSC# CUVMAIN
                                   # THAN THAT OF THE PREVIOUS C/U/V   # CUVMAIN
      XDEF ITEM  SCTLPTR I;        # POINTER TO SUBSCHEMA CONTROL INFO #
                                                                         CUVMAIN
                                                                         CUVMAIN
      END  #CUVMAIN#                                                     CUVMAIN
      TERM                                                               CUVMAIN
