*DECK QU
          IDENT  QU 
          ENTRY  QU 
          ENTRY  QUMIP
          ENTRY  REPORT 
          LDSET  EPT=QU 
          LDSET  EPT=QUMIP
          LDSET  EPT=REPORT 
          COMMENT QUERY UPDATE ENTRY POINTS.
          SPACE  4,10 
**        COMMON DECKS. 
  
  
*CALL MACRO 
  
          LIST   -L          *CALL NUMOPT 
*CALL NUMOPT
          LIST   L
          SPACE  4,10 
**        COMMON BLOCK DEFINITIONS. 
  
  
*CALL     REPCOMC 
  
          ORG    TABFIT 
 TABFILE  FILE   FO=SQ,RT=S,MRL=3000*10,EFC=3 
          ORG    VARFIT 
 ZZZZZQ9  FILE   FO=SQ,RT=Z,BT=C,MRL=1024,EFC=3 
          USE 
          SPACE  4,10 
**        LOCAL DEFINITIONS.
  
  
          SPACE  4,10 
 REPORT   SX6    1
          SA6    =XQU$RPT    SET FLAG FOR *REPORT* PROCESSING 
          SA6    =XDIAGLEV   SET *DIAG,FULL* FOR REPORT 
 QUMIP    BSS    0
 QU       RJ     =XCTL       MAIN LOOP OF QU
          ENDRUN
  
          END    QU 
