サンプル・プログラムは、COBOL 言語のエレメントおよび概念を示しています。
サンプル・プログラムに適正な言語エレメントを見つけるためには、シーケンス・ストリングの欄でプログラムの省略形を探します。
| サンプル・プログラム | 省略形 |
|---|---|
| IGYTCARA | IA |
| IGYTCARB | IB |
| IGYTSALE | IS |
次の表に、サンプル・プログラムで例示されている言語エレメントとプログラミングの概念を示します。言語エレメントまたは概念を説明し、シーケンス・ストリングを示しています。シーケンス・ストリングとは、ソース・ファイルのシーケンス・フィールドに現れる特殊な文字ストリングのことを言います。このストリングを検索引数として使用して、リスト内のエレメントを見つけることができます。
| 言語エレメントまたは概念 | シーケンス・ストリング |
|---|---|
| ACCEPT . . . FROM DAY-OF-WEEK | IS0900 |
| ACCEPT . . . FROM DATE | IS0901 |
| ACCEPT . . . FROM TIME | IS0902 |
| ADD . . . TO | IS4550 |
| AFTER ADVANCING | IS2700 |
| AFTER PAGE | IS2600 |
| ALL | IS4200 |
| ASSIGN | IS1101 |
| AUTHOR | IA0040 |
| CALL | IS0800 |
呼び出し可能サービス
(言語環境プログラム):
|
|
| ファイルの CLOSE | IS1900 |
| 交換可能なコンマ、セミコロン、およびスペース | IS3500, IS3600 |
| ネストされたプログラムの COMMON ステートメント | IS4600 |
| 複合 OCCURS DEPENDING ON | IS0700, IS3700 |
| COMPUTE | IS4501 |
| COMPUTE ROUNDED | IS4500 |
| CONFIGURATION SECTION | IA0970 |
| CONFIGURATION SECTION (オプション) | IS0200 |
| CONTINUE ステートメント | IA5310, IA5380 |
| COPY ステートメント | IS0500 |
| DATA DIVISION (オプション) | IS5100 |
| データ妥当性検査 | IA5130-6190 |
| Do-until (PERFORM . . . TEST AFTER) | IA4900-5010, IA7690-7770 |
| Do-while (PERFORM . . . . TEST BEFORE) | IS1660 |
| END-ADD | IS2900 |
| END-COMPUTE | IS4510 |
| END-EVALUATE | IA6590, IS2450 |
| END-IF | IS1680 |
| END-MULTIPLY | IS3100 |
| END-PERFORM | IS1700 |
| END PROGRAM | IA9990 |
| END-READ | IS1800 |
| END-SEARCH | IS3400 |
| ENVIRONMENT DIVISION (オプション) | IS0200 |
| エラー処理、プログラムの終了 | IA4620, IA5080, IA7800-7980 |
| EVALUATE ステートメント | IA6270-6590 |
| EVALUATE . . . ALSO | IS2400 |
| EXIT PROGRAM は段落内で唯一のステートメントである必要はない | IS2000 |
| 指数 | IS4500 |
| EXTERNAL 節 | IS1200 |
| 順次ファイルの FILE-CONTROL 記入項目 | IA1190-1300 |
| VSAM 索引付きファイルの FILE-CONTROL 記入項目 | IA1070-1180 |
| FILE SECTION (オプション) | IS0200 |
| FILE STATUS コード検査 | IA4600-4630, IA4760-4790 |
| FILLER (オプション) | IS0400 |
| フラグ、レベル 88、定義 | IA1730-1800, IA2440-2480, IA2710 |
| フラグ、レベル 88、テスト | IA4430, IA5200-5250 |
| FLOATING POINT | IS4400 |
| GLOBAL ステートメント | IS0300 |
| ネストされたプログラムの INITIAL ステートメント | IS2300 |
| INITIALIZE | IS2500 |
| DATA DIVISION 内でのテーブルの初期化 | IA2920-4260 |
| インライン PERFORM ステートメント | IA4410-4520 |
| I-O-CONTROL 段落 (オプション) | IS0200 |
| INPUT-OUTPUT SECTION (オプション) | IS0200 |
組み込み関数
|
|
| IS (すべての節でオプション) | IS0700 |
| LABEL RECORDS (オプション) | IS1150 |
| LINKAGE SECTION | IS4900 |
| 指標と添え字の混合 | IS3500 |
| 簡略名 | IA1000 |
| MOVE | IS0903 |
| MOVE CORRESPONDING ステートメント | IA4810, IA4830 |
| MULTIPLY . . . GIVING | IS3000 |
| END-IF を使用した、ネストされた IF ステートメント | IA5460-5830 |
| ネストされたプログラム | IS1000 |
| NEXT SENTENCE | IS4300 |
| NOT AT END | IS1600 |
| NULL | IS4800 |
| OBJECT-COMPUTER (オプション) | IS0200 |
| OCCURS DEPENDING ON | IS0710 |
| ODO は項目を受け取るのに最大長を使用する | IS1550 |
| OPEN EXTEND | IB2210 |
| OPEN INPUT | IS1400 |
| OPEN OUTPUT | IS1500 |
| ORGANIZATION (オプション) | IS1100 |
| ページ替え | IA7180-7210 |
| 簡略化された条件の中の括弧 | IS4850 |
| PERFORM . . . WITH TEST AFTER (Do-until) | IA4900-5010, IA7690-7770 |
| PERFORM . . . WITH TEST BEFORE (Do-while) | IS1660 |
| PERFORM . . . UNTIL | IS5000 |
| PERFORM . . . VARYING ステートメント | IA7690-7770 |
| POINTER 関数 | IS4700 |
| 印刷ファイル FD 記入項目 | IA1570-1620 |
| 印刷報告書 | IA7100-7360 |
| PROCEDURE DIVISION . . . USING | IB1320-IB1650 |
| PROGRAM-ID (30 文字まで許可される) | IS0120 |
| READ . . . INTO . . . AT END | IS1550 |
| REDEFINES ステートメント | IA1940, IA2060, IA2890, IA3320 |
| 参照変更 | IS2425 |
| 関係演算子 <= (より小さい、または等しい) | IS4400 |
| 関係演算子 >= (より大きい、または等しい) | IS2425 |
| 相対添え字付け | IS4000 |
| REPLACE | IS4100 |
| SEARCH ステートメント | IS3300 |
| SELECT | IS1100 |
| 順序番号には任意の文字を入れることができる | IA, IB, IS |
| 順次ファイル処理 | IA4480-4510, IA4840-4870 |
| PERFORM を使用した、順次テーブル探索 | IA7690-7770 |
| SEARCH を使用した、順次テーブル探索 | IA5270-5320, IA5340-5390 |
| SET INDEX | IS3200 |
| SET . . . TO TRUE ステートメント | IA4390, IA4500, IA4860, IA4980 |
| SOURCE-COMPUTER (オプション) | IS0200 |
| SPECIAL-NAMES 段落 (オプション) | IS0200 |
| STRING ステートメント | IA6950, IA7050 |
| 小文字のサポート | IS0100 |
| TALLY | IS1650 |
| ネストされたプログラムの TITLE ステートメント | IS0100 |
| 通勤者のレコードの更新 | IA6200-6610 |
| トランザクション作業値スペースの更新 | IB0790-IB1000 |
| USAGE BINARY | IS1300 |
| USAGE PACKED-DECIMAL | IS1301 |
| 妥当性検査エレメント | IB0810, IB0860, IB1000 |
| OCCURS が指定された VALUE | IS0600 |
| VALUE SPACE (S) | IS0601 |
| VALUE ZERO (S) (ES) | IS0600 |
| 可変長テーブルの制御変数 | IA5100 |
| 可変長テーブルの定義 | IA2090-2210 |
| 可変長テーブルのロード | IA4840-4990 |
| VSAM 索引付きファイルのキー定義 | IA1170 |
| VSAM 戻りコードの表示 | IA7800-7900 |
| WORKING-STORAGE SECTION | IS0250 |