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:
  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               *                                   
  8. d dt              s               d                                   
  9.                                                                       
  10.  /free                                                                
  11.                                                                       
  12.   csrInit();                               // initialize SQL interface
  13.                                                                       
  14.   then = %timestamp();                                                
  15.   cs = csrNew('UTXI100P':'BIRTHDATE');     // create a result set    
  16.                                                                      
  17.   for i = 1 to 300;                                                  
  18.    csrSetFilter('KEYSEQN = ' + %char(i));  // set a row filter       
  19.    csrRefresh();                           // refresh the result set 
  20.    if csrGoto(csr_next);                   // fetch first row        
  21.     dt = csrColDate('BIRTHDATE');          // get value of date field
  22.    endif;                                                            
  23.   endfor;                                                            
  24.                                                                      
  25.   now = %timestamp();                                                
  26.                                                                      
  27.   secs = %diff(now:then:*ms);                                        
  28.                                                                      
  29.   dsply secs;                              // display elapsed time   
  30.  
  31.   csrTerm();                               // terminate SQL interface
  32.                                                                      
  33.   *inlr = *on;                                                       
  34.                                                                      
  35.  /end-free                                                           
  36.  
© 2004-2019 by midrange.com generated in 0.005s valid xhtml & css