Re: This is cool.

If I am understanding it, this is essentially moving an array's data to where the array is defined instead of following the "O" specs? Which is, indeed, cool. Although I admit to also liking Jon/Sue's solution for messages at the end of the article he linked earlier.


On 7/28/2017 6:38 PM, Nathan Andelin wrote:

The syntax may not be clear on first blush, but looks pretty slick once you
understand it.


On Fri, Jul 28, 2017 at 12:03 PM, Alan Campin <alan0307d@xxxxxxxxx> wrote:

dcl-ds *N;
*N Char(7) Inz('CPF3C51');
*N Char(7) Inz('CPF3C52');
*N Char(7) Inz('CPF3C53');
*N Char(7) Inz('CPF3C54');
*N Char(7) Inz('CPF3C55');
OkList Char(7) Dim(5) Pos(1) Ascend;
end-ds;


If %Lookup(ErrorReturn.MessageId:OkList) > 0;