如何在IBM i（OS/400）中使用RPGLE读取CSV文件

本示例展示了如何使用RPGLE在IBM i操作系统中读取CSV文件的内容。通过使用RPGLE内置的文件操作函数，可以将文件内容读取到IBM i系统中，以便进一步处理或导入到其他系统中。

//读取CSV文件
     FmyCSVFileIf   e             Disk
     DmyCSVFileIf   pi
     DmyCSVFile                 like(FileName)
     DmyMode                             const
     DmyRecLen                    like(RR02REC) const
     DmyCSVFileHd                  like(RR02CSVHD)

     DmySectHdr          ds
     DmySectSz                   5s 0
     DmySectDt                   32767a

     DmySectEnd                s                   inz(*off)

     If%NAddr(myCSVFileIf) = *NULL
        Open                myCSVFileIf myMode
     Endif

     Read                myCSVFileIf myCSVFileHd %Addr(mySectHdr)

     *In02            DOWEQ  *off
          If%Subst(myCSVFileHd:1:2) <> '01'
             Leave
          Endif

          DmyCSVFileHd          = %Trim(myCSVFileHd) + X'0D25'

          Clear             mySectHdr

          Read               myCSVFileIf myCSVFileHd %Addr(mySectHdr)

     ENDDO

     Close             myCSVFileIf

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