Actually implement STANDARD-INPUT
This commit is contained in:
parent
2e2d01697a
commit
ae099b0dae
1 changed files with 2 additions and 0 deletions
2
WOPO.COB
2
WOPO.COB
|
@ -598,6 +598,8 @@
|
|||
UNSTRING R(2) DELIMITED BY "/" OR SPACES INTO R(1).
|
||||
D DISPLAY "INPUT-SOURCE. ", INPUT-SOURCE,
|
||||
D " OUTPUT-DEST. ", OUTPUT-DEST.
|
||||
IF STANDARD-INPUT THEN
|
||||
MOVE 8 TO INPUT-SOURCE.
|
||||
MOVE INPUT-SOURCE TO SRC.
|
||||
IF R(1) IS EQUAL TO "BF-CODE" THEN
|
||||
PERFORM HANDLE-BF-CODE
|
||||
|
|
Loading…
Reference in a new issue