This subprocedure can be used to throw an error. The error information is populated into a data structure which is then passed to RXS_Throw. The error can be caught by RXS_Catch().

Subprocedure Prototype

D RXS_Throw...
D                 PR                  Extproc('RXS_Throw') Opdesc
D  pDS                                Likeds(RXS_CatchThrowErrorDS_t)
D                                     Options(*Varsize)

The RXS_CatchThrowErrorDS_t data structure that contains the error information to be thrown.

Example Code

**FREE // This example code demonstrates throwing a diagnostic error by assigning // values to a RXS_CatchThrowErrorDS_t datastructure and throwing the error // to the calling program. Ctl-Opt ActGrp(*New) BndDir('RXSBND'); /COPY QRPGLECPY,RXSCB Dcl-Ds ErrorDS LikeDS(RXS_CatchThrowErrorDS_t); // Send a diagnostic error message RXS_ResetDS( ErrorDS : RXS_DS_TYPE_CATCHTHROWERROR ); ErrorDS.MessageId = 'CPF9898'; ErrorDS.MessageFile = 'QCPFMSG'; ErrorDS.MessageData = 'This is a *DIAG error being thrown'; ErrorDS.MessageType = RXS_MESSAGE_TYPE_DIAG; RXS_Throw( ErrorDS ); return;

Data Structures

D RXS_CatchThrowErrorDS_t...
D                 DS                  Qualified Template Inz
D   MessageId                    7A

The message ID for the message you wish to send.

D   MessageFile                 20A

The message file used to store the message ID.

D   MessageData               1024A   Varying

The message data to be merged with the text of the specified message

D   DataStructureType...
D                                5I 0 Inz(RXS_DS_TYPE_CATCHTHROWERROR)

Internal use only

D   MessageType                  5I 0

The type of message that was sent.

Valid Values:


D   MessageText               4096A   Varying

The full message text that combines the value of the message ID's text and the merged message data.

D   ThrowToCaller...
D                                 N   Inz(RXS_NO)

Set to RXS_YES when you want the error sent to the program that called the program which is throwing the error. By default, the program throwing the error will be the target of the error.

Valid Values:

  • RXS_NO

Default Value: RXS_NO