RE: [MI400] MI Newbie with XLATE instruction problem

[Winchester Terry <terry.winchester@xxxxxxxxxxxxxxx>]

<grin> 

It probably would have worked correctly if *all* the lines 
of code were correct but I've changed this tiny program so
many times that I likely had something else wrong :(
Now that I've stripped all the unnecessary code, it
seems to work correctly :) 

DCL SPCPTR .P1 PARM;                                             
DCL DD PARM-STRING   CHAR(10) BAS(.P1);                          
                                                                 
DCL SPCPTR .P2 PARM;                                             
DCL DD PARM-OLDCH    CHAR(1)  BAS(.P2);                          
                                                                 
DCL SPCPTR .P3 PARM;                                             
DCL DD PARM-NEWCH    CHAR(1)  BAS(.P3);                          
                                                                 
DCL OL PARMS(.P1, .P2, .P3) EXT PARM MIN(3);                     
                                                                 
ENTRY * (PARMS) EXT;                                             
    XLATE       PARM-STRING, PARM-STRING, PARM-OLDCH, PARM-NEWCH;
                                                                 
    CAT         MSG-TEXT, PARM-STRING, "|";                      
    CALLI SHOW-MESSAGE, *, .SHOW-MESSAGE;                        
    RTX          *;       
%INCLUDE SHOWMSG          

<sigh> I just got finished re-reading chapter 2 of
Leif's book where he states:

"It is therefore a good idea to code a little, try it,
code a little more, try it, etc."

Another lesson learned:  Pay attention to Leif's
comments!

Now to figure out which chapter covers varying
length parameter strings...

Thanks again for the help Keith!

Terry

> -----Original Message-----
> From: mi400-bounces@xxxxxxxxxxxx 
> [mailto:mi400-bounces@xxxxxxxxxxxx] On Behalf Of Keith Carpenter
> Sent: Tuesday, August 31, 2004 11:21 AM
> To: MI Programming on the AS400 / iSeries
> Subject: Re: [MI400] MI Newbie with XLATE instruction problem
> 
> 
> You are correct about how these copies work.
> 
> What doesn't make sense is your original comment about 
> XLATE       PARM-STRING, PARM-STRING, PARM-OLDCH, PARM-NEWCH;
> not working.   It should have and there would be no need for NEWSTR.
> 
> 
> Keith