メニューバーの定義方法
メニューバーの定義方法
画面ＤＤＳソース
| A MNUCNL(CA12) | |
| A***************************************************************** | |
| A* 表示レコード（EXFMTはこのレコードを使う） | |
| A***************************************************************** | |
| A R RECORD1 | |
|
|
| A MNUCHOICE 2Y 0H | |
| A INPUT 2S 0H | |
| A 3 10'業務メニュー' DSPATR(RI) | |
| A NO 2Y 0B 5 10SNGCHCFLD(*RSTCSR) (メニューバー選択数値） | |
| A CHOICE(1 ' 1株式注文') | |
| A CHOICE(2 ' 2株式募集') | |
| A CHOICE(3 ' 3公開入札') | |
| A CHOICE(4 ' 4債券注文') | |
| A CHOICE(5 ' 5債券募集') | |
| A CHOICE(6 ' 6先物注文') | |
| A CHOICE(7 ' 7オプション注文') | |
| A CHOICE(8 ' 8投信注文') | |
| A CHOICE(90 ' 90サインオフ') | |
| A LINE 80 O 22 1DSPATR(UL) | |
| A 23 2'選択№' | |
| A NO2 2Y 0B +1DSPATR(CS UL) | |
| A ERRMSG 70O O 24 2TEXT('メッセージ') | |
| A COLOR(RED) | |
| A***************************************************************** | |
| A* メニューバー | |
| A***************************************************************** | |
| A R MENURCD MNUBAR | |
|
|
| A MNUBARCHC(1 SCR1 + | |
| A '株式') | |
| A MNUBARCHC(2 SCR2 + | |
| A '募集') | |
| A MNUBARCHC(3 SCR3 + | |
| A '入札') | |
| A CHCSLT((*COLOR PNK) (*DSPATR RI)) （選択すればピンクになります。） | |
|
|
| A RTNFLD 2Y 0H | |
| A***************************************************************** | |
| A* メニューリスト | |
| A***************************************************************** | |
| A R SCR1 PULLDOWN(*NOSLTIND) | |
| A NO 2Y 0B 1 1SNGCHCFLD(*RSTCSR) | |
| A CHOICE(1 ' 1注文入力') | |
| A CHOICE(2 ' 2取消') | |
| A CHOICE(3 ' 3訂正') | |
| A CHOICE(4 ' 4当日訂正') | |
| A CHOICE(5 ' 5電話注文入力') | |
| A CHOICE(6 ' 6電話取消') | |
| A CHOICE(7 ' 7電話訂正') | |
| A CHOICE(8 ' 8電話当日訂正') | |
| A CHCAVAIL((*COLOR WHT)) | |
| A CHCSLT((*COLOR PNK)) | |
| A***************************************************************** | |
| A* メニューリスト | |
| A***************************************************************** | |
| A R SCR2 PULLDOWN(*NOSLTIND) | |
| A NO 2Y 0B 1 1SNGCHCFLD(*RSTCSR) | |
| A CHOICE(1 ' 1注文入力') | |
| A CHOICE(2 ' 2取消') | |
| A CHCAVAIL((*COLOR WHT)) | |
| A CHCSLT((*COLOR PNK)) | |
| A***************************************************************** | |
| A* メニューリスト | |
| A***************************************************************** | |
| A R SCR3 PULLDOWN(*NOSLTIND) | |
| A NO 2Y 0B 1 1SNGCHCFLD(*RSTCSR) | |
| A CHOICE(1 ' 1注文入力') | |
| A CHOICE(2 ' 2取消') | |
| A CHOICE(3 ' 3訂正') | |
| A CHOICE(4 ' 4当日訂正') | |
| A CHOICE(5 ' 5電話注文入力') | |
| A CHOICE(6 ' 6電話取消') | |
| A CHOICE(7 ' 7電話訂正') | |
| A CHOICE(8 ' 8電話当日訂正') | |
| A CHCAVAIL((*COLOR WHT)) | |
| A CHCSLT((*COLOR PNK)) |
