METHOD public void fetchData(input-output DATASET dsMenuForLocations):
        DATASET dsMenuForLocations:EMPTY-DATASET ().
        DEF VAR hDS AS HANDLE.
        DEFINE VAR hSrc AS HANDLE NO-UNDO.
        DEFINE VAR hSrc2 AS HANDLE NO-UNDO.

        hds = DATASET dsMenuForLocations:HANDLE.

        DEFINE DATA-SOURCE src FOR Beverages.

        hSrc = DATA-SOURCE src:HANDLE.

        SUPER:attachDataSource(input-output dataset-handle hDS by-reference, hSrc, 1).

        DEFINE DATA-SOURCE src2 FOR MENU.

        hSrc2 = DATA-SOURCE src2:HANDLE.
        SUPER:attachDataSource(input-output dataset-handle hDS by-reference, hSrc2, 2).
        hds::ttMenuForLocation:FILL-MODE = "no-fill".
        DATASET dsMenuForLocations::ttMenu:SET-CALLBACK('AFTER-ROW-FILL':U,'AfterRowFill':U).

        SUPER:fetchData(input-output dataset-handle hDS by-reference).
        SUPER:detachDataSource(input-output dataset-handle hDS by-reference).

    END METHOD.

    METHOD public void AfterRowFill(INPUT DATASET dsMenuForLocations):
        CREATE ttMenuForLocation.
        ttMenuForLocation.BeverageID = ttMenu.BeverageID.
        ttMenuForLocation.LocationID = ttMenu.LocationID.
        ttMenuForLocation.Price = ttMenu.Price.
        ttmenuForLocation.UnitsOfAlcohol = ttBeverages.Size * (ttBeverages.Alcohol / 100) * 100.
    END METHOD.