COBOL？極めてやんよ シュッシュ!! (195ﾚｽ)
上下前次1-新

---

189: 2022/06/14(火)09:28 ID:A9b+lRr3(1/2) AA×


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
189: [] 2022/06/14(火) 09:28:24.34 ID:A9b+lRr3 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. http://mevius.5ch.net/test/read.cgi/tech/1176986660/189
で文をかいてみた 入力した値は存在しません 入力した はありました

---

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

---

あと 6 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.094s