Example: XREF output: embedded cross-reference

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-vsam-main-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.