レガシーとか– category –

🧩今日の学び・COBOLの「まとめ書き」で複数変数を一度に初期化できる。・ゴミデータを残すと“売上バグって大金持ち”になる危険を学ぶ。・SPACESとZEROの使い分けが、COBOLマスターへの第一歩。 今日のコード PARSE-AND-VALIDATE. *> 初期化 MOV...

🧩 今日の学び• READ文は「ファイルから1行読む」命令。• AT END／NOT AT ENDで「終わった」「まだある」を判断できる。• EOF-YESをTRUEにすることで、PERFORMループを自然に終了できる。 今日のコード READ-INFILE. READ INFILE AT END SET EOF-YE...

🧩 今日の学びEOF-FLAGと88レベルの関係を、チーズ工場の比喩で理解。  PERFORM UNTILとSET EOF-YESの流れも、笑いながら整理。  COBOLの「真と偽」を、なるおと係長が掛け合いで学ぶ回。 今日のコード PROCESS-LOOP. PERFORM READ-INFIL...

今日のコード    OPEN INPUT INFILE  　　   OUTPUT OUTREP    　　 OUTPUT ERRFILE.    PERFORM WRITE-REPORT-HEADER. 星矢は光の速度 なるお）INFILEにはファイルをいれてるからー あれ？FDってなんだったっけ...

今日のコード 　　　 INIT. MOVE FUNCTION CURRENT-DATE TO CD-RAW. *> YYYYMMDDHHMMSS+TZ など21桁想定 MOVE CD-RAW(1:4) TO CD-YYYY MOVE CD-RAW(5:2) TO CD-MM MOVE CD-RAW(7:2) TO CD-DD MOVE CD-RAW(9:2) TO CD-HH MOVE CD-RAW(11:2) TO CD-MN MOV...

今日のコード PROCEDURE DIVISION. MAIN. PERFORM INIT PERFORM PROCESS-LOOP PERFORM FINISH STOP RUN. PROCEDURE DIVISIONに突入 PROCEDURE DIVISION. なるお）またDIVISIONきたけど、PROCEDUREって手順？手順を書くところって感じでいいだろう。こんな...

今回のコード *> --- 現在日時（レポートヘッダに使用） --- 01 CDATE. 05 CD-RAW PIC X(21). 05 CD-YYYY PIC 9(4). 05 CD-MM PIC 9(2). 05 CD-DD PIC 9(2). 05 CD-HH PIC 9(2). 05 CD-MN PIC 9(2). 05 CD-SS PIC 9(2). *> --- CSV項目（文字） --- ...

今日のコード 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...

今日のコード 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も理解したぜ。もう俺に迷うものはない！ 竹内まりや...

今日のコード ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT INFILE ASSIGN TO "orders.csv" ORGANIZATION IS LINE SEQUENTIAL. SELECT OUTREP ASSIGN TO "sales_report.txt" ORGANIZATION IS LINE SEQUENTIAL. SELECT ERRFILE ASSIG...