Server Guide

Example

Builds a temporary storage queue using the WRITEQ TS command. MyKsdsFile is a subclass of OsPtr.

| newRecord result |
 
newRecord  := MyKsdsFile new.
newRecord  lastName: 'Record'.
newRecord  firstName: 'New'.
newRecord  city: 'NewCounty'.
newRecord  state: 'NS'.
 
result := CICS writeqts
               queue: 'TSQUEUE';
               from: newRecord;
               length: 80;
               exec.


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