Example: XREF output: embedded cross-reference

Edit online

The following example shows a modified cross-reference that is embedded in the source listing. The cross-reference is produced by the XREF compiler option.


 LineID  PL SL  ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8  Map and Cross Reference
   . . .                                                                                        |
 000878                procedure division.                                                      |
 000879                  000-do-main-logic.                                                     |
 000880                    display "PROGRAM IGYTCARA - Beginning".                              |
 000881                    perform 050-create-stl-master-file.                                  | 932 (1)
 000882                    perform 100-initialize-paragraph.                                    | 984
 000883                    read update-transaction-file into ws-transaction-record              | 204 340
 000884                        at end                                                           |
 000885      1                    set transaction-eof to true                                   | 254
 000886                    end-read.                                                            |
   . . .                                                                                        |
 000984                  100-initialize-paragraph.                                              |
 000985                    move spaces to ws-transaction-record                                 | IMP 340 (2)
 000986                    move spaces to ws-commuter-record                                    | IMP 316
 000987                    move zeroes to commuter-zipcode                                      | IMP 327
 000988                    move zeroes to commuter-home-phone                                   | IMP 328
 000989                    move zeroes to commuter-work-phone                                   | IMP 329
 000990                    move zeroes to commuter-update-date                                  | IMP 333
 000991                    open input update-transaction-file                                   | 204
 000992                        location-file                                                    | 193
 000993                        i-o commuter-file                                                | 181
 000994                        output print-file                                                | 217
   . . .                                                                                        |
 001442                1100-print-i-f-headings.                                                 |
 001443                                                                                         |
 001444                    open output print-file.                                              | 217
 001445                                                                                         |
 001446                    move function when-compiled to when-comp.                            | IFN 698 (2)
 001447                    move when-comp (5:2) to compile-month.                               | 698 640
 001448                    move when-comp (7:2) to compile-day.                                 | 698 642
 001449                    move when-comp (3:2) to compile-year.                                | 698 644
 001450                                                                                         |
 001451                    move function current-date (5:2) to current-month.                   | IFN 649
 001452                    move function current-date (7:2) to current-day.                     | IFN 651
 001453                    move function current-date (3:2) to current-year.                    | IFN 653
 001454                                                                                         |
 001455                    write print-record from i-f-header-line-1                            | 222 635
 001456                          after new-page.                                                | 138
   . . .                                                                                        |

(1)

Line number of the definition of the data-name or procedure-name in the program

(2)

Special definition symbols:

UND: The user name is undefined.
DUP: The user name is defined more than once.
IMP: Implicitly defined name, such as special registers and figurative constants.
IFN: Intrinsic function reference.
EXT: External reference.
*: The program-name is unresolved because the NOCOMPILE option is in effect.