Actually implement STANDARD-INPUT

2018-09-14 13:22:57 -06:00 · 2018-09-14 13:22:57 -06:00 · ae099b0dae
parent 2e2d01697a
commit ae099b0dae
1 changed files with 2 additions and 0 deletions
--- a/WOPO.COB
+++ b/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