Sergey,

Your suggestion worked. I also had to change the line containing the SQLEXEC() function to:

nSQLExec = SQLExec(nConn, "{Call RKR_GetShifts ( '"+ Allt(cCalDate1) + "')}")

Hope this is helpful to you or someone else.

Thanks for your help...

Keith Robinson