RE: [MI400] Re: CPYBREP issue

["Bob Cozzi" <cozzi@xxxxxxxxx>]

This is how they do it in the RPGIII compiler,
Something like this:
  MOVE *ALLX'0020' WRKBUF

Would be turned into a loop using CPYBLA.
-Bob


-----Original Message-----
From: mi400-bounces@xxxxxxxxxxxx [mailto:mi400-bounces@xxxxxxxxxxxx] On
Behalf Of Bob Donovan
Sent: Thursday, January 20, 2005 10:13 AM
To: mi400@xxxxxxxxxxxx
Subject: [MI400] Re: CPYBREP issue

James H H Lampert wrote:
> Can somebody explain why it is that a CPYBREP instruction, exactly
> following the syntax given in both the V2R3 and V4R4 MI books, can crash
> QPRCRTPG?

The VLOG created by the compile failure indicates that CPYBREP does not 
support variable length operands.

Alternatively, can you use CPYBREP to initialize a work buffer with the 
   unicode value (where the work buffer is at least as long as the 
substring), and then use CPYBLA to copy bytes from the work buffer to 
the substring of the target buffer?  e.g.:

cpybrep  wrkbuf, x'0020';
...
CPYBLA BUFASTR(.IRF:.I), wrkbuf;

-
Bob

_______________________________________________
This is the MI Programming on the AS400 / iSeries (MI400) mailing list
To post a message email: MI400@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/mi400
or email: MI400-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/mi400.