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.