midrange.com code scratchpad |
Name:
SQL Cursor Sample
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
07/07/2014 09:03:58 pm
|
IP:
Logged
|
|
Description:
Sample code using Cursor API
Runs an SQL Select query against a table or view within a loop (300 times)
|
Code:
-
- /copy *libl/qrpglesrc,rdcsrapi#1
-
- d i s 5i 0
- d c1 s *
- d dt s d
-
- /free
-
- csrInit(); // initialize SQL interface
-
- c1 = csrNew('UTXI100D'); // create an SQL result set
- // based on table or view
-
- for i = 1 to 300;
- csrSetFilter('KEYSEQN = ' + %char(i)); // set a row filter (where clause)
- csrRefresh(); // run SQL Select to refresh the result set
- dt = csrColDate('LUPDATE'); // return a date value from column
- csrClose(); // close the result set
- endfor;
-
- *inlr = *on;
-
- /end-free
-
|
|
|