EXEC CICS® commands are converted to calls to the CICS interface DFHEI1.
EXEC CICS RETURN TRANSID('fred')
COMMAREA(mycommarea) END-EXEC.
Move length of mycommarea to dfhb0020
Call 'DFHEI1' using by content
x'0e08e0000700001000f0f0f0f2f7404040'
by content 'fred' by reference mycommarea
by reference dfhb0020 end-call.