[Runtime] Changed several occurrences of REF to OUT

Author: RobertvanderHulst

src/Runtime/XSharp.Core/RDD/CoreDb.prg

@@ -552,7 +552,7 @@ CLASS XSharp.CoreDb
             RddError.PostArgumentError( __FUNCTION__, EDB_USE, nameof(cName), 1, <OBJECT>{ cName } )
         ELSEIF aStruct == NULL
             RddError.PostArgumentError( __FUNCTION__, EDB_USE, nameof(aStruct), 2 ,NULL)
-        ELSEIF lNew && ! ( ret := CoreDb.Select( 0, REF uiOldArea ) )
+        ELSEIF lNew && ! ( ret := CoreDb.Select( 0, OUT uiOldArea ) )
             RddError.PostError( __FUNCTION__, EG_CREATE, EDB_NOAREAS )
         ELSE
             ret := TRUE

src/Runtime/XSharp.RT/RDD/Db.prg

@@ -542,11 +542,9 @@ FUNCTION DbRUnLock(uRecID) AS LOGIC CLIPPER
 /// <include file="VoFunctionDocs.xml" path="Runtimefunctions/dbselect/*" />
 FUNCTION DbSelect(nNew) AS DWORD CLIPPER
 
-    LOCAL nOld := 0 AS DWORD
-
     @@Default( REF nNew, 0)
 
-    VoDb.Select(nNew, REF nOld)
+    VoDb.Select(nNew, OUT VAR nOld)
 
     RETURN nOld
 
@@ -1065,8 +1063,7 @@ FUNCTION DbCopyXStruct(cTargetFile AS STRING) AS LOGIC STRICT
         aStruct := DbStruct()
 
         n := Len(aStruct)
-        siSaveSel := 0
-        VoDb.Select(0, REF siSaveSel)
+        VoDb.Select(0, OUT siSaveSel)
 
         _DbCreate(cTargetFile)
 

src/Runtime/XSharp.Rdd/ACE/ACE.prg

@@ -4516,9 +4516,9 @@ BEGIN NAMESPACE XSharp.ADS
 
     PUBLIC STATIC METHOD  AdsMgGetServerType( hMgmtHandle AS IntPtr, pusServerType REF WORD ) AS DWORD
         IF Is32Bits
-            RETURN ACE32.AdsMgGetServerType( hMgmtHandle, REF pusServerType)
+            RETURN ACE32.AdsMgGetServerType( hMgmtHandle, OUT pusServerType)
         ELSE
-            RETURN ACE64.AdsMgGetServerType( hMgmtHandle, REF pusServerType)
+            RETURN ACE64.AdsMgGetServerType( hMgmtHandle, OUT pusServerType)
         ENDIF
 
 

src/Runtime/XSharp.Rdd/Advantage/AXSqlRDD.prg

@@ -58,7 +58,7 @@ CLASS XSharp.ADS.AXSQLRDD INHERIT ADSRDD
                     nRes := SetParameters(oParams)
                 ENDIF
                 if nRes == 0
-                    nRes := ACE.AdsExecuteSQL(SELF:_hStatement, REF _Table)
+                    nRes := ACE.AdsExecuteSQL(SELF:_hStatement, OUT _Table)
                 endif
                 IF nRes != 0
                     local err := NULL as Exception
@@ -95,7 +95,7 @@ CLASS XSharp.ADS.AXSQLRDD INHERIT ADSRDD
             RETURN FALSE
         ENDIF
 
-        SELF:_CheckError(ACE.AdsCreateSQLStatement(SELF:_Connection, REF SELF:_hStatement),EG_OPEN,"AdsCreateSQLStatement")
+        SELF:_CheckError(ACE.AdsCreateSQLStatement(SELF:_Connection, OUT SELF:_hStatement),EG_OPEN,"AdsCreateSQLStatement")
 
         SELF:_CheckError(ACE.AdsStmtSetTableType(SELF:_hStatement, SELF:_TableType),EG_OPEN,"AdsStmtSetTableType")
 
@@ -137,7 +137,7 @@ CLASS XSharp.ADS.AXSQLRDD INHERIT ADSRDD
             nRes := SetParameters(oParams)
         endif
         if nRes == 0
-            nRes := ACE.AdsExecuteSQL(SELF:_hStatement, REF _Table)
+            nRes := ACE.AdsExecuteSQL(SELF:_hStatement, OUT _Table)
         endif
         IF nRes != 0
             local err := NULL as Exception
@@ -154,7 +154,7 @@ CLASS XSharp.ADS.AXSQLRDD INHERIT ADSRDD
             SELF:Close()
             RETURN FALSE
         ENDIF
-        SELF:_CheckError(ACE.AdsGetTableType(SELF:_Table, REF _TableType),EG_OPEN,"AdsGetTableType")
+        SELF:_CheckError(ACE.AdsGetTableType(SELF:_Table, OUT _TableType),EG_OPEN,"AdsGetTableType")
         IF ! SELF:_FieldSub()
             SELF:Close()
             RETURN FALSE

src/Runtime/XSharp.Rdd/Advantage/Functions.prg

@@ -98,9 +98,7 @@ FUNCTION GetAceTableHandle() AS IntPtr
 /// volume name as well. For example, use "\\server\share" or "\\server\vol:"..</param>
 /// <seealso cref="AdsIsServerLoaded">AdsIsServerLoaded Function</seealso>
 FUNCTION AX_IsServerLoaded( cFileName AS STRING ) AS LOGIC //
-    LOCAL usLoaded AS WORD
-    usLoaded := 0
-    ACE.AdsIsServerLoaded  (  cFileName , REF usLoaded )
+    ACE.AdsIsServerLoaded  (  cFileName , OUT VAR usLoaded )
     RETURN ( usLoaded == ACE.ADS_REMOTE_SERVER  .OR. usLoaded = ACE.ADS_AIS_SERVER )
 
 /// <summary>Indicates the percent completion of an index build</summary>
@@ -205,7 +203,6 @@ FUNCTION AX_SetSQLTablePasswords( aPasswords AS OBJECT ) AS VOID
 /// <param name="iAction">The parameter can be: AX_BEGIN_TRANSACTION, AX_COMMIT_TRANSACTION, AX_ROLLBACK_TRANSACTION, AX_ISACTIVE_TRANSACTION</param>
 /// <returns>True if the command was successful, False if not.</returns>
 FUNCTION AX_Transaction( iAction AS INT) AS LOGIC // Transaction call
-    LOCAL usInTrans AS WORD
     LOCAL ulRetVal AS DWORD
     //
     // Transaction Processing function.  The parameter can be
@@ -214,7 +211,6 @@ FUNCTION AX_Transaction( iAction AS INT) AS LOGIC // Transaction call
     //   AX_ROLLBACK_TRANSACTION
     //   AX_ISACTIVE_TRANSACTION
     //
-    usInTrans := 0
 
     SWITCH iAction
         CASE AX_BEGIN_TRANSACTION
@@ -224,7 +220,7 @@ FUNCTION AX_Transaction( iAction AS INT) AS LOGIC // Transaction call
         CASE AX_ROLLBACK_TRANSACTION
             ulRetVal := ACE.AdsRollbackTransaction( 0 )
         CASE AX_ISACTIVE_TRANSACTION
-            ulRetVal := ACE.AdsInTransaction( 0, REF usInTrans )
+            ulRetVal := ACE.AdsInTransaction( 0, OUT VAR usInTrans )
             RETURN ( ulRetVal == 0 .AND. usInTrans != 0 )
         OTHERWISE
             ulRetVal := 1
@@ -235,9 +231,8 @@ FUNCTION AX_Transaction( iAction AS INT) AS LOGIC // Transaction call
 
 /// <summary>Is a transaction pending </summary>
 FUNCTION AX_Transaction( ) AS LOGIC // Transaction call
-    LOCAL usInTrans := 0 AS WORD
     LOCAL ulRetVal AS DWORD
-    ulRetVal := ACE.AdsInTransaction( 0, REF usInTrans )
+    ulRetVal := ACE.AdsInTransaction( 0, OUT VAR usInTrans )
     RETURN ( ulRetVal == 0 .AND. usInTrans != 0 )