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