string l_sql //SQL文
string l_tree_char //新規ノードのツリー記号
string l_title //ツリー表示用タイトル
long l_row //検索行
long n //カウンタ
datastore l_ds

l_ds = create datastore
l_ds.dataobject = \'d_data\'
l_sql = l_ds.object.datawindow.table.select

//親記事のツリー記号の置換
//「┗」の置換
p = posw(p_tree_char,\'┗\',1)
do while not p = 0
　p_tree_char = replacew(p_tree_char,p,1,\'　\')
　p = posw(p_tree_char,\'┗\',p + 1)
loop

//「┣」の置換
p = posw(p_tree_char,\'┣\',1)
do while not p = 0
　p_tree_char = replacew(p_tree_char,p,1,\'┃\')
　p = posw(p_tree_char,\'┣\',p + 1)
loop

//子ノードの検索
if isnull(p_no) then
　//nullデータ用
　l_sql += \"WHERE t_data.parent_no is null \"
else
　l_sql += \"WHERE t_data.parent_no = \" + string(p_no) + \" \"
end if
l_sql += \"ORDER BY update_date\"
l_ds.object.datawindow.table.select = l_sql
l_ds.settransobject(sqlca)
l_ds.retrieve()

//タイトルをセット
l_row = l_ds.rowcount()
for n = 1 to l_row
　l_tree_char = \'\' //変数初期化
　p_no = l_ds.object.no[n]
　l_title = l_ds.object.title[n]
　if isnull(p_tree_char) then
    //ルートの記事は何もセットしない
　　p_tree_char = \'\'
　else
　　if n = l_row then
　　　//ノードにおける最終記事の場合
　　　l_tree_char = p_tree_char + \'┗\'
　　else
　　　l_tree_char = p_tree_char + \'┣\'
　　end if
　end if
　//ツリー記号を含めたタイトルの生成
　l_title = l_tree_char + l_title
　//dwにセット
　row = dw_1.insertrow(0)
　dw_1.object.title[row] = l_title
　//再帰処理
　wf_retrieve_tree(p_no,l_tree_char)
next
return l_row

関数を呼び出す
long l_lnull
string l_snull
setnull(l_lnull)
setnull(l_snull)
wf_retrieve_tree(l_lnull,l_snull)