2019.03.14
 

データ入力画面でカーソル移動の挙動を変更したい

Question

弊社では、DDSで入力画面を作成しています。

8行2列の各入力項目があり、1行目の項目を入力後カーソル位置が右(2列1行目)にシフト移動するのですが、オペレーターから入力順序的にはカーソルが下(1列2行目)に移動したほうが、利用しやすいとの要望がありました。

カーソル移動の挙動を変えることは可能でしょうか。

Answer

DDSキーワード FLDCSRPRG を使用することで実現できます。

構文:FLDCSRPRG(カーソル移動先フィールド)

■サンプルDDS

 ****************** データの始め *******************************
     A                                      DSPSIZ(24 80 *DS3)
     A                                      CA03(03)
     A          R FMT01
     A*
     A            FLD001         3A  B  6 20FLDCSRPRG(FLD002)
     A            FLD010         3A  B  6 30FLDCSRPRG(FLD020)
     A*
     A            FLD002         3A  B  8 20FLDCSRPRG(FLD003)
     A            FLD020         3A  B  8 30FLDCSRPRG(FLD030)
     A*
     A            FLD003         3A  B 10 20FLDCSRPRG(FLD004)
     A            FLD030         3A  B 10 30FLDCSRPRG(FLD040)
     A*
     A            FLD004         3A  B 12 20FLDCSRPRG(FLD005)
     A            FLD040         3A  B 12 30FLDCSRPRG(FLD050)
     A*
     A            FLD005         3A  B 14 20FLDCSRPRG(FLD010)
     A            FLD050         3A  B 14 30FLDCSRPRG(FLD001)
     A*
***************** データの終わり ******************************

■サンプルRPG

****************** データの始め *******************************
     FDSPT2   CF  E                    WORKSTN
     C*
     C           *INKC     DOWEQ*OFF
     C                     EXFMTFMT01
     C                     END
     C*
     C                     SETON                     LR
     C                     RETRN
***************** データの終わり ****************************** 

順番は決め打ちになってしまいますが、上記サンプルによって今回のご要望である、カーソルの移動順序を変更することが可能です。

ページトップ

ボタン