TUX 8.1 - COBOL server hangs (Doc ID 776280.1)

Last updated on NOVEMBER 04, 2016

Applies to:

Oracle Tuxedo
Information in this document applies to any platform.
Information in this document applies to any platform
***Checked for relevance on 14-07-2010***

Goal

CONFIGURATION:
MFCobol 2.2 SP1 32 bit
HP UX 11i 64 bit
Tuxedo 8.1 32 bit

DESCRIPTION:
When an ATMI service implemented in a COBOL server is invoked (e.g., by a client executing tpcall()), the COBOL server
hangs.

This behavior can be observed by modifying CSIMPAPP's CSIMPSRV.cbl so that it calls an external COBOL program, as
follows:
...
01 HELLO PICX(10) VALUE "HELLO"
...
CALL HELLO

The external program HELLO.cbl looks like this:

000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. HELLOWORLD.
000300
000400*
000500 ENVIRONMENT DIVISION.
000600 CONFIGURATION SECTION.
000700 SOURCE-COMPUTER. RM-COBOL.
000800 OBJECT-COMPUTER. RM-COBOL.
000900
001000 DATA DIVISION.
001100 FILE SECTION.
001200
100000 PROCEDURE DIVISION.
100100
100200 MAIN-LOGIC SECTION.
100300 BEGIN.
100510 DISPLAY "Hello world!".
100700 MAIN-LOGIC-EXIT.
100800 GOBACK.

Then, build CSIMPCL, CSIMPSRV, and HELLO:
cob -u HELLO.cbl
buildclient -C -o CSIMPCL -f CSIMPCL.cbl
buildserver -C -o CSIMPSRV -s CSIMPSRV -f CSIMPSRV.cbl -f TPSVRINIT.cbl

After booting the application, invoke CSIMPCL. CSIMPSRV hangs just after the statement "CALL HELLO".

Solution

Sign In with your My Oracle Support account

Don't have a My Oracle Support account? Click to get started

My Oracle Support provides customers with access to over a
Million Knowledge Articles and hundreds of Community platforms