/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
/\ Set QSYLOBJP (via GETLST) to start a new list. \/
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
memset(cont_hdl, ' ', 2ð);
getlst();
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
/\ Get a resolved pointer to the user space for performance. \/
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
QUSPTRUS(space_name, /\ User space name and library \/
&usrspc_ptr, /\ User space pointer \/
&error_code); /\ Error Code \/
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
/\ Check for errors on QUSPTRUS. \/
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
if(error_code.ec_fields.Bytes_Available > ð)
{
memcpy(api_name, "QUSPTRUS ", 1ð);
apierr();
}
usrspc_base = usrspc_ptr;
} /\ init \/
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
/\ Function: proces2 \/
/\ \/
/\ Description: This function processes each entry returned by \/
/\ QSYLOBJP. \/
/\ \/
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
void proces2()
{
char obj_type[112];
sprintf(obj_type, "Object: %.1ðs Library: %.1ðs Type: %.1ðs Text: %.5ðs\n",
((Qsy_OBJPð2ðð_List_T \)usrspc_ptr)->Object.Name,
((Qsy_OBJPð2ðð_List_T \)usrspc_ptr)->Object.Library,
((Qsy_OBJPð2ðð_List_T \)usrspc_ptr)->Object_Type,
((Qsy_OBJPð2ðð_List_T \)usrspc_ptr)->Object_Text);
fwrite(obj_type, 1, 112, record);
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
/\ After each entry, increment to the next entry. \/
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
usrspc_ptr += size_entry; .7/
} /\ proces2 \/
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
/\ Function: proces1 \/
/\ \/
/\ Description: This function processes each entry returned by \/
/\ QSYLOBJP. \/
/\ \/
/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
B-98 System API Programming V4R1