*DECK QU2003
          IDENT  QU2003 
          COMMENT  INITIALIZATION OF OVERLAY 20-03
          SPACE  4
* THIS OVERLAY IS LOADED WHEN 20-01 HAS COMPLETED THE BUILDING OF 
* BLP TABLES IN HIGH CORE WHEN EXECUTING IN CDCS DATA BASE MODE.
* 20-03 CALLS RM$BLP TO COLLECT A LIST OF PRIMARY KEY VALUES FROM 
* THE INDEX FILE. WHEN RM$BLP IS DONE, 20-03 LOADS OVERLAY 50-0 TO
* ACCESS THE DATA FILE. 
          SPACE  4
          ENTRY QU2003
 QU2003   DATA   0
          SA1    =XAUTOPSY   AUTOPSY ROUTINE IN DCLLBLP 
          SX6    X1 
          SA6    =XAUTLOC    ITEM IN 0-0
          RJ     =XDCLLBLP
*         --                 EXIT FROM 20-03 VIA OVERLAY LOAD 
          SPACE  4
          ENTRY  GET
 GET      DATA   0           DUMMY ROUTINE TO PREVENT LOADING FROM BAMLB
          EQ     GET
          SPACE  4
 SAVCODE  CON    0
 PARAMLT  CON    0
 PARAMCT  CON    0
 RTNADDR  CON    0
          SPACE  4
          ENTRY  RETURNM
 RETURNM  DATA   0
          SX2    174B              RETURN/UNLOAD CIO CODE 
          RJ     CALLCIO           GO PROCESS THE REQUEST(S)
+         EQ     RETURNM           EXIT 
          SPACE  4
CALLCIO   DATA   0
          BX6    X2 
          SA6    SAVCODE           SAVE THE CIO CODE FOR ALL REQUESTS 
          SX6    A1                GO GET PARAMETER LIST
          SA6    PARAMLT           LIMIT
          SX6    1                 AND
          SA6    PARAMCT           COUNT
CHKLOOP ZR X1,CALLCIO 
          SA1    X1 
          MX0    42                MASK FOR LFN 
          BX6    X0*X1             NASK JUST 7 CHAR 
          SA2    SAVCODE           GET THE CIO CODE TO BE DONE ON THIS L
          BX6    X6+X2             MERGE IN CIO CODE
          SA6    DUMYFET
          SX6    DUMYFET
          SA5    CIOP 
          BX6    X6+X5
          EXT    CIOWD
          SA6    CIOWD
          RJ     =XCIOREQ       GO DO AN RA+1 REQUEST 
          SA2    PARAMCT           GET LIST POINTERS
          SA3    PARAMLT
          IX1    X2+X3             UPDATE 
          SA1    X1 
          SX6    X2+1 
          SA6    A2                AND
          EQ     CHKLOOP           LOOP FOR MORE LFN-S
CIOP      VFD    18/3LCIO,3/2,39/0
 DUMYFET  BSS     1 
          DATA    100B    FIRST 
          DATA    100B    IN
          DATA    101B    OUT 
          DATA    200B    LIMIT 
          END    QU2003 
