*COMDECK MDBSADCLS                                                       MDBSADC
                                                                         MDBSADC
      BASED ARRAY DBPROC [0:0] S(1);   # ARRAY FOR DBP TABLE           #
        BEGIN 
*CALL MDDPDDCLS                                                          MDBSADC
        END 
                                                                         MDBSADC
          BASED ARRAY SCITARY [1:1] S(1);  # ARRAY FOR SCHEMA ID TABLE # JJJ1230
            BEGIN                                                        MDBSADC
            ITEM SCITWRIT B(0,0,1);  # SCHEMA WRITTEN FLAG             # MDBSADC
            ITEM SCITMTEN B(0,1,1);  # SCHEMA ENTRY EMPTY FLAG         # MDBSADC
            ITEM SCITDORD U(0,42,18);  # ORDINAL TO SCHEMA DIRECTORY   # MDBSADC
                                       # ORDINAL = 0 MEANS NO DIRECTORY# MDBSADC
                                       # ENTRY FOR THIS ID             # MDBSADC
            END                                                          MDBSADC
                                                                         MDBSADC
#     SCHEMA DIRECTORY ENTRY.  ORDINALS START AT 1.                    # MDBSADC
      BASED ARRAY MDSCENTRY [0] S;
            BEGIN                                                        MDBSADC
*CALL MDSCDDCLS                                                          MDBSADC
        END 
                                                                         MDBSADC
