14 lines
1 KiB
Rexx
14 lines
1 KiB
Rexx
/*REXX pgm checks to see if a directory is empty; if not, lists entries.*/
|
|
parse arg xdir; if xdir='' then xdir='\someDir' /*Any DIR? Use default.*/
|
|
@.=0 /*default in case ADDRESS fails. */
|
|
trace off /*suppress REXX err msg for fails*/
|
|
address system 'DIR' xdir '/b' with output stem @. /*issue the DIR cmd.*/
|
|
if rc\==0 then do /*an error happened?*/
|
|
say '***error!*** from DIR' xDIR /*indicate que pasa.*/
|
|
say 'return code=' rc /*show the ret Code.*/
|
|
exit rc /*exit with the RC.*/
|
|
end /* [↑] bad address.*/
|
|
#=@.rc /*number of entries.*/
|
|
if #==0 then #=' no ' /*use a word, ¬zero.*/
|
|
say center('directory ' xdir " has " # ' entries.',79,'─')
|
|
exit @.0+rc /*stick a fork in it, we're done.*/
|