| 3 |
Re:数字項目のTABキー（再） |
|
ＥＸＣＨＡＮＧＥ 2007-3-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キー（再々） |
|
ＥＸＣＨＡＮＧＥ 2007-3-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 2007-3-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 2007-3-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 2007-3-15 13:13
[返信] [編集]
COLUMN 09 PIC BZZ9- FROM WRK-SURYO.
で、よかったか・・・
|
| 8 |
Re:数字項目のTABキー |
|
やぎ 2007-3-16 17:23
[返信] [編集]
ＥＸＣＨＡＮＧＥ 様
0e0e 様
ありがとうございます！
何とか対応できそうです。
|
Re:数字項目のTABキー（再） ＥＸＣＨＡＮＧＥ 2007-3-14 19:35
Re:数字項目のTABキー（再々） ＥＸＣＨＡＮＧＥ 2007-3-14 22:21
