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.
|
||||
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
|
||||
|
|
Loading…
Reference in a new issue