minor doc/comment/test cleanups

doc/en/array.txt

@@ -479,8 +479,8 @@
       array <aTarget> remains constant.
    $EXAMPLES$
       LOCAL nCount := 2, nStart := 1, aOne, aTwo
-      aOne := { "HARBOUR", " is ", "POWER" }
-      aTwo := { "CLIPPER", " was ", "POWER" }
+      aOne := { "Harbour", " is ", "Power" }
+      aTwo := { "Clipper", " was ", "Power" }
       ACopy( aOne, aTwo, nStart, nCount )
    $STATUS$
       R

doc/en/command.txt

@@ -235,7 +235,7 @@
 
       METHOD <MethodName>( [<params,...>] ) BLOCK  <CodeBlock>
 
-      METHOD <MethodName>( [<params,...>] ) EXTERN <NAME>([<args,...>])
+      METHOD <MethodName>( [<params,...>] ) EXTERN <NAME>( [<args,...>] )
 
       METHOD <MethodName>( [<params,...>] ) SETGET
 

doc/en/rdddb.txt

@@ -128,7 +128,7 @@
       This function add a new record to the end of the database
       in the selected or aliased work area. All fields in that
       database will be given empty data values - character fields
-      will be filled with blank spaces, date fields with CToD('//'),
+      will be filled with blank spaces, date fields with hb_SToD(),
       numeric fields with 0, logical fields with .F., and memo fields
       with NULL bytes. The header of the database is not updated until
       the record is flushed from the buffer and the contents are
@@ -137,7 +137,7 @@
       Under a networking enviroment, dbAppend() performs an additional
       operation: It attrmps to lock the newly added record. If
       the database file is currently locked or if a locking assignment
-      if made to LastRec()+1, NetErr() will return a logical true (.T.)
+      if made to LastRec() + 1, NetErr() will return a logical true (.T.)
       immediately after the dbAppend() function. This function does
       not unlock the locked records.
 
@@ -147,7 +147,7 @@
       default for this parameter is a logical false (.F.).
    $EXAMPLES$
       PROCEDURE Main()
-         LOCAL cName := "HARBOUR", nId := 10
+         LOCAL cName := "Harbour", nId := 10
          USE test
          test->( dbAppend() )
          REPLACE test->Name WITH cName, test->Id WITH nId
@@ -721,7 +721,7 @@
    $ONELINER$
       This function locks the record based on identity
    $SYNTAX$
-      dbRLock([<xIdentity>]) --> lSuccess
+      dbRLock( [<xIdentity>] ) --> lSuccess
    $ARGUMENTS$
       <xIdentity> Record identifier
    $RETURNS$
@@ -812,7 +812,7 @@
    $ONELINER$
       Unlocks a record based on its identifier
    $SYNTAX$
-      dbRUnlock([<xIdentity>])
+      dbRUnlock( [<xIdentity>] )
    $ARGUMENTS$
       <xIdentity> Record identifier, typically a record number
    $DESCRIPTION$
@@ -1012,7 +1012,7 @@
    $ONELINER$
       Moves the record pointer in the selected work area.
    $SYNTAX$
-      dbSkip([<nRecords>])
+      dbSkip( [<nRecords>] )
    $ARGUMENTS$
       <nRecords> Numbers of records to move record pointer.
    $DESCRIPTION$

doc/en/rddmisc.txt

@@ -103,7 +103,7 @@
    $ONELINER$
       Returns the alias name of a work area
    $SYNTAX$
-      Alias([<nWorkArea>]) --> <cWorkArea>
+      Alias( [<nWorkArea>] ) --> <cWorkArea>
    $ARGUMENTS$
       <nWorkArea> Number of a work area
    $RETURNS$
@@ -696,7 +696,7 @@
    $ONELINER$
       Tests the success of a network function
    $SYNTAX$
-      NetErr([<lNewError>]) --> lError
+      NetErr( [<lNewError>] ) --> lError
    $ARGUMENTS$
       <lNewError> Is a logical Expression.
    $RETURNS$
@@ -714,11 +714,14 @@
       This allow the run-time error-handling system to control the way
       certain errors are handled.
    $EXAMPLES$
-      USE test NEW INDEX test
+      USE test NEW
       IF ! NetErr()
-         SEEK test->Name := "HARBOUR"
+         INDEX ON field->First TO test
+         SET INDEX TO test
+         test->First := "Harbour"
+         SEEK "Harbour"
          IF Found()
-            ? test->Name
+            ? test->First
          ENDIF
       ENDIF
       USE
@@ -919,7 +922,7 @@
    $ONELINER$
       Returns the work area number for a specified alias.
    $SYNTAX$
-      Select([<cAlias>]) --> nWorkArea
+      Select( [<cAlias>] ) --> nWorkArea
    $ARGUMENTS$
       <cAlias> is the target work area alias name.
    $RETURNS$

doc/en/string.txt

@@ -423,7 +423,7 @@
 
       SubStr( <cString>, 1, <nLen> )
    $EXAMPLES$
-      ? Left( "HELLO HARBOUR", 5 )    // HELLO
+      ? Left( "Hello Harbour", 5 )    // Hello
    $STATUS$
       R
    $COMPLIANCE$
@@ -464,7 +464,7 @@
 
       SubStr( <cString>, Len( <cString> ) - <nLen> + 1, <nLen> )
    $EXAMPLES$
-      ? Right( "HELLO HARBOUR", 5 )     // RBOUR
+      ? Right( "Hello Harbour", 5 )     // rbour
    $STATUS$
       R
    $COMPLIANCE$
@@ -511,9 +511,9 @@
       characters from <nStart> to the end of the string is less than <nLen>
       the rest are ignored.
    $EXAMPLES$
-      ? SubStr( "HELLO HARBOUR" ,  7, 4 )      // HARB
-      ? SubStr( "HELLO HARBOUR" , -3, 3 )      // OUR
-      ? SubStr( "HELLO HARBOUR" ,  7    )      // HARBOUR
+      ? SubStr( "Hello Harbour" ,  7, 4 )      // Harb
+      ? SubStr( "Hello Harbour" , -3, 3 )      // our
+      ? SubStr( "Hello Harbour" ,  7    )      // Harbour
    $STATUS$
       R
    $COMPLIANCE$
@@ -1157,10 +1157,10 @@
       This function returns the string <cExpression> will all leading and
       trailing blank spaces removed.
    $EXAMPLES$
-      ? AllTrim( "HELLO HARBOUR" )
-      ? AllTrim( "     HELLO HARBOUR" )
-      ? AllTrim( "HELLO HARBOUR     " )
-      ? AllTrim( "     HELLO HARBOUR     " )
+      ? AllTrim( "Hello Harbour" )
+      ? AllTrim( "     Hello Harbour" )
+      ? AllTrim( "Hello Harbour     " )
+      ? AllTrim( "     hello Harbour     " )
    $STATUS$
       R
    $COMPLIANCE$

doc/en/var.txt

@@ -838,7 +838,7 @@
       PROCEDURE Main()
          ? ValType( Array( 1 ) )   // "A"
          ? ValType( {|| 1 + 1 } )  // "B"
-         ? ValType( "HARBOUR" )    // "C"
+         ? ValType( "Harbour" )    // "C"
          ? ValType( Date() )       // "D"
          ? ValType( .T. )          // "L"
          ? ValType( 1 )            // "N"