need to skip the passworded programs

[Jim Morton]

How can I programmatically tell if a program is passworded?
I have a process that copies all programs and I need to skip the passworded ones since *ufc errors on them.
fin() and fib() don't seem to hold that info.

TIA

[Ken Sproul]

Jim,


Got this info from program *udv:


passworded=0
open input (hfn,isz=512)"program"; read record (lfo)r$; close(lfo)
if and(r$(90,1),$01$)=$01$ then passworded=1

[Jim Morton]

I thought I'd seen that test somewhere but could not find it.
Thanks Ken!