サブファイル選択制御方法


画面DDS

     A****************************************************************
     A*画面1
     A****************************************************************
     A                                                CA05 CA07 CF01
 
     A          R SFLRE1                         SFL
     A            CTLFLD         1Y 0H        SFLCHCCTL            (このフィールドに選択情報が入ります)
     A            G\OUT         72O  O  5  2
     A            STRNO           9Y 0H
     A            STCUCD         6Y 0H
     A            STMGCD        9Y 0H
     A            STSURI          2Y 0H
     A            STTRCD         6Y 0H
     A          R SFLCT1                        SFLCTL(SFLRE1)  OVERLAY
 
     A*                                              SFLMLTCHC  PROTECT
     A                                               SFLSNGCHC                 (シングル選択)
     A                                               CHCSLT((*COLOR PNK))
     A                                               SFLPAG(18) SFLSIZ(19)
     A  41                                          SFLDSP
     A  42                                          SFLDSPCTL
     A  43                                          SFLCLR
 
     A  41                                          SFLEND(*SCRBAR)          (スクロールバー定義)
     A            F3               5S 0H      SFLSCROLL
     A            F2                 4S 0H      SFLRCDNBR(CURSOR *TOP)
     A                                         1 30'テスト画面'
     A                                               COLOR(WHT)
     A                                         2  2'口座番号'
     A            G\CUCD         6Y 0O    +1TEXT('口座')
     A            G\CUNK        42O  O    +1TEXT('口座名')
     A                                           4  2'銘柄コード  銘柄名   売買+
     A                                               約定日   数量    単価 +
     A                                                     '
     A                                         COLOR(WHT) DSPATR(RI)
     A          R SCRMSG
     A            CMDMSG        70O  O 23  2TEXT('コマンド')
     A                                      COLOR(BLU)
     A            ERRMSG        70O  O 24  2TEXT('エラーメッセージ')
     A                                      COLOR(RED)

    横セパレート(SFLLIN)を使いたいけれど使用できない(コンパイルは通るがABENDする。)

HOME   戻る