Re: MODS Likerec

[Stuart Rowe <rowestu@xxxxxxxxx>]

The issue arises from using likerec().  That keyword always qualifies all
subfield names, that's why it's not "automagical".  Screen field FIELD1 is
not the same as ds_det.FIELD1.

I'd think the easiest for you to do is hand-code a DS with the screen field
names (do NOT use likerec for this), then repeatedly move the "input" data
structure (whatever you end up using, mods or array data structure) to the
structure with the screen fields in it.

screenStructure = ds_det;

or

screenStructure = ds_det( index );

Or something like that.  Perhaps someone has a slicker method, but this'll
work.  I can't remember if you could "prefix" the screen field names with
"ds_det." and make them match.  Not near a compiler.


Stu




On Mon, Sep 27, 2010 at 11:27, Florin Todor - YYZ Concord <
ftodor@xxxxxxxxxxxxxxxx> wrote:

> Birgitta, I can do that but does this solve my problem? Because, at first
> sight, the only difference is I will use an array index instead of %occur
> BIF to retrieve the DS values; under the covers, is it not the same idea
> like MODS?
>
>
> Thank you
>
>
> Florin Todor
>
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Birgitta Hauser
> Sent: Monday, September 27, 2010 12:13 PM
> To: 'RPG programming on the IBM i / System i'
> Subject: AW: MODS Likerec
>
> Why do you want to use a MODS, why not defining an Array Data Structure?
>
> D MYDS         DS                  Dim(12345)
> D   MyRec                          LikeRec(MyRecord)
>
> Mit freundlichen Grüßen / Best regards
>
> Birgitta Hauser
>
> "Shoot for the moon, even if you miss, you'll land among the stars." (Les
> Brown)
> "If you think education is expensive, try ignorance." (Derek Bok)
> "What is worse than training your staff and losing them? Not training them
> and keeping them!"
>
>
> -----Ursprüngliche Nachricht-----
> Von: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> Im
> Auftrag von Tom Huff
> Gesendet: Monday, 27. September 2010 18:02
> An: 'RPG programming on the IBM i / System i'
> Betreff: RE: MODS Likerec
>
> Try creating another subfile and read from one and write to another and
> then
> back to the original with the records inserted on one of the passes.
>
> Tom
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Florin Todor - YYZ Concord
> Sent: Monday, September 27, 2010 10:26 AM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: MODS Likerec
>
> Hello everyone,
>
>
>
> Before posting this question I hesitated a lot, because I know it is
> something basic for most of you; unfortunatelly I couldn't find the
> answer myself, so please help!
>
>
>
> This is the idea: I have a subfile populated by the user. I want to
> insert some records between already existed records if some criteria is
> met. My idea was to read the entire subfile and to save it to a MODS
> defined with LIKEREC(the subfile record name), clear the subfile and
> repopulated it one by one record (reading MODS) and inserting, when
> needed, the new subfile records.
>
>
>
> My problem is I cannot retrieve the MODS. I do an %OCCUR(mods-name) = 1
> and a WRITE the subfile record. In this moment, I thought the subfile is
> automagically populated because they have the same field names... but
> it's not!
>
>
>
>
>
> Thank you
>
>
>
>
>
> Florin Todor
>
>
>
> <mailto:ftodor@xxxxxxxxxxxxxxxx>
>
>
>
> --
> This is the RPG programming on the IBM i / System i (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 IBM i / System i (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 IBM i / System i (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 IBM i / System i (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.