EXEC CICS FILE('FILEA')
INTO(REC) RIDFLD(KEY)
RESP(COMMAND-RESPONSE)
END-EXEC.
EVALUATE COMMAND-RESPONSE
WHEN DFHRESP(NORMAL)
CONTINUE
WHEN DFHRESP(NOTAUTH)
PERFORM SECURITY-ERROR
END-EVALUATE.
If an application does not cater for security violations, CICS abends the transaction with an AEY7 abend code.