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

forward prototypes
global function integer f_init_ds_subjecttree ()
end prototypes

global function integer f_init_ds_subjecttree ();//初始化
String new_sqlstr,modify_str

ds_subjecttree = CREATE datastore
ds_subjecttree.DataObject = "d_subjectlistall"
ds_subjecttree.SetTransObject(sqlca)
ds_subjecttree.Retrieve(sys_accsetid)

ddd_subid_display_detail = CREATE datastore
ddd_subid_display_detail.DataObject = "ddd_subject_detail"
ddd_subid_display_detail.SetTransObject(sqlca)
ddd_subid_display_detail.Retrieve(sys_accsetid)

ddd_subid_display = CREATE datastore
ddd_subid_display.DataObject = "ddd_subject"
ddd_subid_display.SetTransObject(sqlca)
ddd_subid_display.Retrieve(sys_accsetid)

RETURN 1

end function