home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 30 fixes_v
/
30-fixes_v.zip
/
vxrxc21d.zip
/
WDB2214.BND
(
.txt
)
< prev
Wrap
DB2 Bind
|
1995-09-19
|
7KB
|
208 lines
WDB2214 5AqFROJLWATCOM 0
BEGIN DECLARE SECTION
END DECLARE SECTION
PREPARE S01 FROM :stmt
PREPARE S02 FROM :stmt
PREPARE S03 FROM :stmt
PREPARE S04 FROM :stmt
PREPARE S05 FROM :stmt
PREPARE S06 FROM :stmt
PREPARE S07 FROM :stmt
PREPARE S08 FROM :stmt
PREPARE S09 FROM :stmt
PREPARE S10 FROM :stmt
PREPARE S11 FROM :stmt
PREPARE S12 FROM :stmt
PREPARE S13 FROM :stmt
PREPARE S14 FROM :stmt
PREPARE S15 FROM :stmt
PREPARE S16 FROM :stmt
PREPARE S17 FROM :stmt
PREPARE S18 FROM :stmt
PREPARE S19 FROM :stmt
PREPARE S20 FROM :stmt
PREPARE S21 FROM :stmt
PREPARE S22 FROM :stmt
PREPARE S23 FROM :stmt
PREPARE S24 FROM :stmt
PREPARE S25 FROM :stmt
PREPARE S26 FROM :stmt
PREPARE S27 FROM :stmt
PREPARE S28 FROM :stmt
PREPARE S29 FROM :stmt
PREPARE S30 FROM :stmt
PREPARE S31 FROM :stmt
PREPARE S32 FROM :stmt
DESCRIBE S01 INTO :sqlda
DESCRIBE S02 INTO :sqlda
DESCRIBE S03 INTO :sqlda
DESCRIBE S04 INTO :sqlda
DESCRIBE S05 INTO :sqlda
DESCRIBE S06 INTO :sqlda
DESCRIBE S07 INTO :sqlda
DESCRIBE S08 INTO :sqlda
DESCRIBE S09 INTO :sqlda
DESCRIBE S10 INTO :sqlda
DESCRIBE S11 INTO :sqlda
DESCRIBE S12 INTO :sqlda
DESCRIBE S13 INTO :sqlda
DESCRIBE S14 INTO :sqlda
DESCRIBE S15 INTO :sqlda
DESCRIBE S16 INTO :sqlda
DESCRIBE S17 INTO :sqlda
DESCRIBE S18 INTO :sqlda
DESCRIBE S19 INTO :sqlda
DESCRIBE S20 INTO :sqlda
DESCRIBE S21 INTO :sqlda
DESCRIBE S22 INTO :sqlda
DESCRIBE S23 INTO :sqlda
DESCRIBE S24 INTO :sqlda
DESCRIBE S25 INTO :sqlda
DESCRIBE S26 INTO :sqlda
DESCRIBE S27 INTO :sqlda
DESCRIBE S28 INTO :sqlda
DESCRIBE S29 INTO :sqlda
DESCRIBE S30 INTO :sqlda
DESCRIBE S31 INTO :sqlda
DESCRIBE S32 INTO :sqlda
DECLARE C01 CURSOR FOR S01
DECLARE C02 CURSOR FOR S02
DECLARE C03 CURSOR FOR S03
DECLARE C04 CURSOR FOR S04
DECLARE C05 CURSOR FOR S05
DECLARE C06 CURSOR FOR S06
DECLARE C07 CURSOR FOR S07
DECLARE C08 CURSOR FOR S08
DECLARE C09 CURSOR FOR S09
DECLARE C10 CURSOR FOR S10
DECLARE C11 CURSOR FOR S11
DECLARE C12 CURSOR FOR S12
DECLARE C13 CURSOR FOR S13
DECLARE C14 CURSOR FOR S14
DECLARE C15 CURSOR FOR S15
DECLARE C16 CURSOR FOR S16
DECLARE C17 CURSOR FOR S17
DECLARE C18 CURSOR FOR S18
DECLARE C19 CURSOR FOR S19
DECLARE C20 CURSOR FOR S20
DECLARE C21 CURSOR FOR S21
DECLARE C22 CURSOR FOR S22
DECLARE C23 CURSOR FOR S23
DECLARE C24 CURSOR FOR S24
DECLARE C25 CURSOR FOR S25
DECLARE C26 CURSOR FOR S26
DECLARE C27 CURSOR FOR S27
DECLARE C28 CURSOR FOR S28
DECLARE C29 CURSOR FOR S29
DECLARE C30 CURSOR FOR S30
DECLARE C31 CURSOR FOR S31
DECLARE C32 CURSOR FOR S32
OPEN C01
OPEN C02
OPEN C03
OPEN C04
OPEN C05
OPEN C06
OPEN C07
OPEN C08
OPEN C09
OPEN C10
OPEN C11
OPEN C12
OPEN C13
OPEN C14
OPEN C15
OPEN C16
OPEN C17
OPEN C18
OPEN C19
OPEN C20
OPEN C21
OPEN C22
OPEN C23
OPEN C24
OPEN C25
OPEN C26
OPEN C27
OPEN C28
OPEN C29
OPEN C30
OPEN C31
OPEN C32
CLOSE C01
CLOSE C02
CLOSE C03
CLOSE C04
CLOSE C05
CLOSE C06
CLOSE C07
CLOSE C08
CLOSE C09
CLOSE C10
CLOSE C11
CLOSE C12
CLOSE C13
CLOSE C14
CLOSE C15
CLOSE C16
CLOSE C17
CLOSE C18
CLOSE C19
CLOSE C20
CLOSE C21
CLOSE C22
CLOSE C23
CLOSE C24
CLOSE C25
CLOSE C26
CLOSE C27
CLOSE C28
CLOSE C29
CLOSE C30
CLOSE C31
CLOSE C32
FETCH C01 USING DESCRIPTOR :sqlda
FETCH C02 USING DESCRIPTOR :sqlda
FETCH C03 USING DESCRIPTOR :sqlda
FETCH C04 USING DESCRIPTOR :sqlda
FETCH C05 USING DESCRIPTOR :sqlda
FETCH C06 USING DESCRIPTOR :sqlda
FETCH C07 USING DESCRIPTOR :sqlda
FETCH C08 USING DESCRIPTOR :sqlda
FETCH C09 USING DESCRIPTOR :sqlda
FETCH C10 USING DESCRIPTOR :sqlda
FETCH C11 USING DESCRIPTOR :sqlda
FETCH C12 USING DESCRIPTOR :sqlda
FETCH C13 USING DESCRIPTOR :sqlda
FETCH C14 USING DESCRIPTOR :sqlda
FETCH C15 USING DESCRIPTOR :sqlda
FETCH C16 USING DESCRIPTOR :sqlda
FETCH C17 USING DESCRIPTOR :sqlda
FETCH C18 USING DESCRIPTOR :sqlda
FETCH C19 USING DESCRIPTOR :sqlda
FETCH C20 USING DESCRIPTOR :sqlda
FETCH C21 USING DESCRIPTOR :sqlda
FETCH C22 USING DESCRIPTOR :sqlda
FETCH C23 USING DESCRIPTOR :sqlda
FETCH C24 USING DESCRIPTOR :sqlda
FETCH C25 USING DESCRIPTOR :sqlda
FETCH C26 USING DESCRIPTOR :sqlda
FETCH C27 USING DESCRIPTOR :sqlda
FETCH C28 USING DESCRIPTOR :sqlda
FETCH C29 USING DESCRIPTOR :sqlda
FETCH C30 USING DESCRIPTOR :sqlda
FETCH C31 USING DESCRIPTOR :sqlda
FETCH C32 USING DESCRIPTOR :sqlda
BEGIN DECLARE SECTION
END DECLARE SECTION
CONNECT TO :database IN SHARE MODE
CONNECT TO :database IN SHARE MODE
CONNECT RESET
COMMIT WORK
ROLLBACK WORK
BEGIN DECLARE SECTION
END DECLARE SECTION
WHENEVER SQLERROR CONTINUE
EXECUTE IMMEDIATE :comm
database