COBOL言語の「REDEFINES句」とは?使い方を確認しよう! | 用語辞典
COBOL(コボル)言語の予約語REDEFINES句を使った命令文の書き方とは
COBOL(コボル)言語のREDEFINES句とは?
COBOLでは、データ項目を別のレイアウトに変更して再利用することを「再定義」といいます。
REDEFINES句でデータ項目を再定義して利用すると、1つの項目でさまざまなレイアウトに使用することが可能なため、繰り返し項目を使用する場合に便利です。
本記事では、COBOLにおけるREDEFINES句について基本的な使い方やルール、注意点などをご紹介します。
書き方:
レベル番号 [再定義データ項目 または FILLER] REDEFINES [再定義対象データ項目].
レベル番号は、再定義対象データ項目と同じレベルを指定する必要があります。再定義データ項目は、プログラム内で再定義名を使用しない場合は、FILLERを指定します。
以下にREDEFINES句を使用して、データ項目を再定義して使用する簡単なプログラムを紹介します。
実行結果:
サンプルでは年月日をまとめて取得する項目WORK-DATEを、REDEFINES句を使用して項目WORK-DATE-Rに再定義して、年・月・日をそれぞれの単位で扱えるようにしています。
なお、日付の書式を扱う場合は、英数字編集形式のデータ項目を再定義することもできます。
03 WORK-DATE PIC XXXX/XX/XX.
03 WORK-DATE PIC XXXX/XX/XX.
REDEFINES句のCOBOL(コボル)言語における基本事項やルールについて
- 再定義データ項目、REDEFINES、再定義対象データ項目の各要素間の改行有無は自由に設定できます。
- 再定義データ項目と再定義対象データ項目は、同じレベル番号を指定します。
- プログラム内で再定義データ項目を使用しない場合はFILLERを指定します。
- REDEFINES句で指定できるレベル番号は02~49の範囲内です。
- 集団項目に従属するデータ項目は、再定義対象データ項目のサイズを上回らない範囲で自由に設定することができます。
COBOL(コボル)言語のREDEFINES句を扱う上での注意点
- ファイル節の01レベルのデータ項目の場合、REDEFINES句の指定はできません。
- レベル番号66、88はREDEFINES句の指定はできません。
- 再定義するデータ項目に、VALUE句を記述してはいけません。
- 再定義データ項目のサイズは、再定義対象データ項目の集団項目のサイズより小さくしても構いませんが、集団項目を上回るサイズを指定することはできません。
以下のように従属する項目のサイズが、集団項目のサイズを上回るとコンパイルエラーが発生します。
03 WORK-DATE PIC 9(08).
03 WORK-DATE-R REDEFINES WORK-DATE.
05 WORK-YEAR PIC 9(04).
05 WORK-MONTH PIC 9(04).
05 WORK-DAY PIC 9(08).
集団項目のサイズの範囲内なら、従属するデータ項目の範囲を自由に調整することは可能です。
REDEFINES句を使ったCOBOL(コボル)プログラムの活用法
REDEFINES句は、再定義する集団項目に従属している項目についても、項目名やサイズや型などのレイアウトを指定することができます。
以下にREDEFINES句を使用して、従属する項目を再定義して利用する簡単なサンプルを紹介します。
- IDENTIFICATION DIVISION.
- PROGRAM-ID. REDEFINES_SAMPLE02.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 FRUITS.
- 03 FRUITS-NAME.
- 05 FRUITS-NAME-1 PIC X(9).
- 05 FRUITS-NAME-2 PIC X(9).
- 05 FRUITS-NAME-3 PIC X(9).
- *>REDEFINES句を指定して項目を再定義する
- 03 FRUITS-PRICE REDEFINES FRUITS-NAME.
- 05 FRUITS-PRICE-1 PIC 9(3).
- 05 FRUITS-PRICE-2 PIC 9(3).
- 05 FRUITS-PRICE-3 PIC 9(3).
- PROCEDURE DIVISION.
- MAIN SECTION.
- *>商品名を設定する
- MOVE "APPLE" TO FRUITS-NAME-1.
- MOVE "BANANA" TO FRUITS-NAME-2.
- MOVE "MELON" TO FRUITS-NAME-3.
- *>結果を出力する
- DISPLAY "商品名:".
- DISPLAY "FRUITS-NAME-1:"FRUITS-NAME-1.
- DISPLAY "FRUITS-NAME-2:"FRUITS-NAME-2.
- DISPLAY "FRUITS-NAME-3:"FRUITS-NAME-3.
- *>REDEFINES句で再定義した項目で値段を設定する
- MOVE 100 TO FRUITS-PRICE-1.
- MOVE 150 TO FRUITS-PRICE-2.
- MOVE 500 TO FRUITS-PRICE-3.
- *>結果を出力する
- DISPLAY "値段:".
- DISPLAY "FRUITS-PRICE-1:"FRUITS-PRICE-1.
- DISPLAY "FRUITS-PRICE-2:"FRUITS-PRICE-2.
- DISPLAY "FRUITS-PRICE-3:"FRUITS-PRICE-3.
- STOP RUN.
実行結果:
サンプルでは、商品名を設定する集団項目FRUITS-NAMEと、従属する項目を定義し、REDEFINES句を使用して商品の値段を設定する項目を、FRUITS-PRICEの名称で再定義しています。再定義したFRUITS-PRICEでは従属する項目の型やサイズも変更しています。
実行結果のとおり、商品名と再定義した値段の項目が、それぞれ設定できていることがわかります。
なお、従属する項目については、集団項目のサイズを上回らない範囲で、データ項目を新たに追加して使用することも可能です。
この記事を読んだ人は、こちらの記事も読んでいます
【未経験者歓迎】COBOLプログラマー・システムエンジニアの募集
COBOL入門のカテゴリー
1. 優良社員が多数在籍しています
2. 即日派遣、又は請負います
3. 安心価格で請負います
4. 同時、協力会社募集中です
1. 正社員
2. 契約社員
3. 個人事業主
などの 求人情報 が閲覧できます。
目指せ!COBOLダントツ一番企業。
創業当初の話や理念が閲覧できます。
応募条件
※2020年5月31日を以って、締切りました。
18歳~28歳の方。
正社員採用において、北川社長の著書『祈り方が9割』を読んで感想文を事前に提出すると、無条件で最終面接まで進むことができます。
COBOLとは、どのようなプログラミング言語なのか、初心者にもわかりやすく、文法の例をあげて解説してます。
COBOL入門の人気記事
- COBOL言語で計算処理をするなら「COMPUTE文」|入門用語辞典
- COBOL言語の「ACCEPT文」の使い方を分かり易く解説|入門用語辞典
- COBOL言語初心者も安心! 難解「CALL文」をスッキリ解決|入門用語辞典
- 徹底解説!一歩先を行くCOBOL言語のCOPY文活用法|応用ガイド
- 一歩先を行くCOBOL言語の表操作!逐次検索と二分検索|応用ガイド
- COBOL言語の加算処理の基本を伝授! 命令文「ADD」とは?|入門用語辞典
- 徹底解説!一歩先を行くCOBOL言語のファイル併合処理|応用ガイド
- COBOL言語でファイルの開閉命令はOPEN文とCLOSE文!|入門用語辞典
- 徹底解説!一歩先を行くCOBOL言語のデータ共有|応用ガイド
- COBOL言語とは?プログラムの書き方やルールを解説!|基礎ガイド
- COBOL言語の歴史とこれまでの進化を知る!廃止・追加機能|基礎ガイド
- COBOL言語のオブジェクト指向について理解しよう!|基礎ガイド
- COBOL言語のディスプレイ出力とコンソール入力について|基礎ガイド
- COBOL言語が得意とする計算処理を体験してみよう!|基礎ガイド
- 一歩先を行くCOBOL言語のユーザ定義関数について|応用ガイド
- 初心者から中級者でも安心!理解できるCOBOL言語の勉強法|学習講座
- 初心者必見!COBOL言語を効率よくマスターする勉強法とは|学習講座
- COBOL初心者が犯しやすいミスとその対策について|学習講座
- COBOL初心者がやってはいけない勉強方法とは?|学習講座
- 一歩先へ行くCOBOLプログラマの知っておくべき4つのヒント|学習講座