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

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


AS/400

Publicado el 11 de Febrero del 2016 por Cesar Francisco
667 visualizaciones desde el 11 de Febrero del 2016. Una media de 21 por semana
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
668 visualizaciones desde el 11 de Febrero del 2016. Una media de 21 por semana
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

http://lwp-l.com/s3432