次に示されているリストの部分では、プログラマーは 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