To create your own VLF-ONE snap-in list refer to Making your own VLF-ONE Instance List Browser
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)
* Make up 16 alphanumeric columns with a variety of symbolic names such as BILL, MARY ... 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)
* Make up 16 numeric columns with a variety of symbolic names such as BILL, MARY ... 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)
* Add this and all the additional columns to the instance list
Invoke Method(#avListManager.AddtoList) Visualid1(#Char07) Visualid2(#char07) Akey1(#char07)
End_Loop
Invoke Method(#avListManager.EndListUpdate)
ENDROUTINE
End_Com