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:
  1.                                                                
  2.  /copy *libl/qrpglesrc,rdcsrapi#1                               
  3.                                                                 
  4. d i               s              5i 0                           
  5. d c1             s               *                             
  6. d dt             s               d                             
  7.                                                                 
  8.  /free                                                          
  9.                                                                 
  10.   csrInit();                                               // initialize SQL interface
  11.                                                                 
  12.   c1 = csrNew('UTXI100D');                        // create an SQL result set
  13.                                                              // based on table or view  
  14.                                                                 
  15.   for i = 1 to 300;                                             
  16.    csrSetFilter('KEYSEQN = ' + %char(i));     // set a row filter (where clause)       
  17.    csrRefresh();                                       // run SQL Select to refresh the result set 
  18.    dt = csrColDate('LUPDATE');                  // return a date value from column
  19.    csrClose();                                         // close the result set
  20.   endfor;                                                             
  21.                                                                       
  22.   *inlr = *on;                                                        
  23.                                                                       
  24.  /end-free                                                            
  25.  
© 2004-2019 by midrange.com generated in 0.007s valid xhtml & css