MOVE, MOVEL dan EVAL
14 Mei 2008
Udah lama sih gw nemuin kasus kaya gini, tapi ga ada salahnya gw tuangin disini. Maaf, ga maksud menggurui, hanya ingin share temuan. Atau malahan udah pada tau…. *asa ngabejaan bulu tuur*
Apa bedanya opcode MOVE, MOVEL dan EVAL di RPGLE ?
berikut contoh codenya, smoga memberikan pencerahan 
DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++++++Comments++++++++++++
d VAR1 s 4S 0
d VAR2 s 3S 0
d VAR3 s 4S 0
CL0N01Factor1+++++++Opcode&ExtFactor2+++++++Result++++++++Len++D+HiLoEq....Comments++++++++++++
*
C Z-ADD 1234 VAR1
C VAR1 DSPLY 1234
c MOVE VAR1 VAR2
C VAR2 DSPLY 234
c MOVEL VAR1 VAR2
C VAR2 DSPLY 123
C* EVAL VAR2 = VAR1 MENTAL
C Z-ADD 1000 VAR1
C Z-ADD 100 VAR2
C var1 sub var2 var3
C VAR3 DSPLY 900
c SETON LR
