Re: This is cool.

[Booth Martin <booth@xxxxxxxxxxxx>]

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;