× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Looks like you want to do MOVE-RIGHT and PAD LEFT.
as opposed to a MOVE-LEFT PAD RIGHT.
Someone mentioned using EVALR  or is it EVAL(R) .
I cant find much in the RPG manual re. EVAL(R) except as related
to 'Result precision rules'.
but anyway whats wrong with using MOVE(P). to do a MoveRight Pad Left.
( you need to use a 'variable length' fields).


boothm@earth.Goddard.edu wrote:

> But who would want that?  If I am changing '1234567890' to 'ABC'  I really
> should expect '        ABC', not 'ABC       ' shouldn't I?  Something has
> always seemed broken about that part of the Eval opcode.
> _______________________
> Booth Martin
> boothm@earth.goddard.edu
> http://www.spy.net/~booth
> _______________________
>
> "Bale, Dan" <DBale@TFSA.Textron.com>
> Sent by: owner-rpg400-l@midrange.com
> 03/06/2000 01:13 PM
> Please respond to RPG400-L
>
>
>         To:     "'RPG400-L@midrange.com'" <RPG400-L@midrange.com>
>         cc:
>         Subject:        RE: EVAL(?)
>
> You don't need to.  If your 10-character field ABC contains '1234567890'
> and
> you perform a:
>      C                     EVAL     ABC = 'XYZ'
> then ABC contains 'ABC       '.  EVAL automatically clears the result
> field
> for you.
>
> - Dan Bale
>
> -----Original Message-----
> From: Curt Penland [mailto:Curt.Penland@diverseylever.com]
> Sent: Monday, March 06, 2000 10:02 AM
> To: rpg400-l@midrange.com
> Subject: EVAL(?)
>
> I'm trying to pad a field with blanks while I put the value of one field
> into
> another using the EVAL opcode.
>
> What extensions within the () can I use in the "EVAL()" ?
>
> I was hoping to be able to use a "P" like the MOVEL(P) opcode.
>
> Any suggestions?
>
> Curt Penland
> Information Systems
> DiverseyLever Institutional
> Phone            (248) 304-3555
> Fax              (248) 304-3577
> curt.penland@diverseylever.com
>
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

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

This mailing list archive is Copyright 1997-2024 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].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.