Re: Lookup on array in qualified DS

[Michael Ryan <michaelrtr@xxxxxxxxx>]

Like this?

     D WkPromoDS       DS
     D                                     Qualified
     D                                     Dim(100)
     D                                     Inz
     D   WkPRMO                            Like(PMPRMO)
     D   WkDESC                            Like(PMDESC)
     D   WkBDTE                            Like(PMBDTE)
     D   WkEDTE                            Like(PMEDTE)
     D   WkCMT1                            Like(PMCMT1)
     D   WkCMT2                            Like(PMCMT2)
     D   WkCMT3                            Like(PMCMT3)
     D   WkRTCL                            Like(PMRTCL)
     D   WkMPUR                            Like(PMMPUR)

 WkRecCount = %LookUp('R':WkPromoDS(*).WkRTCL);


On Thu, May 29, 2014 at 1:51 PM, Jeff Young <jyoung0950@xxxxxxxxx> wrote:

> All,
> I have a qualified Ds defined as follows:
> D Services        Ds                    Qualified dim(4)
> D  Service_Code                 50A
> D  Ship_Via_Code                        Like(##SVia)
>
>
> I can access the Ship_Via_Code as an array by qualifying it to the Services
> data structure as Services(1).Ship_Via_Code, but can not search using
> %lookup.
> I tried Services.Ship_Via_Code and get error that it is missing an index.
> I want to search the list of Ship_Via_Codes to get the entry that
> corresponds to a variable, then use that index for other processing.
>
> All suggestions are welcome.
>
>
> Jeff Young
> Sr. Programmer Analyst
> --
> 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: 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.