Q5/ws_objects/Ew_rs_bak.pbl.src/f_getdept.srf

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

forward prototypes
global subroutine f_getdept (dropdownlistbox ddlb)
end prototypes

global subroutine f_getdept (dropdownlistbox ddlb);string ls_dept
Declare getdept cursor for
	select distinct departmentname from cw_department ;
open getdept;
Do While sqlca.sqlcode=0
	Fetch getdept into :ls_dept;
	if sqlca.sqlcode<>0 then exit;
	ddlb.additem(ls_dept)
loop
Close getdept;
end subroutine