CL

2. CLで画面ファイルを表示するには?

CLP の中でも画面ファイルを表示して処理を行なうことができる。簡単な画面 アプリケーション のために RPG を開発する必要はない。
ただし、CLP の中で DCLF で定義できるファイルの数は 1つだけである。例えば印刷範囲指定の画面は CLP 内の画面定義で十分である。

0001.00              PGM        
0002.00 /*---------------------------------------------------------*/  
0003.00 /*   DSPATR   :    表示属性パターン                         */  
0004.00 /*---------------------------------------------------------*/  
0005.00              DCL        VAR(&MSG) TYPE(*CHAR) LEN(80)   
0006.00              DCLF       FILE(QTROBJ/DSPATRFM)   
0007.00                                      
0008.00              CHGVAR     VAR(&FLD005) VALUE(0)   
0009.00  DSPLY:      SNDRCVF    RCDFMT(DSPHEAD)     
0010.00    /*(CF03)- 終了 */           
0011.00              IF         COND(&IN03 *EQ '1') THEN(GOTO CMDLBL(END)) 
0012.00              GOTO       DSPLY  
0013.00  END:        RETURN          
0014.00  ERROR:      RCVMSG     RMV(*NO) MSG(&MSG) 
0015.00              IF         COND(&MSG *NE ' ') THEN(DO) 
0016.00              SNDPGMMSG  MSG(&MSG) MSGTYPE(*DIAG) 
0017.00              ENDDO   
0018.00              ENDPGM