IBM Version 4 manual 16System API Programming V4R1

exit_pgm_ptr(info_for_exit_pgm);

}

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ /\ Set the receiver variable to point to the next exit progr￿am \/

/\ 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 ca￿ll. \/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

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

/\ Initialize the error code to inform the API that all\/ /\ exceptions should be returned through the error code par￿ameter.\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ error_code.ec_fields.Bytes_Provided=sizeof(error_code_str￿uct);

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ /\ Blank out the continuation handle to let the API know tha￿t 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-16System API Programming V4R1