Hi
I have problem to understand this code?
can anyone explain this code for me?
L B#16#3
L #OBJ_NR
SLW
LAR1
L #OBJ_NR
L 4
*I
T #OBJ_NR4
L B#16#3
TAK
SLW
T MD 3000
AN #DS
A #TID_UTLOPT
S #LARM_DS
OPN "Objekt - Kvittens"
A DBX [AR1,P#0.1]
R #LARM_DS
R DBX [AR1,P#0.1]
A #LARM_DS
AN DBX [AR1,P#0.1]
= #OKVITT_LARM
I have problem to understand this code?
can anyone explain this code for me?
L B#16#3
L #OBJ_NR
SLW
LAR1
L #OBJ_NR
L 4
*I
T #OBJ_NR4
L B#16#3
TAK
SLW
T MD 3000
AN #DS
A #TID_UTLOPT
S #LARM_DS
OPN "Objekt - Kvittens"
A DBX [AR1,P#0.1]
R #LARM_DS
R DBX [AR1,P#0.1]
A #LARM_DS
AN DBX [AR1,P#0.1]
= #OKVITT_LARM