Re: MOVEA in Free format

Use the dspecs


D DS
D String 20
D StrArray 1 20 Dim(20)



Michael Schutte
Admin Professional
Bob Evans Farms, Inc.
3776 South High Street, Columbus, OH 43207
Phone: 614/492-7419 Fax: 614/409-2017
Visit us on the web! www.bobevans.com



Bob Evans Bob-B-Q: You haven't had barbeque until you've had Bob Evans
Bob-B-Q. Try our six Bob-B-Q dishes, starting at $5.99. For more
information, visit www.BobEvans.com.


rpg400-l-bounces@xxxxxxxxxxxx wrote on 08/13/2008 12:02:59 PM:

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.