My Oracle Support Banner

TUX 8.1 - COBOL server hangs (Doc ID 776280.1)

Last updated on MAY 19, 2021

Applies to:

Oracle Tuxedo - Version 8.1 and later
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

To view full details, sign in with your My Oracle Support account.

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


In this Document
Goal
Solution

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