The Cross-Reference table contains at least three lists:
In addition, it contains the local fields that are used by each subprocedure. Use this table to check where files, fields and indicators are used within the module/program.
Note that the informational message RNF7031, which is issued when an identifier is not referenced, will only appear in the cross-reference section of the listing and in the message summary. It does not appear in the source section of the listing.
Names longer than 122 characters, will appear in the cross-reference section of the listing split across multiple lines. The entire name will be printed with the characters '...' at the end of the lines. If the final portion of the name is longer than 17 characters, the attributes and line numbers will be listed starting on the following line. Figure 250 shows an example for the module TRANSRPT, which has two subprocedures.
In this example, the Cross-Reference table shows the line numbers for each reference. If you specify OPTION(*SRCSTMT) instead of OPTION(*NOSRCSTMT), the statement numbers will be displayed for each reference and the cross reference listing can extend beyond the first 80 columns of the listing.
C r o s s R e f e r e n c e
File and Record References:
File Device References (D=Defined)
Record
CUSTFILE DISK 8D
CUSTREC 0 44
*RNF7031 CUSTRPT DISK 9D
ARREARS 0 60 79
Global Field References:
Field Attributes References (D=Defined M=Modified)
*INZSR BEGSR 63D
AMOUNT P(10,2) 56M 83 95
CITY A(20) 53D 132
CURDATE D(10*ISO-) 42D 64M 92
CUSTNAME A(20) 50D 122
CUSTNUM P(5,0) 49D 124
DUEDATE A(10) 57M 84 91
EXTREMELY_LONG_PROCEDURE_NAME_THAT_REQUIRES_MORE_THAN_ONE_LINE_IN_THE_CROSS_REFERENCE_EVEN_THOUGH_THE_ENTIRE_LINE_UP_TO_.
COLUMN_132_IS_USED_TO_PRINT_THE_NAME...
I(5,0) 9D
PROTOTYPE
FMTCUST PROTOTYPE 35D 59 113 114
134
INARREARS A(1) 30D 58 85 86
PROTOTYPE 101
LONG_FLOAT F(8) 7D 11M 12M
NUMTOCHAR A(31) 22D 124 130
PROTOTYPE
RPTADDR A(100) 59 82
RPTNAME C(100) 59 81
CCSID(13488)
RPTNUM P(5,0) 80
SHORT_FLOAT F(4) 8D 10M
*RNF7031 STATE A(2) 54D
STREETNAME A(20) 52D 131
STREETNUM P(5,0) 51D 130
THIS_NAME_IS_NOT_QUITE_SO_LONG...
A(5) 7D
UDATE S(6,0) 64
*RNF7031 ZIP P(5,0) 55D
INARREARS Field References:
Field Attributes References (D=Defined M=Modified)
DAYSLATE I(10,0) 88D 92M 94
DATEDUE D(10*ISO-) 89D 91M 92
FMTCUST Field References:
Field Attributes References (D=Defined M=Modified)
NAME A(100) 115D 122M
BASED(_QRNL_PST+)
ADDRESS A(100) 116D 130M
BASED(_QRNL_PST+)
Indicator References:
Indicator References (D=Defined M=Modified)
*RNF7031 01 44D
* * * * * E N D O F C R O S S R E F E R E N C E * * * * *