レガシーとか– category –
-
レガシーとか
【COBOL 読み1−7】夢の国と男闘呼組〜MOVEと日付の冒険〜
今日のコード 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... -
レガシーとか
【COBOL 読み1-6】プロセスチーズはFINISHしてSTOPした
今日のコード PROCEDURE DIVISION. MAIN. PERFORM INIT PERFORM PROCESS-LOOP PERFORM FINISH STOP RUN. PROCEDURE DIVISIONに突入 PROCEDURE DIVISION. なるお)またDIVISIONきたけど、PROCEDUREって手順?手順を書くところって感じでいいだろう。こんな... -
レガシーとか
【COBOL 読み1-5】妖精とたぬきが変数づくり〜9やらZやらVやら
今回のコード *> --- 現在日時(レポートヘッダに使用) --- 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項目(文字) --- ... -
レガシーとか
【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も理解したぜ。もう俺に迷うものはない! 竹内まりや... -
レガシーとか
【COBOL 読み1-2】わからないから才能ない? ENVIRONMENT DIVISION.との遭遇
今日のコード 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... -
レガシーとか
【COBOL 読み1-1】読めと言われても…って英語?〜IDENTIFICATION DIVISIONとの遭遇〜
今日のコード IDENTIFICATION DIVISION. PROGRAM-ID. SALES-REPORT. なんで俺がCOBOLとかやんないといけないの? となりのおじさんなにしてんの… これ読んどけって、コード渡されてただけで、、、 わからんてー! 教本ちょうだいよ!ちょっとCOBOL覚えてく...
1