Oracle® Application Server Integration Adapter for IMS/TM Installation and User's Guide 10g (9.0.4) Part Number B10504-01 |
|
After the Oracle Application Server Integration Adapter for IMS/TM is installed and the modeling described in Chapter 3, "Modeling Interactions for Oracle Application Server Integration Adapter for IMS/TM" and Chapter 4, "Using Interactions in a Business Process" completed, you can use the Oracle Application Server Integration Adapter for IMS/TM to invoke interactions that access programs under IMS/TM.
This chapter contains the following sections:
The Oracle Application Server Integration Adapter for IMS/TM includes a set of APIs that enable sending a native event as an inbound interaction from a COBOL program, using an IMS/TM transaction.
See Also:
Appendix D, "COBOL APIs to Applications" for details of APIs that can be used when not working under IMS/TM |
To send an inbound interaction, perform the following tasks:
Before you can use the IMS/TM transaction, set it up using the following procedure:
.LOAD(BASE)
to an IMS/TM program library (such as IMS.PGMLIB).
.LOAD(ATYDC3GL)
to the same IMS/TM program library (such as IMS.PGMLIB).
The COBOL program sets up a buffer that contains the information needed for the inbound interaction and then calls the ATYDC3GL program to send the interaction.
The buffer is formatted as follows:
The ATYDC3GL transaction is called as follows:
* * COBOL COPY OF DATA BUFFER * 01 COMM-DATA-BUFF PIC X(5000). 01 COMM-DATA-BUFF-ERROR REDEFINES COMM-DATA-BUFF. 05 COMM-ERROR-STATUS PIC S9(8) COMP SYNC. 05 COMM-ERROR-MSG PIC X(256). 01 COMM-DATA-BUFF-INPUT REDEFINES COMM-DATA-BUFF. 05 INPUT-COMMAREA-3GL. 10 INCOM-VERSION PIC S9(8) COMP SYNC. 10 INCOM-SERVERS-URLS PIC X(256). * /* IP1:PORT[,IP2:PORT] [,...] */ 10 INCOM-USER-NAME PIC X(64). 10 INCOM-PASSWORD PIC X(64). 10 INCOM-WORKSPACE PIC X(64). 10 INCOM-ADAPTER-NAME PIC X(64). 10 INCOM-SCHEMA-FILE-NAME PIC X(256). 10 INCOM-ENC-KEY-NAME PIC X(64). 10 INCOM-ENC-KEY-VALUE PIC X(256). 10 INCOM-INTERACTION-NAME PIC X(64). 10 INCOM-DW-FLAGS PIC S9(8) COMP SYNC. 10 INCOM-INP-FORMAT PIC S9(8) COMP SYNC. 10 INCOM-EXEC-INPUT. 15 INCOM-XML-BUFF. 20 INCOM-XML-ILEN PIC S9(8) COMP SYNC. 20 INCOM-XML-INTER-OUTREC-NAME PIC X(64). * ====>>> CHANGE ??? TO LEN SPECIFIED IN INCOM-XML-ILEN 20 INCOM-XML-INPUT PIC X(???). 15 INCOM-PARAM-BUFF REDEFINES INCOM-XML-BUFF. 20 INCOM-PARAM-COUNT PIC S9(8) COMP SYNC. 20 INCOM-PARAM-VALUE-LEN PIC S9(8) COMP SYNC. 20 INCOM-PARAM-INT-OUTREC-NAME PIC X(64). * ====>>> CHANGE ?? TO COUNT SPECIFIED IN INCOM-PARAM-COUNT 20 INCOM-PARAM-NAME-VALUE OCCURS ?? TIMES. 25 INCOM-PARAM-NAME PIC X(32). * ====>>> CHANGE ?? TO LEN SPECIFIED IN INCOM-PARAM-VALUE-LEN 25 INCOM-PARAM-VALUE PIC X(??). 01 COMM-DATA-BUFF-OUTPUT REDEFINES COMM-DATA-BUFF. 05 COMM-OUT-STATUS PIC S9(8) COMP SYNC. 05 COMM-OUT-LENGTH PIC S9(8) COMP SYNC. 05 COMM-OUT-DATA PIC X(4992)
77 COMLEN PIC S9(4) COMP SYNC VALUE +5000. 77 API-INTERFACE PIC X(8) VALUE 'ATYDC3GL'. CALL API-INTERFACE USING COMM-DATA-BUFF COMLEN.
where:
COMM-DATA-BUFF - The buffer with the interaction details.
COMLEN - The size of the buffer. This value is also used to determine the size of the output string. Thus make sure the value is big enough for the expected output.
The first time the CALL is performed, it will do a one-time fetch and a call. Thereafter, it will do only a call.
CANCEL API-INTERFACE.
After defining the buffer and calling the ATYDC3GL transaction in the COBOL program, compile and move the COBOL program to the IMS/TM program library (such as IMS.PGMLIB).
The output includes a 4 byte success flag: Zero for success, otherwise failure. The output overrides the input. If the result is failure, an error message with a length of 256 bytes is returned.
If XML was specified for the input and the result is success, the output is formatted as XML, as follows:
If parameters were specified for the input and the result is success, the output is formatted as follows:
You can configure a pool of server processes so that a server process is always available for a client request.
See Also:
"Configuring the Daemon for High Availability" for details about high availability |
|
![]() Copyright © 2003 Oracle Corporation. All Rights Reserved. |
|