Missed an MVS incompatibility.
This commit is contained in:
parent
28bb2e773f
commit
8b0a10b60b
1 changed files with 2 additions and 2 deletions
4
WOPO.COB
4
WOPO.COB
|
@ -361,10 +361,10 @@
|
|||
PERFORM INDEX-PARAMS.
|
||||
MOVE 1 TO PTR(2).
|
||||
PERFORM GET-PARAM.
|
||||
IF R(1) EQUALS USER-NAME THEN
|
||||
IF R(1) IS EQUAL TO USER-NAME THEN
|
||||
MOVE 4 TO PTR(2)
|
||||
PERFORM GET-PARAM
|
||||
IF R(1) EQUALS "ACC" THEN
|
||||
IF R(1) IS EQUAL TO "ACC" THEN
|
||||
MOVE 99 TO STATE
|
||||
MOVE 5 TO PTR(2)
|
||||
PERFORM GET-PARAM
|
||||
|
|
Loading…
Reference in a new issue