Re: MOVEA in RPG Free

Having the whole story it is easier to give a sugestion..,  :-)

clear j;
for i = 1 to 9;
   If %subst(incoming: i: 1) <> *blank;        // use only if not blank
      j += 1;
     %subst(varialble: j: 1) =%subst(incoming: i: 1);
     if   j = 5;

     endif;
  endif;
endfor;
_____________________________________________________________________________
Emmanuel Zannis wrote:

The whole story: Incoming variable has value (9a) of "1 34 6789". I need to extract the 
values 13467. Jerry's solutions and your option II solution allow me to pass the value of the 
variable to a work array where in a loop the non blanks elements are passed to a second array. When 
the loop end the element values "13467" are then passed to a variable which is 5A.

Thank you for your reply.

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of rob@xxxxxxxxx
Sent: 07 July 2005 3:44 PM
To: Midrange Systems Technical Discussion
Subject: RE: MOVEA in RPG Free


<SNIP>

D Ar2 S 1A Dim(9) D Wrk_Field S 5A

...
C                   Movea     Ar2           Wrk_Field
<ENDSNIP>


OPTION I:
D Ar2DS           ds

D Ar2 1A Dim(9) D Wrk_Field S 5A

...
 Wrk_Field=Ar2DS;


OPTION II:

D Ar2 S 1A Dim(9) D Wrk_Field S 5A

D x               s              5i 0
...
 For x=1 to %elem(Ar2);
   %subst(Wrk_Field:x:1)=Ar2(x);
 EndFor;


OPTION III:

Reevaluate the logic. Do you really need to move the field from one to the other? Maybe the whole logic is based on obsolete restrictions?

Additional archival search words: free format MOVEA rpg rpgle rpgile ile

From the archives:

Barb had a little contest on to see if anyone could find a good use for
MOVEA.  So far no clear winners.

Rob Berendt