Example 1
Reads from a file and assigns SET result.
| result x | result := CICS read file: 'KSDSF2'; keylength: 20; ridfld: ('Record' abrPadWithBlanks: 20); exec. x := result set.
Example 2
Assuming that in class CICSRecord, a subclass of OsPtr, the following instance method exists:
name ^self copyStringFrom: 0 to: 19.
This reads the first record in the file and inspects the name:
| result key y | key := ' '. result := CICS read file: 'KSDS'; ridfld: key; generic; gteq; keylength: 4; exec. y := result set as: CICSRecord. y name inspect.