在IBM i（OS/400）下使用RPGLE创建CSV文件的示例代码

本示例代码展示了如何在IBM i操作系统下使用RPGLE编程语言创建CSV文件，并将一些数据写入文件中。

/free
      //定义CSV文件名和路径
      dcl-c FILENAME const("MYCSVFILE.CSV");
      dcl-c FILEPATH const("/MYFOLDER/");
      dcl-c CSV_SEP CONST(',');

      //该部分为创建文件和文件夹的代码
      //将不存在的文件夹创建出来
      if (%CHECK(folderpath:'/':*on) = 0);
         mkdir(folderpath:'S_IRWXU');
      endif;

      //创建文件，并将名称保存在filenum变量中
      filenum = %open(FILEPATH+FILENAME: 
                       %ocreat + %otext + %owrite);

      //将头信息写入CSV文件
      %write(filenum: 'HEADER1' + CSV_SEP + 'HEADER2');

      //从数据库中获取名字和编号的列表
      //并将这些数据写入CSV文件
      exec sql 
       declare c1 cursor for
       select name, id 
       from mytable;

      exec sql 
        open c1;

      exec sql 
        fetch c1 into :name, :id;

      dow sqlcod=0;
         %write(filenum: name + CSV_SEP + %char(id));
         exec sql 
           fetch c1 into :name, :id;
      enddo;

      //关闭文件句柄
      %close(filenum);
      /end-free

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