$ERR.REX: Difference between revisions
Move to REXX library routines category
(fixed a cut 'n paste boo-boo.) |
Thundergnat (talk | contribs) (Move to REXX library routines category) |
||
Line 381:
syline: if a5\==0 then call sy 'on line' a5 "of" ufid; _sl=g7; call syfunc; if _sl\=='' then do; call sy; call sy "REXX sourceline is:"; call sy; call sy _sl; call sy; end; if !cms then do;'EXECSTAT' a2 a3;if rc==0 then "EXECDROP" a2 a3;end;return
syntax: !sigl=sigl; call er 13,!fid(2) !fid(3) !sigl !cal() condition('D') sourceline(!sigl)</lang>
[[Category:REXX library routines]]
|