Re: Free form example to setup a lookup table in an rpg program.

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx> wrote on 12/01/2017 10:07:56
AM:

I am leaning towards this technique (picked up off the list a few months

back) but thought there might
be a more elegant solution or one that is easy to look at visually and
verify data keyed correctly that is, as far as the arrWhs to arrDuns
relationship.

Example using only the first 3 records for brevity -

// The warehouse & dunns arrays must be in synch for this to work
// Build warehouse array
dcl-ds *n ;
*n char( 2) inz('10') ;
*n char( 2) inz('18') ;
*n char( 2) inz('20') ;
arrWhs char( 2) dim(3) pos(1) ascend ;
end-ds ;
// Build dunns array
dcl-ds *n ;
*n char( 9) inz('006477244') ;
*n char( 9) inz('612726414') ;
*n char( 9) inz('612726414') ;
arrDuns char( 9) dim(3) pos(1) ascend ;
end-ds ;

<snip>

I would use something more like this.

dcl-ds WhsLookup_t template;
Whs char(2);
*n char(1);
Duns char(9);
end-ds;

dcl-ds *n;
*n char(12) inz('10 006477244');
*n char(12) inz('18 612726414');
*n char(12) inz('20 612726414');
WhsTbl likeds(WhsLookup_t) dim(3) pos(1);
end-ds;


Sincerely,

Dave Clark