Quellcode-Bibliothek T.REXX   Sprache: REXX

/* REXX  */                                                                     
/*                                                            */                
/* ---------------------------------------------------------- */                
                                                                                
 /* trace i */                                                                  
 statement="select * from db.tab",                                              
           "where format like 'num%'"                                           
 cc=esql(statement)                                                             
 do i=1 to 100                                                                  
    pull q                                                                      
    say i"="q                                                                   
 end