IBM Version 4 manual 12System API Programming V4R1

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

/\ Call the API to register the exit point.\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ QusRegisterExitPoint("EXAMPLE_EXIT_POINT ",

"EXMPð1ðð", &control_keys, &error_code);

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

/\ If an exception occurs, the			API	returns	the exception in t￿he			\/
/\ error code		parameter. The bytes available				field is set	to	\/
/\	zero if no	exception occurs	and	nonzero	if	an exception	d￿oes	\/
/\	occur.							\/

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ if (error_code.ec_fields.Bytes_Available != ð)

{

printf("ATTEMPT TO REGISTER EXIT POINT FAILED WITH EXCEPT￿ION: %.7s", error_code.ec_fields.Exception_Id);

exit(1);

}

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

/\	If	the call to register an exit point is successful, add	\/
/\	an	exit program to the exit point.	\/

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

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ /\ Set the total number of exit program attributes that are￿ being \/

/\ specified		on the call. This program lets the API take the		\/
/\	default for the attributes that		are not specified. Each	\/
/\	attribute	record must be 4-byte	aligned.	\/

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ attrib_keys.num_rec=2;

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

/\ Set the values for		the two	attributes that are being			\/
/\ specified:						\/
/\	Replace exit	program		=	1	\/
/\	Exit program	data CCSID		=	37	\/

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ attrib_keys.replace_rec.Length_Vlen_Record=16; attrib_keys.replace_rec.Control_Key=4; attrib_keys.replace_rec.Length_Data=1; attrib_keys.replace='1';

attrib_keys.CCSID_rec.Length_Vlen_Record=16; attrib_keys.CCSID_rec.Control_Key=3; attrib_keys.CCSID_rec.Length_Data=4; attrib_keys.CCSID=37;

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

/\ Call the API to add the exit program.\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ QusAddExitProgram("EXAMPLE_EXIT_POINT ",

"EXMPð1ðð",

1,

4-12System API Programming V4R1