¿ Quieres imprimir esta página ? Volver a la página principal de Recursos iSeries AS400 ¿ Necesitas ayuda ? En pruebas
Recursos iSeries AS400. Compartiendo generamos conocimiento
Novedades en Recursos iSeries AS400
Últimas noticias del iSeries AS400
Dos usuarios para ejecutar un proceso

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$

Comentarios de usuarios

Nombre:
Mail:
Comentario:
 

Subir a la parte superior de la web

Symtrax
Dossiers técnicos iSeries y AS400
- Dossier de seguridad
- Alta disponibilidad.
¿Buscas trabajo ?
Inscríbete en nuestra lista laboral y recibirás las ofertas de trabajo en tu buzón de correo electrónico.
Nuestros links preferidos
- Tendencias tecnologías de la información
Expertos en materías relacionadas con las tecnologías de la información, nos dan su punto de vista sobre las tendencias actuales y futuras
- Los últimos anuncios sobre hardware-software para iSeries AS400 realizados por IBM
- Freeware. Software gratuito para el iSeries AS400
- Utilidades para el iSeries AS400 realizadas por profesionales
- Documentos. Trucos e ideas para resolver tus problemas
- Manuales. Los manuales y links más interesantes del iSeries AS400

  Links patrocinados
  •  
  •  

[ Soy nuevo |   Profesionales |   AS qué |   Empresas |    Foros |   Recomiéndanos |    Productos ]
 
Recursos iSeries AS400 es una web de: Poliedric, s.c.p. CIF:G63005011 Urgell 143 1º1ª 08036 - Barcelona - Tel.+34.902.361.344