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 Concept

Feedback


Timestamp icon Last updated: Monday, 10 February 2014


http://pic.dhe.ibm.com/infocenter/cicsts/v5r1/topic/com.ibm.cics.vt.doc//topics/cvtdectest.html