Date:         Thu, 20 Nov 1997 08:51:41 -0500
Reply-To:     REXX Programming discussion list <REXXLIST@UGA.CC.UGA.EDU>
Sender:       REXX Programming discussion list <REXXLIST@UGA.CC.UGA.EDU>
From:         Ed Stevens <73640.77@COMPUSERVE.COM>
Organization: Nissan Motor Mfg. Corp. USA
Subject:      ObjRexx, NT, and external functions

Can someone help with a problem I'm having in registering and calling an
external function?
 
I'm using IBM ObjectRexx with Mark Hessling's RexxSQL to access an Oracle
database.  Given
the following snippet of code:
 
/* ----------------------------------------------------------------------- */
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
 
call RXFuncAdd 'SQLLoadFuncs','REXXSQL','SQLLoadFuncs'
call SqlLoadFuncs
 
call RXFuncAdd 'ORALoadFuncs','REXXORA','ORALoadFuncs'
call ORALoadFuncs
 
exit
/* ----------------------------------------------------------------------- */
 
When run on NT Server 3.51 it works fine.  However, when run on NT Workstation
4.0, I
get the following results (captured from an interactive trace session)
 
       +++ "WindowsNT COMMAND C:\OBJREXX\TESTCALL.REX"
     4 *-* call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
+++ Interactive trace.  TRACE OFF to end debug, ENTER to continue. +++
       >>>   "SysLoadFuncs"
       >>>   "RexxUtil"
       >>>   "SysLoadFuncs"
       >>>   "0"
     5 *-* call SysLoadFuncs
       >>>   ""
     7 *-* call RXFuncAdd 'SQLLoadFuncs','REXXSQL','SQLLoadFuncs'
       >>>   "SQLLoadFuncs"
       >>>   "REXXSQL"
       >>>   "SQLLoadFuncs"
       >>>   "0"
     8 *-* call SqlLoadFuncs
     8 *-* call SqlLoadFuncs
Error 43 running C:\OBJREXX\TESTCALL.REX line 8:  Routine not found
Error 43.1:  Could not find routine "SQLLOADFUNCS"
 
Are there any known issues with ObjectRexx and differing versions of NT,
external function
calls?
 
- Ed Stevens
  Nissan Motor Mfg. Corp., USA
--
- Ed Stevens