IBM Version 4 manual Handle

/\ 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	\/

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

/\ Initialize module suspected key for FFDC.\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ ffdc_keys[number_of_keys++].Suspected_Module = &module_key; module_key.Key = Qpd_Suspected_Module; module_key.Module_Name_Length = ffdc_info->pgm_name_size; module_key.Library_Name_Length = 7;

module_key.Module_Name = pgm_name;

memcpy(pgm_name, ffdc_info->pgm_name, ffdc_info->pgm_name_size￿); module_key.Library_Name = lib_name;

memcpy(lib_name, "TESTLIB", 7);

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

/\ Initialize symptom keys for FFDC.\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ ffdc_keys[number_of_keys++].Symptom = &symptom_msg_key; symptom_msg_key.Key = Qpd_Symptom; symptom_msg_key.Keyword_Length = MSG_SYMPTOM_LEN; symptom_msg_key.Data_Length = MESSAGE_LEN; symptom_msg_key.Data_Type = CHARACTER; memcpy(symptom_msg_keyword, MESSAGE, MSG_SYMPTOM_LEN); symptom_msg_key.Keyword = symptom_msg_keyword; memcpy(symptom_msg_data, errmsg->Msg_Id, MESSAGE_LEN); symptom_msg_key.Data = symptom_msg_data;

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

/\ Parameter 1 information\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

ffdc_keys[number_of_keys++].Data = &data_key;
data_key.Key = Qpd_Data;
data_key.Data_Length = sizeof(char \);
data_key.Data_Id = 1;
data_key.Data = ffdc_info->parm1;	.2/

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

/\ Parameter 2 information\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ ffdc_keys[number_of_keys++].Data = &data_key2;

data_key2.Key = Qpd_Data;

data_key2.Data_Length = sizeof(char \); data_key2.Data_Id = 1; data_key2.Data = ffdc_info->parm2;

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

/\ Call QpdReportSoftwareError to perform FFDC.\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ ErrorCode.Bytes_Provided = sizeof(ErrorCode); QpdReportSoftwareError(ffdc_keys,

6-10System API Programming V4R1