CICS VSAM Transparency for z/OS, Version 1.2


Test for the call type being processed

Once the appropriate DB2® table working storage record has been built, there is a test for the type of call being processed.

EVALUATE IRDFUNCT
     WHEN    'L'      PERFORM LOAD-RECORD
     WHEN    'I'      PERFORM INSERT-0n0-RECORD
     WHEN    'R'      PERFORM UPDATE-0n0-RECORD
END-EVALUATE .

For INSERT and UPDATE calls, the appropriate SQL call is issued. Assuming that the SQL code is 0, the exit ends.



Concept topic


Last updated: May 25, 2012 20:46:10