home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: Product
/
Product.zip
/
DBDEMO.ZIP
/
DEMOFLS.ZIP
/
D30ACB03.BND
(
.txt
)
< prev
next >
Wrap
DB2 Bind
|
1991-07-03
|
2KB
|
34 lines
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