/* ShowFlags.rexx - nifty tool to list your users fileflags */;options results

getuser 2400088;max=result

do user=1 to max
   loadscratch user
   getscratch 1;ha=result
   b=''
   do i=0 to 3
      getscratch 1101324+i
      a=result
      b=b||c2b(d2c(a+(a<0)*256))
   end
   savescratch (-user)
   flags=reverse(b)
   if flags~=0 then transmit left(ha,20)' - "'flags'"'
end
exit