To test the status of DL/I calls your program has issued, use the instance methods of the IMSRequester class. You should check the status, return, and reason codes after every IMS call; otherwise, your program might continue processing even though the last call produced an error.
None.
See IMS/ESA Application Programming: DL/I Calls for a description of the DL/I status codes and the return and reason codes.
Tests the result of a GU call.
| anAccessor aRecord "Create an instance of the IMSDBRequester" anAccessor := IMSDBRequester usingDBPCBAtPosition: 3. aRecord := self createOrderSummaryRecord. "Perform a GU call" anAccessor getUnique: (OrderedCollection with: aRecord) ssaList: (OrderedCollection with: (self qualifiedSsa: aKeyValue)). "Check the status of the GU call and if two blanks, continue; otherwise display a message indicating the error code" (anAccessor statusCode = ' ') ifFalse: [ Transcript show: 'Your program ended in error. The error code is ', anAccessor statusCode. ].