RPGでファイルの読み書き

ファイルの準備

読込みファイル（タイプ：DSFP）

     A          R FILEAR                                                        
     A            Z1FLDA         6A         COLHDG('FLDA')                      
     A            HRHNSC        20A         COLHDG('FLDB')                      

書込みファイル（タイプ：DSFP）

     A          R FILEAR2                                                       
     A            Z1FLD2         6A         COLHDG('FLDA')                      
     A            HRHNS2        20A         COLHDG('FLDB')                      

上記メンバーから、物理ファイルの作成

CRTPF

プログラムソース

     FFILEAP  IF  E                    DISK                                     
     FFILEAP2 O   E                    DISK                                     
     F*                                                                         
     C           'START'   DSPLY                                                
     C                     READ FILEAR                   99                     
     C*                                                                         
     C           *IN99     DOWEQ*OFF                                            
     C           Z1FLDA    DSPLY                                                
     C           HRHNSC    DSPLY                                                
     C                     MOVE Z1FLDA    Z1FLD2                                
     C           Z1FLD2    DSPLY                                                
     C                     WRITEFILEAR2                                         
     C                     READ FILEAR                   99                     
     C                     ENDDO                                                
     C           'END'     DSPLY                                                
     C                     DSPLY          C       3                             
     C                     SETON                     LR                         
     C                     RETRN                                                

※コンパイル時に使用するファイルが存在するライブラリをライブラリリストに登録しないとコンパイルエラーになる。