IBM Version 4 manual Handle

ffdc_info_t \ffdc_info;

Qus_EC_t ErrorCode;

ErrorCode.Bytes_Provided = ð;

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

/\ Getting pointer in local storage to the Communications A￿rea. \/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ ffdc_info = (ffdc_info_t \)(errmsg->Com_Area);

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

/\	Need to notify message handler that we	will	handle the er￿ror.	\/
/\	Leave the message in the job log, just	mark	it handled.	\/

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

QMHCHGEM(&(errmsg->Target),		/\	Invocation pointer	\/
ð,		/\	Call stack counter	\/
(char \)&errmsg->Msg_Ref_Key,/\			Message key	\/
"\HANDLE	",	/\	Modification option	\/
"",		/\	Reply text	\/
ð,		/\	Reply text length	\/
&ErrorCode);		/\	Error code	\/

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

/\ Set up the suspected program.\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

memcpy(pgm_suspected, "\PRV ", 1ð);

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

/\ Set up the detection identifier.\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ memset(msg_id, ' ', 12);

memcpy(msg_id, errmsg->Msg_Id, 7);

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

/\ Set up the message key.\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ memcpy(msg_key, (char \)&errmsg->Msg_Ref_Key, 4);

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

/\ Set		up	point of failure. Since	this	example program is small	\/
/\ and		we	know where the error occurred, we will just put a du￿mmy			\/
/\	value in. However, this can be			very	useful information in	\/
/\	larger		programs.			\/

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ point_of_failure = 1ðð;

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

/\ Set up to print the job log.\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ print_job_log = 'Y';

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

/\ Set up data items.\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ data_item = data;

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

/\ Put in first parameter. \/

Chapter 6. Original Program Model (OPM) and Integrated Language Environment (ILE)6-5Difference