Ü MOVEL (P)
Example
Columns . . . : 6 80 Edit AMINEM/QRPGLESRC
SEU==> OP_MOVE1
FMT D DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++++++
*************** Beginning of data ****************************************************
0001.00 D A1 S 5A INZ('AAAA') VARYING 130129
0002.00 D A2 S 10A INZ('AAAAAAAA') VARYING 130129
0003.00 D A3 S 20A INZ('AAAAAAAAAAAA') VARYING 130129
0004.00 D B1 S 5A INZ('BBBBB') 130129
0005.00 D B2 S 10A INZ('BBBBBBBBBB') 130129
0006.00 D B3 S 20A INZ('BBBBBBBBBBBBBBBBBBBB') 130129
0007.00 D C1 S 5A INZ('CCC') VARYING 130129
0008.00 D C2 S 10A INZ('CCCCCCC') VARYING 130129
0009.00 D C3 S 20A INZ('CCCCCCCCCCCCCCCCC') VARYING 130129
0010.00 C A1 DSPLY 130129
0011.00 C A2 DSPLY 130129
0012.00 C A3 DSPLY 130129
0013.00 C B1 DSPLY 130129
0014.00 C B2 DSPLY 130129
0015.00 C B3 DSPLY 130129
0016.00 C C1 DSPLY 130129
0017.00 C C2 DSPLY 130129
0018.00 C C3 DSPLY 130129
0019.00 C MOVEL(P) A1 B2 130129
0020.00 C MOVEL(P) A2 B3 130129
0021.00 C MOVEL(P) A3 B1 130129
0022.00 C MOVEL(P) B1 C3 130129
0023.00 C MOVEL(P) B2 C1 130129
0024.00 C MOVEL(P) B3 C2 130129
0025.00 C MOVEL(P) C1 A3 130129
0026.00 C MOVEL(P) C2 A1 130129
0027.00 C MOVEL(P) C3 A2 130129
0028.00 C A1 DSPLY 130129
0029.00 C A2 DSPLY 130129
0030.00 C A3 DSPLY 130129
0031.00 C B1 DSPLY 130129
0032.00 C B2 DSPLY 130129
0033.00 C B3 DSPLY 130129
0034.00 C C1 DSPLY 130129
0035.00 C C2 DSPLY 130129
0036.00 C C3 DSPLY 130129
0037.00 C SETON LR 130129
****************** End of data *******************************************************
OUTPUT
DSPLY AAAA
DSPLY AAAAAAAA
DSPLY AAAAAAAAAAAA
DSPLY BBBBB
DSPLY BBBBBBBBBB
DSPLY
BBBBBBBBBBBBBBBBBBBB
DSPLY CCC
DSPLY CCCCCCC
DSPLY
CCCCCCCCCCCCCCCCC
DSPLY AAAA
DSPLY AAAAA
DSPLY AAA
DSPLY AAAAA
DSPLY AAAA
DSPLY AAAAAAAA
DSPLY AAA
DSPLY AAAAAAA
DSPLY AAAAA
*** Here the data will be moved to the left and rest of the right
part will be padded with blank.
1.
MOVE(P) A1
B2
%20pic1.png)
Result:
B2=AAAA
All the above B in red will be removed while padding.