Oracle Audio Technologies Oracle Tuxedo - Manual (Page 93)

C l i e n t A p p l i c a t i o n C o n s i d e r a t i o n s
Oracle Tuxedo Mainframe Adapter for TCP - CICS User Guide 5-5
ReqReturnCd
This code is the return code from the Oracle Tuxedo Domain. See the Tuxedo
documentation for a complete list of Tuxedo error codes
Request_data
This area is the area where request data gets placed and in which your returned data
arrives. The length depends on how long this particular service is configured. Check with
the administrator for each service. The maximum value is 32000.
Examples
The following sample is an example of a COBOL CICS client program.
Listing 5-3 COBOL CICS Client Program Example
IDENTIFICATION DIVISION.
PROGRAM-ID. TESTCLN.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-3090.
OBJECT-COMPUTER. IBM-3090.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 FILLER PIC X(32) VALUE 'SAMPLE COBOL CICS CLIENT PROGRAM'.
01 MSG-AREA.
05 M-DATA PIC X(42) VALUE SPACES.
05 M-RCDE PIC Z(05) VALUE ZEROS.
01 WS-COMMAREA.
05 WC-DATALEN PIC S9(9) COMP-4.
05 WC-SVCNAME PIC X(16).
05 WC-REQUESTCD PIC S9(9) COMP-4.
05 WC-RETURNCD PIC S9(9) COMP-4.
05 WC-REQRETURNCD PIC S9(9) COMP-4.
05 WC-REQDATA PIC X(14).
LINKAGE SECTION.
01 DFHCOMMAREA PIC X(14).
PROCEDURE DIVISION.
A100-ENTRY.
MOVE +14 TO WC-DATALEN.