RE: MOVEA in RPG Free

Well..neither is MOVEA. :)

How about moving a field that's the size of the array to the memory
location of the array using a pointer?

Or you could use memcpy.
   

> -------- Original Message --------
> Subject: RE: MOVEA in RPG Free
> From: "Emmanuel Zannis" <emmanuel.zannis@xxxxxxxxxxx>
> Date: Thu, July 07, 2005 10:09 am
> To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
> 
> I thought of that but is not the way forward.
> 
> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx
> [mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of
> michael@xxxxxxxxxxxxxxxxxx
> Sent: 07 July 2005 3:01 PM
> To: Midrange Systems Technical Discussion
> Subject: RE: MOVEA in RPG Free
> 
> 
> The MOVEA opcode is not in free format. So, you could do this:
> 
>  /End-Free
> C                   Movea     Ar2           Wrk_CDCXVL 
> /Free
> 
> 
> > -------- Original Message --------
> > Subject: MOVEA in RPG Free
> > From: "Emmanuel Zannis" <emmanuel.zannis@xxxxxxxxxxx>
> > Date: Thu, July 07, 2005 9:50 am
> > To: <midrange-l@xxxxxxxxxxxx>
> > 
> > List Hi,
> > 
> > How do you convert the following code 
> > 
> >   2 D Ar2                 S              1A   Dim(9)   
> > 11 D Wrk_Field       S              5A
> > 
> > 27 C                   Movea     Ar2           Wrk_CDCXVL    
> > 
> > to free format rpg?
> >  
> > Thank you in advance for your response.
> > 
> > 
> > Regards,
> > 
> > Emmanuel Zannis
> > 
> > 
> > The above information is confidential to the addressee and may be 
> > privileged.  Unauthorised access and use is prohibited. If you received 
> > this message in error please tell us by reply (or telephone the sender) and 
> > delete all copies
> > from your system.
> > 
> > Internet communications are not secure and therefore this Company does not 
> > accept legal responsibility for the contents of this message. This e-mail 
> > message has been swept by Activis e:)scan for the presence of detectable 
> > computer viruses, but we cannot guarantee that it is virus-free and you 
> > should scan this email for viruses prior to opening or saving any 
> > attachments.
> > 
> > If you are not the intended recipient, any disclosure, copying, 
> > distribution or any action taken or omitted to be taken in reliance on it, 
> > is prohibited and may be unlawful.
> > 
> > Please note that communications sent by or to any person through our 
> > computer systems may be viewed by other members of the Hogg Robinson group.
> > 
> > Hogg Robinson plc
> > Registered Office: Abbey House, 282 Farnborough Road, Farnborough, 
> > Hampshire GU14 7NJ
> > Registered in England and Wales No 2107443
> > -- 
> > 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.
> 
> The above information is confidential to the addressee and may be privileged. 
>  Unauthorised access and use is prohibited. If you received this message in 
> error please tell us by reply (or telephone the sender) and delete all copies
> from your system.
> 
> Internet communications are not secure and therefore this Company does not 
> accept legal responsibility for the contents of this message. This e-mail 
> message has been swept by Activis e:)scan for the presence of detectable 
> computer viruses, but we cannot guarantee that it is virus-free and you 
> should scan this email for viruses prior to opening or saving any attachments.
> 
> If you are not the intended recipient, any disclosure, copying, distribution 
> or any action taken or omitted to be taken in reliance on it, is prohibited 
> and may be unlawful.
> 
> Please note that communications sent by or to any person through our computer 
> systems may be viewed by other members of the Hogg Robinson group.
> 
> Hogg Robinson plc
> Registered Office: Abbey House, 282 Farnborough Road, Farnborough, Hampshire 
> GU14 7NJ
> Registered in England and Wales No 2107443
> 
> -- 
> 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.