トップ 一覧 置換 検索 ヘルプ RSS ログイン

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                                                
※コンパイル時に使用するファイルが存在するライブラリをライブラリリストに登録しないとコンパイルエラーになる。
{{category2 プログラミング言語,RPG}}