Re: [EXTERNAL] RE: File having an array using new free form

On 2018-06-14 9:45 AM, dlclark@xxxxxxxxxxxxxxxx wrote:

I call it "tricking" the compiler because using a prefix with a
period in it creates a qualified variable that is not actually qualified
in the resulting I-specs. Thus, the compiler ends up generating the same
storage addresses for his separate data structure where the variables
*are* qualified.

The variables _are_ qualified in the resulting I-specs. So the I specs
refer to the actual qualified data structure. You do have to define the
qualified data structure, though.

Remember that I specs are not definitions. They basically describe move
operations from the buffer to the program field. But they can seem to act
as definitions, because the compiler will usually generate a definition for
the field if it's not explicitly defined in the source. ("Usually", because
the compiler won't generate a definition for a qualified data structure
implied by a PREFIX keyword with a period in it.)

S o u r c e L i s t i n g
1 dcl-f #junkf prefix('DS.');
*--------------------------------------------------------------
* RPG name External name
* File name. . . . . . . . . : #JUNKF BMORRIS/#JUNKF
* Record format(s) . . . . . : REC REC
*--------------------------------------------------------------
2 dcl-ds ds extname('#JUNKF') qualified end-ds;
*--------------------------------------------------------------
* Data structure . . . . . . : DS
* External format . . . . . : REC : BMORRIS/#JUNKF
*--------------------------------------------------------------
3=D FLD1 10A
4=D FLD2 10A
5
6=IREC
*-----------------------------------------------------
* RPG record format . . . . : REC
* Prefix . . . . . . . . . . : DS. : 0
* External format . . . . . : REC : BMORRIS/#JUNKF
*-----------------------------------------------------
7=I A 1 10 DS.FLD1
8=I A 11 20 DS.FLD2

--
Barbara


--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD