function long build_release_itmlist

!labels

!constants
%include "$jbcmsgdef" %from %library "sys$library:basic$starlet.tlb"
%include "$quidef" %from %library "sys$library:basic$starlet.tlb"
%include "$smgdef" %from %library "sys$library:basic$starlet.tlb"
%include "$smgmsg" %from %library "sys$library:basic$starlet.tlb"
%include "smg$routines" %from %library "sys$library:basic$starlet.tlb"
%include "$sjcdef" %from %library "sys$library:basic$starlet.tlb"
%include "$ssdef" %from %library "sys$library:basic$starlet.tlb"

!types

!variables
declare long			sys_status
declare string			operation
%include "jobctl.bas"

!procedures

!functions
external long function		set_que_entries( word by ref,		&
						 string by desc ),	&
				reload_que

jbclist(3%)::buflen = 4%
jbclist(3%)::itmcod = sjc$_no_hold
jbclist(3%)::bufadr = 0%
jbclist(3%)::retadr = 0%
jbclist(4%)::buflen = 4%
jbclist(4%)::itmcod = sjc$_no_after_time
jbclist(4%)::bufadr = 0%
jbclist(4%)::retadr = 0%
jbclist(5%)::buflen = 0%
jbclist(5%)::itmcod = 0%
jbclist(5%)::bufadr = 0%
jbclist(5%)::retadr = 0%

operation = " Releasing "
sys_status = set_que_entries( sjc$_alter_job by ref, operation by desc )
if (sys_status and 1%) = 0% then
    call lib$signal( sys_status by value )
end if

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

build_release_itmlist = sys_status

end function