midrange.com code scratchpad |
Name:
Cursor API Example
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
07/08/2014 01:20:24 am
|
IP:
Logged
|
|
Description:
Cursor API Example
|
Code:
- /copy *libl/qrpglesrc,rdcsrapi#1
-
- d secs s 15p 0
- d now s z
- d then s z
- d i s 5i 0
- d cs s *
- d dt s d
-
- /free
-
- csrInit(); // initialize SQL interface
-
- then = %timestamp();
- cs = csrNew('UTXI100P':'BIRTHDATE'); // create a result set
-
- for i = 1 to 300;
- csrSetFilter('KEYSEQN = ' + %char(i)); // set a row filter
- csrRefresh(); // refresh the result set
- if csrGoto(csr_next); // fetch first row
- dt = csrColDate('BIRTHDATE'); // get value of date field
- endif;
- endfor;
-
- now = %timestamp();
-
- secs = %diff(now:then:*ms);
-
- dsply secs; // display elapsed time
-
- csrTerm(); // terminate SQL interface
-
- *inlr = *on;
-
- /end-free
-
|
|
|