IBM Version 4 manual Appendix B. Original Examples in Additional BLanguages-99

void proces1()

{

int i;

int num_entries; int offset;

num_entries = ((Qus_Generic_Header_ð1ðð_t \)\ usrspc_ptr)->Number_List_Entries;

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

/\ If valid information was returned. .1/\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ if((((Qus_Generic_Header_ð1ðð_t \)usrspc_ptr)->Information_Sta￿tus == 'C')

(((Qus_Generic_Header_ð1ðð_t \)usrspc_ptr)->Information_Status￿ == 'P'))

{

if(num_entries > ð)

{

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

/\ Get the size of each entry to use later. .4/\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ size_entry = ((Qus_Generic_Header_ð1ðð_t \)usrspc_ptr)->Size_Eac￿h_Entry;

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

/\ Increment to the first list entry.\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ offset = ((Qus_Generic_Header_ð1ðð_t \)usrspc_ptr)->Offset_List￿_Data;.5/ usrspc_ptr += offset;

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

/\ Process all of the entries.\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

for(i=ð; i<num_entries; i++)	.6/
proces2();

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

/\ Reset the user space pointer to the beginning.\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ usrspc_ptr = usrspc_base;

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ /\ If all entries in this user space have been processed, che￿ck \/

/\ if more entries exist than can fit in one user space. \/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ if(((Qus_Generic_Header_ð1ðð_t \)usrspc_ptr)->Information_Stat￿us == 'P')

{

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

/\ Address the input parameter header.\/ /\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ offset = ((Qus_Generic_Header_ð1ðð_t \)\

usrspc_ptr)->Offset_Input_Parameter; usrspc_ptr += offset;

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

/\	If	the continuation handle in the input parameter header￿	\/
/\	is	blank, then set the list status to complete.

/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/ if(memcmp(((Qsy_OBJP_Input_T \)usrspc_ptr)->Continuation_Handle,

" ", 2ð) == ð)

Appendix B. Original Examples in Additional BLanguages-99