Q5/ws_objects/Ew_mainface.pbl.src/f_storage_array_all.srf

$PBExportHeader$f_storage_array_all.srf
global type f_storage_array_all from function_object
end type

forward prototypes
global subroutine f_storage_array_all ()
end prototypes

global subroutine f_storage_array_all ();Long ll_cnt
Long ll_storageid
Long local_storageid[]

DECLARE cur_storage CURSOR FOR
	SELECT u_storage.storageID
	FROM u_storage
	WHERE u_storage.inuse = 1
	Order By u_storage.storageID Desc;
	
OPEN cur_storage;
FETCH cur_storage INTO :ll_storageid;
DO WHILE sqlca.SQLCode = 0
	ll_cnt++
	local_storageid[ll_cnt] = ll_storageid
	FETCH cur_storage INTO :ll_storageid;
LOOP

CLOSE cur_storage;

sys_all_storageid = local_storageid


end subroutine