// RDD Full Test Suite
FUNCTION Main()
   LOCAL i, nCount

   ? "=== Five RDD Full Test ==="
   ? ""

   // Phase 1: Create + Append
   ? "Phase 1: Create/Append..."
   dbCreate("rddtest", {{"ID","N",6,0},{"NAME","C",20,0},{"CITY","C",15,0}})
   USE "rddtest"
   FOR i := 1 TO 100
      APPEND BLANK
      FieldPut(1, i)
      FieldPut(2, "Name_" + PadL(AllTrim(Str(i)), 3, "0"))
      FieldPut(3, "City_" + AllTrim(Str(Mod(i, 5))))
   NEXT
   ? "  RecCount:", RecCount()
   GO TOP
   ? "  First ID:", FieldGet(1), "Name:", AllTrim(FieldGet(2))
   GO BOTTOM
   ? "  Last ID:", FieldGet(1), "Name:", AllTrim(FieldGet(2))

   // Phase 2: Navigation
   ? "Phase 2: Navigation..."
   GO TOP
   nCount := 0
   DO WHILE !Eof()
      nCount++
      SKIP
   ENDDO
   ? "  Forward count:", nCount
   GO BOTTOM
   SKIP -1
   ? "  Skip -1 from bottom: ID =", FieldGet(1)

   // Phase 3: Delete/Recall/Pack
   ? "Phase 3: Delete/Pack..."
   FOR i := 10 TO 20
      GO i
      DELETE
   NEXT
   GO 15
   ? "  Rec 15 deleted:", Deleted()
   RECALL
   ? "  Rec 15 after recall:", Deleted()
   PACK
   ? "  After Pack:", RecCount(), "records"

   // Phase 4: Zap
   ? "Phase 4: Zap..."
   ZAP
   ? "  After Zap:", RecCount(), "records"

   // Phase 5: Index
   ? "Phase 5: INDEX ON..."
   FOR i := 1 TO 50
      APPEND BLANK
      FieldPut(1, i)
      FieldPut(2, {"Kim","Lee","Park","Choi","Jung","Kang","Cho","Yoon","Jang","Lim"}[Int(Mod(i-1,10))+1])
   NEXT
   INDEX ON NAME TO rddtest_name
   GO TOP
   ? "  First (indexed):", AllTrim(FieldGet(2))
   GO BOTTOM
   ? "  Last (indexed):", AllTrim(FieldGet(2))
   GO TOP
   nCount := 0
   DO WHILE !Eof()
      nCount++
      SKIP
   ENDDO
   ? "  Traversal:", nCount

   // Phase 6: SEEK
   ? "Phase 6: SEEK..."
   SEEK "Park"
   ? "  SEEK Park: Found=", Found(), "RecNo=", RecNo()
   SEEK "Kim"
   ? "  SEEK Kim: Found=", Found(), "RecNo=", RecNo()
   SEEK "ZZZZZ"
   ? "  SEEK ZZZZZ: Found=", Found()

   USE
   ? ""
   ? "=== DONE ==="
   RETURN NIL