この図は、コンパイラー・リストの一部分を示しています。
下の説明は、コンパイラーが作成するフォーマットでのコンパイラー・リストを示しています。プログラマーは 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
図の説明の終わり。