Re: RNF3316 compile error

[Don Brown <DBrown@xxxxxxxxxx>]

Your memory is pretty good Joe,

This would need to be put in each copy module and once the first 
definition is processed the conditioning variable will be defined so the 
second occurrence will be skipped.



Don Brown



From:   "Joe Pluta" <joepluta@xxxxxxxxxxxxxxxxx>
To:     rpg400-l@xxxxxxxxxxxxxxxxxx
Date:   19/07/2019 12:07 PM
Subject:        Re: RNF3316 compile error
Sent by:        "RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx>



Typically with a duplicate definition you can use a /DEFINE and /IF NOT 
DEFINED to prevent the duplication.

I'm writing from memory here, but it would be something like this:

/IF NOT DEFINED(MYVAR_DEFINED)
/DEFINE MYVAR_DEFINED
dcl-s MyVar char(10);
/ENDIF

This is the free-format version, but the same idea applies to 
fixed-format.


On 7/18/2019 8:35 PM, Kerwin Crawford via RPG400-L wrote:
> I have a program that has a /copy to include definitions for a bunch of 
data structures and fields.
> I need to include another /copy to include some other definitions for 
another function.
> Both of these /copy have a field defined.  They are defined the same 
char(10).
> When I compile I get 'RNF3316 The item has already been defined on a 
Definition Specification; specification is ignored.'
> But if you look at the listing 'Compilation stopped. Severity 30 errors 
found in program.'
> I looked at changing the GENLVL on the compile option but 20 is as high 
as you can go.
> I cannot change the either /copy easily.
>
> Do you know of any ways to get the program to compile?
>
> Leaning towards changing one of the /copy files.  Bummer.
>
> TIA
>
> Kerwin Crawford