¿ 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
Verifica passwordAS400

Categoría : Seguridad
Autor : Jorge Natalio Lazaro
Título : Verifica password AS400


Descripción del truco:
Desde un programa (RPG, CL)se llama este programa que verifica la password del usuario ingresado, con la misma del as400. Si no es correcta da el aviso, y ademas puede llegar a inhabilitar al usuario(por varios intentos erroneos). Se puede utilizar en un proceso que requiere la autorizacion de otro usuario dentro de un proceso. Devuelve como parametro el usuario ingresado para poder verificar que el autorizante no sea el mismo del que esta en la sesion


A*%%TS  SD  20040513  044746  QPGMR       REL-V5R2M0  5722-WDS
A*%%EC
A                                      DSPSIZ(24 80 *DS3)
A                                      CF03(03)
A          R PANT01
A*%%TS  SD  20040513  044746  QPGMR       REL-V5R2M0  5722-WDS
A                                      WINDOW(7 9 10 40)
A                                      WDWBORDER((*DSPATR RI) (*CHAR '    -
A                                          '))
A                                      WDWTITLE((*TEXT 'Verifica Contraseñ-
A                                      a de Usuario') (*COLOR WHT) (*DSPAT-
A                                      R RI))
A            WFUNC         40A  O  1  1DSPATR(HI)
A                                  3  5'Usuario:'
A                                      DSPATR(HI)
A            WUSUAR        10A  B  3 18DSPATR(UL)
A                                  4  5'Contraseña:'
A                                      DSPATR(HI)
A            WCONTR        10A  B  4 18DSPATR(ND)
A                                      DSPATR(UL)
A            MSG1          39A  O  6  1
A            MSG2          39A  O  7  1
A                                  9  7'Intro=Validar'
A                                      DSPATR(HI)
A                                  9 25'F3=Salir'
A                                      DSPATR(HI)
A          R FOOT1
A                                      CLRL(*NO)
A                                      OVERLAY
A                                      FRCDTA
A          R FOOT2
A                                      KEEP
A                                      ASSUME
A                                  2  2' '
*******************************************************************
**                                                              **
**  PROGRAMA    : VERIGRPG                                      **
**  OBJETIVO    : VERIFICA CONTRASEÑA DE USUARIO                **
**  PROGRAMADOR : JORGE NATALIO LAZARO 28/04/2004               **
**                                                              **
*******************************************************************
FVERIFWS CF  E                    WORKSTN
*******************************************************************
I**  Data Structure-Error
IERRCDE      DS                            272
I I            256                   B   1   40BYTPRO
I I                                  B   5   80BYTAVL
I                                        9  15 EXCPID
I                                       16  16 RSVD
I                                       17 272 EXCPDT
I**  Data Structure-Mensaje
IMSGINF      DS                            280
I                                    B   1   40BYTRET
I                                    B   5   80BYTAV2
I                                    B   9  120LOMRET
I                                    B  13  160LOMAVL
I                                    B  17  200LOMHRE
I                                    B  21  240LOMHAV
I                                       25 280 MSGTXT
I**
I            DS
I I            280                   B   1   40LENGMI
I I                                  B   5   80LENGMS
I**
I            DS
I                                        1  20 MSGFQ
I I            'QCPFMSG   '              1  10 MSGUNO
I I            '*LIBL     '             11  20 MSGDOS
I**
I            DS
I                                        1  39 MSG1
I                                       40  78 MSG2
I                                        1  78 TXTMSG
C**  Parametro de Output- Usuario
C           *ENTRY    PLIST
C                     PARM           USUARI 10
C**   Parámetros llamada API-QSYGETPH
C           PARM1     PLIST
C                     PARM           WUSUAR
C                     PARM           WCONTR
C                     PARM           PROFIL 12
C                     PARM           ERRCDE
C**   Parámetros llamada API-QMHRTVM
C           PARM2     PLIST
C                     PARM           MSGINF
C                     PARM           LENGMI
C                     PARM 'RTVM0100'FORMAT  8
C                     PARM EXCPID    MSGIND  7
C                     PARM MSGFQ     QMSGF  20
C                     PARM           MSGDTA 52
C                     PARM           LENGMS
C                     PARM '*YES'    REPLSV 10
C                     PARM '*YES'    RFCTCH 10
C                     PARM           ERRCDE
C** Inicio del programa
C           *IN03     DOWEQ'0'
C                     EXFMTPANT01
C           *IN03     IFEQ '0'
C                     CALL 'QSYGETPH'PARM1
C                     MOVE *BLANKS   TXTMSG
C           BYTAVL    IFNE 0                          Error detectado
C                     EXSR RERROR
C                     MOVE *BLANKS   USUARI
C                     ELSE
C                     MOVE '1'       *IN03
C                     MOVELWUSUAR    USUARI
C                     ENDIF
C                     ENDIF
C                     ENDDO
C                     MOVE '1'       *INLR
C**  RUTINA DE ERROR
C           RERROR    BEGSR
C                     CALL 'QMHRTVM' PARM2
C                     MOVE LOMAVL    X       40
C           X         SUBSTMSGTXT:1  TXTMSG
C                     ENDSR

Ver código
Fecha 08-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