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.
Re:数字項目のTABキー 0e0e 2007-3-15 12:50
Re:数字項目のTABキー 0e0e 2007-3-15 13:06