Cobol Foro - [Sintaxis] Control de Usuario

Cobol Foro (https://www.cobolforo.es/index.php)

- Fujitsu COBOL (https://www.cobolforo.es/forumdisplay.php?f=77)

- - [Sintaxis] Control de Usuario (https://www.cobolforo.es/showthread.php?t=1144)

Cita:

Citación del post de Fito (Mensaje 5705)

Hola:

Yo lo hago desde el Opened de la ventana, porque si la llamo de otro lado que no sea desde el menú me ejecuta la validación también...

Saludos.

Fito...

Si no es mucho me podrías dar un ejemplo como lo haces al momento de hacer la validación,
tengo dudas como hacerlo.

Saludos

---------- Post añadido : 19:18 ---------- Post anterior : 22:03 ----------

Me podríais ayudar con un ejemplo practico de la programación al momento de validar el control de usuario, si esta autorizado o no para cuando ejecutar una opción del menú.

Sldos

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...