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.
|
||||
|
||||
HANDLE-ECHO.
|
||||
PERFORM BEGIN-STANDARD-REPLY.
|
||||
PERFORM DO-OUTPUT.
|
||||
MOVE 1 TO DEST.
|
||||
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
|
||||
* REGISTER'S CONTENTS INTO R(2)
|
||||
|
|
Loading…
Reference in New Issue