[Delfins]

static void Job10(Args _args)
{
    InventSum       InventSum;
    inventDim       inventDimSum;
    inventDim       inventDimCriteria;
    InventDimParm   InventDimParm;
    ;

    inventDimCriteria.clear();
    inventDimCriteria.InventLocationId = 'VN';

    InventDimParm.initFromInventDim(inventDimCriteria);

    while select InventSum
    where InventSum.AvailPhysical > 0
    /* dimension criteria */
    #InventDimJoin(InventSum.inventDimId,inventDimSum,inventDimCriteria,InventDimParm)
    {
        trace("%1 - %2 (%3)",InventSum.ItemId,InventSum.AvailPhysical,InventSum.InventDimId);
    }
}