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