IBM Version 4 manual 98System API Programming V4R1

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

/\ 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-98System API Programming V4R1