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

Page 106
Image 106
IBM Version 4 manual 16System API Programming V4R1