midrange.com code scratchpad
Name:
Cursor API Example
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
07/08/2014 01:22:54 am
IP:
Logged
Description:
Cursor API Example
Code:
  1.  /copy *libl/qrpglesrc,rdcsrapi#1                                      
  2.                                                                        
  3. d secs            s             15p 0                                  
  4. d now             s               z                                    
  5. d then            s               z                                    
  6. d i               s              5i 0                                  
  7. d cs              s               *   dim(300)                         
  8. d dt              s               d                                    
  9.                                                                        
  10.  /free                                                                 
  11.                                                                        
  12.   csrInit();                                // initialize SQL interface
  13.                                                                        
  14.   then = %timestamp();                                                 
  15.                                                                       
  16.   for i = 1 to 300;                         // create 300 result sets 
  17.    cs(i) = csrNew('UTXI100P':'BIRTHDATE');                            
  18.   endfor;                                                             
  19.                                                                       
  20.   for i = 1 to 300;                                                   
  21.    csrSetInst(cs(i));                                                 
  22.    csrSetFilter('KEYSEQN = ' + %char(i));   // set a row filter       
  23.    csrRefresh();                            // refresh the result set 
  24.    if csrGoto(csr_next);                    // fetch first row        
  25.     dt = csrColDate('BIRTHDATE');           // get value of name field
  26.    endif;                                                             
  27.   endfor;                                                             
  28.                                                                       
  29.   now = %timestamp();                                                 
  30.                                                                       
  31.   secs = %diff(now:then:*ms);                                         
  32.                                                                       
  33.   dsply secs;                               // display elapsed time   
  34.                                                                       
  35.   csrTerm();                                // terminate SQL interface
  36.                                                                       
  37.   *inlr = *on;                                                        
  38.                                                                       
  39.  /end-free                                                            
  40.  
© 2004-2019 by midrange.com generated in 0.007s valid xhtml & css