RE: Named Indicators in an Array

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx> wrote on 07/13/2017 11:17:17
AM:

d showarea ds inz
d showar01 n
d showar02 n
d showar03 n
d showar04 n
d showar05 n
d showar06 n
d showar07 n
d showar08 n
d showar09 n
d showar10 n
d showar11 n
d showar12 n
d showar13 n
d showar14 n
d showar15 n
d showar n dim(15) overlay(showarea)

Eric,

If you like that (and since you mentioned "old school") then
wonder shouldn't this work the same.

dcl-ds showarea inz;
showar01 ind;
showar02 ind;
showar03 ind;
showar04 ind;
showar05 ind;
showar06 ind;
showar07 ind;
showar08 ind;
showar09 ind;
showar10 ind;
showar11 ind;
showar12 ind;
showar13 ind;
showar14 ind;
showar15 ind;
showar ind dim(15) pos(1);
end-ds;


Sincerely,

Dave Clark