SELECT QPDATA USE IN 0 GOTO TOP SET STEP ON SCAN WHILE !EOF() QFLD =QPDATA.FIELD &&FIELD MARKER TO FIND XDATA =LXPOS.INPUT &&FIELD TO MATCH TO ORPL =LXPOS.DATA &&DATA INTO THE LX FILE QPLACE = QPDATA.DATA &&DATA FROM THE QP FILE SET ORDER TO FIELD && FIELD SEEK QFLD IF FOUND() REPLACE &ORPL WITH &QPLACE WHERE &XDATA = &QFLD ENDIF ENDSCAN