LAST-OF( ) method

Returns TRUE if the current iteration of the query predicate FOR EACH . . . BREAK BY. . . is the last iteration for a new break group.

Syntax
LAST-OF( `level` )

The following example shows how the LAST-OF( ) method is used to identify the last record of a break group:

DEFINE QUERY qCustomer FOR Customer SCROLLING. QUERY qCustomer:QUERY-PREPARE("FOR EACH Customer WHERE Customer.CustNum > 50 BREAK BY Customer.Country BY Customer.Comments"). QUERY qCustomer:QUERY-OPEN. REPEAT WITH TITLE "Customers Break By Country and Comments": GET NEXT qCustomer. IF NOT AVAILABLE Customer THEN LEAVE. DISPLAY Customer.Country FORMAT "x(10)" Customer.Comments FORMAT "x(20)" QUERY qCustomer:FIRST-OF(0) LABEL "First" QUERY qCustomer:LAST-OF(0) LABEL "Last" QUERY qCustomer:FIRST-OF(1) LABEL "First Country" QUERY qCustomer:LAST-OF(1) LABEL "Last Country" QUERY qCustomer:FIRST-OF(2) LABEL "First Company" QUERY qCustomer:LAST-OF(2) LABEL "Last Company". END.

DEFINE QUERY qCustomer FOR Customer SCROLLING. 
QUERY qCustomer:QUERY-PREPARE("FOR EACH Customer WHERE Customer.CustNum > 50  
  BREAK BY Customer.Country BY Customer.Comments"). 
QUERY qCustomer:QUERY-OPEN. 
REPEAT WITH TITLE "Customers Break By Country and Comments": 
  GET NEXT qCustomer. 
  IF NOT AVAILABLE Customer THEN LEAVE. 
  DISPLAY  
    Customer.Country FORMAT "x(10)"  
    Customer.Comments FORMAT "x(20)" 
    QUERY qCustomer:FIRST-OF(0) LABEL "First" 
    QUERY qCustomer:LAST-OF(0) LABEL "Last" 
    QUERY qCustomer:FIRST-OF(1) LABEL "First Country" 
    QUERY qCustomer:LAST-OF(1) LABEL "Last Country" 
    QUERY qCustomer:FIRST-OF(2) LABEL "First Company" 
    QUERY qCustomer:LAST-OF(2) LABEL "Last Company". 
END.