|
I ran DSPPGMREF on a RPGLE program and am confused why a file used in
the program shows up 3 times in the list.
The file is defined in the program as :
fCOMSGS UF A E K disk
It is used in a Chain, Read, and Write - in all cases nothing special,
all fields are read or written. The file has 8 fields and the key is 2
fields. The program does use a SRVPGM and I verified that nothing in
that service program uses this file.
The 3 references from DSPPGMREF are shown below. Note that the Format
Level on reference and number of fields on reference 1 match the actual
file as shown by DSPFD. Reference 2 shows fewer fields and Reference 3
shows 22 fields (way more than the file contains) and both References
have a different format id.
1. Object . . . . . . . . . . . . . . . . . . : COMSGS
Library . . . . . . . . . . . . . . . . . : TRUCKLIB
Object type . . . . . . . . . . . . . . . : *FILE
File name in program . . . . . . . . . . : COMSGS
File usage . . . . . . . . . . . . . . . : Input
Output
Update
Number of record formats . . . . . . . . : 1
Record Format Format Level Identifier Field Count
COMSGSR 41B94C2FAB7F7 8
2. Object . . . . . . . . . . . . . . . . . . : COMSGS
Library . . . . . . . . . . . . . . . . . : TRUCKLIB
Object type . . . . . . . . . . . . . . . : *FILE
File name in program . . . . . . . . . . : COMSGS
File usage . . . . . . . . . . . . . . . : Input
Output
Update
Number of record formats . . . . . . . . : 1
Record Format Format Level Identifier Field Count
COMSGSR 302543348E8EF 6
3. Object . . . . . . . . . . . . . . . . . . : COMSGS
Library . . . . . . . . . . . . . . . . . : TRUCKLIB
Object type . . . . . . . . . . . . . . . : *FILE
File name in program . . . . . . . . . . : COMSGS
File usage . . . . . . . . . . . . . . . : Input
Output
Update
Number of record formats . . . . . . . . : 1
Record Format Format Level Identifier Field Count
COMSGSR 38143C64A2B48 22
I am confused why the 3 different references?????
Thanks,
Scott Mildenberger
Programmer/Analyst
Davis Transport Inc.
Missoula, MT
406-728-5510 x128
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.