...

SCREEN SECTION.

 ...

05 label

title "Tree-View"

line 5 col 35

size 11 cells

     .

05 label

title "with no style"

line 6 col 35

size 11 cells

     .

05  tv1 tree-view

line 8.5 col 35

size 17 lines 15

id 501

     .

05 label

title "Tree-View"

line 5 col 68

size 11 cells

     .

05 label

title "with Bitmap"

line 6 col 68

size 11 cells

     .

05  tv2 tree-view

line 8.5 col 68

size 17 lines 15

Bitmap-Handle h-ico

Bitmap-Width 18

     .

 ...

PROCEDURE DIVISION.

 ...

perform varying ind from 1 by 1 until ind > 5

initialize wrk-item

string "item " delimited by size

           ind     delimited by size

into wrk-item

modify tv1  parent null

item-to-add  wrk-item

giving h-id

perform varying ind2 from 1 by 1 until ind2 > 5

initialize wrk-item

string "item " delimited by size

              ind     delimited by size

"-" delimited by size

              ind2    delimited by size

into wrk-item

modify tv1  parent h-id

item-to-add  wrk-item

end-perform

end-perform.

perform varying ind from 1 by 1 until ind > 5

initialize wrk-item

string "item " delimited by size

           ind     delimited by size

into wrk-item

modify tv2  parent null

item-to-add  wrk-item

giving h-id

bitmap-number 14

bitmap-width 18

perform varying ind2 from 1 by 1 until ind2 > 5

initialize wrk-item

string "item " delimited by size

              ind     delimited by size

"-" delimited by size

              ind2    delimited by size

into wrk-item

modify tv2  parent h-id

item-to-add  wrk-item

bitmap-number 17

bitmap-width 18

end-perform

end-perform.