Re: compile error RNF3523 -- RPG400-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

Why would you need three EXTNAMEs?

Something like this should work:

D INREC1 E DS EXTNAME(TOTOUTR)
D INREC2 E DS Like(INREC1)
D OUTREC E DS like(INREC1) PREFIX(M)

On 1/18/2012 2:38 PM, Shari Koehler wrote:

Need help getting past this compile error. I have 2 logical files that I need to access for data. They both have the same record format and are built over multiple physical files. My output file also has the same layout and format. I have listed each file in the F specs and have also created a data structure for each so I can move the data easily. I continue to get this error on the 2 L999999_L files when compiling. *RNF3523 40 2 The external description of the externally-described data structure was not found. I had no problem compiling when the data structures were not in the code. Can anybody see what I am missing??

FL999999EXtO E DISK
FL999999_L1IF E K DISK RENAME(TOTOUTR:DB523AR)
f INCLUDE(TOTOUTR)
FL999999_L2IF E K DISK RENAME(TOTOUTR:DB523BR)
f INCLUDE(TOTOUTR)
D INREC1 E DS EXTNAME(L999999_L1:DB523AR)
D INREC2 E DS EXTNAME(L999999_L2:DB523BR)
D OUTREC E DS EXTNAME(L999999EXt)
D PREFIX(M)

Thanks,
Shari

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.