INDICES SAmmPJHHBMCHUGH 0
BEGIN DECLARE SECTION
END DECLARE SECTION
WHENEVER SQLERROR GO TO error
WHENEVER NOT FOUND GO TO ext
DECLARE Cindx CURSOR FOR           SELECT CU_SSN FROM BMCHUGH.PERFDAT3           WHERE CU_SSN   BETWEEN  '111-11-1020' AND '111-11-1140'
OPEN Cindx
FETCH Cindx         INTO :st_cu_ssn
CLOSE Cindx
WHENEVER SQLERROR GO TO error
WHENEVER NOT FOUND GO TO ext
DECLARE CNOINDEX CURSOR FOR           SELECT * FROM BMCHUGH.PERFDAT3           WHERE CU_SSN   BETWEEN  '111-11-1020' AND '111-11-1140'
OPEN CNOINDEX
FETCH CNOINDEX            INTO :st_cu_ssn
CLOSE CNOINDEX
st_cu_ssn
st_cu_name
s_bal
c_accnumb
st_cu_addr1
st_cu_addr2
st_cu_zip