TUX 8.1 - COBOL server hangs (Doc ID 776280.1)

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

My Oracle Support provides customers with access to over a million knowledge articles and a vibrant support community of peers and Oracle experts.