ファイル読み込み– tag –
-
【COBOL 書き1-12-9】行数があわない！？GnuCOBOLのCOB_LS_SPLITを正しく捉えられるかが鍵〜仲良く鳥貴族
🧩今日の学び・件数を数える処理で不正レコードを除外しても、元のファイルからそのレコードが消えるわけではない。・SORTによって不正レコードの位置が移動すると、値を取り出す順番までずれるため、2回目の読み込みにも同じ有効性判定が必要にな... -
【COBOL 書き1-12-8】改行の仕様からIS NUMERICで解決！〜クーニャンは飲めるのか？
係長）・・・ なるお）いやー、ひと仕事終わったあとのクーニャンは格別でしょうね！ 係長）そうじゃなくて、全く気づいてないのか？ な）鳥貴族にクーニャンがないこと？ 係）違うわ！ な）なんですの… 係）この結果見てなんとも思わなかったのかってこと... -
【COBOL 書き1-12-5】中央値（偶数バージョン）検討版〜姑と無頼漢
🧩今日の学び・偶数件の中央値は、SORT済みデータの中央に並ぶ2つの位置を求め、その値を平均して算出する。・COMPUTEでは右辺の式を計算し、その結果を左辺の項目へ代入できる。・ファイルを読み直す前にフラグとカウンターを初期化し、中央の2件... -
【COBOL 書き1-12-1】中央値を求めるのは簡単？〜運に左右される人生
🧩今日の学び・中央値は、件数から中央の位置を求めるだけではなく、並べたデータの真ん中を取る考え方である。・ファイルをもう一度読み直す場合は、一度CLOSEしてから再度OPENする必要がある。・データが偶然並んでいれば正解に見えるが、正しい... -
【COBOL 書き1-11-1】データを読み込んで平均値（Average）を出してみる〜清涼感あふれるコード
🧩今日の学び・平均値は、読み込んだ金額の合計とデータ件数を集計し、最後に割ることで求められる。・ADDで合計を増やすだけでなく、COUNT-LOOPINGで件数も同時に数える必要がある。・割り切れない平均値を扱うには、PIC 9(7)V9のように仮想小数点... -
【COBOL 書き1-9-12】SUMIFもどき！ACCEPTで入力した値で取り込むデータをハードボイルドに合計する
🧩今日の学び・ACCEPTで入力した値を変数に入れることで、実行時に集計条件を変えられる。・IF文の条件を固定文字列から変数比較に変えることで、SUMIFのような条件一致合計ができる。・ACCEPTはREADループの外で一度だけ受けることで、毎回入力を... -
【COBOL 読み1-10】30年後に会いましょう〜そろそろ読めるようになってきた
🧩 今日の学び• READ文は「ファイルから1行読む」命令。• AT END／NOT AT ENDで「終わった」「まだある」を判断できる。• EOF-YESをTRUEにすることで、PERFORMループを自然に終了できる。 今日のコード READ-INFILE. READ INFILE AT END SET EOF-YE...
1