Use defined condition name.
This commit is contained in:
parent
1b463ab788
commit
d603b8151e
1 changed files with 1 additions and 1 deletions
2
WOPO.COB
2
WOPO.COB
|
@ -1281,7 +1281,7 @@
|
||||||
|
|
||||||
DO-NEXT-INSTRUCTION.
|
DO-NEXT-INSTRUCTION.
|
||||||
READ PROGRAM-CODE RECORD.
|
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
|
MOVE IN-REG TO INPUT-SOURCE
|
||||||
ELSE
|
ELSE
|
||||||
IF NEXT-IP OF PROGRAM-RECORD IS NOT LESS THAN 999 THEN
|
IF NEXT-IP OF PROGRAM-RECORD IS NOT LESS THAN 999 THEN
|
||||||
|
|
Loading…
Reference in a new issue