*DECK QU2002
          IDENT  QU2002 
          COMMENT  INITIALIZATION OF OVERLAY 20-2 
 QU2002   TITLE  QU2002 - INITIALIZATION OF OVERLAY 20-2
*    THIS IS THE ENTRY POINT OF OVERLAY 20-02.
*  THIS OVERLAY IS LOADED WHEN 20-01 HAS COMPLETED THE BUILDING OF
*  BLP TABLES IN HIGH CORE.  20-02 CALLS BLP TO COLLECT A LIST OF 
*  PRIMARY KEY VALUES FROM THE INDEX FILE.  WHEN BLP IS DONE, 
*  20-02 LOADS OVERLAY 30 OR 4X TO ACCESS THE PRIMARY FILE. 
          SPACE  2
          ENTRY  QU2002 
QU2002    DATA   0
          SA1    =XAUTOPSY   ROUTINE IN CALLBLP 
          SX6    A1 
          SA6    =XAUTLOC    ITEM IN 0-0
          RJ     =XCALLBLP
*         --                 EXIT FROM 20-02 VIA OVERLAY LOAD 
          SPACE  2
          LIST   -L          *CALL MACRO FOLLOWS
*CALL     MACRO 
          LIST   L
          LIST   -L          *CALL NUMOPT FOLLOWS 
*CALL     NUMOPT
          LIST   L
          LIST   -L          *CALL ENVIRON FOLLOWS
*CALL     ENVIRON 
          LIST   L
          LIST   -L          *CALL ATTACH FOLLOWS 
*CALL     ATTACH
          LIST   L
  
          ENTRY  DCREWND
 DCREWND  DATA   0           DUMMY ROUTINE TO PREVENT UNSAT EXTERNAL
          EQ     DCREWND
  
  
          END    QU2002 
