ibm midrange - RPG - what is += here? -

ibm midrange - RPG - what is += here? -

can explain += means in statement?

eval assgr2pun += finqty#

here rest of code context:

exsr finitmtot eval assgr2pun += finqty# if orderadd = 'n' eval gr2tpass += 1 eval orderadd = 'y' endif eval assgr2pst += 1 when ohreqd = today exsr finitmtot eval assgr2tun += finqty# if orderadd = 'n' eval gr2ttday += 1 eval orderadd = 'y' endif eval assgr2tod += 1 when ohreqd = tomorrow exsr finitmtot

this assignment operator.

where <target> <assignment operator> <expression>:

= look assigned target += look added target -= look subtracted target *= target multiplied expression /= target divided expression **= target assigned target raised powerfulness of expression

ibm-midrange rpgle