The Northern Territory Government now has a generic CICS interface to its Government Accounting System (GAS) through message broker. It has taken a while but we have finally got the CICS node working correctly. The trick is to convert the message content into EBCIDIC for the COMMAREA
-- CCSID 500 for CICS COMMAREA --
SET OutputRoot.BLOB.BLOB = ASBITSTREAM(InputRoot.MRM OPTIONS options
ENCODING BITOR(MQENC_INTEGER_NORMAL, MQENC_DECIMAL_NORMAL, MQENC_FLOAT_S390)
CCSID 500 SET 'PHIGBLG002001'
TYPE 'msg_DFHCOMMAREA' FORMAT 'Binary1' );

