COBOL？極めてやんよ シュッシュ!! (195ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

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.

---

190: 2022/06/14(火)09:30 ID:A9b+lRr3(2/2) AAS
COBOLって人気なさ過ぎて、技術の共有もあまりないから

ネット、及び、書籍にわかりやすいものが少ない

ネットが使えない環境が多いから、アウトプットもしにくい

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.009s