CICS VSAM Transparency for z/OS, Version 1.2


Main Logic

At the start, the exit establishes addressability to the VSAM field and the DB2® record.

The first test performed in MULTFBE is for EXFUNCT. If EXFUNCT = D, the call being processed is either a WRITE/REWRITE or the VIDLOAD is executing. The IRD MULTIRD is responsible for building the DB2 row. If EXFUNCT is not V, MULTFBE ends.

The next test in MULTFBE is to establish the record type. The field RECORD-TYPE is part of the key that is passed to the exit in the linkage section.
EVALUATE RECORD-TYPE
    WHEN '010'    PERFORM PROCESS-010-RECORD
    WHEN '020'    PERFORM PROCESS-020-RECORD
    WHEN '030'    PERFORM PROCESS-030-RECORD
    WHEN '040'    PERFORM PROCESS-040-RECORD
END-EVALUATE .

The processing at each PROCESS-0n0-RECORD is the same. MULTFBE issues an SQL SELECT to the appropriate table, using a WHERE clause specifying the values in the key of the VSAM record.

Each field is moved from the DB2 host variables in the select statement to the appropriate field in the VSAM record, using the appropriate VSAM copybook definition. The exit ends when the VSAM record is built.

No data reengineering is required.



Concept topic


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