Hola:
Leo un archivo que tiene como clave usuario y programa, y si no lo encuentra es que no tiene permiso:
Código COBOL:
open input habilita.
move usuario to habusuario.
move programa to habprograma.
read habilita not invalid
close habilita
invoke pow-self "callform" using "usu00" "usuarios.dll" *> muestro mensaje
invoke pow-self "closeform"
exit program
end-read.
close habilita.
move pow-true to "visible" of pow-self.
Saludos.
Fito...