File size distribution: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: added/changed some comments, added boilerplate to suppress some superfluous errors.) |
m (→{{header|REXX}}: allowed for another character for period separators.) |
||
| Line 430: | Line 430: | ||
_=linein(dirOUT); if left(_, 1)==' ' then iterate /*process data. */ |
_=linein(dirOUT); if left(_, 1)==' ' then iterate /*process data. */ |
||
parse upper var _ dat tim sz . /*uppercase suffix*/ |
parse upper var _ dat tim sz . /*uppercase suffix*/ |
||
if pos(',', sz) \==0 then sz=space( |
if pos(',', sz) \==0 then sz=space(translate(sz,,",ÿ"'ff'x), 0) /*SZ has commas? */ |
||
if \datatype(sz,'W') then do; #=left(sz, length(sz) - 1) /*SZ has a suffix?*/ |
if \datatype(sz,'W') then do; #=left(sz, length(sz) - 1) /*SZ has a suffix?*/ |
||
if \datatype(#,'N') then iterate /*Meat ¬ numeric? */ |
if \datatype(#,'N') then iterate /*Meat ¬ numeric? */ |
||