Toggle navigation
PxPlus User Forum
PxPlus User Forum
»
Main Board
»
Discussions
»
Programming
»
need to skip the passworded programs
Likes
« previous
next »
Print
Pages: [
1
]
Author
Topic: need to skip the passworded programs (Read 1131 times)
Jim Morton
Member
Posts: 12
need to skip the passworded programs
«
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
Logged
Ken Sproul
Gold Member
Posts: 61
Re: need to skip the passworded programs
«
Reply #1 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
Logged
Ken Sproul
DPI Information Service, Inc.
Pivotal Systems LLC
Jim Morton
Member
Posts: 12
Re: need to skip the passworded programs
«
Reply #2 on:
August 18, 2023, 01:59:45 PM »
I thought I'd seen that test somewhere but could not find it.
Thanks Ken!
Logged
Print
Pages: [
1
]
« previous
next »
PxPlus User Forum
»
Main Board
»
Discussions
»
Programming
»
need to skip the passworded programs