{ propertiesYBM.i }

{ ttArtst.i }

RUN ybmgetproductlist.r ( OUTPUT TABLE ttArtst ).

DEF VAR ii AS INT.
FOR EACH ttArtst:
    ii = ii + 1.
END.
MESSAGE ii
    VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.