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.