RE:DE NUMERICO A ALFANUMERICO -eliminar ceros

[Diego Garulo]

Buenos d�as Miguel,   Prueba con el c�digo de esta rutina ajustando los valores de AUX1 y AUX2 a la longitud que tengas el campo alfab�tico, donde AUX1 ser� "00100" en tu caso y AUX2 nos devolver� "100" [Diego Garulo] Un saludo    D S1              S              1    DIM(15)                                                              D S2              S              1    DIM(15)                                                             C*                                                                                                        C     *ENTRY        PLIST                                                                                 C                   PARM                    AUX1             15                                          C                   PARM                    AUX2             15                                            C*                                                                                                     C                   EXSR      SRJ                                                                         C*                                                                                                         C                   RETURN                                                                                C*---------------------------------------------------------------------                                  C* SRJ - ALINEAR CAMPO A LA DERECHA                                                                         C*---------------------------------------------------------------------                                    C     SRJ           BEGSR                                                                                 C                   MOVEA     AUX1          S1                                                             C                   MOVE      *ZEROS        S2                                                           C                   Z-ADD     15            X                 2 0                                         C                   Z-ADD     15            Y                 2 0                                          C     X             DOWNE     *ZEROS                                                                     C     S1(X)         IFNE      ' '                                                                         C                   MOVE      S1(X)         S2(Y)                                                          C                   SUB       1             Y                                                            C                   ENDIF                                                                                  C                   SUB       1             X                                                              C                   ENDDO                                                                                  C                   MOVEA     S2            AUX2                                                          C                   ENDSR