Missed an MVS incompatibility.

2018-09-10 14:45:36 -06:00 · 2018-09-10 14:45:36 -06:00 · 8b0a10b60b
parent 28bb2e773f
commit 8b0a10b60b
1 changed files with 2 additions and 2 deletions
--- a/WOPO.COB
+++ b/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