RXS_Catch()

      *--------------------------------------------------------------
      * This example demonstrates calling RXS_Catch() and assigning the return
      *  value to a RXS_CatchThrowErrorDS_t datastructure.
      *--------------------------------------------------------------
     H DFTACTGRP(*NO) BNDDIR('RXSBND') ACTGRP(*NEW)

      /COPY QRPGLECPY,RXSCB

     D ErrorDS         DS                  LikeDS(RXS_CatchThrowErrorDS_t)
     D                                     Inz(*LikeDS)

     D NumA            S             10I 0
     D NumB            S             10I 0
     D Result          S             10I 0
      /FREE
       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;
      /END-FREE