Update usage statements.
This commit is contained in:
parent
70b42e1281
commit
2e2d01697a
1 changed files with 2 additions and 2 deletions
4
WOPO.COB
4
WOPO.COB
|
@ -1028,7 +1028,7 @@
|
||||||
REWRITE USER-RECORD
|
REWRITE USER-RECORD
|
||||||
INVALID KEY WRITE USER-RECORD
|
INVALID KEY WRITE USER-RECORD
|
||||||
ELSE
|
ELSE
|
||||||
MOVE "<ACCOUNT NAME> <LEVEL>$NUL$" TO R(1)
|
MOVE "<ACCOUNT NAME>$$<LEVEL>$NUL$" TO R(1)
|
||||||
MOVE 1 TO SRC
|
MOVE 1 TO SRC
|
||||||
PERFORM USAGE-REPLY
|
PERFORM USAGE-REPLY
|
||||||
ELSE
|
ELSE
|
||||||
|
@ -1259,7 +1259,7 @@
|
||||||
MOVE 1 TO DEST.
|
MOVE 1 TO DEST.
|
||||||
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
|
||||||
MOVE "<PROGRAM NAME> ..." TO R(1)
|
MOVE "<PROGRAM NAME>$$..." TO R(1)
|
||||||
MOVE 1 TO SRC
|
MOVE 1 TO SRC
|
||||||
PERFORM USAGE-REPLY
|
PERFORM USAGE-REPLY
|
||||||
ELSE
|
ELSE
|
||||||
|
|
Loading…
Reference in a new issue