Re: Comparing MODS fields

["Peter Dow" <pcdow@xxxxxxxxxxxxxxx>]

Hi Alan,

I haven't looked, but it should be in the archives at midrange.com. The idea
is to set up a 2nd data structure with the same fields as the
multi-occurrence data structure (MODS) but based on a pointer.  Then set the
MODS to some occurrence, set the pointer equal to the address of the MODS,
then change the occurrence of the MODS. Now the based data structure points
to the 1st occurrence and the MODS points to the 2nd occurrence. Something
like:

    d MODS        ds        occurs(5)
    d  flda               1a

    d SODS        ds        based(ptr)
    d  fldb               1a

    c        1           occur     MODS
    c                    eval      ptr = %addr(MODS)
    c        2           occur     MODS

At this point flda is in occurrence 2 of MODS, and fldb is in occurrence 1
of MODS.

HTH,
Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax

----- Original Message -----
From: "Alan Addison" <ahaddison@home.com>
To: "RPG400L Midrange" <RPG400-L@midrange.com>
Sent: Friday, October 27, 2000 2:45 PM
Subject: Comparing MODS fields


> A while ago someone gave a great example where a second DS was based on
> a pointer and used to compare values between 2 different occurances in a
> MODS.   I lost that posting and want to use it.
>
> Please??
> Alan
>
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
david@midrange.com
> +---

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---