IBM Version 4 manual , 4-16

exit_pgm_ptr(info_for_exit_pgm);
}
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
/\ Set the receiver variable to point to the next exit program \/
/\ that is returned. \/
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
rsl_ok=1;
rcv_ptr=rcv_var +
((Qus_EXTIð2ðð_Entry_t \)rcv_ptr)→Offset_Next_Entry;
}
}
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
/\ \/
/\ main \/
/\ \/
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
void main()
{
int sel_criteria=ð,
len_rcv_variable=35ðð,
exit_pgm_num=-1;
char continuation_hdl[16],
rcv_variable[35ðð],
\rcv_ptr;
error_code_struct error_code;
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
/\ Retrieve the exit point information first. If the current \/
/\ number of exit programs is not zero, retrieve the exit \/
/\ programs. It is not necessary to call for the exit point \/
/\ information to determine if the exit point has any exit \/
/\ programs. It is done here for illustration purposes only. \/
/\ You can make one call to the API for the exit program \/
/\ information and check the number of exit program entries \/
/\ returned field to see if there are any exit programs to call. \/
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
/\ Initialize the error code to inform the API that all \/
/\ exceptions should be returned through the error code parameter.\/
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
error_code.ec_fields.Bytes_Provided=sizeof(error_code_struct);
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
/\ Blank out the continuation handle to let the API know that this\/
/\ is a first attempt at the retrieve operation. \/
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
memset(continuation_hdl,' ',16);
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
/\ Call the API to retrieve the exit point information. \/
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
QusRetrieveExitInformation(continuation_hdl,
&rcv_variable,
len_rcv_variable,
"EXTIð1ðð",
4-16 System API Programming V4R1