Re: Looking Up a Data Structure Array

[MWalter@xxxxxxxxxxxxxxx]

No,

More like this:

 ddsArray          DS             1    dim(10) qualified
 D dsChar                         1    overlay(dsArray:*next)
 DdsIdx1           s             10u 0
 DdsIdx2           s             10u 0

 D/copy *libl/qrpglesrc,cvtdatepr
  /free

    for dsIdx1 = 1 to 10;
      dsArray(dsIdx1).dsChar = %char(dsIdx1);
    endfor;

    dsIdx1 = 1;
    dsIdx2 = %lookup('4':dsArray.dsChar:1);
    dsply dsIdx2;
    return;

I'd like to find a matching entry in a DS Array subfield.

Thanks,

Mark

Mark D. Walter
Senior Programmer/Analyst
CCX, Inc.
mwalter@xxxxxxxxxx
http://www.ccxinc.com


                                                                                
                                                        
                      rob@xxxxxxxxx                                             
                                                        
                      Sent by:                  To:       RPG programming on 
the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>                
                      rpg400-l-bounces@m        cc:                             
                                                        
                      idrange.com               Subject:  Re: Looking Up a Data 
Structure Array                                         
                                                                                
                                                        
                                                                                
                                                        
                      10/04/2004 12:21                                          
                                                        
                      PM                                                        
                                                        
                      Please respond to                                         
                                                        
                      RPG programming on                                        
                                                        
                      the AS400 /                                               
                                                        
                      iSeries                                                   
                                                        
                                                                                
                                                        
                                                                                
                                                        




You mean like this:
     D                 ds
     D MyArray                        4a   dim(20)
     D  Code1                         2a   overlay(MyArray)
     D  Code2                         2a   overlay(MyArray:*next)
     D CurrNbrElem     s              5i 0
     D Result          s              5i 0
      /free
       Code1(1)='AA';
       Code1(2)='BB';
       Code1(3)='CC';
       Code2(1)='ZZ';
       Code2(2)='YY';
       Code2(3)='XX';
       // At this time MyArray(1)='AAZZ', (2)='BBYY', (3)='CCXX'
       CurrNbrElem=3;
       result = %lookup('YY':Code2:1:CurrNbrElem);
       dsply result;  // was equal to 2
       *inlr=*on;
       return;
      /End-free


Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





MWalter@xxxxxxxxxxxxxxx
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
10/04/2004 08:54 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Fax to

Subject
Looking Up a Data Structure Array







Is it possible to look up a data structure array subfield?

Thanks,

Mark

Mark D. Walter
Senior Programmer/Analyst
CCX, Inc.
mwalter@xxxxxxxxxx
http://www.ccxinc.com


--
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.