PL/I declaration for MQCIH
dcl 1 MQCIH based, 3 StrucId char(4), /* Structure identifier */ 3 Version fixed bin(31), /* Structure version number */ 3 StrucLength fixed bin(31), /* Length of MQCIH structure */ 3 Encoding fixed bin(31), /* Reserved */ 3 CodedCharSetId fixed bin(31), /* Reserved */ 3 Format char(8), /* MQ format name of data that follows MQCIH */ 3 Flags fixed bin(31), /* Flags */ 3 ReturnCode fixed bin(31), /* Return code from bridge */ 3 CompCode fixed bin(31), /* MQ completion code or CICS EIBRESP */ 3 Reason fixed bin(31), /* MQ reason or feedback code, or CICS EIBRESP2 */ 3 UOWControl fixed bin(31), /* Unit-of-work control */ 3 GetWaitInterval fixed bin(31), /* Wait interval for MQGET call issued by bridge task */ 3 LinkType fixed bin(31), /* Link type */ 3 OutputDataLength fixed bin(31), /* Output COMMAREA data length */ 3 FacilityKeepTime fixed bin(31), /* Bridge facility release time */ 3 ADSDescriptor fixed bin(31), /* Send/receive ADS descriptor */ 3 ConversationalTask fixed bin(31), /* Whether task can be conversational */ 3 TaskEndStatus fixed bin(31), /* Status at end of task */ 3 Facility char(8), /* Bridge facility token */ 3 Function char(4), /* MQ call name or CICS EIBFN function */ 3 AbendCode char(4), /* Abend code */ 3 Authenticator char(8), /* Password or passticket */ 3 Reserved1 char(8), /* Reserved */ 3 ReplyToFormat char(8), /* MQ format name of reply message */ 3 RemoteSysId char(4), /* Reserved */ 3 RemoteTransId char(4), /* Reserved */ 3 TransactionId char(4), /* Transaction to attach */ 3 FacilityLike char(4), /* Terminal emulated attributes */ 3 AttentionId char(4), /* AID key */ 3 StartCode char(4), /* Transaction start code */ 3 CancelCode char(4), /* Abend transaction code */ 3 NextTransactionId char(4), /* Next transaction to attach */ 3 Reserved2 char(8), /* Reserved */ 3 Reserved3 char(8), /* Reserved */ 3 CursorPosition fixed bin(31), /* Cursor position */ 3 ErrorOffset fixed bin(31), /* Offset of error in message */ 3 InputItem fixed bin(31), /* Reserved */ 3 Reserved4 fixed bin(31); /* Reserved */Parent topic: Initial values and language declarations for MQCIH