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

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

[掲示板に戻る]

Re:数字項目のTABキー 0e0e 2007-3-15 12:50
Re:数字項目のTABキー 0e0e 2007-3-15 13:06
Re:数字項目のTABキー 0e0e 2007-3-15 13:13

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.

で、よかったか・・・

BluesBB ©Sting_Band