トップ 一覧 置換 検索 ヘルプ 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')                      
!!ファイルの準備
・CRTSRCPF:ファイルを作成(文字コード注意:930)
・ADDPFM:DDS(ファイルのメンバーを追加):ファイルタイプをテキトウに設定
・CRTPF:DDSからPF作成
      A          R T1                        TEXT('あああああ+                 
      A                                      いいいいいい')                    
                                                                                 
                   ITEM1          6A                                             
                   ITEM2         10S                                             

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

!プログラムソース
      FFILEAP  IF  E                    DISK                                     
      FFILEAP2 O   E                    DISK                                     
      F*                                                                         
      C           'START'   DSPLY                                                
      C                     READ FILEAR                   99                     
!プログラムの準備
・CRTSRCPF:ファイルを作成(文字コード注意:930)
・ADDPFM:DDS(ファイルのメンバーを追加):ファイルタイプをテキトウに設定
 
                   
                   
      FFDBFTESTIF  E           K        DISK                                     
      C                     SETOF                     90                         
      C                     SETOF                     90                         
      C           *LOVAL    SETLLT1                                              
      C           *IN90     DOUEQ*ON                                             
      C                     READ T1                       90                     
      C   90                LEAVE                                                
      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           ITEM1     DSPLY                                                
      C           ITEM2     DSPLY                                                
      C                     ENDDO                                                
      C           'END'     DSPLY                                                
      C                     DSPLY          C       3                             
      C                     SETON                     LR                         
      C*                                                                         
      C                     SETON                       LR                       
      C                     RETRN                                                
※コンパイル時に使用するファイルが存在するライブラリをライブラリリストに登録しないとコンパイルエラーになる。



!コンパイル
・CRTRPGPGM:RPGコンパイル

・WRKACTJOB:コンパイルの結果表示(ジョブログの表示)
・WRKJOBLOG:コンパイルの結果表示

・WRKACTJOB:エラー表示(スプール・ファイルの処理)
・WRKOUTQ  :エラー表示

!実行
・CALL

{{category2 プログラミング言語,RPG}}