home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: Product
/
Product.zip
/
DBDEMO.ZIP
/
DEMOFLS.ZIP
/
ARI.BND
(
.txt
)
next >
Wrap
DB2 Bind
|
1991-07-09
|
571b
|
13 lines
ARI TBclPJHHBMCHUGH 0
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
balance
num_rows