Server Guide

Examples

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.


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