Only once Mark but I am hoping to avoid doing the end-free .....I would
like to keep it simple.
I think the DS suggestion will work.....and I appreciate you and the
others that made the suggestion.....Thanks
From: "Mark S. Waterbury" <mark.s.waterbury@xxxxxxx>
To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
Date: 08/13/2008 12:06 PM
Subject: Re: MOVEA in Free format
----------------------------------------------------------------------
Hi, Doug:
You could define a data structure with a 20a field and the 20 element
array, both defined in the same starting position (overlay-defined), or
define them both as "based" ...
Or, just use:
/end-free
C MOVEA CRL @CRLIN
/free
It is "ugly" but it works, right? ;-) (How often do you need to do
MOVEA in your code?)
See:
http://forums.systeminetwork.com/isnetforums/showthread.php?t=41918
(Excerpt follows, in case you do not have a membership):
D ds
D Text 10
D Arr3 1 dim(10) overlay(text:1)
D Arr1 s 1 dim(10)
D Arr2 s 1 dim(10)
D Txt1 s 10
/free
// Move one array to another
Arr2 = Arr1; Arr2 will be the same as Arr1
// Move a single string to array elements
Text = Txt1; // Arr3 will contain the original chars
// Move an array to a single string
Txt1 = Text; Txt1 will contain all the elements of Arr3
Cheers,
Mark
> Doug Palme wrote:
> Here is what I am attempting to accomplish.
>
> I have a variable that is 20a and I need to move it into a 20 element
> array.
>
> I used to be able to use MOVEA and it was fast and quick....one line
of
> code.....free apparently does not have a companion process......
>
> From: Doug Palme <DPalme@xxxxxxxxxxx>
> To: RPG Midrange L <rpg400-l@xxxxxxxxxxxx>
> Date: 08/13/2008 10:59 AM
> Subject: MOVEA in Free format
>
>
----------------------------------------------------------------------
>
> It does not appear that MOVEA has a companion in free.....would
anyone
> be
> willing to share with me your workaround?
> This transmission may contain information that is privileged,
> confidential
> and/or exempt from disclosure under applicable law. If you are not
the
> intended recipient, you are hereby notified that any disclosure,
> copying,
> distribution, or use of the information contained herein (including
any
> reliance thereon) is STRICTLY PROHIBITED. If you received this
> transmission in error, please immediately contact the sender and
destroy
> the material in its entirety, whether in electronic or hard copy
format.
> Thank you.
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at
http://archive.midrange.com/rpg400-l.
>
> This transmission may contain information that is privileged,
confidential
> and/or exempt from disclosure under applicable law. If you are not
the
> intended recipient, you are hereby notified that any disclosure,
copying,
> distribution, or use of the information contained herein (including
any
> reliance thereon) is STRICTLY PROHIBITED. If you received this
> transmission in error, please immediately contact the sender and
destroy
> the material in its entirety, whether in electronic or hard copy
format.
> Thank you.
>
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
http://archive.midrange.com/rpg400-l.
This transmission may contain information that is privileged, confidential
and/or exempt from disclosure under applicable law. If you are not the
intended recipient, you are hereby notified that any disclosure, copying,
distribution, or use of the information contained herein (including any
reliance thereon) is STRICTLY PROHIBITED. If you received this
transmission in error, please immediately contact the sender and destroy
the material in its entirety, whether in electronic or hard copy format.
Thank you.
midrange.com
