COBOL？極めてやんよシュッシュ!!

**デフォルトの名無しさん** · 2022/06/14(火) 09:28:24.34

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.

**デフォルトの名無しさん** · 2022/06/14(火) 09:30:27.22

COBOLって人気なさ過ぎて、技術の共有もあまりないから

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

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

**デフォルトの名無しさん** · 2022/06/14(火) 11:23:33.27

COBOちゃんってまだ使ってる所あるんだωωω

**デフォルトの名無しさん** · 2022/06/22(水) 10:14:34.91

>>191
まだまだ現役だよ
今はCOBOL技術者の方が価値出てる

**デフォルトの名無しさん** · 2023/10/13(金) 15:07:12.36

COBOLでプログラムを書いて何をするか、
動機付けのところにゲームをつくったりソフトウェアの改良をして
素人さん達に役立ちリスペクトして貰える、
なんていう要素が皆無でしょ。

会計手続や事務手続の実現

おまえらやりたい?w

仕事で金になるならそりゃ勉強させてもらいますよ、

おまえらやりたい?w

**デフォルトの名無しさん** · 2023/10/17(火) 07:26:00.18

こら、お前、なんしよんねん！

**デフォルトの名無しさん** · 2023/10/23(月) 14:46:06.38

小奇麗でちょっといいセンスのガワを張って格好良くみせたい、
なんてのみ皆無じゃない。

おまえらやりたい?w

**デフォルトの名無しさん** · 2025/11/19(水) 16:03:50.15

COBOL専門の開発会社とかあるんだな。

ttps://www.youtube.com/watch?v=1qJW-nm-M40

COBOL？極めてやんよ シュッシュ!!

COBOL？極めてやんよシュッシュ!!