CodeButcher
05-21-2004, 07:56 AM
I am building an ASP on a server. I need to call a cobol DLL to process entered data and return the results to the page.
The ASP succeeds in calling the VB wrapper, but the wrapper returns
WrapEXINCOR error '800a0035'
File not found: Kypos\EXINCOR.DLL
Kypos is a virtual directory with an actual full path name of C:\KYPOS
The DLL is there, and the ISS permissions are set such that web applications should be able to execute them (unless I have missed something)
I am using VB6(SP5)
Here is the code from my cls form.
Private Declare Sub JMPCINT2 Lib "f3biprct.dll" ()
Private Declare Sub JMPCINT3 Lib "f3biprct.dll" ()
Private Declare Sub ADJCLAIM Lib "Kypos\EXINCOR.DLL" (Lactcode As String, Lclmrec As String)
Private Sub Class_Initialize()
Call JMPCINT2
End Sub
Private Sub Class_Terminate()
Call JMPCINT3
End Sub
Public Function CallExincor(actcode As String, clmrec As String)
Call JMPCINT2
Dim Cactcode As String
Dim Cclmrec As String
Cactcode = actcode
Cclmrec = clmrec
Call ADJCLAIM(Cactcode, Cclmrec)
clmrec = Cclmrec
Call JMPCINT3
End Function
Any help greatfully appreciated.
The ASP succeeds in calling the VB wrapper, but the wrapper returns
WrapEXINCOR error '800a0035'
File not found: Kypos\EXINCOR.DLL
Kypos is a virtual directory with an actual full path name of C:\KYPOS
The DLL is there, and the ISS permissions are set such that web applications should be able to execute them (unless I have missed something)
I am using VB6(SP5)
Here is the code from my cls form.
Private Declare Sub JMPCINT2 Lib "f3biprct.dll" ()
Private Declare Sub JMPCINT3 Lib "f3biprct.dll" ()
Private Declare Sub ADJCLAIM Lib "Kypos\EXINCOR.DLL" (Lactcode As String, Lclmrec As String)
Private Sub Class_Initialize()
Call JMPCINT2
End Sub
Private Sub Class_Terminate()
Call JMPCINT3
End Sub
Public Function CallExincor(actcode As String, clmrec As String)
Call JMPCINT2
Dim Cactcode As String
Dim Cclmrec As String
Cactcode = actcode
Cclmrec = clmrec
Call ADJCLAIM(Cactcode, Cclmrec)
clmrec = Cclmrec
Call JMPCINT3
End Function
Any help greatfully appreciated.