Go4AS400-Image

The Web Ask Go4AS400
Share  
 
Homepage
See Sitemap
as400_FAQ
See Videos here
Contact me


Ü   EVALR (Evaluate expression with right adjust)

 

Example

 

Columns . . . :    6  80              Browse                      AMINEM/QRPGLESRC

SEU==>                                                                    OP_EVALR

FMT D  DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++++++

*************** Beginning of data ************************************************

0001.00 DB                S             10A   INZ('IROBO')

0002.00  *

0003.00 C     B             DSPLY

0004.00  *

0005.00 C                   EVAL      B='XIRO'

0006.00 C     B             DSPLY

0007.00  *

0008.00 C                   EVALR     B='VICTORIA'

0009.00 C     B             DSPLY

0010.00  *

0011.00 C                   SETON                                        LR

0012.00

****************** End of data ****************************************************

 

OUTPUT

 

DSPLY  IROBO                 

DSPLY  XIRO                  

DSPLY    VICTORIA 

 



Comments:


Copyright © Go4as400.com, 2014. Copyright notice