$ERR.REX: Difference between revisions
Content added Content deleted
(removed some dead code, split multiple-lines, added whitespace, added comments and indentation.) |
(fixed a cut 'n paste boo-boo.) |
||
Line 174: | Line 174: | ||
else do |
else do |
||
_to='to' |
_to='to' |
||
if a6==aa5+1 then _to="or" |
|||
call sy 'it must be from' aa5 _to a6 _b |
|||
end |
|||
end |
|||
if k==31 then call sy "no lines (or incorrect lines) were put in the program stack" g3 |
|||
if k==32 then call sy 'the command' a3 "exited, but it isn't supposed to exit or stop" |
|||
if k==33 then call sy 'the' a3 "MDISK isn't a CMS MDISK, it's in the wrong format" |
|||
if k==34 then call sy @ a3 a4 @ "can't be executed from the" a5 'MDISK' |
|||
if k==35 then do |
|||
call sy "no" choose('argument',a4) 'was specified after or' |
|||
call fto a3 g5 |
|||
end |
|||
if k==36 then call sy 'file' @ g3 @ "can't exist on the" a5 'MDISK' |
|||
if k==37 then do |
|||
y=a3 |
|||
_=pos(a3,'''"`{[(«') |
|||
if _\==0 then y=translate(word('single_quote double_quote grave_accent left_brace left_bracket left_parenthesis left_double_carrot',_),,"_") a3 |
|||
call sy 'unmatched' y g4 |
|||
end |
|||
if k==38 then call sy 'file' @ space(a3 a4 a5) @ choose("can't be located or is empty",g6) |
|||
if k==39 then call sy "the" a3 choose('argument',a8) 'must be' a4 a5 "the" a6 choose('argument',a7) |
|||
if k==40 then do |
|||
call sy 'argument' @ a3 @ "isn't a valid hexadecimal string/number" |
|||
call sy "(it contains a character other than 0123456789ABCDEFabcdef or a blank)" |
|||
call fto g4 |
|||
end |
|||
if k==41 then do |
|||
call sy "VM userid" @ g3 @ "doesn't exist or" |
|||
call sy 'is illegal (it may have an illegal character in it)' |
|||
end |
|||
if k==42 then call sy "the MDISK" a4 'for the user' a3 "doesn't exist" |
|||
if k==43 then call sy "illegal password for the" a3 a5 'MDISK was specified' |
|||
if k==44 then do |
|||
call sy "a CMS command is being used out of context, or" |
|||
call sy 'a command was renamed, or the FSTs have been altered' |
|||
_='DOS' |
|||
if !cms then _="CMS";call sy '(you may have to IPL' _")" |
|||
end |
|||
if a6==aa5+1 then _to="or" |
if a6==aa5+1 then _to="or" |
||
call sy 'it must be from' aa5 _to a6 _b |
call sy 'it must be from' aa5 _to a6 _b |