SET VAR vCustid TEXT

DECLARE c1 CURSOR FOR SELECT DISTINCT custid +

FROM transmaster

DECLARE c2 CURSOR FOR SELECT transid, empid, +

invoicetotal, transdate FROM transmaster +

WHERE custid = .vCustid

OPEN c1

FETCH c1 INTO vCustid Ind1

WHILE SQLCODE <> 100 THEN

-- This is the break header position,

-- the first customer ID is retrieved.

-- Cursor c2 fetches all transaction rows for

-- that customer.

OPEN c2 RESET

FETCH c2 INTO vTransid vind1, vEmpid vind2, +

vInvoiceTotal vind3, vTransDate vind4

WHILE SQLCODE <> 100 THEN

-- The detail rows are processed here.

FETCH c2 INTO vTransid vind1, vEmpid vind2,

vInvoiceTotal vind3, vTransDate vind4

ENDWHILE

-- The break footer position is here,

-- right before the next customer row is fetched.

FETCH c1 INTO .vCustid

ENDWHILE