CICS Processing - Code-1_Plus - 5.0

CODE-1 Plus Reference for all Platforms

Product type
Software
Portfolio
Verify
Product family
Data Quality - Postals
Product
CODE-1 Plus
Version
5.0
Language
English
Product name
CODE-1 Plus
Title
CODE-1 Plus Reference for all Platforms
Copyright
2024
First publish date
1998
ft:lastEdition
2024-05-15
ft:lastPublication
2024-05-15T00:07:55.920704

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.

Note: iP9INTRF is not supported in CICS.

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 INC

The 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.     
Note: iP9-COMM-AREA is contained in member P9COMM from the sample library.
Note: iA value of "C" in P9OGRC indicates a VSAM file access problem. Refer to the table in the last 50 bytes of P9OUT to resolve the problem. The table contains five occurs of the file name (8 bytes) with the problem and the EIBRESP value (2 bytes numeric).