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.