Re: ** Newsletter ** Re: Algoritmo para generar código alfanumérico

2018-06-29 Por tema Javier B. 
Te lo agradezco muchísimo,  lo pruebo y te digo.

Saludos,
Javier

De: Alex Martínez
Enviado: viernes, 29 de junio 14:20
Asunto: Re: ** Newsletter ** Re: Algoritmo para generar código alfanumérico
Para: forum.help400


Hola

Más sencillo con TRANSLATE

SELECT
 TRANSLATE( CHAR(INT(rand()*10)) , 'ABCDEFHGIJ', '0123456789')
 FROM sysibm.sysdummy1

El 29 de junio de 2018, 13:36, Juan Carlos Paredes 
mailto:juancar...@paredes.info>> escribió:
Basándome en ese SQL, se me ha ocurrido uno que a partir del número aleatorio 
generado por RAND(), y sustituyendo cada dígito por la letra que, gráficamente, 
más se le parece, te genera directamente el código RANDOM alfanumérico:

Select
Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(
Trim(Char(Int(rand()*10)))
, '0', 'O'), '1', 'I'), '2', 'Z'), '3', 'E'), '4', 'A'), '5', 'S'), '6', 'b'), 
'7', 'T'), '8', 'B'), '9', 'q') As Random
from sysibm.sysdummy1

Obtiene el número aleatorio con 5 dígitos y reemplaza:

0 = O
1 = I
2 = Z
3 = E
4 = A
5 = S
6 = b
7 = T
8 = B
9 = q

Saludos

Juan Carlos

---
https://paredes.info
juancar...@paredes.info

El 29/06/2018 12:47, alberto escribió:
El punto y coma del final es para Free Si no trabajas en free se lo
tienes que quitar
/free
  exec SQL Set :RandomNumSQL = Cast(Rand(:InzVal) as Numeric(6, 5));

  RandomNum = %Int(RandomNumSQL * 10);

  *inlr=*on;

/End-free

Albert Martinez de Urda
 Director TIC
Roler España SLU
Grupo Arcadie

De:"Javier B." mailto:reiv...@hotmail.com>>
Para:"forum.help400" 
mailto:forum.help400@listas.combios.es>>
Fecha:29/06/2018 10:48
Asunto:** Newsletter ** Re: Algoritmo para generar código
alfanumérico
Enviado por:
forum.help400-boun...@listas.combios.es

-

Hola Jordi,  lo he probado y no me funciona.
Me da error aquí.

Saludos,
Javier

De: Javier B.
Enviado: jueves, 21 de junio 12:16
Asunto: Re: Algoritmo para generar código alfanumérico
Para: forum.help400

Gracias Jordi!!,  lo probaré.

Un saludo,
Javier
FROM: 
forum.help400-boun...@listas.combios.es
mailto:forum.help400-boun...@listas.combios.es>>
 on behalf of Jordi S.G.
mailto:fhelp...@yahoo.es>>
SENT: Thursday, June 21, 2018 9:42:11 AM
TO: forum.help400@listas.combios.es
SUBJECT: Re: Algoritmo para generar código alfanumérico


Hola Javier,

Puedes utilizar la funcion SQL Rand().

sería algo parecido a esto:

d RandomNumSQL   s  6s 5
d RandomNum s  5s 0
d Inzval   s 10i 0

Exec SQL Set :RandNumSQL = Cast(Rand(:InzVal) as Numeric(6, 5));

RandomNum = %Int(RandomNumSQL * 10;

Si te aseguras en cada llamada a la función, que inzval tenga un
valor distinto al anterior (por ejemplo el valor numérico de un
timestamp + 1 milisegundo), te aseguras un número aleatorio

Espero te sirva de idea.

Jordi.
En miércoles, 20 de junio de 2018 19:55:35 CEST, Javier B.
mailto:reiv...@hotmail.com>> escribió:

Hola a todos :

Necesitaría buscar algún algoritmo para programarlo en rpg/400 que
genere un código aleatorio alfanumérico de 5 posiciones y que no se
repita.

Un saludo y gracias por anticipado,
Javier

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.




Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: ** Newsletter ** Re: Algoritmo para generar código alfanumérico

2018-06-29 Por tema Alex Martínez 
Hola

Más sencillo con TRANSLATE

SELECT
 TRANSLATE( CHAR(INT(rand()*10)) , 'ABCDEFHGIJ', '0123456789')

 FROM sysibm.sysdummy1

El 29 de junio de 2018, 13:36, Juan Carlos Paredes 
escribió:

> Basándome en ese SQL, se me ha ocurrido uno que a partir del número
> aleatorio generado por RAND(), y sustituyendo cada dígito por la letra que,
> gráficamente, más se le parece, te genera directamente el código RANDOM
> alfanumérico:
>
> Select
> Replace(Replace(Replace(Replace(Replace(Replace(Replace(
> Replace(Replace(Replace(
> Trim(Char(Int(rand()*10)))
> , '0', 'O'), '1', 'I'), '2', 'Z'), '3', 'E'), '4', 'A'), '5', 'S'), '6',
> 'b'), '7', 'T'), '8', 'B'), '9', 'q') As Random
> from sysibm.sysdummy1
>
> Obtiene el número aleatorio con 5 dígitos y reemplaza:
>
> 0 = O
> 1 = I
> 2 = Z
> 3 = E
> 4 = A
> 5 = S
> 6 = b
> 7 = T
> 8 = B
> 9 = q
>
> Saludos
>
> Juan Carlos
>
> ---
> https://paredes.info
> juancar...@paredes.info
>
> El 29/06/2018 12:47, alberto escribió:
>
>> El punto y coma del final es para Free Si no trabajas en free se lo
>> tienes que quitar
>> /free
>>   exec SQL Set :RandomNumSQL = Cast(Rand(:InzVal) as Numeric(6, 5));
>>
>>   RandomNum = %Int(RandomNumSQL * 10);
>>
>>   *inlr=*on;
>>
>> /End-free
>>
>> Albert Martinez de Urda
>>  Director TIC
>> Roler España SLU
>> Grupo Arcadie
>>
>> De:"Javier B." 
>> Para:"forum.help400" 
>> Fecha:29/06/2018 10:48
>> Asunto:** Newsletter ** Re: Algoritmo para generar código
>> alfanumérico
>> Enviado por:forum.help400-boun...@listas.combios.es
>>
>> -
>>
>> Hola Jordi,  lo he probado y no me funciona.
>> Me da error aquí.
>>
>> Saludos,
>> Javier
>>
>> De: Javier B.
>> Enviado: jueves, 21 de junio 12:16
>> Asunto: Re: Algoritmo para generar código alfanumérico
>> Para: forum.help400
>>
>> Gracias Jordi!!,  lo probaré.
>>
>> Un saludo,
>> Javier
>> FROM: forum.help400-boun...@listas.combios.es
>>  on behalf of Jordi S.G.
>> 
>> SENT: Thursday, June 21, 2018 9:42:11 AM
>> TO: forum.help400@listas.combios.es
>> SUBJECT: Re: Algoritmo para generar código alfanumérico
>>
>>
>> Hola Javier,
>>
>> Puedes utilizar la funcion SQL Rand().
>>
>> sería algo parecido a esto:
>>
>> d RandomNumSQL   s  6s 5
>> d RandomNum s  5s 0
>> d Inzval   s 10i 0
>>
>> Exec SQL Set :RandNumSQL = Cast(Rand(:InzVal) as Numeric(6, 5));
>>
>> RandomNum = %Int(RandomNumSQL * 10;
>>
>> Si te aseguras en cada llamada a la función, que inzval tenga un
>> valor distinto al anterior (por ejemplo el valor numérico de un
>> timestamp + 1 milisegundo), te aseguras un número aleatorio
>>
>> Espero te sirva de idea.
>>
>> Jordi.
>> En miércoles, 20 de junio de 2018 19:55:35 CEST, Javier B.
>>  escribió:
>>
>> Hola a todos :
>>
>> Necesitaría buscar algún algoritmo para programarlo en rpg/400 que
>> genere un código aleatorio alfanumérico de 5 posiciones y que no se
>> repita.
>>
>> Un saludo y gracias por anticipado,
>> Javier
>> 
>> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
>> Forum.Help400 © Publicaciones Help400, S.L.
>>
>> 
>> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
>> Forum.Help400 © Publicaciones Help400, S.L.
>> 
>> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
>> Forum.Help400 © Publicaciones Help400, S.L.
>>
> 
> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
> Forum.Help400 © Publicaciones Help400, S.L.
>

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: ** Newsletter ** Re: Algoritmo para generar código alfanumérico

2018-06-29 Por tema Juan Carlos Paredes 
Basándome en ese SQL, se me ha ocurrido uno que a partir del número 
aleatorio generado por RAND(), y sustituyendo cada dígito por la letra 
que, gráficamente, más se le parece, te genera directamente el código 
RANDOM alfanumérico:


Select
Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(
Trim(Char(Int(rand()*10)))
, '0', 'O'), '1', 'I'), '2', 'Z'), '3', 'E'), '4', 'A'), '5', 'S'), '6', 
'b'), '7', 'T'), '8', 'B'), '9', 'q') As Random

from sysibm.sysdummy1

Obtiene el número aleatorio con 5 dígitos y reemplaza:

0 = O
1 = I
2 = Z
3 = E
4 = A
5 = S
6 = b
7 = T
8 = B
9 = q

Saludos

Juan Carlos

---
https://paredes.info
juancar...@paredes.info

El 29/06/2018 12:47, alberto escribió:

El punto y coma del final es para Free Si no trabajas en free se lo
tienes que quitar
/free
  exec SQL Set :RandomNumSQL = Cast(Rand(:InzVal) as Numeric(6, 5));

  RandomNum = %Int(RandomNumSQL * 10);

  *inlr=*on;

/End-free

Albert Martinez de Urda
 Director TIC
Roler España SLU
Grupo Arcadie

De:"Javier B." 
Para:"forum.help400" 
Fecha:29/06/2018 10:48
Asunto:** Newsletter ** Re: Algoritmo para generar código
alfanumérico
Enviado por:forum.help400-boun...@listas.combios.es

-

Hola Jordi,  lo he probado y no me funciona.
Me da error aquí.

Saludos,
Javier

De: Javier B.
Enviado: jueves, 21 de junio 12:16
Asunto: Re: Algoritmo para generar código alfanumérico
Para: forum.help400

Gracias Jordi!!,  lo probaré.

Un saludo,
Javier
FROM: forum.help400-boun...@listas.combios.es
 on behalf of Jordi S.G.

SENT: Thursday, June 21, 2018 9:42:11 AM
TO: forum.help400@listas.combios.es
SUBJECT: Re: Algoritmo para generar código alfanumérico

Hola Javier,

Puedes utilizar la funcion SQL Rand().

sería algo parecido a esto:

d RandomNumSQL   s  6s 5
d RandomNum s  5s 0
d Inzval   s 10i 0

Exec SQL Set :RandNumSQL = Cast(Rand(:InzVal) as Numeric(6, 5));

RandomNum = %Int(RandomNumSQL * 10;

Si te aseguras en cada llamada a la función, que inzval tenga un
valor distinto al anterior (por ejemplo el valor numérico de un
timestamp + 1 milisegundo), te aseguras un número aleatorio

Espero te sirva de idea.

Jordi.
En miércoles, 20 de junio de 2018 19:55:35 CEST, Javier B.
 escribió:

Hola a todos :

Necesitaría buscar algún algoritmo para programarlo en rpg/400 que
genere un código aleatorio alfanumérico de 5 posiciones y que no se
repita.

Un saludo y gracias por anticipado,
Javier

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

RE: generar desde AS a EXCELL

2018-06-29 Por tema Javier Mora 
Es una pena que los artículos ya no estén disponibles, ya que te enseñaban a 
invocar Java desde RPG. Yo, sin tener ni puñetera idea de Java, aprendí con 
ellos.

Creo que los tengo “perdidos” en alguna parte. Si los encontrara te los haría 
llegar.

Javier Mora

De: forum.help400-boun...@listas.combios.es 
[mailto:forum.help400-boun...@listas.combios.es] En nombre de Juan García
Enviado el: viernes, 29 de junio de 2018 10:44
Para: forum.help400
Asunto: Re: generar desde AS a EXCELL

Hola

  Mira esta información

  http://www.scottklement.com/poi/

Un saludo a todos

El 28 de junio de 2018, 15:06, Carlos C. 
mailto:paipuk...@hotmail.com>> escribió:

Buenos dias compañeros !!!



Quisiera hacerles una consulta, algunos de Uds. saben como se envia un archivo 
desde As400 a formato Excel (.xls).



Muchas gracias





Saludos




Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: generar desde AS a EXCELL

2018-06-29 Por tema Juan García 
Hola

  Mira esta información

  http://www.scottklement.com/poi/

Un saludo a todos

El 28 de junio de 2018, 15:06, Carlos C.  escribió:

> Buenos dias compañeros !!!
>
>
> Quisiera hacerles una consulta, algunos de Uds. saben como se envia un
> archivo desde As400 a formato Excel (.xls).
>
>
> Muchas gracias
>
>
>
> Saludos
>
>
>
> 
> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
> Forum.Help400 © Publicaciones Help400, S.L.
>

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: generar desde AS a EXCELL

2018-06-29 Por tema Juan Carlos Paredes 
No lo sé. Yo en ACS lo que hago es la segunda solución que te proponía. 
Activar la opción de salvar resultados en Ejecutar Scripts de Sql, 
lanzar la consulta y salvar el resultado en formato .XLS.


---
https://paredes.info
juancar...@paredes.info

El 28/06/2018 19:19, Luis Lopez Parras escribió:

Hola!
¿pero en el nuevo i Access Client solution (El que es en Java Vamos) 
sigue

existiendo el complemento de Excel

¿¿¿Y las conexiones ODBC?? No encuentro la manera de hacerlo y con el
antiguo iban como una moto


-Mensaje original-
De: forum.help400-boun...@listas.combios.es
[mailto:forum.help400-boun...@listas.combios.es] En nombre de Juan 
Carlos

Paredes
Enviado el: jueves, 28 de junio de 2018 15:41
Para: forum.help400
Asunto: Re: generar desde AS a EXCELL

Hay un complemento de Excel que te lo permite hacer automáticamente.
Otra opción es, si usas ACS, hacer una consulta desde "Ejecutar Scripts
de SQL" y salvarlo en formato .XLS. Para ello, tienes que tener 
activado

en las opciones "Permitir salvar resultados".

Juan Carlos.

---
https://paredes.info
juancar...@paredes.info

El 28/06/2018 15:06, Carlos C. escribió:

Buenos dias compañeros !!!

Quisiera hacerles una consulta, algunos de Uds. saben como se envia un
archivo desde As400 a formato Excel (.xls).

Muchas gracias

Saludos

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

RE: generar desde AS a EXCELL

2018-06-29 Por tema XEM foro i5 
Hola,
Con el nuevo puedes ejecutar sentencias SQL que exporten a Excel
directamente.
Mírate la opción "Base de datos / Ejecutar scripts de SQL".
Saludos
Xavier

-Mensaje original-
De: forum.help400-boun...@listas.combios.es
 En nombre de Luis Lopez Parras
Enviado el: jueves, 28 de junio de 2018 19:19
Para: 'forum.help400' 
Asunto: RE: generar desde AS a EXCELL

Hola!
¿pero en el nuevo i Access Client solution (El que es en Java Vamos) sigue
existiendo el complemento de Excel

¿¿¿Y las conexiones ODBC?? No encuentro la manera de hacerlo y con el
antiguo iban como una moto 


-Mensaje original-
De: forum.help400-boun...@listas.combios.es
[mailto:forum.help400-boun...@listas.combios.es] En nombre de Juan Carlos
Paredes Enviado el: jueves, 28 de junio de 2018 15:41
Para: forum.help400
Asunto: Re: generar desde AS a EXCELL

Hay un complemento de Excel que te lo permite hacer automáticamente. 
Otra opción es, si usas ACS, hacer una consulta desde "Ejecutar Scripts de
SQL" y salvarlo en formato .XLS. Para ello, tienes que tener activado en las
opciones "Permitir salvar resultados".

Juan Carlos.

---
https://paredes.info
juancar...@paredes.info

El 28/06/2018 15:06, Carlos C. escribió:
> Buenos dias compañeros !!!
> 
> Quisiera hacerles una consulta, algunos de Uds. saben como se envia un 
> archivo desde As400 a formato Excel (.xls).
> 
> Muchas gracias
> 
> Saludos
> 
> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
> Forum.Help400 © Publicaciones Help400, S.L.

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: CPYFRMIMPF

2018-06-29 Por tema Alex Martínez 
Hola

Revisa los parámetros FROMCCSID y TOCCSID e indica el CCSID de fchero txt y
del archivo de base de datos

El 28 de junio de 2018, 19:13, Carlos C.  escribió:

> Buenas tardes Foro
>
>
> queria hacerles una consulta, ejecute la siguiente sentencia :
>
>
>
>
>
>
> L a informacion que esta en la tabla del IFS esta legible, pero el
> resultado esta con datos ilegible.
>
>
>
>
> Intente combinar los parametros e igual tengo el resultado.
>
>
> Saludos
>
>
>
>
>
>
>
>
>
>
>
> 
> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
> Forum.Help400 © Publicaciones Help400, S.L.
>

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.