【COBOL】BINARYの基本を完全マスター！初心者向け解説と10のサンプルコード

COBOLとBINARYの基本を徹底解説するイメージ COBOL
2024.01.08
この記事は約19分で読めます。

【サイト内のコードはご自由に個人利用・商用利用いただけます】

この記事では、プログラムの基礎知識を前提に話を進めています。

説明のためのコードや、サンプルコードもありますので、もちろん初心者でも理解できるように表現してあります。

基本的な知識があればサンプルコードを活用して機能追加、目的を達成できるように作ってあります。

※この記事は、一般的にプロフェッショナルの指標とされる『実務経験10,000時間以上』を凌駕する現役のプログラマチームによって監修されています。

サイト内のコードを共有する場合は、参照元として引用して下さいますと幸いです

※Japanシーモアは、常に解説内容のわかりやすさや記事の品質に注力しております。不具合、分かりにくい説明や不適切な表現、動かないコードなど気になることがございましたら、記事の品質向上の為にお問い合わせフォームにてご共有いただけますと幸いです。
(送信された情報は、プライバシーポリシーのもと、厳正に取扱い、処分させていただきます。)

はじめに

この記事を読めば、COBOLとBINARYの基本を完全に理解できるようになります。

COBOL（Common Business Oriented Language）は、ビジネスや金融分野で多く使用されるプログラミング言語です。

その特徴として、人間の自然言語に近い記述が可能であり、初学者にも理解しやすい構文を持っています。

また、BINARY（バイナリ）は、コンピュータの基本的なデータ表現方法であり、COBOLプログラミングにおいても重要な役割を果たします。

この記事では、COBOLの基本から応用まで、そしてBINARYの理解を深めるためのサンプルコードを用いて、詳細に解説します。

●COBOLとは

COBOLは、1959年に開発されたプログラミング言語で、主にビジネスアプリケーションの開発に使用されます。

その設計は、商業データ処理のニーズを満たすことに重点を置いており、会計、財務、人事管理などの分野で広く利用されています。COBOLの特徴は、英語に近い文法と読みやすいコード構造です。

例えば、COBOLでは、「IF… THEN… ELSE…」といった条件分岐を直感的に記述できます。

長年にわたり使用されてきたため、多くの金融機関や企業では今でもCOBOLが稼働しており、その重要性は高いままです。

○COBOLの歴史と特徴

COBOLの開発は、コンピュータが専門家以外にも使われるようになった1950年代後半に始まりました。

初期のコンピュータプログラミングは複雑で、特定の科学技術者や数学者の専門分野でしたが、COBOLの登場により、プログラミングはより多くの人々にとってアクセスしやすいものになりました。

COBOLは、その読みやすさと維持しやすさから、長期間にわたって企業のビジネスアプリケーションで重用されてきました。

また、COBOLは大規模なデータ処理に適しており、精度が要求される金融業務などで優れた性能を発揮します。

○COBOLの基本構文

COBOLのプログラムは、DIVISION、SECTION、PARAGRAPHという階層構造で構成されています。

この構造は、プログラムの読みやすさと管理のしやすさを提供します。

例えば、IDENTIFICATION DIVISIONではプログラムの名前や作成者などの基本情報を記述し、DATA DIVISIONでは使用するデータの構造を定義します。

PROCEDURE DIVISIONでは、プログラムの実際の処理内容を記述します。この部分には、データを操作するための様々な命令文が含まれます。

COBOLのプログラム例を紹介します。

この例では、基本的な入出力処理を行うプログラムを記述しています。

IDENTIFICATION DIVISION.
PROGRAM-ID. SampleProgram.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  UserName PIC A(10).

PROCEDURE DIVISION.
    DISPLAY '名前を入力してください：'.
    ACCEPT UserName.
    DISPLAY 'こんにちは、' UserName 'さん！'.
    STOP RUN.

このプログラムでは、ユーザーに名前の入力を促し、入力された名前を画面に表示する処理を行います。

COBOLはその構造が自然言語に近いため、このコードの流れを追いやすく、プログラムの動作が直感的に理解できます。

また、COBOLのコードは、ビジネスの要件を明確に反映しやすいという特徴も持っています。

●BINARYとは

BINARY、またはバイナリは、コンピュータの基本的なデータ表現形式です。

バイナリデータは、0と1、つまりビット（bit）を用いて情報を表現します。

この2進数の形式は、コンピュータのハードウェアやソフトウェアの根底にあり、すべてのデータ処理の基礎を成しています。

例えば、文字、画像、音声など、あらゆる種類のデータは、最終的にはバイナリ形式でコンピュータによって処理されます。

COBOLプログラミングにおいても、バイナリはデータの格納、処理、伝送のために重要な役割を果たします。

○BINARYの基本概念

バイナリデータは、デジタルコンピュータの基礎的な言語です。

コンピュータは、内部的には0と1のみを使用してすべての演算とデータ処理を行います。

この2つの数字は、電気的な信号のオンとオフ、あるいは高い電圧と低い電圧を表しています。

これにより、コンピュータは高度な計算やデータ処理を非常に高速で実行することができます。

バイナリは、その単純さと効率の良さから、デジタル技術の基本的な構成要素となっています。

○BINARYの活用方法

バイナリデータの活用は多岐にわたります。

プログラミングにおいては、数値計算、文字列処理、画像や音声データの操作など、さまざまな形でバイナリデータが使用されます。

例えば、COBOLプログラム内での数値計算では、内部的にバイナリ形式で数値が扱われます。

これにより、高速かつ正確な計算が可能になります。

また、ファイル操作やデータベースアクセスにおいても、バイナリデータは重要な役割を果たします。

ここでは、COBOLでのバイナリデータの簡単な取り扱い例を紹介します。

この例では、2進数で表された数値を扱う方法を説明します。

DATA DIVISION.
WORKING-STORAGE SECTION.
01  BinaryNumber      PIC 9(4) COMP.

PROCEDURE DIVISION.
    MOVE 10 TO BinaryNumber.
    DISPLAY 'BinaryNumber in Decimal: ' BinaryNumber.
    STOP RUN.

このコードでは、バイナリ形式で表された数値を格納し、その数値を10進数で表示しています。

COBOLのCOMP（COMPUTATIONAL）データ型は、数値を効率的に扱うために内部的にバイナリ形式で格納されます。

このように、COBOLプログラム内ではバイナリ形式を活用して、データの処理と管理を行います。

バイナリ形式の理解は、COBOLプログラミングにおける効率的なデータ処理の基礎となります。

●COBOLのサンプルコード

COBOL言語を学ぶ上で、サンプルコードを通じて実際のプログラムの構造や機能を理解することは非常に重要です。

ここでは、COBOLにおける基本的なプログラムの構造、データ型と変数の定義、そして条件分岐の使用方法についてサンプルコードを用いて解説します。

○サンプルコード1：基本的なプログラムの構造

COBOLプログラムは特定の構造に従って書かれます。

最も基本的な構成は、IDENTIFICATION DIVISION、DATA DIVISION、PROCEDURE DIVISIONの三部分から成ります。

下記のサンプルコードは、単純な挨拶を表示する基本的なプログラムの構造を表しています。

IDENTIFICATION DIVISION.
PROGRAM-ID. HelloProgram.
DATA DIVISION.
WORKING-STORAGE SECTION.
PROCEDURE DIVISION.
    DISPLAY 'Hello, COBOL world!'.
    STOP RUN.

このプログラムでは、IDENTIFICATION DIVISIONにてプログラムの識別情報を定義し、DATA DIVISIONでデータの構造を宣言し、PROCEDURE DIVISIONで具体的な処理を記述しています。

○サンプルコード2：データ型と変数の定義

COBOLでは、データ型と変数を定義するためにDATA DIVISION内のWORKING-STORAGE SECTIONを使用します。

下記のサンプルでは、数値と文字列の変数を定義し、それらを表示しています。

DATA DIVISION.
WORKING-STORAGE SECTION.
01  NumberVar         PIC 9(4).
01  StringVar         PIC A(10).

PROCEDURE DIVISION.
    MOVE 1234 TO NumberVar.
    MOVE 'COBOL' TO StringVar.
    DISPLAY 'Number is: ' NumberVar.
    DISPLAY 'String is: ' StringVar.
    STOP RUN.

このコードでは、NumberVarとStringVarという二つの変数を定義し、それぞれに値を代入しています。

PIC 9(4)は4桁の数値を、PIC A(10)は最大10文字の文字列を表します。

○サンプルコード3：条件分岐の使用

条件分岐は、プログラムの流れを制御する基本的な要素です。COBOLでは、IF文を使用して条件分岐を実現します。

下記のサンプルでは、特定の条件に基づいて異なるメッセージを表示しています。

DATA DIVISION.
WORKING-STORAGE SECTION.
01  Age                PIC 9(2).

PROCEDURE DIVISION.
    MOVE 20 TO Age.
    IF Age < 20
        DISPLAY 'You are a teenager.'
    ELSE
        DISPLAY 'You are an adult.'
    END-IF.
    STOP RUN.

このコードでは、Ageという変数に20を代入し、その値が20未満かどうかで条件分岐を行っています。

条件に応じて、’You are a teenager.’または’You are an adult.’というメッセージが表示されます。

○サンプルコード4：ループ処理の実装

COBOLでは、ループ処理を実装するために様々な方法が利用されます。

ループは、繰り返し処理を行うために不可欠で、データの集計やリスト処理などに頻繁に使用されます。

下記のサンプルコードは、COBOLでの基本的なループ処理の実装を表しています。

DATA DIVISION.
WORKING-STORAGE SECTION.
01  Counter           PIC 9(2) VALUE 0.

PROCEDURE DIVISION.
    PERFORM VARYING Counter FROM 1 BY 1 UNTIL Counter > 10
        DISPLAY 'Loop iteration: ' Counter
    END-PERFORM.
    STOP RUN.

このプログラムでは、Counterという変数を用いてループ処理を制御しています。

PERFORM文とVARYING句を使用して、Counterが1から10までの値に変化する間、ループ内の処理を繰り返します。

○サンプルコード5：ファイル操作の基本

ファイル操作は、COBOLプログラムにおいて非常に重要な部分です。

ファイルからのデータ読み込みや書き込みは、多くの業務アプリケーションで必要とされる機能です。

下記のサンプルコードは、COBOLでの基本的なファイル読み書き操作を表しています。

DATA DIVISION.
FILE SECTION.
FD  InputFile.
01  InputRecord       PIC A(100).
FD  OutputFile.
01  OutputRecord      PIC A(100).

WORKING-STORAGE SECTION.
01  EndOfFile         PIC X VALUE 'N'.

PROCEDURE DIVISION.
    OPEN INPUT InputFile
    OPEN OUTPUT OutputFile
    PERFORM UNTIL EndOfFile = 'Y'
        READ InputFile INTO InputRecord
            AT END MOVE 'Y' TO EndOfFile
        NOT AT END
            MOVE InputRecord TO OutputRecord
            WRITE OutputRecord
        END-READ
    END-PERFORM
    CLOSE InputFile
    CLOSE OutputFile
    STOP RUN.

このコードでは、InputFileとOutputFileという二つのファイルを操作しています。

InputFileから行を読み込み、その内容をOutputFileに書き込む処理を行っています。

ファイルの終わりに達すると、EndOfFile変数が’Y’に設定され、ループが終了します。

●BINARYのサンプルコード

BINARY、つまりバイナリデータの操作は、COBOLプログラミングにおいて重要なスキルです。

バイナリデータの基本操作から始めて、より複雑な変換処理に至るまで、COBOLでは多様な操作が可能です。

ここでは、BINARYデータの基本操作、変換方法、およびテキストとの相互変換のサンプルコードを紹介します。

○サンプルコード6：BINARYデータの基本操作

BINARYデータの基本的な操作には、数値の読み書きや変換が含まれます。

下記のサンプルコードでは、バイナリ形式で数値データを操作する方法を表しています。

DATA DIVISION.
WORKING-STORAGE SECTION.
01  BinaryNumber      PIC 9(4) COMP.

PROCEDURE DIVISION.
    MOVE 1234 TO BinaryNumber.
    DISPLAY 'BinaryNumber: ' BinaryNumber.
    STOP RUN.

このコードでは、BinaryNumberという変数を定義し、そこに1234という数値を代入しています。

この変数はバイナリ形式（COMP）で格納され、DISPLAY文でその値を表示しています。

○サンプルコード7：BINARYデータの変換方法

バイナリデータを他の形式に変換することは、データ処理においてよく行われます。

下記のサンプルコードでは、バイナリデータを10進数に変換する方法を表しています。

DATA DIVISION.
WORKING-STORAGE SECTION.
01  BinaryNumber      PIC 9(4) COMP.
01  DecimalNumber     PIC 9(4).

PROCEDURE DIVISION.
    MOVE 1234 TO BinaryNumber.
    MOVE BinaryNumber TO DecimalNumber.
    DISPLAY 'DecimalNumber: ' DecimalNumber.
    STOP RUN.

このコードでは、まずバイナリ数値をBinaryNumberに代入し、その後、その値をDecimalNumberに移動して10進数として表示しています。

○サンプルコード8：BINARYとテキストの相互変換

BINARYデータとテキストデータの相互変換は、データのエンコードやデコードにおいて重要です。

下記のサンプルコードでは、バイナリデータとテキストデータの相互変換を行う方法を表しています。

DATA DIVISION.
WORKING-STORAGE SECTION.
01  BinaryData        PIC X(4).
01  TextData          PIC A(10).

PROCEDURE DIVISION.
    MOVE 'ABCD' TO BinaryData.
    MOVE BinaryData TO TextData.
    DISPLAY 'TextData: ' TextData.
    STOP RUN.

このプログラムでは、まずテキストデータ’ABCD’をBinaryDataに代入し、その後、BinaryDataをTextDataに移動してテキストとして表示しています。

このように、COBOLではBINARYデータとテキストデータの変換が容易に行えます。

○サンプルコード9：BINARYデータの処理

バイナリデータの処理には多くの応用がありますが、ここでは特に一般的な使用例として、バイナリ形式でのデータの読み取りと処理を示すサンプルコードを紹介します。

このサンプルでは、バイナリファイルからデータを読み込み、特定の処理を行う方法を説明します。

DATA DIVISION.
FILE SECTION.
FD  BinaryFile.
01  BinaryRecord      PIC X(10).

WORKING-STORAGE SECTION.
01  EndOfFile         PIC X VALUE 'N'.

PROCEDURE DIVISION.
    OPEN INPUT BinaryFile
    PERFORM UNTIL EndOfFile = 'Y'
        READ BinaryFile INTO BinaryRecord
            AT END MOVE 'Y' TO EndOfFile
        NOT AT END
            DISPLAY 'Read binary data: ' BinaryRecord
        END-READ
    END-PERFORM
    CLOSE BinaryFile
    STOP RUN.

このコードでは、BinaryFileというバイナリファイルからデータを読み込み、読み込んだデータをBinaryRecordとして表示しています。

ファイルの終わりに達すると、EndOfFile変数が’Y’に設定され、ループが終了します。

○サンプルコード10：BINARYデータの応用例

バイナリデータの応用例として、数値のバイナリ表現を操作するサンプルを紹介します。

下記のサンプルコードでは、整数をバイナリ形式で表現し、その値を操作する方法を表しています。

DATA DIVISION.
WORKING-STORAGE SECTION.
01  IntegerNumber     PIC 9(4).
01  BinaryRepresentation PIC 9(4) COMP.

PROCEDURE DIVISION.
    MOVE 15 TO IntegerNumber.
    MOVE IntegerNumber TO BinaryRepresentation.
    DISPLAY 'Integer: ' IntegerNumber ' Binary: ' BinaryRepresentation.
    ADD 1 TO BinaryRepresentation.
    MOVE BinaryRepresentation TO IntegerNumber.
    DISPLAY 'After adding 1: ' IntegerNumber.
    STOP RUN.

このプログラムでは、まず15という整数値をIntegerNumberに代入し、その値をBinaryRepresentationに移動してバイナリ形式で表示しています。

次に、BinaryRepresentationに1を加算し、その結果をIntegerNumberに戻して表示しています。

このような操作は、バイナリレベルでの数値処理やデータ変換に利用されます。

●注意点と対処法

COBOLプログラミングでは、特に厳密な構文とデータ型の管理が求められます。

コードの一貫性、読みやすさ、そして正確なデータ処理がプログラムの成功に不可欠です。

また、BINARYデータの操作においては、エンディアン形式の違いやデータ変換時の正確性に特に注意を払う必要があります。

さらに、データの整合性とセキュリティを保つための適切な対策を講じることが重要です。

○COBOLプログラミング時の注意点

COBOLプログラミングを行う際には、構文の正確さを確保することが最も重要です。

小さなタイプミスや構文エラーはプログラムの実行に大きな影響を及ぼす可能性があるため、コードの書式を正確に守ることが求められます。

また、データ型や変数の長さを適切に管理し、数値計算におけるオーバーフローや精度の問題を避けることも重要です。

さらに、大規模なデータ処理を行う場合には、プログラムのパフォーマンスに影響を及ぼす要素に注意し、効率的なコーディングを心がけることが不可欠です。

○BINARYデータ操作時の注意点

BINARYデータを扱う際には、エンディアン形式の違いに留意することが重要です。

特に、異なるシステム間でデータを交換する場合、エンディアンの違いによりデータが正しく解釈されない可能性があります。

また、バイナリデータと他のデータ形式との間での変換を行う際には、データの損失や変換エラーが生じないように細心の注意を払う必要があります。

データの整合性を保ち、不正アクセスやデータ損失から保護するためのセキュリティ対策を講じることも、バイナリデータ操作の重要な側面です。

●カスタマイズ方法

COBOLのカスタマイズは、プログラムの効率性、可読性、および機能性を高めるために重要です。

特に、BINARYデータの操作においてカスタマイズは、データ処理の柔軟性と効率を大幅に向上させることができます。

ここでは、COBOLにおける一般的なカスタマイズ方法と、BINARYデータ操作のカスタマイズに焦点を当てて説明します。

○COBOLのカスタマイズ例

COBOLプログラムのカスタマイズには、様々な手法があります。

例えば、サブルーチンやモジュールを使用してコードの再利用性を高めることができます。

また、条件文やループ処理を工夫することで、プログラムの実行効率を向上させることが可能です。

更に、COBOLプログラムの入出力操作をカスタマイズすることで、異なるデータソースやフォーマットへの対応が容易になります。

例えば、ユーザー入力に基づいて異なる処理を行うために、下記のようなサンプルコードを考えることができます。

IDENTIFICATION DIVISION.
PROGRAM-ID. CustomProgram.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 UserInput PIC A(10).

PROCEDURE DIVISION.
    ACCEPT UserInput
    EVALUATE UserInput
        WHEN 'Option1' PERFORM Procedure1
        WHEN 'Option2' PERFORM Procedure2
        WHEN OTHER DISPLAY 'Invalid Input'
    END-EVALUATE
    STOP RUN.

このプログラムでは、ユーザーの入力に応じて異なるサブルーチンを呼び出しています。

○BINARYデータのカスタマイズ方法

BINARYデータの操作においては、データの変換や処理のカスタマイズが重要です。

バイナリ形式でのデータ処理においては、特にデータのエンコードやデコード、ビット操作が重要な役割を果たします。

例えば、特定のビットパターンを使用してデータをエンコードまたはデコードするカスタマイズされた関数を作成することが考えられます。

下記のサンプルコードでは、バイナリデータを特定の形式でエンコードする方法を表しています。

DATA DIVISION.
WORKING-STORAGE SECTION.
01 BinaryData PIC X(4).
01 EncodedData PIC X(4).

PROCEDURE DIVISION.
    MOVE X'F1E2D3C4' TO BinaryData.
    PERFORM EncodeBinaryData USING BinaryData GIVING EncodedData.
    DISPLAY 'Encoded Data: ' EncodedData.
    STOP RUN.

この例では、EncodeBinaryDataというカスタム関数を使用して、バイナリデータを特定の形式でエンコードしています。

このようなカスタマイズにより、特定の要件に合わせたバイナリデータの操作が可能になります。

まとめ

この記事では、COBOLとBINARYの基本から応用までを深く掘り下げ、COBOLのサンプルコードを通じてその構造と使用方法を理解しやすく解説しました。

これらの知識は、今後のプログラミングの世界での活動においてお役立ていただければと思います。