Trucos y documentos Iseries AS400 eServer i5 os. Mover de izquierda a derecha

Volver a la página principal de Recursos iSeries AS400

Recursos iSeries AS400. Compartiendo generamos conocimiento

Mover de izquierda a derecha

Categoría : Programación
Autor : Ferdinando D'Ascanio
Título : Mover de izquierda a derecha

Descripción del truco:
Para mover campos tipo TXT de izquierda a derecha como por ejemplo: número de cuentas bancarias, número de cédula de identidad

E                    VEC1       18  1           
E                    VEC2       18  1           
C                     EXSR SBR001
C                     MOVEAVEC2      CUENTA 18 
*************************************          
* PARA MOVER DE IZQUIERDA A  DERECHA             
*************************************            
c           SBR001    BEGSR                       
c                     Z-ADD18        I       20   
c                     Z-ADD18        X       20   
c                     MOVEL*BLANKS   VEC1         
c                     MOVEL*BLANKS   VEC2         
c                     MOVEANUCUTA    VEC1         
 *                                                
c           I         DOWGE1                      
 *                                                
c           VEC1,I    IFEQ *BLANKS                
c                     SUB  1         I            
c                     ELSE                        
c                     MOVE VEC1,I    VEC2,X       
c                     SUB  1         X            
C                     SUB  1         I                 
C                     ENDIF                            
 *                                                     
C                     ENDDO            
C                     ENDSR

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

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