COBOL？極めてやんよ シュッシュ!! (195ﾚｽ)
上下前次1-新
189: 2022/06/14(火)09:28 ID:A9b+lRr3(1/2) AAS
COBOLでSEARCH文をかいてみた
IDENTIFICATION DIVISION.
PROGRAM-ID. MAIN.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 TEST-TXT PIC X(42).
01 INP PIC X(3).
01 BLKTBL.
03 PIC X(6) VALUE "aaa".
03 PIC X(6) VALUE "bbb".
03 PIC X(6) VALUE "ccc".
03 PIC X(6) VALUE "ddd".
03 PIC X(6) VALUE "eee".
01 BLKTBL-R REDEFINES BLKTBL.
03 BLK-REC OCCURS 5 INDEXED BY IDX.
05 VAL PIC X(03).
PROCEDURE DIVISION.
ACCEPT INP.
SET IDX TO 1.
SEARCH BLK-REC
AT END
DISPLAY "入力した値は存在しません"
WHEN VAL(IDX) = INP
STRING
"入力した【" DELIMITED BY SIZE
VAL(IDX) DELIMITED BY SIZE
"】はありました。" DELIMITED BY SIZE
INTO TEST-TXT
DISPLAY TEST-TXT
END-SEARCH.
END PROGRAM MAIN.
上下前次1-新書関写板覧索設栞歴
あと 6 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ
ぬこの手 ぬこTOP 0.006s