If you are calling CODE-1 Plus under CICS, you must pass one, 01-level call area that is 6,400 bytes long and encompasses P9IN, P9OUT, and P9AUDIT instead of passing three individual call areas.
G1CPDMI is provided as a sample program to interface with C1MATCHI under CICS. The "2000-SETUP-FUNCTION-RTN" paragraph is almost identical to the area used in G1CPMAT to link to the interactive matcher. You can invoke G1CPDMI by defining a CSD transaction entry to it. For example, "G1MI" is assigned in C1PCSD1. You can pass data to the program in a comma-delimited string after the transid. If no data is passed, the program emulates the following string using working storage variables:
G1MI,4200 PARLIAMENT PL #600,LANHAM,MD,207061882,WIDGET INCThe following screen shows the G1CPDMI output.
COBOL Call to CICS Version of C1MATCHI
A sample COBOL call to C1MATCHI in a CICS environment follows.
PROCEDURE DIVISION
.
.
.
MOVE SPACES TO P9COMM-AREA
MOVE 'I' TO P9IENV
EXEC CICS LINK
PROGRAM ('C1MATCHI')
COMMAREA (P9COMM-AREA)
LENGTH (LENGTH OF P9COMM-AREA)
.
.
.
01 P9COMM-AREA.