Google
オフコン練習帳内を検索
インターネット全体を検索

NECオフコン関連
オフコン一般
情報

[掲示板に戻る]


Re:数字項目のTABキー(再) EXCHANGE 2007-3-14 19:35
Re:数字項目のTABキー(再々) EXCHANGE 2007-3-14 22:21
Re:数字項目のTABキー 0e0e 2007-3-15 12:50
Re:数字項目のTABキー 0e0e 2007-3-15 13:06
Re:数字項目のTABキー 0e0e 2007-3-15 13:13
Re:数字項目のTABキー やぎ 2007-3-16 17:23

3 Re:数字項目のTABキー(再)
EXCHANGE 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キー(再々)
EXCHANGE 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  [返信] [編集]

EXCHANGE 様

0e0e  様



ありがとうございます!

何とか対応できそうです。



BluesBB ©Sting_Band