Server Guide

Example

Builds a TD queue using the WRITEQ TD 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 writeqtd
               queue: 'TDQU';
               from: newRecord;
               length: 80;
               exec.             


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