Add error checking to $ECHO
This commit is contained in:
parent
ae099b0dae
commit
22de007733
11
WOPO.COB
11
WOPO.COB
|
@ -1145,8 +1145,15 @@
|
||||||
PERFORM DO-OUTPUT.
|
PERFORM DO-OUTPUT.
|
||||||
|
|
||||||
HANDLE-ECHO.
|
HANDLE-ECHO.
|
||||||
PERFORM BEGIN-STANDARD-REPLY.
|
MOVE 1 TO DEST.
|
||||||
PERFORM DO-OUTPUT.
|
PERFORM INDEX-PARAMS.
|
||||||
|
IF NUM-PARAMS OF WOPO IS LESS THAN 1 THEN
|
||||||
|
MOVE "<TEXT TO ECHO>" TO R(1)
|
||||||
|
MOVE 1 TO SRC
|
||||||
|
PERFORM USAGE-REPLY
|
||||||
|
ELSE
|
||||||
|
PERFORM BEGIN-STANDARD-REPLY
|
||||||
|
PERFORM DO-OUTPUT.
|
||||||
|
|
||||||
* GET EACH SUCCESSIVE PARAM INTO R(1), STRINGING EACH CORRESPONDING
|
* GET EACH SUCCESSIVE PARAM INTO R(1), STRINGING EACH CORRESPONDING
|
||||||
* REGISTER'S CONTENTS INTO R(2)
|
* REGISTER'S CONTENTS INTO R(2)
|
||||||
|
|
Loading…
Reference in New Issue