RXS_Throw()
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
|
|
|
The RXS_CatchThrowErrorDS_t data structure that contains the error information to be thrown. |
Example Code
*--------------------------------------------------------------
* This example code demonstrates throwing a diagnostic error
* by assigning values to a RXS_CatchThrowErrorDS_t datastructure and
* throwing the error datastructure to the calling program.
*--------------------------------------------------------------
H DFTACTGRP(*NO) BNDDIR('RXSBND') ACTGRP(*CALLER)
/copy QRPGLECPY,RXSCB
D gErrorDS DS Likeds(RXS_CatchThrowErrorDS_t)
D Inz(*LikeDS)
/free
// Send a diagnostic error message
reset gErrorDS;
gErrorDS.MessageId = 'CPF9898';
gErrorDS.MessageFile = 'QCPFMSG';
gErrorDS.MessageData = 'This is a *DIAG error being thrown';
gErrorDS.MessageType = RXS_MESSAGE_TYPE_DIAG;
RXS_Throw(gErrorDS);
*INLR = *ON;
/end-free
Data Structures
|
|
|
The message ID that was received. |
|
The message file used to store the message ID. |
|
The message data to be merged with the text of the message ID. |
|
The type of message that was sent. Valid Values:
|
|
The full message text that combines the value of the message ID's text and the merged message data. |