D30ACB03AAyMJDHHTGRAY   0
BEGIN DECLARE SECTION
END DECLARE SECTION
WHENEVER SQLERROR GOTO ret_code
WHENEVER SQLWARNING CONTINUE
WHENEVER NOT FOUND GOTO ret_code
LOCK TABLE CREDITS IN EXCLUSIVE MODE
INSERT INTO CREDITS (CR_ACCNUMB, CR_TRANDATE, CR_DEPAMT)       VALUES (:craccno, :crdate, :cramt)
SELECT SUM(CR_DEPAMT), AVG(CR_DEPAMT), MIN(CR_DEPAMT), MAX(CR_DEPAMT),              COUNT(*)       INTO :crd_sum, :crd_avg, :crd_min, :crd_max, :crd_cnt       FROM CREDITS
COMMIT WORK
LOCK TABLE DEBITS IN EXCLUSIVE MODE
INSERT INTO DEBITS (DB_ACCNUMB, DB_TRANDATE, DB_AMT, DB_CHECKNO)       VALUES (:dbaccno, :dbdate, :dbamt, :dbchkno)
SELECT SUM(DB_AMT), AVG(DB_AMT), MIN(DB_AMT), MAX(DB_AMT), COUNT(*)       INTO :deb_sum, :deb_avg, :deb_min, :deb_max, :deb_cnt       FROM DEBITS
COMMIT WORK
WHENEVER SQLERROR CONTINUE
ROLLBACK WORK
craccno
crdate
cramt
dbaccno
dbdate
dbamt
dbchkno
crd_cnt
deb_cnt
crd_sum
deb_sum
crd_min
deb_min
crd_max
deb_max
crd_avg
deb_avg