Server Guide

Example

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]


[ Top of Page | Previous Page | Next Page | Table of Contents | Index ]