次の例は、ソース・リストに組み込まれる変更済み相互参照を示しています。 この相互参照は XREF コンパイラー・オプションによって作成されます。
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-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 . . .