RE: Brain flat: How does one do the equivalent of an old-timey compile-time alternating array?

How much data is in your array?
Is it character or Zoned Numeric?


Dcl-ds Filter_T Qualified Template;
Key Char(1);
Desc Char(25);
End-ds;
Dcl-Ds Filter Qualified;
*N Like(Filter_T) INZ('AAll ');
*N Like(Filter_T) INZ('BEmail Entries ');
*N Like(Filter_T) INZ('CFile Entries ');
*N Like(Filter_T) INZ('DSpool Entries ');
*N Like(Filter_T) INZ('EEmail and File Entries');
Dcl-ds All Likeds( Filter_T ) Pos(1) Dim(5);
End-Ds;

Dcl-s Vidx Int(10);

VIdx = %Lookup( FilterId: Filter.All(*).Key : 1 : %Elem(Filter.All) );
If VIdx <> 0;
FilterDescription = Filter.All(Vidx).Desc;
Endif;


Chris Hiebert
Senior Programmer/Analyst
Disclaimer: Any views or opinions presented are solely those of the author and do not necessarily represent those of the company.


-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Booth Martin
Sent: Tuesday, March 3, 2020 12:18 PM
To: RPG programming on the IBM i (AS/400 and iSeries) <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Brain flat: How does one do the equivalent of an old-timey compile-time alternating array?

Brain flat: How does one do the equivalent of an old-timey compile-time alternating array using current best-practices?