File: pfclogon.scr
Size: 157
Date: Tue, 22 Jan 2008 23:33:58 +0100
/*  Perform databse logon  */
SQLCA.of_SetUser ( as_userid, as_password )

If SQLCA.of_Connect ( ) < 0 Then
   Return FAILURE
End If

Return SUCCESS
  •