In the portion of the listing shown below, the programmer numbered two of the statements out of sequence. The note numbers in the listing correspond to numbered explanations that follow the listing.
(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