RXS_Catch()

**FREE
// This example demonstrates calling RXS_Catch() within an ON-ERROR block
//  to catch an error message.

Ctl-Opt ActGrp(*New) BndDir('RXSBND');

/COPY QRPGLECPY,RXSCB

Dcl-Ds ErrorDS LikeDS(RXS_CatchThrowErrorDS_t);

Dcl-S NumA Int(10);
Dcl-S NumB Int(10);
Dcl-S Result Int(10);

monitor;
  // To ensure we trigger an error, we're going to divide by 0.
  NumA = 5;
  NumB = 0;
  Result = NumA / NumB;
on-error;
  // Note that you don't have to use RXS_ResetDS to initialize ErrorDS before
  //  using it - this is one of the few RXS data structures where
  //  this is safe and correct.
  ErrorDS = RXS_Catch();

  // At this point ErrorDS should contain the error information for an
  //  MCH1211 "divide by zero" error.
endmon;

return;