function long reload_que

!labels

!constants
%include "smg$routines" %from %library "sys$library:basic$starlet.tlb"
%include "$ssdef" %from %library "sys$library:basic$starlet.tlb"

!types

!variables
declare long			msg_dpid, sys_status
declare string			read_msg
%include "que_struct.bas"

!procedures

!functions
external long function		write_display( long, long ),		&
				set_que_context( string ),		&
				get_que_info,				&
				set_que_entries,			&
				window_message( string, long, long )

read_msg = "Reloading " +						&
	mid(queue_name, 1%, queue_name_len) +				&
	" queue job information. Please wait..."

sys_status = window_message( read_msg, 0%, msg_dpid )
if (sys_status and 1%) = 0% then
    call lib$signal( sys_status by value )
end if

sys_status = set_que_context( mid(queue_name, 1%, queue_name_len) )
if (sys_status and 1%) = 0% then
    call lib$signal( sys_status by value )
end if

sys_status = get_que_info
if (sys_status and 1%) = 0% then
    call lib$signal( sys_status by value )
end if

sys_status = smg$delete_virtual_display( msg_dpid by ref )
if (sys_status and 1%) = 0% then
    call lib$signal( sys_status by value )
end if

display_flag = 0%

sys_status = write_display( screen, datalines )
if (sys_status and 1%) = 0% then
    call lib$signal( sys_status by value )
end if

cur_job = 1%
cur_row = top_scroll
cur_col = 1%

reload_que = sys_status

end function