示例 :XREF 输出: 嵌入式交叉引用
以下示例显示了源列表中嵌入的已修改交叉引用。 交叉引用由 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-stl-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)
- 程序中 data-name 或 procedure-name 的定义的行号
- (2)
- 特殊定义符号:
- UND
- 未定义用户名。
- DUP
- 多次定义用户名。
- IMP
- 隐式定义的名称，例如专用寄存器和象征常量。
- IFN
- 内部函数引用。
- EXT
- 外部引用。
- *
- 未解析程序名，因为
NOCOMPILE选项已生效。