Server Guide

Examples

Example 1

Inserts a record in a GSAM database using an ISRT call, where gsamAccessor is an instance of IMSDBRequester.

| gsamAccessor output |
 
gsamAccessor := IMSDBRequester usingDBPCBNamed: 'GSAM1   '.
gsamAccessor insert: (OrderedCollection with: output) ssaList: (Array new).

Example 2

Deletes a segment of a database using a DLET call, where dataAccessor is an instance of IMSDBRequester.

delete: ioArea ssa: ssaList
 
dataAccessor delete: (OrderedCollection with: ioArea) ssaList: ssaList.

Example 3

Checks the status code of an ISRT call, where dataAccessor is an instance of IMSDBRequester.

checkStatusCode: code message: aString
 
(dataAccessor statusCode ~= code)
ifTrue: [Transcript show: 'Error code: ',  (dataAccessor statusCode),
        ' from ', aString; cr. ^nil].
^false.


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