>>FOR nMonth = 1 TO 12 >> lcMonth = PADL(nMonth, 2, "0") >> * Get the Carrier ID (Matches GrpID and PlanKey) >> * and the Benefit Name (Matches PlanKey). >> lcCursor=("tmpNearly"+lcMonth) >> SELECT (lcCursor) >> SCAN >> IF SEEK((lcCursor).GrpID+(lcCursor).PlanKey, "GrpsPlansCarrs", "Full_Key") >> REPLACE (lcCursor).CarrID WITH GrpsPlansCarrs.Carr, ; >> (lcCursor).Benefit WITH GrpsPlansCarrs.CovDesc8 >> ENDIF >> ENDSCAN >>ENDFOR >>>>
>>IF SEEK((lcCursor)+".GrpID"+(lcCursor)+".PlanKey", "GrpsPlansCarrs", "Full_Key") >> REPLACE (lcCursor)+".CarrID" WITH GrpsPlansCarrs.Carr, ; >> (lcCursor)+".Benefit" WITH GrpsPlansCarrs.CovDesc8 >>>
>FOR nMonth = 1 TO 12 > lcMonth = PADL(nMonth, 2, "0") > * Get the Carrier ID (Matches GrpID and PlanKey) > * and the Benefit Name (Matches PlanKey). > lcCursor=("tmpNearly"+lcMonth) > SELECT (lcCursor) > SCAN > IF SEEK(&lcCursor..GrpID+&lcCursor..PlanKey, "GrpsPlansCarrs", "Full_Key") > REPLACE CarrID WITH GrpsPlansCarrs.Carr, ; > Benefit WITH GrpsPlansCarrs.CovDesc8 IN (lcCursor) > ENDIF > ENDSCAN >ENDFOR >If you already selected the cursor, there is no need to prefix with cursor name in the SEEK command.
IF SEEK(GrpID + PlanKey,'GrpsPlansCarss','Full_Key') replace ...