技術と笑い– tag –
-
【COBOL 読み1-4】88は米寿でしょーに！条件ってなんなのよ？
今日のコード WORKING-STORAGE SECTION. *> --- 終端・汎用ワーク --- 01 EOF-FLAG PIC X VALUE "N". 88 EOF-YES VALUE "Y". 88 EOF-NO VALUE "N". 01 LINE-NO PIC 9(7) VALUE ZERO. 01 WS-MSG PIC X(80). なるお）あれ？いけそうな予感。 WORKING-STOR... -
【COBOL 読み1-3】レコードと512文字の謎 〜 DATA DIVISIONとの対話
今日のコード DATA DIVISION. FILE SECTION. FD INFILE. 01 IN-REC PIC X(512). FD OUTREP. 01 OUT-REC PIC X(132). FD ERRFILE. 01 ERR-REC PIC X(512). なるお）ふふ、DIVISIONば理解したぜ。SECTIONも理解したぜ。もう俺に迷うものはない！ 竹内まりや...
1