LAST function

Returns a TRUE value if the current iteration of a DO, FOR EACH, or REPEAT . . . BREAK block is the last iteration of that block.


LAST ( `break-group` )

The first FOR EACH block produces a list of the on hand values of the items in inventory. It also automatically generates a total of these on hand values.

The second FOR EACH block does exactly the same thing, except it does not generate the total. Instead, the procedure uses the ACCUMULATE statement and the LAST function. Thus, you can substitute your own labels and formats for the grand total.

r-last.p
FOR EACH Item NO-LOCK BY Item.OnHand * Item.Price DESCENDING: DISPLAY Item.ItemNum Item.OnHand * Item.Price (TOTAL) LABEL "Value-oh" WITH USE-TEXT. END. FOR EACH Item NO-LOCK BREAK BY Item.OnHand * Item.Price DESCENDING: FORM Item.ItemNum value-oh AS DECIMAL LABEL "Value-oh" WITH COLUMN 40 USE-TEXT. DISPLAY Item.ItemNum Item.OnHand * Item.Price @ value-oh. ACCUMULATE Item.OnHand * Item.Price (TOTAL). IF *LAST(Item.OnHand Item.Price)** THEN DO: UNDERLINE value-oh. DISPLAY ACCUM TOTAL Item.OnHand * Item.Price @ value-oh. END. END.

r-last.p

FOR EACH Item NO-LOCK BY Item.OnHand * Item.Price DESCENDING: 
  DISPLAY Item.ItemNum Item.OnHand * Item.Price (TOTAL) LABEL "Value-oh" 
    WITH USE-TEXT. 
END. 
FOR EACH Item NO-LOCK BREAK BY Item.OnHand * Item.Price DESCENDING: 
  FORM Item.ItemNum value-oh AS DECIMAL LABEL "Value-oh"  
    WITH COLUMN 40 USE-TEXT. 
  DISPLAY Item.ItemNum Item.OnHand * Item.Price @ value-oh. 
  ACCUMULATE Item.OnHand * Item.Price (TOTAL). 
  IF LAST(Item.OnHand * Item.Price) THEN DO: 
    UNDERLINE value-oh. 
    DISPLAY ACCUM TOTAL Item.OnHand * Item.Price @ value-oh. 
  END. 
END.