COBOL？極めてやんよ シュッシュ!! (195ﾚｽ)
COBOL？極めてやんよ シュッシュ!! http://mevius.5ch.net/test/read.cgi/tech/1176986660/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
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
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 6 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.015s