Example code using some of the Network Functions

* HelpSys2.03 test (Network Example and Test sample)
*
* For normal .DBF and .NTX testing, leave both comment sections below
* commented
*
* COMPILE with   CLIPPER <file> /w/n
* LINK with      RTLINK FI <file>,HELPSYS2 LI HELPSYS2

MEMVAR GetList                // To eliminate GETLIST warnings

PROCEDURE Main()
* * * * FOR COMIX * * * * * * * *
*  REQUEST DBFCMX             // Force a link to FlexFile
*  RDDSETDEFAULT("DBFCMX")    // Set the Default RDD to Comix
* * * * FOR FLEXFILE* * * * * * *
*  REQUEST FLEXFILE           // Force a link to FlexFile
*  RDDSETDEFAULT("FLEXFILE")  // Set the Default RDD to FlexFile
* * * * * * * * * * * * * * * * *
*  V_SUPERRDD("DBFCMX")       // Set COMIX on top of FlexFile
* * * * * * * * * * * * * * * * *

   CLEAR SCREEN
   SetShowStatus(.T.)               // Turn on Network status messages
   // Open database and related indexes under the alias of test
   IF NetUse("TEST", .F., 60, {"TEST1","TEST2","TEST3"},"TEST")
      GOTO TOP                      // GOTO the top of the database
      IF NetRecLock()               // Lock this record before allowing changes
         @ 1, 3 GET Test->Field1    // Place database/variable gets
         @ 3, 3 GET Test->Field2
         @ 4, 3 GET Test->Field3
         READ                       // Read and replace fields
      ELSE                          // ERROR locking record
         PrintAlert("Could not lock the TEST record")
      ENDIF
   ELSE                             // ERROR Opening database
      PrintAlert("Could not open the TEST database")
   ENDIF
   USE                              // Close database
RETURN