From 8b0a10b60bb92c3d333eaca9751287c6af848e61 Mon Sep 17 00:00:00 2001
From: "Quinn \"heddwch\" Evans" <yoshizuki@gmail.com>
Date: Mon, 10 Sep 2018 14:45:36 -0600
Subject: [PATCH] Missed an MVS incompatibility.

---
 WOPO.COB | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/WOPO.COB b/WOPO.COB
index f7dbdb7..62445c0 100644
--- 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