使用IBM i (OS/400)中的RPGLE程序生成CSV文件

本示例演示了如何使用IBM i (OS/400)系统中的RPGLE程序生成CSV（逗号分隔值）文件。通过将数据记录逐行编写到文件中，最终生成了一个可以在Excel中打开和编辑的CSV文件。

/free
     //打开文件
     exec sql
       DECLARE C1 CURSOR FOR 
         SELECT NAME, AGE, GENDER 
         FROM CUSTOMERS;

     exec sql 
       OPEN C1;

     //打开输出文件
     open OUTFILE;

     //写入标题行
     writec OUTREC %char('姓名,年龄,性别');

     //逐行写入记录
     dow sqlstate = '00000';
       exec sql 
         FETCH C1 INTO :NAME, :AGE, :GENDER;

       if sqlstate <> '00000';
         leave;
       endif;

       //生成数据行
       clear OUTREC;
       write OUTREC %trimr(NAME) + ',' + %char(AGE) + ',' + %trimr(GENDER);
       //记录写入文件
       write OUTFILE OUTREC;

     enddo;

     //关闭文件和游标
     exec sql 
       CLOSE C1;

     close OUTFILE;

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