Use defined condition name.

2018-09-11 16:50:47 -06:00 · 2018-09-11 16:50:47 -06:00 · d603b8151e
parent 1b463ab788
commit d603b8151e
1 changed files with 1 additions and 1 deletions
--- a/WOPO.COB
+++ b/WOPO.COB
@ -1281,7 +1281,7 @@

       DO-NEXT-INSTRUCTION.
           READ PROGRAM-CODE RECORD.
-           IF IN-REG IS NOT EQUAL TO 9 THEN
+           IF NOT INPUT-FROM-RECORD THEN
               MOVE IN-REG TO INPUT-SOURCE
           ELSE
               IF NEXT-IP OF PROGRAM-RECORD IS NOT LESS THAN 999 THEN