Ü   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 

 

 





User Comments:





Copyright © Go4as400.com, 2013-2017. Copyright notice