The return parameter variable name for SQL Server causes an error in Visual FoxPro for Windows 7.0 or earlier versions

MORE INFORMATION

With SQL ODBC driver version 3.50.0300 or later, the following error message is generated: With SQL ODBC driver version 2.65.0240, the following error message is generated:

Steps to Reproduce Behavior

1. Copy the following code into a file called Setup.prg.
   
   Note The user, Username, must have permissions to perform these operations on the database.

         ********Start of Setup.prg***********
         MyConnStr="'driver=sql server;server=myserver;uid=UserName;pwd=StrongPassword; "+ ;
            "database=Pubs'"
         *String to create the SQL Server Stored Procedure in Pubs
         SP_String="Create Proc KBtemp @Param1 char(20)OUTPUT " + ;
             "as Select @Param1='Return Success'"
         CREATE DATABASE SP_Test
         CREATE CONNECTION SP_Test CONNSTRING &MyConnStr
         MyConn=SQLCONNECT('SP_Test')
         IF MyConn > 0 then
             rSucc1=SQLEXEC(MyConn, SP_String)
             IF rSucc1 == -1 then
                 MESSAGEBOX("Creating Stored Procedure Failed")
                 AERROR(MyError)
                 ?"Create Stored Proc Error: "
                 DISPLAY MEMORY LIKE MyError
             ENDIF
             SQLDISCONNECT(MyConn)
         ELSE
             MESSAGEBOX("SQL Connection Failed")
         ENDIF
         *******End of Setup.prg*************
   								

   Note Replace the server, user ID and password in MyConnStr with the appropriate server name, user ID, and password on your system.
   
   
2. Copy the following code to a file called Callsp.prg:

         *******Start of CallSP.prg************
         *Variable for the return parameter
         Z=SPACE(25)
         SP_Call="{Call KBTemp (?@Z)}"
         MyConn=SQLCONNECT('SP_Test')
         IF MyConn > 0 then
             rSucc1=SQLEXEC(MyConn,SP_Call)
             IF rSucc1<>-1 then
                 MESSAGEBOX(Z)
             ELSE
                 MESSAGEBOX("Calling Stored Procedure Failed")
                 AERROR(MyError)
                 ?"Calling Stored Proc Error: "
                 DISPLAY MEMORY LIKE MyError
             ENDIF
             SQLDISCONNECT(MyConn)
         ELSE
             MESSAGEBOX("SQL Connection Failed")
         ENDIF
         ******End of CallSP.prg*************
   								

3. Run Setup.prg.
4. Run Callsp.prg.

NOTE: Check the name of the stored procedure, KBTemp, with your Database Administrator to ensure it is correct to use.