Rational Developer for System z
COBOL for Windows バージョン 7.5 プログラミング・ガイド


例: スイッチをオンに設定する

次の例は、値 TRUE をレベル 88 項目に移動させる SET ステートメントをコーディングして、スイッチを入れる方法を示しています。

例えば、次の例の SET ステートメントは、Move “y” to Transaction-EOF-Switch をコーディングした場合と同じ効果を持ちます。

01  Switches
    05  Transaction-EOF-Switch   Pic X  Value space.
        88  Transaction-EOF             Value “y”.
. . .
Procedure Division.
000-Do-Main-Logic.
    Perform 100-Initialize-Paragraph
    Read Update-Transaction-File
      At End Set Transaction-EOF to True
    End-Read

次の例では、入力レコードのトランザクション・コードに基づいて、出力レコード内のフィールドに値を割り当てる方法を示します。

01  Input-Record.
    05  Transaction-Type         Pic X(9).
01  Data-Record-Out.
    05  Data-Record-Type         Pic X.
        88 Record-Is-Active          Value “A”.
        88 Record-Is-Suspended       Value “S”.
        88 Record-Is-Deleted         Value “D”.
    05  Key-Field                Pic X(5).
. . .
Procedure Division.
    Evaluate Transaction-Type of Input-Record
      When “ACTIVE”
        Set Record-Is-Active to TRUE
      When “SUSPENDED”
        Set Record-Is-Suspended to TRUE
      When “DELETED”
        Set Record-Is-Deleted to TRUE
    End-Evaluate

ご利用条件 | フィードバック

Copyright IBM Corporation 1996, 2008.
このインフォメーション・センターでは Eclipse テクノロジーが採用されています。(http://www.eclipse.org)