RPG

16.画面ファイルにラジオボタンやチェックBOXを定義するには?

画面ファイル(DSPF)でも、GUIコントロールとしてラジオボタン,チエックBOX,スクロール・バーなどを
サポートしている。
5250ストリームは GUI機能を持っている。

【GUI 表示サンプル DSPFソース】
0136.00      A*( RADIO BUTTON )
0137.00      A                                  2 50' 売上区分 '
0138.00      A            RADIO          2Y 0B  3 50SNGCHCFLD
0139.00      A                                      CHOICE(1 ' 売上 ')
0140.00      A                                      CHOICE(2 ' 返品 ')
0157.00      A*( COMBO BOX )
0158.00      A          R CMBREC                    SFL
0159.00      A            CTLFLD         1Y 0H      SFLCHCCTL
0160.00      A            CMBFLD        10A  O 18  6
0161.00      A          R CMBCTL                    SFLCTL(CMBREC)
0162.00      A                                      SFLSNGCHC
0163.00      A                                      SFLPAG(3) SFLSIZ(4)
0164.00      A                                      SFLDSP SFLDSPCTL
0165.00      A                                      ROLLUP(10)
0166.00      A  10                                  SFLEND(*SCRBAR)
0167.00      A                                      CF03(03 ' 終了 ')
0168.00      A                                      OVERLAY
0169.00      A*                                     PULLDOWN(*NOSLTIND)
0170.00      A            F3             5S 0H      SFLSCROLL
0171.00      A            CMBRRN         4S 0H      SFLRCDNBR(CURSOR *TOP)
0179.00      A*( CHECK BOX )
0180.00      A            CHKBOX         2Y 0B 21 66MLTCHCFLD
0181.00      A                                      CHOICE(1 ' 発注手配 ')
0182.00      A                                      CHCCTL(1 &CHK01)
0183.00      A            PSHFLD         2Y 0B 22  4PSHBTNFLD(*RSTCSR (*NUMCOL))
0184.00      A                                      PSHBTNCHC(1 'F3= 終了 ' CF03)
0185.00      A                                      PSHBTNCHC(2 'F4= プロンプト' CF04)
0186.00      A                                      PSHBTNCHC(3 'F10= 更新 ' CF10)
0187.00      A                                      PSHBTNCHC(4 'F23= 削除 ' CF23)
0188.00      A                                      PSHBTNCHC(5 'F12= 前画面 'CF12)
0189.00      A                                      CHCAVAIL((*COLOR BLU))
0190.00      A            CHK01          1Y 0H