Rational Developer for System z
COBOL for Windows, Version 7.5, Programming Guide


Image description: SOURCE and NUMBER output

This image shows a portion of a compiler listing.

The following description shows the compiler listing in the format that the compiler produces. The programmer numbered two of the statements out of sequence; they are indicated by numbers in the LineID column of the listing. The note numbers in parentheses refer to notes that follow the image in the main text.

   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

End of image description.


Terms of use | Feedback

Copyright IBM Corporation 1996, 2008.
This information center is powered by Eclipse technology. (http://www.eclipse.org)