Comment and clarify $CAT source.
This commit is contained in:
parent
9883f7e402
commit
4b55932740
6
WOPO.COB
6
WOPO.COB
|
@ -1130,11 +1130,13 @@
|
||||||
PERFORM BEGIN-STANDARD-REPLY.
|
PERFORM BEGIN-STANDARD-REPLY.
|
||||||
PERFORM DO-OUTPUT.
|
PERFORM DO-OUTPUT.
|
||||||
|
|
||||||
|
* GET EACH SUCCESSIVE PARAM INTO R(1), STRINGING EACH CORRESPONDING
|
||||||
|
* REGISTER'S CONTENTS INTO R(2)
|
||||||
STRING-CAT-PARAMS.
|
STRING-CAT-PARAMS.
|
||||||
MOVE INPUT-SOURCE TO SRC.
|
MOVE INPUT-SOURCE TO SRC.
|
||||||
PERFORM GET-PARAM.
|
PERFORM GET-PARAM.
|
||||||
IF R-INDEX(1) IS NUMERIC THEN
|
IF R-INDEX(DEST) IS NUMERIC THEN
|
||||||
MOVE R-INDEX(1) TO SRC
|
MOVE R-INDEX(DEST) TO SRC
|
||||||
IF SRC IS LESS THAN 1 OR
|
IF SRC IS LESS THAN 1 OR
|
||||||
SRC IS GREATER THAN 8 THEN
|
SRC IS GREATER THAN 8 THEN
|
||||||
MOVE 99 TO STATE
|
MOVE 99 TO STATE
|
||||||
|
|
Loading…
Reference in New Issue