自己学習メモインデックス

IBM i (旧AS400）の自己学習メモ　インデックス

概要

CLプログラムによるファイル操作をやっていきます。
事前に、以下記事の動作確認用ファイルが作成済みであること。
IBM i (旧AS400）の自己学習メモ０８　QTEMPにサクッと開発テスト用の一時ファイル作成（DDSを使わない１カラムテーブル）

DCLF/RCVFのサンプルプログラム

MSGIDで指定されているCPF0864は、RCVFコマンドで１レコードずつ読み込む際、End of Fileに到達すると発生するもので、そのメッセージを検知して、CLプログラムを終了させる処理を入れています。

 FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
        *************** Beginning of data ******************************************************************
0001.00              PGM                                                                                    
0002.00              DCLF       FILE(QTEMP/SAMPLE)                                                          
0003.00  READ:       RCVF                                                                                   
0004.00              MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(END))                                       
0005.00              SNDPGMMSG  MSG(&SAMPLE)                                                                
0006.00              GOTO       CMDLBL(READ)                                                                
0007.00  END:        ENDPGM                                                                                 
        ****************** End of data *********************************************************************

出力結果

sample data 1
sample data 2
sample data 3