>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