Oracle Audio Technologies Oracle Tuxedo Examples, Listing 5-3 Cobol Cics Client Program Example

Cli ent Applic ation Considerations

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.

Oracle Tuxedo Mainframe Adapter for TCP - CICS User Guide 5-5