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


例: PERFORM および索引付け

この例は、設定されたエラー・コードが検出されるまで、指標付けを使用してエラー・フラグ (error-flag) テーブルを全探索します。 エラー・コードが見つかると、対応するエラー・メッセージが報告書印刷フィールドに移動されます。

***********************************************************
***           E R R O R   F L A G   T A B L E           ***
***********************************************************
 01  Error-Flag-Table                    Value Spaces.
   88 No-Errors                          Value Spaces.
     05 Type-Error                       Pic X.
     05 Shift-Error                      Pic X.
     05 Home-Code-Error                  Pic X.
     05 Work-Code-Error                  Pic X.
     05 Name-Error                       Pic X.
     05 Initials-Error                   Pic X.
     05 Duplicate-Error                  Pic X.
     05 Not-Found-Error                  Pic X.
 01  Filler Redefines Error-Flag-Table.
     05 Error-Flag Occurs 8 Times
          Indexed By Flag-Index          Pic X.
 77  Error-on                            Pic X  Value “E”. 
***********************************************************
***         E R R O R   M E S S A G E   T A B L E       ***
***********************************************************
 01  Error-Message-Table.
     05  Filler                           Pic X(25) Value
          “Transaction Type Invalid”.
     05  Filler                           Pic X(25) Value
          “Shift Code Invalid”.
     05  Filler                           Pic X(25) Value
          “Home Location Code Inval.”.
     05  Filler                           Pic X(25) Value
          “Work Location Code Inval.”.
     05  Filler                           Pic X(25) Value
          “Last Name - Blanks”.
     05  Filler                           Pic X(25) Value
          “Initials - Blanks”.
     05  Filler                           Pic X(25) Value
          “Duplicate Record Found”.
     05  Filler                           Pic X(25) Value
          “Commuter Record Not Found”.
 01  Filler Redefines Error-Message-Table.
     05  Error-Message Occurs 8 Times
            Indexed By Message-Index      Pic X(25).
 . . .
 PROCEDURE DIVISION.
     . . .
     Set Flag-Index To 1
     Perform Until No-Errors
       Search Error-Flag
         When Error-Flag (Flag-Index) = Error-On
           Move Space To Error-Flag (Flag-Index)
           Set Message-Index To Flag-Index
           Move Error-Message (Message-Index) To
             Print-Message
           Perform 260-Print-Report
       End-Search
     End-Perform
     . . .

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

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