home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: Product
/
Product.zip
/
DBDEMO.ZIP
/
DEMOFLS.ZIP
/
RBLOCKNO.BND
(
.txt
)
< prev
next >
Wrap
DB2 Bind
|
1991-07-09
|
582b
|
13 lines
RBLOCKNOPAWmPJHHBMCHUGH 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 CBLOCKNO CURSOR FOR SELECT C_ENDBAL FROM BMCHUGH.CHECKING ORDER BY C_ENDBAL
OPEN CBLOCKNO
FETCH CBLOCKNO INTO :balance
CLOSE CBLOCKNO
balance
num_rows