Inquire after the transaction named TRAN and display the result of the inquiry.
| result | result := CICS inquiretransaction transaction: 'TRAN'; exec. result isCICSError ifFalse: [Transcript cr; show: 'Program is: ', result program printString; cr; show: 'Remote system is: ', result remotesystem printString; cr; show: 'Status is: ', (CICSCvdaConstants keyAtValue: (result status)) printString]