RE: array in ile free format

Hi, you answered my question yesterday, may be you can tell why the only
first letter from email getting moved in to  array..

beemal="hiworld@xxxxxxx" 

only first letter "t" is in all array. 
array(1) is "h"
array(2) is "h"
and so on


d email@          s              1   dim(70) 

x=0;
 email@=beemal; 
 dou x>62;        
 x = 1+x;         
 if email@(x)='@';
 *in34='1';       
 leave;           
 endif;           
 enddo;           

Thank you.



>>> GMalchow@xxxxxxxxxxxxxxxxxxxxx 11/04/04 03:32PM >>>


D ArrayName     S        1A   DIM(1) PERRCD(1) CTDATA

D I             S        1S 0
D Variable      S        1A 

/Free

   I = 1;
   Variable = '1';
   arrayName(I) = variable;

/End-Free

This will move '1' to the first array element

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx 
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of rpg news
Sent: Thursday, November 04, 2004 2:59 PM
To: midrange-l@xxxxxxxxxxxx 
Subject: array in ile free format

Hi all, what opcode can we use in ile free format for MOVEA, any
suggestions. 
Thanks.
Wayne.
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx 
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l 
or email: MIDRANGE-L-request@xxxxxxxxxxxx 
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.


--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx 
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l 
or email: MIDRANGE-L-request@xxxxxxxxxxxx 
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.