*DECK CBPASS2 
  PRGM FTPASS2;                                                         008870
      BEGIN 
# EXTERMAL REFERENCES#
      XREF PROC ASU ;        # ACCUMULATE STORAGE USED                 #
      XREF PROC CBCKBUF;     #BUFFER MANAGER# 
      XREF PROC CBCKREC;
      XREF PROC CBCKAR; 
      XREF PROC CBCLNUP;
      XREF PROC CBOVLP3 ;    # LOAD RELATION PROCESSING OVERLAY        #
      XREF ITEM DDLMEM;     # LEFTMOST 30 BITS CONTAINS THE LAST WORD  #
                            # ADDRESS OF THE USERS FIELD LENGTH        #
      XREF ITEM FIRSTWORD;  # CONTAINS THE FIRST WORD ADDRESS OF THE   #
                            # REALM LIST.                              #
      XREF ITEM REALMSZ;    # CONTAINS THE LENGTH IN WORDS OF THE REALM#
                            # LIST.                                    #
      XREF ITEM SBSCHMA;     #FWA OF SUBSCHEMA# 
  
*CALL CBPASS2CM 
*CALL COMSUBS 
      CONTROL EJECT;
# INITIALIZE SUBS ARRAY # 
      P<SUBS> = B<0,30>DDLMEM;
# INITIALIZE REALM LIST # 
      P<REALMLST> = FIRSTWORD;
      CBCKBUF(P<REALMLST>,REALMSZ); 
# INITIALIZE SUBSCHEMA BASED ARRAY# 
      P<SUBSCHEMA> = SBSCHMA; 
      CBCKBUF(P<SUBSCHEMA>,SBCWSBLENG[0]);
# INITIALIZE SCHEMA BUFFER# 
      SCHEMAL = 100;
      CBCKBUF(P<SCHEMA>,SCHEMAL); 
# CHECK RECORD ENTRIES# 
      CBCKREC;
# CHECK AREA ENTRIES AND BUILD DATA-CONTROL ENTRIES#
      CBCKAR; 
# CLEANUP SUBSCHEMA CONSTRUCTION# 
      CBCLNUP;
      ASU ;                  # ACCUMULATE STORAGE USED                 #
      CBOVLP3 ;              # LOAD RELATION PROCESSING OVERLAY        #
      END 
      TERM; 
