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')                              130129

0002.00  *                                                                              130128

0003.00 C     B             DSPLY                                                       130129

0004.00  *                                                                              130129

0005.00 C                   EVAL      B='XIRO'                                          130129

0006.00 C     B             DSPLY                                                       130129

0007.00  *                                                                              130129

0008.00 C                   EVALR     B='VICTORIA'                                      130129

0009.00 C     B             DSPLY                                                       130129

0010.00  *                                                                              130128

0011.00 C                   SETON                                        LR             130128

0012.00                                                                                 130128

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

 

OUTPUT

 

DSPLY  IROBO                 

DSPLY  XIRO                  

DSPLY    VICTORIA 

 

 



Comments:


Copyright © Go4as400.com, 2014. Copyright notice