RE: Correction

Jerry,

With a 5A work field, won't you get an array index out of range error
when j hits 6?

Puzzled,
Roger Mackie 

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Jerry Adams
Sent: Thursday, July 07, 2005 9:28
To: Midrange Systems Technical Discussion
Subject: Re: Correction

FOR J = 1 to  %elem(AR2);        
  AR2(j) = %subst(Wrk_Field:j:1);
ENDFOR;                            


Jerry C. Adams



Emmanuel Zannis wrote:

>List sorry. The code is as follow:
>
>  2 D Ar2            S              1A   Dim(9)   
>11 D Wrk_Field       S              5A
>
>27 C                   Movea     Ar2           Wrk_Field 
>
>Regards,
>
>Emmanuel Zannis
>