Rational Developer for System z
Enterprise COBOL for z/OS バージョン 4.1 プログラミング・ガイド


例: SOURCE および NUMBER 出力

次に示されているリストの部分では、プログラマーは 2 つのステートメントに順序どおりでない番号を付けています。 リストに示された注釈番号は、後続の説明の番号と対応しています。

                      (1)
 LineID  PL SL  ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8  Cross-Reference
   (2)    (3)    (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 IGYTCARA - Beginning"
                087900     perform 050-create-vsam-master-file.                                   90633
                088150     display "perform 050-create-vsam-master finished".
 088151**       088125     perform 100-initialize-paragraph                                       90677
                088200     display "perform 100-initialize-paragraph finished"
                088300     read update-transaction-file into ws-transaction-record                204 331
                088400         at end
             1  088500       set transaction-eof to true                                          254
                088600     end-read
                088700     display "READ completed"
                088800     perform until transaction-eof                                          254
             1  088900       display "inside perform until loop"
             1  089000       perform 200-edit-update-transaction                                  90733
             1  089100       display "After perform 200-edit   "
             1  089200       if no-errors                                                         365
             2  089300         perform 300-update-commuter-record                                 90842  
             2  089400         display "After perform 300-update "
             1  089650       else
 089651**    2  089600         perform 400-print-transaction-errors                               90995  
             2  089700         display "After perform 400-errors "
             1  089800       end-if
             1  089900       perform 410-re-initialize-fields                                     91056 
             1  090000       display "After perform 410-reinitialize"
             1  090100       read update-transaction-file into ws-transaction-record              204 331
             1  090200           at end
             2  090300         set transaction-eof to true                                        254
             1  090400       end-read
             1  090500       display "After '2nd READ'   "
                090600     end-perform

(1)
スケール行では、区域 A、区域 B、およびソース・コード桁番号にラベルを付けます。
(2)
コンパイラーが割り当てるソース・コード行番号。
(3)
プログラム (PL) とステートメント (SL) のネスト・レベル。
(4)
プログラムの第 1 から 6 桁 (シーケンス番号域)。


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

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