数字項目のTABキー
1:数字項目のTABキー
やぎ 03/14 15:42
お世話になります。
screen sectionで下記のように定義し
acp-suryo pic s9(03) into wrk-suryo.
dsp-suryo ---9 from dsp-suryo.
手続き部で、下記のように入力、表示を行っています。
accept pic acp-suryo.
*---終了キーチェック
display dsp-suryo.
このような場合、TABキーで次の項目にカーソルを移動させることができません。
dsp-suryoを zz9-.
とするとTABキーでの移動も可能になります。
（この場合、カンマ編集などはまったく行っていません）
符号が前についたフォーマットではTABキーを終了キーとして認識していないようなのですが、この場合TABキーの使用はあきらめるしかないのでしょうか？
よろしくお願いいたします。
2:Re:数字項目のTABキー
ＥＸＣＨＡＮＧＥ 03/14 19:18
＊ ご期待通りのものではないかもしれませんが、
screen-section.
zzz-suryo zzz- from wrk-suryo.
procedure division.
move 9999 to btab-position.
initialize wrk-suryo.
-------
-------
suryo-in.
display zzz-suryo.
accept acp-suryo.
*---終了キーチェック
display dsp-suryo.
*
next-in.
if end-status = ”09” go to suryo-in.
------
------
＊ なんて だめかしら。。。。
3:Re:数字項目のTABキー（再）
ＥＸＣＨＡＮＧＥ 03/14 19:35
＊ ご期待通りのものではないかもしれませんが、
screen-section.
zzz-suryo zzz- from wrk-suryo.
procedure division.
move 9999 to btab-position.
initialize wrk-suryo.
-------
-------
suryo-in.
display zzz-suryo.
accept acp-suryo.
*---終了キーチェック
display dsp-suryo.
*
next-in.
display zzz-next.
accept acp-next.
if end-status = ”09” go to suryo-in.
display dsp-next.
*
------
------
＊ なんて だめかしら。。。。
4:Re:数字項目のTABキー（再々）
ＥＸＣＨＡＮＧＥ 03/14 22:21
＊ ご期待通りのものではないかもしれませんが、
screen-section.
zzz-suryo zzz- from wrk-suryo.
procedure division.
move 9999 to btab-position.
initialize wrk-suryo.
-------
-------
suryo-in.
display zzz-suryo.
accept acp-suryo.
display dsp-suryo.
*---終了キーチェック
*
next-in.
display zzz-next.
accept acp-next.
display dsp-next.
if end-status = ”09” go to suryo-in.
*
------
------
＊ なんて だめかしら。。。。
5:Re:数字項目のTABキー
0e0e 03/15 12:50
TAB��
000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. S9S9S9.
000030 ENVIRONMENT DIVISION.
000040 CONFIGURATION SECTION.
000050 SOURCE-COMPUTER. EXPRESS5800.
000060 OBJECT-COMPUTER. EXPRESS5800.
000070 INPUT-OUTPUT SECTION.
000080 FILE-CONTROL.
000090 DATA DIVISION.
000100 FILE SECTION.
000110 WORKING-STORAGE SECTION.
000120 01 INDATA.
000130 02 WRK-SURYO PIC S9(03).
000140 02 KAK PIC X(01).
000150******************************************************************
000160 SCREEN SECTION.
000170 SD GAMEN END STATUS IS ENDS.
000180 01 D-KAK CLEAR SCREEN.
000190 02 SKAK LINE 12 COLUMN 10 PIC X(01)
000200 USING KAK
000210 NO IFC CHECK OVERFLOW.
000220 01 D-KAK2.
000230 02 ACP-SURYO LINE 10 COLUMN 10 PIC S9(03)
000240 USING WRK-SURYO
000250 NO IFC CHECK OVERFLOW.
000260 02 DSP-SURYO LINE 10 COLUMN 09 PIC ---9B FROM WRK-SURYO.
000270 02 DSP-SURYO2 LINE 10 COLUMN 10 PIC ZZ9- FROM WRK-SURYO.
000280******************************************************************
000290 PROCEDURE DIVISION.
000300 HAJIME.
000310 DISPLAY D-KAK.
000320 ACTSU.
000330 DISPLAY DSP-SURYO2.
000340 ACCEPT ACP-SURYO.
000350 IF ENDS = P9 STOP RUN.
000360 DISPLAY DSP-SURYO.
000370 ACTKAK.
000380 ACCEPT SKAK.
000390 IF ENDS = P9 STOP RUN.
000400 GO TO ACTSU.
6:Re:数字項目のTABキー
0e0e 03/15 13:06
フル桁の場合のマイナス表示修正
000220 01 D-KAK2.
000230 02 ACP-SURYO LINE 10 COLUMN 10 PIC S9(03)
000240 USING WRK-SURYO
000250 NO IFC CHECK OVERFLOW.
000260 02 DSP-SURYO LINE 10 COLUMN 09 PIC ---9B FROM WRK-SURYO.
000270 02 DSP-SURYO2 LINE 10.
000280 03 COLUMN 09 VALUE " ".
000290 03 COLUMN 10 PIC ZZ9- FROM WRK-SURYO.
7:Re:数字項目のTABキー
0e0e 03/15 13:13
COLUMN 09 PIC BZZ9- FROM WRK-SURYO.
で、よかったか・・・
8:Re:数字項目のTABキー
やぎ 03/16 17:23
ＥＸＣＨＡＮＧＥ 様
0e0e 様
ありがとうございます！
何とか対応できそうです。
前次1-新書板
BluesBB ©Sting_Band
|