PxPlus User Forum

Main Board => Discussions => Programming => Topic started by: Jim Morton on August 18, 2023, 01:14:40 PM

Title: need to skip the passworded programs
Post by: Jim Morton on August 18, 2023, 01:14:40 PM

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

Title: Re: need to skip the passworded programs
Post by: Ken Sproul on August 18, 2023, 01:43:54 PM

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

Title: Re: need to skip the passworded programs
Post by: Jim Morton on August 18, 2023, 01:59:45 PM

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