¿ Quieres imprimir esta página ? Volver a la página principal de Recursos iSeries AS400 ¿ Necesitas ayuda ? En pruebas
System i5 iSeries AS400 Recursos. Compartiendo generamos conocimiento
Novedades en Recursos iSeries AS400
Noticias tecnológicas

Documentos
Cómo saber quien bloquea un registro

En nuestras aplicaciones de gestión, es habitual encontrar que no se puede acceder a un registro porque otro trabajo ya lo utiliza.
Con este ejemplo le daremos un aspecto profesional a nuestra aplicación, por qué, cuando esto suceda, sabremos quien está utilizando el registro y tomar el control de la aplicación.

Definimos la estructura de datos del programa
D                SDS              
D  Trabajo                 91    170

Proceso
** Este chain lo vamos a controlar mediante el indicador 50 que nos indicará si el ** registro ha sido encontrado y el 51 que nos indica si el registro al que
** queremos acceder está bloqueado.
C                    Campo1CHAIN    FICHEROL1                             5051
** Si el indicador 51 esá activado hace
C                   *in51      ifeq      *on                       
** El campo Trabajo recoje la información del trabajo que bloquea nuestro registro.
** Movemos el contenido del campo Trabajo definido en la estructura de datos ** de programa a la variable Var1 para poder buscar el nombre del usuario
c                   movel   Trabajo      Var1                40      
** Buscamos la primera barra del campo Var1
c     '/'            scan    Var1             X                        2 0    
** Extraemos la información del campo Var1 desde la primera barra y lo movemos al campo quienes
c                   eval      quienes = %subst(Var1:x+1:40)     
** Buscamos la segunda barra en el campo Quienes
c     '/'           scan      Quienes       X                       2 0    
** Movemos Blancos al campo Usuario que será el que recojera la información ** sobre el usuario que está bloqueando el registro
c                   move      *blanks      Usuario             10      
** Movemos el nombre del usuario al campo Usuario
c                   eval        Usuario = %subst(Quienes:1:barra-1)    
** Movemos blancos al campo Quienes
c                   move      *blanks       Quienes                  
** Movemos literales al cmpo Quienes
c                   eval         Quienes = 'El usuario'                 
** Movemos al campo Quienes el contenido del campo Usuario
c                     Quienes cat            Usuario:1     Quienes                  
** Movemos el resto de literales al campo Quienes
c                     Quienes cat            'bloquea el':1Quienes                  
c                     Quienes cat            'registro':1    Quienes                  
** Mostramo por pantalla el contenido del campo Quienes. En este ejemplo 
**hemos utilizado la
** instrucción DSPLY pero es mas "bonito" sacar el resultado en una pantalla 
**que además nos
** permita preguntarle al usuario si quiere esperar a que el registro deje de estar 
** bloqueada o quiere cancelar el proceso.
c                      Quienes dsply                                            
c                      leave                                            
c                      endif                                            

* Este ejemplo ha sido comprobado en un AS/400 con la versión de sistema operativo 3.7

Comentarios de usuarios

Nombre:
Mail:
Comentario:
 
Subir a la parte superior de la web

 

NUESTRA COMUNIDAD EN
ÚNETE Y.... ¡¡ PARTICIPA !!
Dossiers técnicos iSeries y AS400
- Seguridad
- Alta disponibilidad.
Nuestros links favoritos
- Tendencias tecnologías de la información
Expertos en 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 y shareware para el iSeries AS400
- Utilidades para el iSeries AS400 realizadas por profesionales
- Documentos. Trucos e ideas para resolver tus problemas
- 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: PUBLICACIONES HELP400, S.L. CIF:B-60-202827 Gran Vía de les Corts Catalanes, núm. 715, Entresuelo – 3ª - Barcelona - Tel.+34.932.310.049