STORE QCOST10 TO MCS10 STORE QCOST11 TO MCS11 STORE QCOST12 TO MCS12 STORE QCOST13 TO MCS13 STORE QCOST14 TO MCS14 STORE QCOST15 TO MCS15 STORE QCOST16 TO MCS16 STORE QCOST17 TO MCS17 STORE QCOST18 TO MCS18 STORE QCOST19 TO MCS19 STORE QCOST20 TO MCS20 STORE QPERSON TO MQPERSON STORE QCO TO MQCO STORE QREC TO MQREC STORE QINVNUM TO TINV STORE QQTY10 TO MQ1 STORE QPRICE10 TO MP1 STORE QDESC10 TO MD1 STORE QTAX10 TO MT1 STORE QQTY11 TO MQ2 STORE QPRICE11 TO MP2 STORE QDESC11 TO MD2 STORE QTAX11 TO MT2 STORE QQTY12 TO MQ3 STORE QPRICE12 TO MP3 STORE QDESC12 TO MD3 STORE QTAX12 TO MT3 STORE QQTY13 TO MQ4 STORE QPRICE13 TO MP4 STORE QDESC13 TO MD4 STORE QTAX13 TO MT4 STORE QQTY14 TO MQ5 STORE QPRICE14 TO MP5 STORE QDESC14 TO MD5 STORE QTAX14 TO MT5 STORE QQTY15 TO MQ6 STORE QPRICE15 TO MP6 STORE QDESC15 TO MD6 STORE QTAX15 TO MT6 STORE QQTY16 TO MQ7 STORE QPRICE16 TO MP7 STORE QDESC16 TO MD7 STORE QTAX16 TO MT7 STORE QQTY17 TO MQ8 STORE QPRICE17 TO MP8 STORE QDESC17 TO MD8 STORE QTAX17 TO MT8 STORE QQTY18 TO MQ9 STORE QPRICE18 TO MP9 STORE QDESC18 TO MD9 STORE QTAX18 TO MT9 STORE QQTY19 TO MQ10 STORE QPRICE19 TO MP10 STORE QDESC19 TO MD10 STORE QTAX19 TO MT10 STORE QQTY20 TO MQ11 STORE QPRICE20 TO MP11 STORE QDESC20 TO MD11 STORE QTAX11 TO MT11 STORE QPO TO MPO STORE QDATE TO MDATE STORE QNAME TO MNAME STORE QADDRESS TO QADD STORE QADDRESS1 TO QADD1 STORE QCSZ TO MQCSZ STORE QUODATE TO MQUODATE STORE QORDDATE TO MQORDDATE STORE QLSTDATE TO MQLSTDATE STORE QDELIVER TO MQDELIVER STORE QFNAME TO MQFNAME STORE V10 TO MV10 STORE V11 TO MV11 STORE V12 TO MV12 STORE V13 TO MV13 STORE V14 TO MV14 STORE V15 TO MV15 STORE V16 TO MV16 STORE V17 TO MV17 STORE V18 TO MV18 STORE V19 TO MV19 STORE V20 TO MV20 STORE QPHONE TO MQPHONE STORE TEST TO MTEST STORE QORDDATE10 TO MORDDATE10 STORE QORDDATE11 TO MORDDATE11 STORE QORDDATE12 TO MORDDATE12 STORE QORDDATE13 TO MORDDATE13 STORE QORDDATE14 TO MORDDATE14 STORE QORDDATE15 TO MORDDATE15 STORE QORDDATE16 TO MORDDATE16 STORE QORDDATE17 TO MORDDATE17 STORE QORDDATE18 TO MORDDATE18 STORE QORDDATE19 TO MORDDATE19 STORE QORDDATE20 TO MORDDATE20 STORE QREC10 TO MQREC10 STORE QREC11 TO MQREC11 STORE QREC12 TO MQREC12 STORE QREC13 TO MQREC13 STORE QREC14 TO MQREC14 STORE QREC15 TO MQREC15 STORE QREC16 TO MQREC16 STORE QREC17 TO MQREC17 STORE QREC18 TO MQREC18 STORE QREC19 TO MQREC19 STORE QREC20 TO MQREC20 STORE QNOTREC TO MQNOTREC GOTO DRECNUM DO LOCKWAIT REPLACE QREC WITH MQREC REPLACE QINVNUM WITH TINV REPLACE QQTY10 WITH MQ1 REPLACE QPRICE10 WITH MP1 REPLACE QDESC10 WITH MD1 REPLACE QTAX10 WITH MT1 REPLACE QQTY11 WITH MQ2 REPLACE QPRICE11 WITH MP2 REPLACE QDESC11 WITH MD2 REPLACE QTAX11 WITH MT2 REPLACE QQTY12 WITH MQ3 REPLACE QPRICE12 WITH MP3 REPLACE QDESC12 WITH MD3 REPLACE QTAX12 WITH MT3 REPLACE QQTY13 WITH MQ4 REPLACE QPRICE13 WITH MP4 REPLACE QDESC13 WITH MD4 REPLACE QTAX13 WITH MT4 REPLACE QQTY14 WITH MQ5 REPLACE QPRICE14 WITH MP5 REPLACE QDESC14 WITH MD5 REPLACE QTAX14 WITH MT5 REPLACE QQTY15 WITH MQ6 REPLACE QPRICE15 WITH MP6 REPLACE QDESC15 WITH MD6 REPLACE QTAX15 WITH MT6 REPLACE QQTY16 WITH MQ7 REPLACE QPRICE16 WITH MP7 REPLACE QDESC16 WITH MD7 REPLACE QTAX16 WITH MT7 REPLACE QQTY17 WITH MQ8 REPLACE QPRICE17 WITH MP8 REPLACE QDESC17 WITH MD8 REPLACE QTAX17 WITH MT8 REPLACE QQTY18 WITH MQ9 REPLACE QPRICE18 WITH MP9 REPLACE QDESC18 WITH MD9 REPLACE QTAX18 WITH MT9 REPLACE QQTY19 WITH MQ10 REPLACE QPRICE19 WITH MP10 REPLACE QDESC19 WITH MD10 REPLACE QTAX19 WITH MT10 REPLACE QQTY20 WITH MQ11 REPLACE QPRICE20 WITH MP11 REPLACE QDESC20 WITH MD11 REPLACE QTAX11 WITH MT11 REPLACE QPO WITH MPO REPLACE QDATE WITH MDATE REPLACE QNAME WITH MNAME REPLACE QADDRESS WITH QADD REPLACE QADDRESS1 WITH QADD1 REPLACE QCSZ WITH MQCSZ REPLACE QUODATE WITH MQUODATE REPLACE QORDDATE WITH MQORDDATE REPLACE QLSTDATE WITH MQLSTDATE REPLACE QDELIVER WITH MQDELIVER REPLACE QFNAME WITH MQFNAME REPLACE V10 WITH MV10 REPLACE V11 WITH MV11 REPLACE V12 WITH MV12 REPLACE V13 WITH MV13 REPLACE V14 WITH MV14 REPLACE V15 WITH MV15 REPLACE V16 WITH MV16 REPLACE V17 WITH MV17 REPLACE V18 WITH MV18 REPLACE V19 WITH MV19 REPLACE V20 WITH MV20 REPLACE QPHONE WITH MQPHONE REPLACE TEST WITH MTEST REPLACE QORDDATE10 WITH MORDDATE10 REPLACE QORDDATE11 WITH MORDDATE11 REPLACE QORDDATE12 WITH MORDDATE12 REPLACE QORDDATE13 WITH MORDDATE13 REPLACE QORDDATE14 WITH MORDDATE14 REPLACE QORDDATE15 WITH MORDDATE15 REPLACE QORDDATE16 WITH MORDDATE16 REPLACE QORDDATE17 WITH MORDDATE17 REPLACE QORDDATE18 WITH MORDDATE18 REPLACE QORDDATE19 WITH MORDDATE19 REPLACE QORDDATE20 WITH MORDDATE20 REPLACE QREC10 WITH MQREC10 REPLACE QREC11 WITH MQREC11 REPLACE QREC12 WITH MQREC12 REPLACE QREC13 WITH MQREC13 REPLACE QREC14 WITH MQREC14 REPLACE QREC15 WITH MQREC15 REPLACE QREC16 WITH MQREC16 REPLACE QREC17 WITH MQREC17 REPLACE QREC18 WITH MQREC18 REPLACE QREC19 WITH MQREC19 REPLACE QREC20 WITH MQREC20 REPLACE QNOTREC WITH MQNOTREC REPLACE QPERSON WITH MQPERSON REPLACE QCO WITH MQCO REPLACE QCOST10 WITH MCS10 REPLACE QCOST11 WITH MCS11 REPLACE QCOST12 WITH MCS12 REPLACE QCOST13 WITH MCS13 REPLACE QCOST14 WITH MCS14 REPLACE QCOST15 WITH MCS15 REPLACE QCOST16 WITH MCS16 REPLACE QCOST17 WITH MCS17 REPLACE QCOST18 WITH MCS18 REPLACE QCOST19 WITH MCS19 REPLACE QCOST20 WITH MCS20 UNLOCKACE QREC17 WITH MQREC17 REPLACE QREC18 WITH MQREC18 REPLACE QREC19 WITH MQREC19 REPLACE QREC20 WITH MQREC20 REPLACE QNOTREC WITH MQNOTREC REPLACE QPERSON WITH MQPE