On 13-Aug-08, at 12:13 PM, rpg400-l-request@xxxxxxxxxxxx wrote:

It does not appear that MOVEA has a companion in free.....would anyone be
willing to share with me your workaround?

Simplest way is to use a DS and overlay the array. Like so:

d DS
d twentyLong 20a
d array 1a Dim(%Size(twentyLong)) Overlay(twentyLong)

Jon Paris


This thread ...

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].