Page History

...

In the business object Reports create an invisible filter that fills the instance list with the five report names. Make sure to include AKeyN and/or NKeyN values that identify the associated report. For example:

     BEGIN_COM ROLE(*EXTENDS #VF_AC007) HEIGHT(182) WIDTH(326)
   
     Mthroutine uInitialize Options(*Redefine) 

     #Com_Owner.avHiddenFilter := TRUE 

     #avListManager.ClearList 
     Invoke #avListManager.AddtoList Visualid1('Report 1') Visualid2('Daily production report') AKey1('uReport1') NKey1(1)
     Invoke #avListManager.AddtoList Visualid1('Report 2') Visualid2('Monthly production report') AKey1('uReport2') NKey1(2)
     Invoke #avListManager.AddtoList Visualid1('Report 3') Visualid2('Overloaded production report') AKey1('uReport3') NKey1(3)
     Invoke #avListManager.AddtoList Visualid1('Report 4') Visualid2('Monday Morning Management Report') AKey1('uReport4') NKey1(4)
     Invoke #avListManager.AddtoList Visualid1('Report 5') Visualid2('Daily production report') AKey1('uReport5') NKey1(5)
     * Instance list updating has been completed

     INVOKE METHOD(#avListManager.EndListUpdate)

     Endroutine

     End_Com         

The instance list and command handler tabs are presented to the user like this:



When the user clicks on a report in the instance list the associated 5250 destination screen is displayed on the tab

...

switch ( objListManager.NKey1[0] )

     {
       case 2: NAVIGATE_TO_DESTINATION("uReport2"); return;
       case 3: NAVIGATE_TO_DESTINATION("uReport3"); return;
       case 4: NAVIGATE_TO_DESTINATION("uReport4"); return;
       case 5: NAVIGATE_TO_DESTINATION("uReport5"); return;
     }

/* Normal navigation logic to handle report number 1 */

...