Sample Filter using 34 columns 16 alpha 16 numeric Visual IDs

Sample Filter using 34 columns (16 alpha, 16 numeric + Visual IDs)

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