在IBM i (OS/400)中使用SQL查询数据

本示例代码展示如何在IBM i (OS/400)中使用SQL查询数据。使用CL的程序主体中调用SQL查询，并将结果输出到控制台。这个代码演示了SQL作为数据库操作语言的主要优势。

/* RPGLE模块 */                                     
dcl-pr ShowSqlQuery;                                  
  sqlStmt char(1000) const;                           
end-pr;                                               

dcl-proc ShowSqlQuery;                                
  dcl-pi *n;                                          
    sqlStmt char(1000) const;                         
  end-pi;                                             
  dcl-s first char(10);                               
  dcl-s last char(10);                                
  dcl-cf field01 like(dsname.field01);                

  exec sql                                             
    declare c1 cursor for                              
    select first_name, last_name                      
    from dsname.employee                               
    where employee_status = 'A';                       

  exec sql                                             
    open c1;                                           

  exec sql                                              
    fetch next from c1 into :first, :last;              

  dow (sqlstate = '00000');                             
    dsply (first + ' ' + last);                         
    exec sql                                            
      fetch next from c1 into :first, :last;            
  enddo;                                                

  exec sql                                              
    close c1;                                           
end-proc;                                             

/* 示例调用 */                                       
dcl-s SqlStmt char(1000);                             
SqlStmt = 'select * from dsname.employee';            
ShowSqlQuery(SqlStmt);

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com