Ü 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