Código de AS/400 - Compresión de String de largo 256 Caracteres.

sin imagen de perfil

Compresión de String de largo 256 Caracteres.gráfica de visualizaciones


AS/400

Publicado el 11 de Febrero del 2016 por Cesar Francisco (2 códigos)
2.161 visualizaciones desde el 11 de Febrero del 2016
Saludos Cordiales desde Chile, Les adjunto una Rutina muy útil y simple para comprimir un String de hasta 256 Caracteres que tiene mucho espacio entre sus glosas internas.
Puede servir para arreglar Comprimir Campos de Nombres Direcciones, de los diferentes archivos, alineando los caracteres a la Izquierda dejando solo un espacio entre glosas.
Para que se vean bien los Mensajes, Nombres, Direcciones y todos los campos alfanuméricos en general en Cheques, Cartas, informes e Información de Pantallas, Etc.

Ejemplos;
Antes ‘ROJAS ESTRADA ANNE MARIE ‘
Después ‘ROJAS ESTRADA ANNE MARIE ‘

Antes ‘DISTR. DE ACEROS Y PERNOS LOS PINGUINOS S.A. ’
Después ‘DISTR. DE ACEROS Y PERNOS LOS PINGUINOS S.A. ’

PD: Pueden copiarlo a un archivo TXT y transferirlo con FTP al AS/400.

Requerimientos

Fuente RPG

1.0

Publicado el 11 de Febrero del 2016gráfica de visualizaciones de la versión: 1.0
2.162 visualizaciones desde el 11 de Febrero del 2016
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
Fuente CL
    /*****************************************************************/
    /* SISTEMA     : RUTINAS GENERALES                               */
    /* ORIGEN      : SOFTWARE LOCAL                                  */
    /*---------------------------------------------------------------*/
    /* PROGRAMA    : UTO014CL                                        */
    /* DESCRIPCION : Compresión de String de 256 Caracteres.         */
    /* PROGRAMADOR : CESAR TORO RIOS       FECHA : AGO-2011          */
    /*****************************************************************/
             PGM        PARM(&CAMPOALF)
             DCL        VAR(&CAMPOALF) TYPE(*CHAR) LEN(256)
             DCL        VAR(&NUMTRABAJO) TYPE(*CHAR) LEN(10)
 
             RTVJOBA    JOB(&NUMTRABAJO)
             CALL       PGM(UTO014) PARM(&CAMPOALF)
 
             SNDBRKMSG  MSG('Resultado : ' *CAT &CAMPOALF) +
                          TOMSGQ(&NUMTRABAJO) MSGTYPE(*INQ)
 
             ENDPGM
 
Fuente  RPG
      *===============================================================*
      * Origen      : Software Local                                  *
      *---------------------------------------------------------------*
      * Programa    : UTO014                                          *
      * Clp         : UTO014CL                                        *
      * Autor       : CESAR TORO.                                     *
      * Fecha       : 24 de Agosto  2011                              *
      * Objetivo    : Compresión de un String de 256 Caracteres.      *
      *                                                               *
      *            Ejemplo:                                          *
      *   String   : ‘ESTE  ES  EL  EJEMPLO  DE   DATOS         '    *
      *   Resultado: ‘ESTE ES EL EJEMPLO DE DATOS               '    *
      *---------------------------------------------------------------*
      * ARRAY OF STRING (ONLY ELEMENT NOT SALE ESS)
     E                    ORI       256  1
      * CORRESPONDING ARRAY OF SALE ESS STRING
     E                    SAL       256  1
      *
      * PROGRAM PARAMETER IS A STRING NOT COMPRESS.
     C           *ENTRY    PLIST
     C                     PARM           ORI
      *
      * INDICATE INITIAL STATUS.
     C                     Z-ADD0         IN      30
     C                     Z-ADD0         SA      30
     C                     MOVEL*BLANKS   SAL
      * RUTINE PRINCIPAL
     C                     EXSR START
     C                     SETON                     LR
     ****************************************************************
      *                                                              *
      *   START -  BRING IN CHARACTERS FROM ONE TABLE TO ANOTHER,    *
      *            INTERSPERSED WITH ONLY A MAXIMUM SPACE            *
      *            IN THE RESULT TABLE.                              *
      *                                                              *
      ****************************************************************
     C           START     BEGSR
      *  READ INITIAL TABLE OF DATA TRANSFER.
     C           IN        DOWLT256
     C                     ADD  1         IN
     C                     MOVEAORI       AREAW 256
     C           AREAW     IFEQ *BLANKS
     C                     LEAVE
     C                     ELSE
      *
     C           ORI,IN    IFNE *BLANKS
     C                     ADD  1         SA
     C                     MOVELORI,IN    SAL,SA
     C                     MOVEL' '       ORI,IN
     C                     ELSE
     C           SA        IFGT 0
     C           SAL,SA    IFNE ' '
     C                     ADD  1         SA
     C                     ENDIF
     C                     ENDIF
     C                     ENDIF
     C                     ENDIF
      *
     C                     ENDDO
      *  MOVE TABLE COMPRESS TO ORIGINAL TABLE.
     C                     MOVELSAL       ORI
      *
     C                     ENDSR



Comentarios sobre la versión: 1.0 (0)


No hay comentarios
 

Comentar la versión: 1.0

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s3432