ARIS    lAspPJHHBMCHUGH 0
INCLUDE SQLCA
INCLUDE SQLDA
BEGIN DECLARE SECTION
END DECLARE SECTION
BEGIN DECLARE SECTION
END DECLARE SECTION
WHENEVER SQLERROR GO TO error
WHENEVER NOT FOUND GO TO ext
SELECT COUNT(*)           INTO :num_rows           FROM BMCHUGH.CHECKING
DECLARE CBLOCK CURSOR FOR          SELECT C_ENDBAL FROM BMCHUGH.CHECKING          ORDER BY C_ENDBAL
OPEN CBLOCK
FETCH CBLOCK         INTO :balance
CLOSE CBLOCK
num_accounts
balance
num_rows