RE: Qualified data structure use

["Tim Kredlo" <TKredlo@xxxxxxxxxxxxxxxx>]

Lim,

I don't know if this applies or not since I am using the free-form syntax of
op-code TEST.
I guess what I am looking for is the implied exceptions that Hans' "(almost
all) opcodes coded in free form calcs" references.
Thanks for replying.

Tim

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Lim Hock-Chai
Sent: Wednesday, February 02, 2005 9:59 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Qualified data structure use


Found the following in archive, I wonder that is the answer to your
question:

    * Subject: Re: Compile error when using field in a subfield data
structure
    * From: Hans Boldt <boldt@xxxxxxxxxx>
    * Date: Wed, 12 May 2004 08:26:49 -0400
    * List-archive: <http://archive.midrange.com/rpg400-l>
    * List-help: <mailto:rpg400-l-request@xxxxxxxxxxxx?subject=help>
    * List-id: RPG programming on the AS400 / iSeries
<rpg400-l.midrange.com>
    * List-post: <mailto:rpg400-l@xxxxxxxxxxxx>
    * List-subscribe: <http://lists.midrange.com/mailman/listinfo/rpg400-l>,
<mailto:rpg400-l-request@xxxxxxxxxxxx?subject=subscribe>
    * List-unsubscribe:
<http://lists.midrange.com/mailman/listinfo/rpg400-l>,
<mailto:rpg400-l-request@xxxxxxxxxxxx?subject=unsubscribe>

Lim Hock-Chai wrote:

    I wonder why the restriction on klist.

    Our shop does not allow free-form. Is there is more modern way to do a
klist in non-free format?


Why the restriction on KLIST? It's not just KLIST. It's all opcodes that use
the old-style calcs that use Factor-1, Factor-2, and the Result-Field. These
entries only allow "simple qualified names". That is, names of the form A.B
or A.B(X). Fully qualified names can only be coded in the Extended-Factor-2
entry, or on (almost all) opcodes coded in free-form calcs. It's only on
those entries that you're not limited to 14 characters.

Is there are more modern way to do KLIST in non-free-form calcs? No. The
more modern way to code search arguments is to use free-form calcs and code
the search argument using either %KDS() or the list syntax. Either approach
allows you to avoid completely the old opcodes KLIST and KFLD. %KDS() is a
close match to KLIST, and provides functionality that works like a sort of
externally described KLIST. The key list syntax allows you to specify all
elements of the compound key directly in the indexed I/O statement. Either
way, you also get the benefit that the search argument only needs to match
the corresponding key in type - length and format may differ, just like in
an EVAL statement.

Actually, I find it strange that your shop standards would disallow
free-form calcs but allow other even more recent functionality like fully
qualified names. If you want to fully take advantage of deeply nested data
structures, it would seem that free-form calcs is pretty much a
co-requisite. You might want to reconsider your shop coding standards one
way or the other. That is, either allow free-form calcs or also disallow
defining subfields with LIKEDS or LIKEREC.

Cheers! Hans

-----Original Message-----
From: rpg400-l-bounces+lim.hock-chai=usamobility.com@xxxxxxxxxxxx
[mailto:rpg400-l-bounces+lim.hock-chai=usamobility.com@xxxxxxxxxxxx]On
Behalf Of Tim Kredlo
Sent: Tuesday, February 01, 2005 7:39 PM
To: RPG400-L@xxxxxxxxxxxx
Subject: Qualified data structure use


O Brilliant Ones:

I am at V5R2 and can't seem to find much information about where one can
and/or cannot use a fully qualified data structure field, except from
compile errors.

The manual says: "Fully qualified names are allowed in any free-form
calculation specifications"

and
SvCYMD = TvRtrvOP.TvRecd.TvCYMD;     is okay 
 and
Test(DE) *YMD TvRecd.TvCYMD;   is okay

 but
Test(DE) *YMD TvRtrvOP.TvRecd.TvCYMD;
 and (stuck parenthesis around as a WAG for solution) 
Test(DE) *YMD (TvRtrvOP.TvRecd.TvCYMD);
Both give the compile error "RNF0623 - The qualified name is not specified
correctly."

First of all, I don't understand why one shouldn't be able to use them
anywhere they "fit". Secondly, if one can use a qualified name in a
situation, why not a "fully" qualified name in the same situation?

Any direction to pertinent resources would be greatly appreciated.

TIA

Tim Kredlo







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


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