Server Express Animator/Oracle Issues - Again
From: Chris (ctaliercio_at_yahoo.com)
Date: 10/27/04
- Next message: Chuck Stevens: "Re: Standard and COBOL file formats"
- Previous message: Richard: "Re: Standard and COBOL file formats"
- Next in thread: Wiggy: "Re: Server Express Animator/Oracle Issues - Again"
- Reply: Wiggy: "Re: Server Express Animator/Oracle Issues - Again"
- Reply: Robert Wagner: "Re: Server Express Animator/Oracle Issues - Again"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Date: 27 Oct 2004 14:21:07 -0700
OK - I thought I had this figured out, but apparently not.
I apologize for what is to be a lengthy post here, but I figure the
best way to get a solution is to provide working sample code to
illustrate the problem I am having.
PLATFORM: HP-UX 11i (11.11)
COBOL: Server Express 2.2 SP1
I have constructed a Shared Library of Oracle SQL functions per Micro
Focus' documentation and named it orasqllib.sl.
I also have the following test program:
identification division.
program-id. connectme.
data division.
working-storage section.
exec sql include sqlca end-exec.
exec sql declare dbname database end-exec.
exec sql begin declare section end-exec.
01 db-user pic x(21) varying.
01 db-str pic x(10) varying.
exec sql end declare section end-exec.
procedure division.
display "Hello World"
at 0101
with foreground-color 4
end-display
move "scott/tiger" to db-user-arr
move 21 to db-user-len
move spaces to db-str-arr
move 0 to db-str-len
exec sql
connect
:db-user
at
dbname
using
:db-str
end-exec
evaluate sqlcode
when 0
display "Connected"
at 0201
with foreground-color 4
end-display
when other
display
"Error: "
sqlerrmc(1:sqlerrml - 1)
at 0201
end-display
end-evaluate
goback returning 0
.
I compile the program using the following command line:
cob -g -a -v -t \
-k connectme.pco \
-C"p(cobsql) cobsqltype==oracle8 end sqlcheck==full
maxopencursors==45 endp" \
-C IBMCOMP -C NESTCALL -C LINKCOUNT=256 -C INITCALL=orasqllib.sl -C
SERIAL
When I issue the following command: cobrun_t connectme.int
I get the following results:
Attempting Connection
Connected
When I animate with the following command: anim_t connectme.int
I get the following results:
Attempting Connection
Error:
ORA-12540: TNS:internal limit restriction exceeded
However, I only get this error when the DISPLAY statement is executed
prior to the connection. If I skip past the connection, I am able to
make the connection successfully. Apparently ANY call to ADIS
interferes with the SQL connect statement.
This is not good, as you can imagine. I need to prompt (on a nice
pretty screen) for user name/password before attempting a connection
to the database.
Any/all help is greatly appreciated.
Thanks in advance,
Chris
- Next message: Chuck Stevens: "Re: Standard and COBOL file formats"
- Previous message: Richard: "Re: Standard and COBOL file formats"
- Next in thread: Wiggy: "Re: Server Express Animator/Oracle Issues - Again"
- Reply: Wiggy: "Re: Server Express Animator/Oracle Issues - Again"
- Reply: Robert Wagner: "Re: Server Express Animator/Oracle Issues - Again"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Relevant Pages
|