Ada*_*ams 0 rpgle ibm-midrange
你能解释一下+=
这句话中的意思吗?
Eval AssGr2Pun += FinQty#
Run Code Online (Sandbox Code Playgroud)
以下是上下文的其余代码:
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
Run Code Online (Sandbox Code Playgroud)