Misc bugfixes related to immediately previous refactor.
This commit is contained in:
parent
94f875eab1
commit
29d907a1a0
1 changed files with 4 additions and 4 deletions
8
WOPO.COB
8
WOPO.COB
|
@ -469,7 +469,7 @@
|
||||||
PERFORM HANDLE-COMMAND
|
PERFORM HANDLE-COMMAND
|
||||||
ELSE
|
ELSE
|
||||||
MOVE 1 TO PTR(2)
|
MOVE 1 TO PTR(2)
|
||||||
UNSTRING R(2) DELIMITED BY ": "
|
UNSTRING R(2) DELIMITED BY "$COLN$ "
|
||||||
INTO R(1)
|
INTO R(1)
|
||||||
WITH POINTER PTR(2)
|
WITH POINTER PTR(2)
|
||||||
IF R(1) IS EQUAL TO NICK OF WOPO THEN
|
IF R(1) IS EQUAL TO NICK OF WOPO THEN
|
||||||
|
@ -927,7 +927,7 @@
|
||||||
D DISPLAY "BF-CODE. ", BF-CODE
|
D DISPLAY "BF-CODE. ", BF-CODE
|
||||||
MOVE 1 TO SRC
|
MOVE 1 TO SRC
|
||||||
PERFORM BEGIN-STANDARD-REPLY
|
PERFORM BEGIN-STANDARD-REPLY
|
||||||
PERFORM SEND-LINE
|
PERFORM DO-OUTPUT
|
||||||
ELSE
|
ELSE
|
||||||
PERFORM REPLY-ACK
|
PERFORM REPLY-ACK
|
||||||
PERFORM VALIDATE-USER
|
PERFORM VALIDATE-USER
|
||||||
|
@ -946,13 +946,13 @@
|
||||||
PERFORM INDEX-PARAMS.
|
PERFORM INDEX-PARAMS.
|
||||||
IF NUM-PARAMS OF WOPO IS LESS THAN 1 THEN
|
IF NUM-PARAMS OF WOPO IS LESS THAN 1 THEN
|
||||||
STRING "INPUT. ",
|
STRING "INPUT. ",
|
||||||
BF-CODE,
|
BF-INPUT,
|
||||||
"$NUL$"
|
"$NUL$"
|
||||||
INTO R(1)
|
INTO R(1)
|
||||||
D DISPLAY "BF-INPUT. ", BF-CODE
|
D DISPLAY "BF-INPUT. ", BF-CODE
|
||||||
MOVE 1 TO SRC
|
MOVE 1 TO SRC
|
||||||
PERFORM BEGIN-STANDARD-REPLY
|
PERFORM BEGIN-STANDARD-REPLY
|
||||||
PERFORM SEND-LINE
|
PERFORM DO-OUTPUT
|
||||||
ELSE
|
ELSE
|
||||||
PERFORM REPLY-ACK
|
PERFORM REPLY-ACK
|
||||||
PERFORM VALIDATE-USER
|
PERFORM VALIDATE-USER
|
||||||
|
|
Loading…
Reference in a new issue