CICS VSAM Transparency for z/OS, Version 1.2


Main logic

At the start, the exit establishes addressability to the VSAM record area and the DB2® record area. The only data in the DB2 record area is the key of the record.

The first test performed in MULTIRD is for IRDFUNCT = D. This indicates a DELETE/ERASE call. Because MULTIRD is an after exit, the DDM has already performed an SQL DELETE to the primary table. DB2 referential integrity deletes the appropriate record from the secondary table, so MULTIRD has nothing to do and ends at this point.

For all other calls, MULTIRD establishes the record type being processed, as follows:
EVALUATE RECORD-TYPE
    WHEN '010' PERFORM BUILD-010-RECORD
    WHEN '020' PERFORM BUILD-020-RECORD
    WHEN '030' PERFORM BUILD-030-RECORD
    WHEN '040' PERFORM BUILD-040-RECORD
    WHEN OTHER PERFORM INVALID-RECORD-TYPE
END-EVALUATE .

The processing at each BUILD-nnn-RECORD is the same. Each field is moved from the incoming VSAM record area to the appropriate DB2 table working storage variable.



Concept topic


Last updated: February 8, 2013 20:44:2