| Categoría : Programación
Autor : Daniel Bordenave
Título : Dos usuarios para ejecutar un proceso
Descripción del truco:
No les paso que hay algunas opciones del menu del usuario
de gran importacia necesiten un doble control para su
ejecución ??
Como logro que la ejecución de este punto no
pueda realizarla una sola persona ??.
El truco que presento consiste en solicitar mediante
una ventana un segundo usuario con su password validando
la misma. El comando CHKPWD no es aplicable aqui por que dicho
parametro controla la password del usuario conectado.
H D/J
FSYO999 CF E WORKSTN
I SDS
I 21 28 SENTEN
I 43 46 NROMSG
I 254 263 USRPRF
I *STATUS ERROR
IQUSBN DS
I B 1 40QUSBNB
I B 5 80QUSBNC
I 9 15 QUSBND
I 16 16 WDERR
* PARAMETROS DE ENLACE
C *ENTRY PLIST
C PARM WPSTS 1
* 0 - ERROR
* 1 - OK
*
* DSPR01 - Es una pantalla donde se solicita
* los campos WWUSER Y WWPASS
*
C MOVE '0' WPSTS
C PANT1 TAG
C EXFMTDSPR01
C *IN03 CABEQ'1' FIN
*
C WWUSER CABEQ USREPRF PANT1
*
C CLEARQUSBN
C CALL 'QSYGETPH' 44
C PARM WWUSER
C PARM WWPASS
C PARM WWPRF 12
C PARM QUSBN *
*
C WDERR IFEQ ' '
C CALL 'QSYRLSPH' 44
C PARM WWPRF 12
C MOVE '1' WPSTS
C ENDIF
*
C FIN TAG
C MOVE '1' *INLR
C RETURN
Ver
código
Fecha 15-06-2004
Tienes algún truco que quieras compartir con todos
los profesionales de Recursos iSeries AS400?.Envianoslo
y si resulta seleccionado te enviaremos un vale de Amazon
por valor de 50$
|
