在IBM i上如何使用RPG编写文件读取程序

本示例展示了在IBM i（OS/400）上使用RPG编程语言编写一个简单的文件读取程序。该程序将从指定文件中读取记录并打印到控制台上。

H DFTACTGRP(*NO) BNDDIR('QC2LE')
     D Program PR
     D                 PI
     D FileName        10A

     D file            sds
     D                                     1     80

     D inDS            ds
     D                                     1
     D Record                        256a

     D fileds          ds
     D                                     INZ
     D Record                        256a

     c                   z-add                  80                 *in80
     c                   z-add          %addr(inDS)           file
     c                   z-add          %addr(fileds)          file

     C                   open      file   'INPUTFILE' 
     C                   reads     file   inDS 

     C                   dow       not     %eof(file) 
     C                   eval      fileds = inDS 
     C                   write     Record                  
     C                   reads     file   inDS 
     C                   Enddo
     C                   Close     file

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