Ejemplo 2: Lista con Filtro
IDENTIFICATION DIVISION.
PROGRAM-ID. LISTACLIENTES.
WORKING-STORAGE SECTION.
COPY "..\..\copy\MOBILECOBOL.WS".
77 FILTRO-TEXTO PIC X(30).
77 CONTADOR PIC 999.
PROCEDURE DIVISION.
MAIN-LOGIC.
PERFORM CREATE-PAGE.
PERFORM HANDLE-EVENTS UNTIL MC-EVENT = "QUIT".
GOBACK.
CREATE-PAGE.
CALL MC USING CREATEPAGE "Name=PageLista|".
CALL MC USING ADDCHILD "Type=StackLayout;Padding=15|".
CALL MC USING ADDCHILD
"Type=Entry;Name=TXT_FILTRO;Placeholder=Buscar...|".
CALL MC USING ADDCHILD
"Type=Button;Name=BTN_BUSCAR;Text=BUSCAR;Event=Clicked|".
CALL MC USING ADDCHILD
"Type=CollectionView;Name=LISTA|".
CALL MC USING SHOWPAGE.
PERFORM CARGAR-LISTA.
HANDLE-EVENTS.
CALL MC USING GETEVENT MC-EVENTINFO.
IF MC-EVENT-CONTROL = "BTN_BUSCAR"
PERFORM CARGAR-LISTA.
CARGAR-LISTA.
CALL MC USING GETPROP
"Name=TXT_FILTRO;Property=Text|" FILTRO-TEXTO.
*> Aquí cargar datos desde archivo
*> y actualizar CollectionView
