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


図の説明: SOURCE および NUMBER 出力

この図は、コンパイラー・リストの一部分を示しています。

下の説明は、コンパイラーが作成するフォーマットでのコンパイラー・リストを示しています。プログラマーは 2 つのステートメントを間違った順序で番号付けしています。これらのステートメントは、リストの LineID 列にある番号で示されます。括弧内の注番号は、メイン・テキスト内の図に続く注を指しています。

   LineID  PL SL  ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8  Cross-Reference (Note 1) 
  (Note 2)(Note 3)(Note 4) 
                  087000/****************************************************************
                  087100***                 D O   M A I N   L O G I C                  **
                  087200***                                                            **
                  087300*** Initialization. Read and process update transactions until **
                  087400*** EOE. Close files and stop run.                             **
                  087500*****************************************************************
                  087600 procedure division.
                  087700   000-do-main-logic.
                  087800     display “PROGRAM SRCOUT - Beginning”
                  087900     perform 050-create-stl-master-file.
                  088150     display “perform 050-create-stl-master finished”.
   088151**       088125     perform 100-initialize-paragraph
                  088200     display “perform 100-initialize-paragraph finished”
                  088300     read update-transaction-file into ws-transaction-record
                  088400         at end
               1  088500       set transaction-eof to true
                  088600     end-read
                  088700     display “READ completed”
                  088800     perform until transaction-eof
               1  088900       display “inside perform until loop”
               1  089000       perform 200-edit-update-transaction
               1  089100       display “After perform 200-edit   ”
               1  089200       if no-errors
               2  089300         perform 300-update-commuter-record
               2  089400         display “After perform 300-update ”
               1  089650       else
   089651**    2  089600         perform 400-print-transaction-errors
               2  089700         display “After perform 400-errors ”
               1  089800       end-if
               1  089900       perform 410-re-initialize-fields
               1  090000       display “After perform 410-reinitialize”
               1  090100       read update-transaction-file into ws-transaction-record
               1  090200           at end
               2  090300         set transaction-eof to true
               1  090400       end-read
               1  090500       display “After '2nd READ'   ”
                  090600     end-perform

図の説明の終わり。


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

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