IBM Version 4 manual , 4-14

#include <miptrnam.h>
#include <qliept.h>
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
/\ Prototypes \/
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
typedef void Pgm_OS(void \arg,...);
#pragma linkage(Pgm_OS,OS)
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
/\ Structures \/
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
typedef struct { /\ Error code \/
Qus_EC_t ec_fields;
char exception_data[1ðð];
} error_code_struct;
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
/\ FUNCTION NAME: RSLVSP_PGM_HDLR \/
/\ \/
/\ FUNCTION : This function handles all exceptions that \/
/\ may occur while resolving to the exit \/
/\ program. \/
/\ \/
/\ INPUT: Interrupt handler information \/
/\ \/
/\ OUTPUT: NONE \/
/\ \/
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
void RSLVSP_PGM_HDLR(_INTRPT_Hndlr_Parms_T \errmsg)
{
error_code_struct Error_Code;
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
/\ Set the rsl_ok indicator to not valid. \/
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
int \rsl_ok = (int \)(errmsg→Com_Area);
\rsl_ok = ð;
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
/\ Let message handler know that the program handled the message \/
/\ and to remove it from the job log. \/
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
Error_Code.ec_fields.Bytes_Provided=ð;
QMHCHGEM(&(errmsg→Target),
ð,
(char \)&errmsg→Msg_Ref_Key,
"\REMOVE ",
"",
ð,
&Error_Code);
}
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
/\ FUNCTION NAME: Call_Exit_Program \/
/\ \/
4-14 System API Programming V4R1