独自の VLF-ONE スナップイン・リストの作成は「独自の VLF-ONE インスタンスリスト・ブラウザの作成」を参照してください。

     BEGIN_COM ROLE(*EXTENDS #VF_AC007) HEIGHT(123) WIDTH(216)
     DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_1) CAPTION('Add to list ') DISPLAYPOSITION(1) LEFT(52) PARENT(#COM_OWNER) TABPOSITION(1) TOP(28)
     
     EVTROUTINE HANDLING(#PHBN_1.Click)
     Define #Zone07 Reffld(#Date) Length(7) decimals(0) edit_code(4) Default(0)
     Define #Char07 *char 7 To_Overlay(#Zone07)
     
     Invoke Method(#avListManager.BeginListUpdate)
     Invoke Method(#avListManager.ClearList)
     Begin_Loop from(1) to(50) using(#Zone07)
     
     *  BILL, MARY .. などのシンボリック名を持つ、16 の英数字列を埋めるA16
     set #avListManager AColumn<BILL>(#Char07 + BILL)
     set #avListManager AColumn<MARY>(#Char07 + MARY)
     set #avListManager AColumn<TOTAL>(#Char07 + TOTAL)
     set #avListManager AColumn<CUSTNO>(#Char07 + CUSTNO)
     set #avListManager AColumn<A5>(#Char07 + A5)
     set #avListManager AColumn<A6>(#Char07 + A6)
     set #avListManager AColumn<A7>(#Char07 + A7)
     set #avListManager AColumn<A8>(#Char07 + A8)
     set #avListManager AColumn<A9>(#Char07 + A9)
     set #avListManager AColumn<A10>(#Char07 + A10)
     set #avListManager AColumn<A11>(#Char07 + A11)
     set #avListManager AColumn<A12>(#Char07 + A12)
     set #avListManager AColumn<A13>(#Char07 + A13)
     set #avListManager AColumn<A14>(#Char07 + A14)
     set #avListManager AColumn<A15>(#Char07 + A15)
     set #avListManager AColumn<A16>(#Char07 + A16)

     *  BILL, MARY ... などのシンボリック名を持つ、16 の数値列を埋めるN16 
     set #avListManager nColumn<BILL>(#Zone07 + 1)
     set #avListManager nColumn<MARY>(#Zone07 + 2)
     set #avListManager nColumn<TOTAL>(#Zone07 + 3)
     set #avListManager nColumn<CUSTNUM>(#Zone07 + 4)
     set #avListManager nColumn<n5>(#Zone07 + 5)
     set #avListManager nColumn<n6>(#Zone07 + 6)
     set #avListManager nColumn<n7>(#Zone07 + 7)
     set #avListManager nColumn<n8>(#Zone07 + 8)
     set #avListManager nColumn<n9>(#Zone07 + 9)
     set #avListManager nColumn<n10>(#Zone07 + 10)
     set #avListManager nColumn<n11>(#Zone07 + 11)
     set #avListManager nColumn<n12>(#Zone07 + 12)
     set #avListManager nColumn<n13>(#Zone07 + 13)
     set #avListManager nColumn<n14>(#Zone07 + 14)
     set #avListManager nColumn<n15>(#Zone07 + 15)
     set #avListManager nColumn<n16>(#Zone07 + 16)

     * インスタンスリストにこれとすべての追加列を追加
     Invoke Method(#avListManager.AddtoList) Visualid1(#Char07) Visualid2(#char07) Akey1(#char07)
 
     End_Loop
 
     Invoke Method(#avListManager.EndListUpdate)
 
     ENDROUTINE
 
     End_Com