Auditoría de fuentes

[Alberto Martinez]

Buenos dias.
Tengo journals sobre una serie de ficheros y esta CL por si tengo que 
consultar cosas de vez en cuando.
Pero para los ficheros más importantes les tengo un trigger y me guardo 
las modificaciones en un fichero hecho por mí, con una estructura más 
'amigable'.
Salu2








De: "Juan García" 
Para:   "forum.help400" 
Fecha:  19/12/2019 17:06
Asunto: ** Newsletter ** Re: Auditoría de fuentes
Enviado por:forum.help400-boun...@listas.combios.es



Gracias por tu respuesta, una pregunta ¿tienes activado el journal sobre 
los ficheros fuente o lo tienes mediante la auditoría de objetos (esto 
último se hace con el valor del sistema QAUDCTL)?

Un saludo

El jue., 19 dic. 2019 a las 7:37, Alberto Martinez (<
alberto.marti...@roler.es>) escribió:
Buenas. 
Yo lo tengo en una CL de lo más tonto, pero me va muy bien. 
Salu2 



 PGM 
 MONMSG MSGID(CPF2105)   
/*Copia el Journal a un fitxer fisic*/   
DSPJRN JRN(@JRNLIB/LOGSARCFIL) FILE(*ALLFILE) +   
 RCVRNG(*CURCHAIN) ENTTYP(PT DL UP UB PX) +   
 OUTPUT(*OUTFILE) OUTFILFMT(*TYPE3) + 
 OUTFILE(@JRNLIB/DSPLOGSFIL) +   
 ENTDTALEN(*VARLEN 1100) 
 MONMSG MSGID(CPF7062) 
  MONMSG MSGID(CPF2117)   
 RUNQRY QRYFILE((@JRNLIB/DSPLOGSFIL)) 
 Endpgm   




De:"Juan García"  
Para:"forum.help400"  
Fecha:12/12/2019 17:50 
Asunto:** Newsletter ** Re: Auditoría de fuentes 
Enviado por:forum.help400-boun...@listas.combios.es 



Tienes razón, estaba mirando en el registro que guarda el diario 

Muchas gracias y un saludo 

El jue., 12 dic. 2019 a las 17:25,  escribió: 
Hola, 

Al ejecutar el DSPJRN cuando te muestra los cambios, haz F10 para ver 
desde que jobid se realiza el cambio, ahi se ve el usuario. 
Tambien se ve el usuario conectado al trabajo (si es un servicio) y desde 
que ip. 

Saludos 


Martí Riera 


Missatge de Juan García  del dia dj., 12 de des. 
2019 a les 16:14: 
Hola 

   Si, claro eso ya lo tengo hecho, el diario el receptor del diario el 
registro por diario...el problema es que no me muestra el usuario que ha 
hecho el cambio en el fuente 

Un saludo 

El mié., 11 dic. 2019 a las 17:57,  escribió: 
Hola, 

Me refiero a que el archivo de fuentes debe estar registrado previamente, 
por ejemplo: 
STRJRNPF FILE(QGPL/QCLSRC) JRN(MYLIB/MYJRN) IMAGES(*BOTH) OMTJRNE(*OPNCLO) 


Una vez activado el registro por diario, podras hacer un DSPJRN del diario 
MYLIB/MYJRN y veras los cambios realizados en los fuentes. 

Espero te sirva. 

Saludos 



Martí Riera 


Missatge de Juan García  del dia dc., 11 de des. 
2019 a les 11:20: 
Hola 

  No entiendo qué me quieres decir con tenerla activa antes 

Un saludo 

El mar., 10 dic. 2019 a las 19:26,  escribió: 
Debes tenerla activa antes. 
Saludos


Enviat amb GMail Android 

El mar., 10 dic. 2019 17:59, Juan García  escribió: 
Acabo de probar con el journal, pero no me dice el usuario que ha 
realizado el cambio y es la principal necesidad de información que tenemos 


Un saludo 

El mar., 10 dic. 2019 a las 17:26,  escribió: 
Hola, 

A malas siempre puedes arrancar el registro por diario. 

Saludos 

Martí Riera 


Missatge de Juan García  del dia dt., 10 de des. 
2019 a les 15:53: 
Saludos   

   Necesitamos tener una auditoria de las modificaciones que se realizan 
en los fuentes (fecha del cambio, usuario que lo ha cambiado y el cambio 
realizado), ¿alguien conoce alguna herramienta (que no sea un control de 
versiones tipo Git, subversion...) que nos permita llevar ese control? 

Un saludo 

Ú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. 

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68d

Auditoría de fuentes

[Alberto Martinez]

Buenas.
Yo lo tengo en una CL de lo más tonto, pero me va muy bien.
Salu2



 PGM 
 MONMSG MSGID(CPF2105) 
/*Copia el Journal a un fitxer fisic*/ 
DSPJRN JRN(@JRNLIB/LOGSARCFIL) FILE(*ALLFILE) + 
 RCVRNG(*CURCHAIN) ENTTYP(PT DL UP UB PX) + 
 OUTPUT(*OUTFILE) OUTFILFMT(*TYPE3) + 
 OUTFILE(@JRNLIB/DSPLOGSFIL) + 
 ENTDTALEN(*VARLEN 1100) 
 MONMSG MSGID(CPF7062) 
  MONMSG MSGID(CPF2117) 
 RUNQRY QRYFILE((@JRNLIB/DSPLOGSFIL)) 
 Endpgm 




De: "Juan García" 
Para:   "forum.help400" 
Fecha:  12/12/2019 17:50
Asunto: ** Newsletter ** Re: Auditoría de fuentes
Enviado por:forum.help400-boun...@listas.combios.es



Tienes razón, estaba mirando en el registro que guarda el diario

Muchas gracias y un saludo

El jue., 12 dic. 2019 a las 17:25,  escribió:
Hola,

Al ejecutar el DSPJRN cuando te muestra los cambios, haz F10 para ver 
desde que jobid se realiza el cambio, ahi se ve el usuario.
Tambien se ve el usuario conectado al trabajo (si es un servicio) y desde 
que ip.

Saludos


Martí Riera


Missatge de Juan García  del dia dj., 12 de des. 
2019 a les 16:14:
Hola

   Si, claro eso ya lo tengo hecho, el diario el receptor del diario el 
registro por diario...el problema es que no me muestra el usuario que ha 
hecho el cambio en el fuente

Un saludo

El mié., 11 dic. 2019 a las 17:57,  escribió:
Hola,

Me refiero a que el archivo de fuentes debe estar registrado previamente, 
por ejemplo:
STRJRNPF FILE(QGPL/QCLSRC) JRN(MYLIB/MYJRN) IMAGES(*BOTH) OMTJRNE(*OPNCLO)

Una vez activado el registro por diario, podras hacer un DSPJRN del diario 
MYLIB/MYJRN y veras los cambios realizados en los fuentes.

Espero te sirva.

Saludos



Martí Riera


Missatge de Juan García  del dia dc., 11 de des. 
2019 a les 11:20:
Hola

  No entiendo qué me quieres decir con tenerla activa antes

Un saludo

El mar., 10 dic. 2019 a las 19:26,  escribió:
Debes tenerla activa antes.
Saludos


Enviat amb GMail Android

El mar., 10 dic. 2019 17:59, Juan García  escribió:
Acabo de probar con el journal, pero no me dice el usuario que ha 
realizado el cambio y es la principal necesidad de información que tenemos

Un saludo

El mar., 10 dic. 2019 a las 17:26,  escribió:
Hola,

A malas siempre puedes arrancar el registro por diario.

Saludos

Martí Riera


Missatge de Juan García  del dia dt., 10 de des. 
2019 a les 15:53:
Saludos  

   Necesitamos tener una auditoria de las modificaciones que se realizan 
en los fuentes (fecha del cambio, usuario que lo ha cambiado y el cambio 
realizado), ¿alguien conoce alguna herramienta (que no sea un control de 
versiones tipo Git, subversion...) que nos permita llevar ese control?

Un saludo

Ú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.

Ú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: Pwrdwnsys en CL

[Alberto Martinez]

Madre miame estoy haciendo viejo :(
Gracias.



De: marti.ri...@gmail.com
Para:   "forum.help400" 
Fecha:  11/12/2019 09:14
Asunto: ** Newsletter ** Re: Pwrdwnsys en CL
Enviado por:forum.help400-boun...@listas.combios.es



Si en el mandato pulsas F9 veras los parametros adicionales.
Hay tienes la respuesta a tu pregunta.
Saludos




Enviat amb GMail Android

El mié., 11 dic. 2019 8:24, Alberto Martinez  
escribió:
Buenos dias. 
Algunas veces por temas eléctricos urgentes he tenido que parar el AS por 
la noche entre semana. 
 Son cosas puntuales, pero el caso es que entre semana no sé a qué hora 
van a acabar los trabajos y no lo puedo programar para que se apague 
porque igual la lio parda. 
Se me ha ocurrido poner el PWRDWNSYS en una CL o algo para que la llame el 
usuario antes de irse, pero  como, se pide una confirmación con F14, no sé 
cómo hacerlo. 
Tambien espero que no haya cambiado el tema, porque llevo ños sin 
hacer un pwrdwnsys desde una CL, cuando no se pedía confirmación. Quiero 
decir...que esto  lo haría llamando a una CL de menú el último usuario que 
sale por la noche, que ni tiene autorizaciones especiales ni nada. Y puede 
ser cualquiera entre 10 o 15. 
Alguna idea? 
Es que ya van 3 arreglos urgentes de estos y me toca pasar noche en 
blanco...y aún queda alguno por hacer... 

Gracias.
Ú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.

Pwrdwnsys en CL

[Alberto Martinez]

Buenos dias.
Algunas veces por temas eléctricos urgentes he tenido que parar el AS por 
la noche entre semana.
 Son cosas puntuales, pero el caso es que entre semana no sé a qué hora 
van a acabar los trabajos y no lo puedo programar para que se apague 
porque igual la lio parda.
Se me ha ocurrido poner el PWRDWNSYS en una CL o algo para que la llame el 
usuario antes de irse, pero  como, se pide una confirmación con F14, no sé 
cómo hacerlo.
Tambien espero que no haya cambiado el tema, porque llevo ños sin 
hacer un pwrdwnsys desde una CL, cuando no se pedía confirmación. Quiero 
decir...que esto  lo haría llamando a una CL de menú el último usuario que 
sale por la noche, que ni tiene autorizaciones especiales ni nada. Y puede 
ser cualquiera entre 10 o 15.
Alguna idea?
Es que ya van 3 arreglos urgentes de estos y me toca pasar noche en 
blanco...y aún queda alguno por hacer...

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

SQL desde los scripts de IBM iACS

[Alberto Martinez]

Buenas. 
Alguna cosa tengo mal configurada desde siempre (hace mucho que hago 
servir los scripts) y me he dado cuenta hoy. 
A ver si alguien me da una pista.
A saber:
Al hacer Select * from biblioteca.qrpglesrc me devuelve registros tal que 
así:

1.00
0
4040404040C6C5C1D3C2C3D340404040C9C6404040C54040404040404040404040D240C4C9E2D240404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040404040

Evidentemente desde pantalla verde funciona perfecto, por lo que deduzco 
que es la configuración del script, pero es que no lo encuentro.
En la conexión JDBC Tengo desactivada la traducción a 65535.
Gracias!

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

Solucionado: Problemas con el Null y coalesce

[Alberto Martinez]

El coalesce va fuera. Antes ya lo había probado, pero me daba error porque 
después hay que poner dos paréntesis y yo ponía uno.
La selección del group by tiene que ser idéntica. Coalesce incluido.
Gracias.

Declare @cursor2 scroll cursor for
 select alarti, arnomb, sum(alcanp), Coalesce
  ((select sum(fetpaq) from arcfil/fetipa
   where fetemp=alempr and fetalb=alnalb and fetcli=alclie
   and fetexp=aldalb and fetart=alarti
   group by fetart), 0)
  from arcfil/ealbcl join arcfil/fartic on alarti=arcodi
  where alempr=:empres and alclie=:@client and aldalb=:Data_entry
 And alnalb=:@albara and alsitu in('A', 'F')
   group by alnalb, alarti, arnomb, Coalesce
  ((select sum(fetpaq) from arcfil/fetipa
   where fetemp=alempr and fetalb=alnalb and fetcli=alclie
   and fetexp=aldalb and fetart=alarti
   group by fetart), 0)
For read only; 


De: "Alberto Martinez" 
Para:   "forum.help400" 
Fecha:  06/11/2019 10:09
Asunto: ** Newsletter ** Problemas con el Null y coalesce
Enviado por:forum.help400-boun...@listas.combios.es



Buenos dias. 
A ver si alguien me puede dar una pista: 
Tengo una selección con dos tablas que se pide la suma de un campo de la 
primera y la suma de un campo de la segunda. 
en la segunda no tiene por qué existir. ésta misma selección, como es uno 
de los campos que muestro y tiene el SUM dentro, me obliga a ponerla en el 
group by 

Yo eso lo resolvería con: 

select alarti, arnomb, sum(alcanp), 
 (select (coalesce(sum(fetpaq), 0))  
  from arcfil.fetipa   
 where fetemp=alempr and fetalb=alnalb and fetcli=alclie 
 and fetexp=aldalb and fetart=alarti  group by fetart)
 
 from arcfil.ealbcl join arcfil.fartic on alarti=arcodi 
 where alempr=10 and alclie=3958 and aldalb=20191106 
And alnalb=21603 and alsitu in('A', 'F') 
  group by alnalb, alarti, arnomb,   
(select (coalesce(sum(fetpaq), 0)) 
  from arcfil.fetipa   
 where fetemp=alempr and fetalb=alnalb and 
fetcli=alclie 
   and fetexp=aldalb and fetart=alarti group by 
fetart) 
For read only; 

Y de hecho, con un script así me funciona, pero se para el coalesce por el 
forro y me devuelve NULOS donde no encuentra nada, y yo quiero ceros, 
porque en el programa me daría error. 
Alguien ve algo que yo no veo? 
Gracias 
Ú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.

Problemas con el Null y coalesce

[Alberto Martinez]

Buenos dias.
A ver si alguien me puede dar una pista:
Tengo una selección con dos tablas que se pide la suma de un campo de la 
primera y la suma de un campo de la segunda.
en la segunda no tiene por qué existir. ésta misma selección, como es uno 
de los campos que muestro y tiene el SUM dentro, me obliga a ponerla en el 
group by

Yo eso lo resolvería con:

select alarti, arnomb, sum(alcanp), 
(select (coalesce(sum(fetpaq), 0))  
   from arcfil.fetipa 
  where fetemp=alempr and fetalb=alnalb and fetcli=alclie 
 and fetexp=aldalb and fetart=alarti  group by fetart)   
 
 from arcfil.ealbcl join arcfil.fartic on alarti=arcodi 
 where alempr=10 and alclie=3958 and aldalb=20191106 
And alnalb=21603 and alsitu in('A', 'F') 
  group by alnalb, alarti, arnomb, 
 (select (coalesce(sum(fetpaq), 0)) 
  from arcfil.fetipa 
 where fetemp=alempr and fetalb=alnalb and fetcli=alclie
 and fetexp=aldalb and fetart=alarti group by fetart)
For read only;

Y de hecho, con un script así me funciona, pero se para el coalesce por el 
forro y me devuelve NULOS donde no encuentra nada, y yo quiero ceros, 
porque en el programa me daría error.
Alguien ve algo que yo no veo?
Gracias

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

developerWorks Connections desaparece

[Alberto Martinez]

Pues me está dando un miedo.



De: "datil400" 
Para:   "forum.help400" 
Fecha:  28/10/2019 16:50
Asunto: ** Newsletter ** developerWorks Connections desaparece
Enviado por:forum.help400-boun...@listas.combios.es



Hola a tod@s,

sólo quería comentaros que la plataforma de IBM donde estaban hospedadas 
todas las comunidades de usuarios de developerWorks (entre ellas Recursos 
AS400) dejará de estar disponible a partir del 1 de enero de 2020, 
desapareciendo todos sus contenidos.

Es decir, todo el conocimiento acumulado durante todos estos años en la 
plataforma, desaparecerá de un plumazo.

En la comunidad de Recursos AS400 era relativamente poco lo que había y 
tampoco estaba muy viva, pero también desaparece "RPG Cafe" (y similares) 
mantenido por Barbara Morris.

Primero desapareció nuestra revista en castellano ServerNews. Luego Penton 
cierra la publicación en ingles y deja de estar disponible todo el 
contenido (artículos y programas) que acumuló durante años. Y ahora IBM.

Todavía quedan publicaciones como MC Press Online o IT Jungle que siguen 
publicando sobre el IBM i, pero parece que todo va a menos.

En fin, ¡una pena!

Javier Mora
Ú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: Configuracion Zend Server en iseries

[Alberto Martinez]

Hola.
Pues ese es el caso, que en los logs no somos capaces de ver ese tipo de 
errores. No sale nada raro. A no ser que se generen en otra carpeta que no 
sea www/zendsrv6/logs
Eso sí, el programa que me indicas 5733ops no lo tengo instalado, ni 
tampoco en el AS de desarrollo que sí que funciona el PHP, pero ahí tengo 
instalado uno con V5.6, que es más viejo, evidentemente.



De: "Alex Martínez" 
Para:   "forum.help400" 
Fecha:  15/10/2019 15:49
Asunto: ** Newsletter ** Re: Configuracion Zend Server en iseries
Enviado por:forum.help400-boun...@listas.combios.es



revisa los logs, por si te falta algun prerequisito de software como 
5733OPS o similar

consulta en el FAQ 
https://zend18.zendesk.com/hc/en-us/sections/200554323-Zend-Server-for-IBM-i



El mar., 15 oct. 2019 a las 11:14, Alberto Martinez (<
alberto.marti...@roler.es>) escribió:
Buenas. Estoy configurando un ZendServer V8 en un iseries V7R3 y me sale 
este mensaje y no me deja continuar. 
En principio tengo todos los servicios y Daemons funcionando.Me ha dejado 
entrar(puerto 10081), un par de siguiente-siguiente...y ya se queda así y 
no hay manera. 
A alguien le suena? 

Gracias! 

Ú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.

Configuracion Zend Server en iseries

[Alberto Martinez]

Buenas. Estoy configurando un ZendServer V8 en un iseries V7R3 y me sale 
este mensaje y no me deja continuar.
En principio tengo todos los servicios y Daemons funcionando.Me ha dejado 
entrar(puerto 10081), un par de siguiente-siguiente...y ya se queda así y 
no hay manera.
A alguien le suena?

Gracias!

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

Re: ** Newsletter ** RE: Iseries Virtualizado en la Nube

[Alberto Martinez]

Bueno, en nuestro caso empezamos migrando al Cloud todo el resto de 
servidores porque ya me tocaba renovar la cabina en la que los tenía 
metidos todos. 
Hicimos números y resolvimos que lo mejor era llevarlos al Cloud. No sólo 
por los números sino por la seguridad física de las instalaciones que 
nosotros no la íbamos a tener nunca ni de broma.
Una vez migrado todo, y por temas de seguridad pensamos que era una 
tontería tener los demás servidores allí y el AS400 en casa. En caso de 
desastre, nos íbamos a quedar igualmente a dos velas.
Entonces resolvimos que como a uno de nuestros  AS ya le iba tocando una 
renovación, el que compráramos, directamente íba a ir en housing al CLoud.
Al final por problemas que hemos tenido se ha retrasado hasta ahora. Tengo 
el AS en casa ya preparado para enviarlo esta semana o la siguiente y 
dejarlo en housing.
Evidentemente no he podido aún hacer pruebas con él en el Cloud, pero si 
que tengo la experiencia de todos los demás servidores, y esperamos que 
funcione igual de bien.
 O sea, como decía el compañero...CERO problemas.
Salu2


De: "Juan Pelaez" 
Para:   "'forum.help400'" 
Fecha:  11/10/2019 16:56
Asunto: ** Newsletter ** RE: Iseries Virtualizado en la Nube
Enviado por:forum.help400-boun...@listas.combios.es



Buenas tardes,
 
Sería posible me contaras un poco vuestra experiencia ¿?,  con quien 
habéis contratado ¿ …..
 
Lleváis vuestra máquina o habéis contratado también una máquina …. ¿?
 
Gracias,
 
 
Juan Pelaez
 
i...@isgal.com
610 284 683
 
 
 
De: forum.help400-boun...@listas.combios.es [
mailto:forum.help400-boun...@listas.combios.es] En nombre de Alberto 
Martinez
Enviado el: viernes, 11 de octubre de 2019 15:04
Para: forum.help400
Asunto: Re: Iseries Virtualizado en la Nube
 
Nosotros tambien vamos a poner el AS en cloud privado. Seguramente la 
semana que viene o la otra. 





De:"Alex Martínez"  
Para:"forum.help400"  
Fecha:11/10/2019 10:00 
Asunto:** Newsletter ** Re: Iseries Virtualizado en la Nube 
Enviado por:forum.help400-boun...@listas.combios.es 




Nosotros hemos optados por una solución mixta y hasta ahora hemos tenidos 
CERO problemas: 

Un ISP en nuestra zona nos alquila un rack en su CPD de nivel Tier III lo 
que nos proporciona una inmejorable seguridad física, redundancia y 
estabilidad 

Todo lo instalado en el rack es de nuestra propiedad, utilizado para 
servicios propios y también a diferentes clientes 

Si necesitas más información, por privado ;-) 

Salu2 


El jue., 10 oct. 2019 a las 20:10, JuanPelaez () 
escribió: 
Buenas tardes, 
 
Buscaba información sobre algún tipo de servicio ICloud para Iseries, es 
decir, tener las aplicaciones y datos en un hosting externo ISeries con 
algún proveedor. 
Sé que IBM da este servicio, también he contactado con alguna empresa 
Americana que me lo ofrece pero buscaba alguna empresa alternativa de 
ámbito nacional 
Que ofrezca este servicio con las debidas garantías de fiabilidad, 
seguridad y velocidad para los clientes. 
 
Podéis recomendarme alguna ¿? 
 
Gracias, 
 
 
 
Juan Pelaez 
 
610 284 683 
juanpel...@mundo-r.com 
 
 
 
 


Libre de virus. www.avast.com 



Ú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. 


Libre de virus. www.avast.com 

Ú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: Iseries Virtualizado en la Nube

[Alberto Martinez]

Nosotros tambien vamos a poner el AS en cloud privado. Seguramente la 
semana que viene o la otra.





De: "Alex Martínez" 
Para:   "forum.help400" 
Fecha:  11/10/2019 10:00
Asunto: ** Newsletter ** Re: Iseries Virtualizado en la Nube
Enviado por:forum.help400-boun...@listas.combios.es



Nosotros hemos optados por una solución mixta y hasta ahora hemos tenidos 
CERO problemas:

Un ISP en nuestra zona nos alquila un rack en su CPD de nivel Tier III lo 
que nos proporciona una inmejorable seguridad física, redundancia y 
estabilidad

Todo lo instalado en el rack es de nuestra propiedad, utilizado para 
servicios propios y también a diferentes clientes

Si necesitas más información, por privado ;-)

Salu2


El jue., 10 oct. 2019 a las 20:10, JuanPelaez () 
escribió:
Buenas tardes,
 
Buscaba información sobre algún tipo de servicio ICloud para Iseries, es 
decir, tener las aplicaciones y datos en un hosting externo ISeries con 
algún proveedor.
Sé que IBM da este servicio, también he contactado con alguna empresa 
Americana que me lo ofrece pero buscaba alguna empresa alternativa de 
ámbito nacional
Que ofrezca este servicio con las debidas garantías de fiabilidad, 
seguridad y velocidad para los clientes.
 
Podéis recomendarme alguna ¿?
 
Gracias,
 
 
 
Juan Pelaez
 
610 284 683
juanpel...@mundo-r.com
 
 
 
 


Libre de virus. www.avast.com 


Ú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: Recuperar columnas de una tabla

[Alberto Martinez]

Hola Raul.
Ya está solucionado. Era el CCSID que tenía puesto el que viene por 
defecto.
Gracias.



De: "Raul Bascones" 
Para:   "forum.help400" 
Fecha:  17/09/2019 11:04
Asunto: ** Newsletter ** Re: Recuperar columnas de una tabla
Enviado por:forum.help400-boun...@listas.combios.es



Buenas días,

Tal vez te pueda valer así:

select column_name, cast(column_heading as char(100)) from 
qsys2/syscolumns 
where table_name=trim(:@table) and Table_schema=trim(:@esquema);   

He puesto 100 por poner algo.

Un saludo.

El mar., 17 sept. 2019 a las 9:08, Alberto Martinez (<
alberto.marti...@roler.es>) escribió:
Hola Foro 
Estoy haciendo una función que me recupere los nombres de las columnas de 
una tabla y las pase a un array. 
pero al recuperarlas, me da el error SQLCOD -332 Character conversion is 
not defined. 
E 
Tanto column_name como column_heading son dos campos del tipo varchar y 
los tengo definidos así en el programa: 

D Reg_col DS 
D@name 128Varying 
D@Heading   60   Varying 

El fuente es éste: 

Exec SQl declare @cursor cursor for 
select column_name, column_heading from qsys2/syscolumns 
where table_name=trim(:@table) and Table_schema=trim(:@esquema); 
Exec SQl open @cursor;   
Dow sqlcod<>100 and sqlcod>=0;   
  Exec sql fetch next from @cursor into :reg_col;   
  If Sqlcod<>100 and sqlcod>=0; 
@i+=1;   
ds_col(@i)=reg_col; 
  ENDIF; 
Exec SQL close @cursor;   

Alguien me puede dar una pista? 
Gracias! 
 

Ú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: Recuperar columnas de una tabla

[Alberto Martinez]

Correcto.
He cambiado el QCCSID a 1145 y el QCHRID 695-1145 y funciona 
perfectamente.
Gracias por la pista.
;)




De: "Alex Martínez" 
Para:   "forum.help400" 
Fecha:  17/09/2019 09:54
Asunto: ** Newsletter ** Re: Recuperar columnas de una tabla
Enviado por:forum.help400-boun...@listas.combios.es



Hola

¿por casualidad el trabajo utiliza el CCSID 65535 ?

El mar., 17 sept. 2019 a las 9:08, Alberto Martinez (<
alberto.marti...@roler.es>) escribió:
Hola Foro 
Estoy haciendo una función que me recupere los nombres de las columnas de 
una tabla y las pase a un array. 
pero al recuperarlas, me da el error SQLCOD -332 Character conversion is 
not defined. 
E 
Tanto column_name como column_heading son dos campos del tipo varchar y 
los tengo definidos así en el programa: 

D Reg_col DS 
D@name 128Varying 
D@Heading   60   Varying 

El fuente es éste: 

Exec SQl declare @cursor cursor for 
select column_name, column_heading from qsys2/syscolumns 
where table_name=trim(:@table) and Table_schema=trim(:@esquema); 
Exec SQl open @cursor;   
Dow sqlcod<>100 and sqlcod>=0;   
  Exec sql fetch next from @cursor into :reg_col;   
  If Sqlcod<>100 and sqlcod>=0; 
@i+=1;   
ds_col(@i)=reg_col; 
  ENDIF; 
Exec SQL close @cursor;   

Alguien me puede dar una pista? 
Gracias! 
 

Ú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: Recuperar columnas de una tabla

[Alberto Martinez]

Si, en principio es el que tengo al SYSVAL



De: "Alex Martínez" 
Para:   "forum.help400" 
Fecha:  17/09/2019 09:54
Asunto: ** Newsletter ** Re: Recuperar columnas de una tabla
Enviado por:forum.help400-boun...@listas.combios.es



Hola

¿por casualidad el trabajo utiliza el CCSID 65535 ?

El mar., 17 sept. 2019 a las 9:08, Alberto Martinez (<
alberto.marti...@roler.es>) escribió:
Hola Foro 
Estoy haciendo una función que me recupere los nombres de las columnas de 
una tabla y las pase a un array. 
pero al recuperarlas, me da el error SQLCOD -332 Character conversion is 
not defined. 
E 
Tanto column_name como column_heading son dos campos del tipo varchar y 
los tengo definidos así en el programa: 

D Reg_col DS 
D@name 128Varying 
D@Heading   60   Varying 

El fuente es éste: 

Exec SQl declare @cursor cursor for 
select column_name, column_heading from qsys2/syscolumns 
where table_name=trim(:@table) and Table_schema=trim(:@esquema); 
Exec SQl open @cursor;   
Dow sqlcod<>100 and sqlcod>=0;   
  Exec sql fetch next from @cursor into :reg_col;   
  If Sqlcod<>100 and sqlcod>=0; 
@i+=1;   
ds_col(@i)=reg_col; 
  ENDIF; 
Exec SQL close @cursor;   

Alguien me puede dar una pista? 
Gracias! 
 

Ú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.

Recuperar columnas de una tabla

[Alberto Martinez]

Hola Foro
Estoy haciendo una función que me recupere los nombres de las columnas de 
una tabla y las pase a un array.
pero al recuperarlas, me da el error SQLCOD -332 Character conversion is 
not defined. 
E
Tanto column_name como column_heading son dos campos del tipo varchar y 
los tengo definidos así en el programa:

D Reg_col DS 
D@name 128Varying
D@Heading   60   Varying

El fuente es éste:

Exec SQl declare @cursor cursor for 
select column_name, column_heading from qsys2/syscolumns 
where table_name=trim(:@table) and Table_schema=trim(:@esquema);
Exec SQl open @cursor; 
Dow sqlcod<>100 and sqlcod>=0; 
  Exec sql fetch next from @cursor into :reg_col;   
  If Sqlcod<>100 and sqlcod>=0; 
@i+=1; 
ds_col(@i)=reg_col; 
  ENDIF; 
Exec SQL close @cursor; 

Alguien me puede dar una pista?
Gracias!
 
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: subfile

[Alberto Martinez]

Hola.
Creo que te refieres a refrescar el subfichero.
Hay un montón de entradas en el Foro si buscas por la palabra WAITRCD.
Te resumo mucho para que no te suene a raro lo que veas, pero hay bastante 
información.
1) WAITRCD es palabra clave en el fichero de pantalla en que le dices los 
segundos que quieres que tarde en refrescarse.  Puedes cambiar el valor en 
complilación o tranquilamente con un CHGDSPF
2)En el programa...hay que definir el fichero de pantalla tal que así:
FPantalla  CF   EWORKSTN SFILE(SFL01:NRR1)
F Infds(Pantds) 
F maxdev(*file) 
F Infsr(Srerror) 
Y luego añadir:
DPantds   DS 
D Errpant   *status

Y por último, tienes que sustituir el EXFMT Registro por un 
Write Registro
Read Pantalla.

Me parece que no me dejo nada, pero repito que hay un montón de entradas 
buscando WAITRCD
Salu2 









De: "Carlos C." 
Para:   "forum.help400" 
Fecha:  13/09/2019 00:06
Asunto: ** Newsletter ** subfile
Enviado por:forum.help400-boun...@listas.combios.es



Buenas tardes Foro

Tengo un evento y me gustaria consultar con Uds.

Tengo una pantalla subfile (se despliega N registros) y quiero enviar un 
mensaje por registro.
Mi pregunta es, Existe una funcion donde se despliega el subfile y se 
envia un mensaje por registro?
Sin necesidad de dar la tecla ENTER (una especie de auto refresh).
Vi la funcion en la compilacion donde se puede indicar un dlyel 
problema que tengo es por cada registro puede haber una variacion en 
cuanto a respuesta (puede durar 30 milisegunos o 2 minutos).

Gracias desde ya por el tiempo.

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: Procedimientos almacenados

[Alberto Martinez]

Hola.
Pues te puedo explicar cómo lo hago yo, pero seguro que hay gustos para 
todo.
De entrada como te dije, hay procedures que llaman a programas . Yo 
personalmente, lo que hago es siempre llamar primero a una CL que me añada 
las bibliotecas necesarias y la CL llama al programa.
Tengo una biblioteca con todos los procedures y éstas Cl's. El programa en 
si, lo guardo donde le toca.
Luego los procedures en si, los creo con los scripts SQL del iaccess y me 
los guardo en una carpeta o subcarpeta por ejemplo del IFS
De todas maneras el iacces(o antes el iseries Access for Windows a través 
del Sistem i Navigator) tienen tanto un asistente para crear los 
procedures como una opción para recuperar el fuente de uno que ya esté 
hecho.
Quiero decir, que si el procedure está ahí, siempre vas a poder recuperar 
el fuente.




De: "Fco. Javier Baca L." 
Para:   "forum.help400" 
Fecha:  12/08/2019 11:34
Asunto: ** Newsletter ** Re:  Procedimientos almacenados
Enviado por:forum.help400-boun...@listas.combios.es



Muchas gracias Alberto por la explicación, una pregunta tonta,  ¿donde 
tengo que almacenar los procedimientos,  por ejemplo,  en un miembro de la 
QRPGSRC? 

Saludos, 
Javier



De: Alberto Martinez
Enviado: lunes, 12 de agosto 9:20
Asunto: Re:  Procedimientos almacenados
Para: forum.help400


Hola. 
Yo los utilizo para recuperar datos y/o ejecutar programas del Iseries 
desde otros entornos y otros servidores(Java, php, Domino). 
Un stored puede simplemente hacer un select de tablas y devolver un valor 
o resultset al programa llamador, o puede ejecutar un programa RPGLE como 
lo ejecutarías desde el entorno Iseries con todo lo que ello conlleva. 
Un mismo stored lo puedes ejecutar desde todos los entornos. Llamas al 
stored y él hace en el Iseries lo que tenga que hacer, y si es el caso, 
devuelve valores al llamador.En este caso, con un sólo programa en el 
Iseries atiendes a todos los entornos que lo necesiten, y es múcho más 
rápido evidentemente que crear un programa entero para cada entorno. 
Un ejemplo: 
Imagina que tienes un programa en RPGLE que recibe parámetros y con ellos 
te crea un pedido y envia un email al proveedor. 
En el programa se hacen consultas evidentemente de artículos y proveedores 
entre otras cosas. 
Pues bien, creas un procedure para cada consulta que podrás llamar desde 
una Web, desde una tablet...desde un programa en .Net...te devuelve los 
datos y tú los muestras en el entorno que sea 
y luego creas otro procedure que recibe los parámetros y te crea el 
pedido, y envia un email, que evidentemente también podrás llamar desde 
cualquier sitio. 
Además de que tiene un rendimiento brutal, no tienes que hacer un programa 
de consulta o gestión que ataque al Iseries para cada entorno, sólamente 
la parte de front-end y con un sólo programa en el Iseries ya lo cubres 
todo. 
No sé si me explico. 
Aparte de esto, comentar que van a nivel de BBDD y por lo tanto, en caso 
de que no encuentres librerías específicas para trabajar con el 
Iseries(las tienes por ejemplo en PHP y Java) siempre puedes recurrir al 
ODBC. 
Salu2 




De:"Fco. Javier Baca L."  
Para:"'forum.help400'"  
Fecha:11/08/2019 23:26 
Asunto:** Newsletter ** Procedimientos almacenados 
Enviado por:forum.help400-boun...@listas.combios.es 



¿Alguien me podría explicar por favor cómo funcionan los procedimientos 
almacenados?,  me gustaría saber para qué se utilizan,  cómo crearlos, 
dónde crearlos y como ejecutarlos. 

Un saludo y gracias, 

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.

Re: ** Newsletter ** Re: Erro ODBC V7R3 Solucionado

[Alberto Martinez]

No. Tengo la QSYS, la QGPL, la QTEMPSupongo que lo que viene por 
defecto.
Se me ha olvidado decir que en el que tengo en producción que es una V7R1 
tambien funciona la lista de bibliotecas.Y menos mal, pq si no, se me 
hubiera montado un pollo de mucho cuidao.
Y tambien para vuestra información, por la parte del PC, lo he probado con 
un ODBC antiguo 32 bits instalado en una VM con WXP, y uno nuevo(el último 
que he encontrado como indicaba) en un W10.
Idéntico resultado.
Siempre hablo de llamadas desde Domino...no he probado desde otro entorno 
porque en todo uso JDBC.

Salu2
Albert Martinez de Urda
  Director TIC
  Grupo FSJ



De: "Alex Martínez" 
Para:   "forum.help400" 
Fecha:  09/08/2019 13:51
Asunto: ** Newsletter ** Re: Erro ODBC V7R3 Solucionado
Enviado por:forum.help400-boun...@listas.combios.es



Hola

a ver si en el sistema en V6R1 tienes modificado el valor de sistema 
QSYSLIBL o QUSRLIBL y tienes especificado esas "bibliotecas"

El vie., 9 ago. 2019 a las 13:11, Alberto Martinez (<
alberto.marti...@roler.es>) escribió:
Para quien le pueda interesar, el problema viene porque el V7R3 se pasa 
literalmente por el forro la lista de bibliotecas de la configuración del 
ODBC. 
Como si no tuviera ninguna biblioteca puesta. 
No sé si es por la versión del OS o por mi AS. 
Tengo que modificar los fuentes y poner call biblioteca.procedure y ya 
funciona. 
Salu2 




De:"Alberto Martinez"  
Para:"forum.help400"  
Fecha:09/08/2019 09:32 
Asunto:** Newsletter ** Erro ODBC V7R3 
Enviado por:forum.help400-boun...@listas.combios.es 



Buenos dias. 
Tengo unos programas en Domino que llaman Stored Procedures de un AS400. 
En un V6R1 siempre ha funcionado. Llama al stored y devuelve un valor, 
pero intento hacerlo con un V7R3 y lo que me devuelve es este error: 


El ODBC es el último que encontré en IBM para IBM IAccess V1R1 Windows 
Ap_English. 
Lo he probado en otro PC con instalación limpia, y lo mismo. Con el V6r1 
va perfecto, pero con el otro el mismo error. 
Alguna pista? 
Gracias
Ú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.

Erro ODBC V7R3 Solucionado

[Alberto Martinez]

Para quien le pueda interesar, el problema viene porque el V7R3 se pasa 
literalmente por el forro la lista de bibliotecas de la configuración del 
ODBC.
Como si no tuviera ninguna biblioteca puesta.
No sé si es por la versión del OS o por mi AS.
Tengo que modificar los fuentes y poner call biblioteca.procedure y ya 
funciona.
Salu2




De: "Alberto Martinez" 
Para:   "forum.help400" 
Fecha:  09/08/2019 09:32
Asunto: ** Newsletter ** Erro ODBC V7R3
Enviado por:forum.help400-boun...@listas.combios.es



Buenos dias. 
Tengo unos programas en Domino que llaman Stored Procedures de un AS400. 
En un V6R1 siempre ha funcionado. Llama al stored y devuelve un valor, 
pero intento hacerlo con un V7R3 y lo que me devuelve es este error: 


El ODBC es el último que encontré en IBM para IBM IAccess V1R1 Windows 
Ap_English. 
Lo he probado en otro PC con instalación limpia, y lo mismo. Con el V6r1 
va perfecto, pero con el otro el mismo error. 
Alguna pista? 
Gracias
Ú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.

Erro ODBC V7R3

[Alberto Martinez]

Buenos dias.
Tengo unos programas en Domino que llaman Stored Procedures de un AS400. 
En un V6R1 siempre ha funcionado. Llama al stored y devuelve un valor, 
pero intento hacerlo con un V7R3 y lo que me devuelve es este error:


El ODBC es el último que encontré en IBM para IBM IAccess V1R1 Windows 
Ap_English.
Lo he probado en otro PC con instalación limpia, y lo mismo. Con el V6r1 
va perfecto, pero con el otro el mismo error.
Alguna pista?
Gracias
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

SNDSMTPEMM y ADDUSRSMTP* Solucionado

[Alberto Martinez]

Pues las dos cosas. Cosa añadida, y configuración.
En la V7R3 en CHGSMTPA  hay el nuevo parámetro DIRTYPE que a mí me venía 
por defecto como *SMTP por lo que me pedía que incluyera tambien el 
usuario aquí con ADDUSRSMTP
Lo he puesto como *SDD y así usará el Directorio de Distribución que es lo 
que hace por defecto mi otro AS que no tiene este parámetro.
Salu2



De: "Alberto Martinez" 
Para:   "forum.help400" 
Fecha:  24/07/2019 17:29
Asunto: ** Newsletter ** SNDSMTPEMM y ADDUSRSNMP
Enviado por:forum.help400-boun...@listas.combios.es



Buenos dias. 
Desde un iseries con V6R1 envio emails(con relay a través de 
CHGSMTPA/MAILROUTER a un servidor DOMINO). 
En la V6R1 me funciona perfecto, pero estoy probando con un V7R3 y me da 
un error diciendo que el usuario no está incorporado al directorio del 
buzón de SMTP  local.   
 y que haga servir el ADDUSRSMTP y añada el usuario. 
En principio lo tengo todo igual en la V6R1 y la V7R3 aparte, claro que en 
la V6R1 no existe el ADDUSRSMTP . 
La pregunta es: 
Es algún tema de configuración(que no sé ver) o se han añadido cosas 
nuevas en la V7R3 y tengo que crear los usuarios en otra tabla aparte de 
las que se crean en el WRKDIRE y SMTP(QATMSTPA)   
Gracias! 
   

Ú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.

SNDSMTPEMM y ADDUSRSNMP

[Alberto Martinez]

Me he vuelto a equivocar en el asunto. Es ADDUSRSMTP



De: "Alberto Martinez" 
Para:   "forum.help400" 
Fecha:  24/07/2019 17:29
Asunto: ** Newsletter ** SNDSMTPEMM y ADDUSRSNMP
Enviado por:forum.help400-boun...@listas.combios.es



Buenos dias. 
Desde un iseries con V6R1 envio emails(con relay a través de 
CHGSMTPA/MAILROUTER a un servidor DOMINO). 
En la V6R1 me funciona perfecto, pero estoy probando con un V7R3 y me da 
un error diciendo que el usuario no está incorporado al directorio del 
buzón de SMTP  local.   
 y que haga servir el ADDUSRSMTP y añada el usuario. 
En principio lo tengo todo igual en la V6R1 y la V7R3 aparte, claro que en 
la V6R1 no existe el ADDUSRSMTP . 
La pregunta es: 
Es algún tema de configuración(que no sé ver) o se han añadido cosas 
nuevas en la V7R3 y tengo que crear los usuarios en otra tabla aparte de 
las que se crean en el WRKDIRE y SMTP(QATMSTPA)   
Gracias! 
   

Ú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.

SNDSMTPEMM y ADDUSRSNMP

[Alberto Martinez]

Buenos dias.
Desde un iseries con V6R1 envio emails(con relay a través de 
CHGSMTPA/MAILROUTER a un servidor DOMINO).
En la V6R1 me funciona perfecto, pero estoy probando con un V7R3 y me da 
un error diciendo que el usuario no está incorporado al directorio del 
buzón de SMTP  local. 
 y que haga servir el ADDUSRSMTP y añada el usuario.
En principio lo tengo todo igual en la V6R1 y la V7R3 aparte, claro que en 
la V6R1 no existe el ADDUSRSMTP .
La pregunta es:
Es algún tema de configuración(que no sé ver) o se han añadido cosas 
nuevas en la V7R3 y tengo que crear los usuarios en otra tabla aparte de 
las que se crean en el WRKDIRE y SMTP(QATMSTPA) 
Gracias!
 
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: Copiar entradas de directorio

[Alberto Martinez]

Genial!!
Gracias




De: "Alex Martínez" 
Para:   "forum.help400" 
Fecha:  22/07/2019 21:13
Asunto: ** Newsletter ** Re: Copiar entradas de directorio
Enviado por:forum.help400-boun...@listas.combios.es



Hola

Las direcciones de correo (SMTP) las tienes en la tabla QATMSMTPA de 
QUSRSYS



El jue., 18 jul. 2019 a las 11:02, Alberto Martinez (<
alberto.marti...@roler.es>) escribió:
Disculpa el retraso. 
Lo que me falta es la dirección de correo que introduzco con el F19 
Cambiar nombre para SNMP 
Si hago DSPDIRE y entro, con más opciones me deja mirarlo, pero si creo un 
archivo, hay campos que habla de dirección de correo pero salen en blanco. 

Saludos 




De:"Alex Martínez"  
Para:"forum.help400"  
Fecha:10/07/2019 19:42 
Asunto:** Newsletter ** Re: Copiar entradas de directorio 
Enviado por:forum.help400-boun...@listas.combios.es 



Puedes generar un archivo con DSPDIRE con OUTFILE y luego con un programa 
CL leer dicho archivo en el nuevo sistema que  realize los ADDDIRE 

El mié., 10 jul. 2019 11:12, Alberto Martinez  
escribió: 
Perdón...quería decir incluyendo  sus direcciones de email. 
Salu2 




De:Alberto Martinez/arcadie 
Para:"forum.help400"  
Fecha:10/07/2019 10:55 
Asunto:Copiar entradas de directorio 


Buanas. 
Cómo puedo copiar de un AS a otro los usuarios del WRKDIRE incluyendo sus 
emails? 
Gracias!! 



Ú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: Copiar entradas de directorio

[Alberto Martinez]

Ui, si...que se me han resbalado los dedos.



De: "Javier Larrea Arias" 
Para:   "forum.help400" 
Fecha:  22/07/2019 11:47
Asunto: ** Newsletter ** Re: Copiar entradas de directorio
Enviado por:forum.help400-boun...@listas.combios.es



Ya será SMTP, digo yo..
>>> "Alberto Martinez"  18/07/2019 11:00 >>>
Disculpa el retraso. 
Lo que me falta es la dirección de correo que introduzco con el F19 
Cambiar nombre para SNMP 

Si hago DSPDIRE y entro, con más opciones me deja mirarlo, pero si creo un 
archivo, hay campos que habla de dirección de correo pero salen en blanco. 

Saludos 
De:"Alex Martínez"  
Para:"forum.help400"  
Fecha:10/07/2019 19:42 
Asunto:** Newsletter ** Re: Copiar entradas de directorio 
Enviado por:forum.help400-boun...@listas.combios.es 


Puedes generar un archivo con DSPDIRE con OUTFILE y luego con un programa 
CL leer dicho archivo en el nuevo sistema que  realize los ADDDIRE 
El mié., 10 jul. 2019 11:12, Alberto Martinez  
escribió: 

Perdón...quería decir incluyendo  sus direcciones de email. 
Salu2 
De:Alberto Martinez/arcadie 
Para:"forum.help400"  

Fecha:10/07/2019 10:55 
Asunto:Copiar entradas de directorio 


Buanas. 
Cómo puedo copiar de un AS a otro los usuarios del WRKDIRE incluyendo sus 
emails? 
Gracias!! 

Ú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. 


Este mensaje es privado y confidencial y solamente para la persona a la 
que va dirigido. Si usted ha recibido este mensaje por error, no debe 
revelar, copiar, distribuir o usarlo en ningun sentido. Le rogamos lo 
comunique al remitente y borre dicho mensaje y cualquier documento adjunto 
que pudiera contener. No hay renuncia a la confidencialidad ni a ningun 
privilegio por causa de transmision erronea o mal funcionamiento. El 
remitente no se hace responsable de las alteraciones que pudieran hacerse 
al mensaje una vez enviado 

Ú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: Copiar entradas de directorio

[Alberto Martinez]

Disculpa el retraso.
Lo que me falta es la dirección de correo que introduzco con el F19 
Cambiar nombre para SNMP
Si hago DSPDIRE y entro, con más opciones me deja mirarlo, pero si creo un 
archivo, hay campos que habla de dirección de correo pero salen en blanco.
Saludos




De: "Alex Martínez" 
Para:   "forum.help400" 
Fecha:  10/07/2019 19:42
Asunto: ** Newsletter ** Re: Copiar entradas de directorio
Enviado por:forum.help400-boun...@listas.combios.es



Puedes generar un archivo con DSPDIRE con OUTFILE y luego con un programa 
CL leer dicho archivo en el nuevo sistema que  realize los ADDDIRE

El mié., 10 jul. 2019 11:12, Alberto Martinez  
escribió:
Perdón...quería decir incluyendo  sus direcciones de email. 
Salu2 




De:Alberto Martinez/arcadie 
Para:"forum.help400"  
Fecha:10/07/2019 10:55 
Asunto:Copiar entradas de directorio 


Buanas. 
Cómo puedo copiar de un AS a otro los usuarios del WRKDIRE incluyendo sus 
emails? 
Gracias!! 



Ú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: Copiar entradas de directorio

[Alberto Martinez]

Perdón...quería decir incluyendo  sus direcciones de email.
Salu2




De: Alberto Martinez/arcadie
Para:   "forum.help400" 
Fecha:  10/07/2019 10:55
Asunto: Copiar entradas de directorio


Buanas.
Cómo puedo copiar de un AS a otro los usuarios del WRKDIRE incluyendo sus 
emails?
Gracias!!



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

Copiar entradas de directorio

[Alberto Martinez]

Buanas.
Cómo puedo copiar de un AS a otro los usuarios del WRKDIRE incluyendo sus 
emails?
Gracias!!


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

Generar Código de Barras de un campo variable

[Alberto Martinez]

A ver si te sirve esto.
Aquí entra un campo de 20 digitos y se busca el primer blanco y se calcula 
a partir de la cadena que queda.
No lo he puesto en el código, pero previamente el campo eanentrada lo paso 
por una función para comprobar que todo lo que hay son números y no me 
cuelan ningún carácter raro. Que con los usuarios de hoy en dia...nunca se 
sabe.
Saludos


D  Eanentrada  S 20 
D  Eansortida   S 20 
D  Eancalcul S 20Varying
C *entryPlist 
C   ParmEanentrada 
C   ParmEansortida 
 Eanentrada=%triml(Eanentrada); 
 Longitud=(%scan(' ':Eanentrada:1))-1; 
 Eancalcul=%subst(%trim(eanentrada):1:Longitud); 
 


De: "JuanPelaez" 
Para:   
Fecha:  17/06/2019 17:30
Asunto: ** Newsletter ** Generar Código de Barras de un campo variable
Enviado por:forum.help400-boun...@listas.combios.es



Buenas foro,
 
Se me plantea el siguiente problema : tengo un campo de 15 posiciones con 
el cual genero un CODIGO DE BARRAS  pero 
Puede que, a veces, no estén todas las 15 posiciones cubiertas, pueden ser 
10, 12 ….. ( anidados a la izquierda y blancos derecha ),
Al generar el Código de Barras en estos casos como incluye los blancos al 
leerlo posteriormente da un error, lo que quería era generar
El código de barras SOLAMENTE con las posiciones que no sean blancos y no 
sé cómo hacerlo …….
 
Gracias
 


Libre de virus. www.avast.com 

Ú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: RPG all-free

[Alberto Martinez]

Muchas gracias. Ya imaginaba que tenía que ser eso
Otra cosa: 
Es verdad que tengo que empezar los programas con **free?
Gracias



De: "Juan Carlos Paredes" 
Para:   "forum.help400" 
cc: "Alberto Martinez" 
Fecha:  17/05/2019 08:30
Asunto: Re: RPG all-free



Efectivamente. El SEU no reconoce muchas cosas (lleva sin actualizarse 
años, creo que desde la versión 6) Si quieres que te lo reconozca, usa 
Rational. Otra opción es quitarle al SEU la verificación de errores. 
Porque aunque el SEU te los marque, el compilador sí lo reconoce  sin 
problemas.

Un saludo.

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

El 17/05/2019 07:33, Alberto Martinez escribió:
> Buenos dias.
> Acabo de adquirir un Power9 con V7.3 y me gustaría empezar a hacer
> programas en all-free, pero no tengo manera. EL SEU no me reconoce las
> definiciones ni de ficheros, ni de variables...
> En principio viene implantado con la V7r3
> Alguien de vosotros ha empezado con all-free?
> Tengo que tener algo más en cuenta?
> No funciona con el SEU y tiene que ser Rational?
> Gracias.
> 
> Ú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.

RPG all-free

[Alberto Martinez]

Buenos dias.
Acabo de adquirir un Power9 con V7.3 y me gustaría empezar a hacer 
programas en all-free, pero no tengo manera. EL SEU no me reconoce las 
definiciones ni de ficheros, ni de variables...
En principio viene implantado con la V7r3 
Alguien de vosotros ha empezado con all-free?
Tengo que tener algo más en cuenta?
No funciona con el SEU y tiene que ser Rational?
Gracias.


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

Re: ** Newsletter ** Ejecutar programa PHP contra iSeries.

[Alberto Martinez]

No tienes manera de instalar el WAS en el AS y luego a través de Zend, el 
PHP?
Si no me acuerdo mal, a partir de la V6r1 ya se podía hacer.
Es que te vas a sorprender del rendimiento, y ...te va a quedar todo en el 
AS con las ventajas que eso tiene.


Albert Martinez de Urda
  Director TIC
  Grupo FSJ



De: "Justo Alonso" 
Para:   
Fecha:  04/04/2019 15:04
Asunto: ** Newsletter ** Ejecutar programa PHP contra iSeries.
Enviado por:forum.help400-boun...@listas.combios.es



Buenas tardes foro.
 
Estoy desarrollando una página web en PHP que ataca a un iSeries.
El servidor web está instalado en un servidor PC en la misma red que el 
iSeries. La conexión es vía ODBC.
La página lanza varias sentencias SQL contra el DB2 y ejecuta un programa 
RPG a través de una stored procedure.
Funciona correctamente, pero el problema es el tiempo de respuesta, además 
cada vez que lanzo la llamada al script PHP tengo que establecer de nuevo 
la  conexión al iSeries. El objeto de conexión no funciona cuando lo 
guardo en una variable de sesión.
¿ Es posible conservar la conexión al iSeries en las distintas llamadas al 
PHP ? ¿ Como puedo mejorar la velocidad del acceso ?
 
Un saludo
Justo Alonso
 


Libre de virus. www.avast.com 

Ú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: DSPF y Websphere Development Studio Client para iSeries

[Alberto Martinez]

Hola.
Pues no, no tengo instalado el módulo.
voy a buscarlo.
Gracias!




De: "Leocadio Quesada" 
Para:   "forum.help400" 
Fecha:  20/03/2019 10:43
Asunto: ** Newsletter ** RE: DSPF y Websphere Development Studio Client 
para iSeries
Enviado por:forum.help400-boun...@listas.combios.es



Comprueba en la instalación si tienes activada la característica “Avance 
tecnológico Diseñador de pantallas”
 

 
Un saludo,
Leocadio Quesada
 

De: forum.help400-boun...@listas.combios.es 
 en nombre de Alberto Martinez 

Enviado: Wednesday, March 20, 2019 9:30:09 AM
Para: forum.help400
Asunto: DSPF y Websphere Development Studio Client para iSeries 
 
Buenos dias Foro 
Sabéis si se pueden diseñar pantallas verdes con el DSPF y Websphere 
Development Studio Client para iSeries? 
Yo sólo consigo acceder al fuente, no al diseño. 
Gracias.
Ú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.

DSPF y Websphere Development Studio Client para iSeries

[Alberto Martinez]

Buenos dias Foro
Sabéis si se pueden diseñar pantallas verdes con el DSPF y Websphere 
Development Studio Client para iSeries?
Yo sólo consigo acceder al fuente, no al diseño.
Gracias.
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

RE: Preformatos ean y Pdf

[alberto]

Hola.
El caso es que la rotación me funciona siempre y cuando no lo pase a PDF. 
En impresora normal, no problem.
Para los preformatos de PDF acabé haciendo dos diferentes, porque no sé si 
el desplazamiento vertical o el horizontal del OVRPRTF, para que me 
cuadrara, los tenía que poner en negativo...y eso no puede ser.
A ver, la verdad es que es un preformato lleno de cuadros y rayas y luego 
había que meter dentro los campos del PRTF...en éste caso tardé menos en 
hacer otro preformato. 
Para los preformatos sencillos no tengo problema como tú dices.
Siempre convierto a PDF desde el OVRPRTF del sistema, con WSCST(*PDF).
Salu2



De: "Javier Mora" 
Para:   "'forum.help400'" 
Fecha:  31/01/2019 14:17
Asunto: ** Newsletter ** RE: Preformatos ean y Pdf
Enviado por:forum.help400-boun...@listas.combios.es



Con el problema del CODE128 y la rotación no puedo ayudarte porque no 
tengo ‘a mano’ un ejemplo para probarlo. Sin preformato, a mí me funcionan 
bien las rotaciones y el código de barras cambia también.
 
Respecto al ajuste del preformato, ya se ha tratado alguna vez en el foro. 
Te explico, rápidamente, la solución que utilizo:
 
1.   Cuando genero el preformato desde Windows con la impresora AFP, 
suelo recortarlo unos 4 o 5 milímetros por cada lado. Evito situar 
contenido en ése área. Este espacio suele ser el área no imprimible de las 
impresoras láser.
2.   Cuando sitúo el preformato en el informe lo hago siempre a partir 
de los milímetros recortados o un poco más. El espacio recortado me 
permite desplazar cómodamente el preformato para que se ajuste lo mejor 
posible al texto impreso.
 
Si sitúas siempre un preformato sin recortes en la posición 0, 0, en la 
impresión láser siempre te aparecerá desplazado (se tiene en cuenta la 
zona no imprimible del hardware), en cambio, en el PDF aparecerá en su 
posición (la zona no imprimible no existe).
 
No sé si he conseguido explicarme bien.
 
Javier Mora
 
De: forum.help400-boun...@listas.combios.es [
mailto:forum.help400-boun...@listas.combios.es] En nombre de alberto
Enviado el: jueves, 31 de enero de 2019 12:58
Para: forum.help400
Asunto: Preformatos ean y Pdf
 
Buenos dias. 
Una consulta algo curiosa, a ver si alguien me da un poco de luz. 
Tengo unos PRTF que creo con preformato. Tanto en impresora directamente 
como en PDF. 
en los dos casos tengo que hacer un PAGRTT(90) en el OVRPRTF. Llevan ya 
unos años funcionando perfectamente. 
Como supongo que os ha pasado a unos cuantos, el preformato no se ajusta 
igual para impresora que para PDF y al final opté por hacer dos 
preformatos diferentes. 
 Pero bueno, esto sólo es un comentario, porque lo que me falla no es el 
preformato y es el mismo PRTF en los dos casos. 
Resulta que a este printer le he tenido que añadir un campo con código de 
barras. En este caso un CODE128. Una vez que lo tengo cuadrado y operativo 
en la impresión, se me ocurre mirar el PDF y resulta que me sale 
totalmente descolocado. Se podría decir que se ha puesto él donde mejor le 
ha parecido, pero mirándolo bien, parece que tiene que ver con las 
coordenadas físicas del DINA4 en sí. 
Es como si al rotar 90º para hacer el PDF, lo rotara todo excepto el EAN 
que se queda en el mismo sitio físico que si fuera apaisado. 
Insisto, es el mismo PRTF que en la impresora y en los dos está con 
PAGRTT(90). 
Muy curioso, verdad? 

Salu2. 
Ú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: Preformatos ean y Pdf

[alberto]

Hola. Sí, pequeño detalle sin importancia.
Lo genero con el mismo OVRPRTF WSCST(*PDF). 




De: "Alex Martínez" 
Para:   "forum.help400" 
Fecha:  31/01/2019 13:40
Asunto: ** Newsletter ** Re: Preformatos ean y Pdf
Enviado por:forum.help400-boun...@listas.combios.es



Hola

¿y cómo generas el PDF? ¿ con 5722IP1  Infoprint Server o con otro 
software ?

El jue., 31 ene. 2019 a las 13:01, alberto () 
escribió:
Buenos dias. 
Una consulta algo curiosa, a ver si alguien me da un poco de luz. 
Tengo unos PRTF que creo con preformato. Tanto en impresora directamente 
como en PDF. 
en los dos casos tengo que hacer un PAGRTT(90) en el OVRPRTF. Llevan ya 
unos años funcionando perfectamente. 
Como supongo que os ha pasado a unos cuantos, el preformato no se ajusta 
igual para impresora que para PDF y al final opté por hacer dos 
preformatos diferentes. 
 Pero bueno, esto sólo es un comentario, porque lo que me falla no es el 
preformato y es el mismo PRTF en los dos casos. 
Resulta que a este printer le he tenido que añadir un campo con código de 
barras. En este caso un CODE128. Una vez que lo tengo cuadrado y operativo 
en la impresión, se me ocurre mirar el PDF y resulta que me sale 
totalmente descolocado. Se podría decir que se ha puesto él donde mejor le 
ha parecido, pero mirándolo bien, parece que tiene que ver con las 
coordenadas físicas del DINA4 en sí. 
Es como si al rotar 90º para hacer el PDF, lo rotara todo excepto el EAN 
que se queda en el mismo sitio físico que si fuera apaisado. 
Insisto, es el mismo PRTF que en la impresora y en los dos está con 
 PAGRTT(90). 
Muy curioso, verdad? 

Salu2. 


Ú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.

Preformatos ean y Pdf

[alberto]

Buenos dias.
Una consulta algo curiosa, a ver si alguien me da un poco de luz.
Tengo unos PRTF que creo con preformato. Tanto en impresora directamente 
como en PDF. 
en los dos casos tengo que hacer un PAGRTT(90) en el OVRPRTF. Llevan ya 
unos años funcionando perfectamente.
Como supongo que os ha pasado a unos cuantos, el preformato no se ajusta 
igual para impresora que para PDF y al final opté por hacer dos 
preformatos diferentes.
 Pero bueno, esto sólo es un comentario, porque lo que me falla no es el 
preformato y es el mismo PRTF en los dos casos.
Resulta que a este printer le he tenido que añadir un campo con código de 
barras. En este caso un CODE128. Una vez que lo tengo cuadrado y operativo 
en la impresión, se me ocurre mirar el PDF y resulta que me sale 
totalmente descolocado. Se podría decir que se ha puesto él donde mejor le 
ha parecido, pero mirándolo bien, parece que tiene que ver con las 
coordenadas físicas del DINA4 en sí.
Es como si al rotar 90º para hacer el PDF, lo rotara todo excepto el EAN 
que se queda en el mismo sitio físico que si fuera apaisado.
Insisto, es el mismo PRTF que en la impresora y en los dos está con 
PAGRTT(90).
Muy curioso, verdad?

Salu2.


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

RE: Entornos de prueba en internet

[alberto]

Pues no llegué a mirar si era este sitio exactamente, pero como servicio 
sí que es exactamente el que necesita mi colega.
. Muchas gracias!!



De: "XEM foro i5" 
Para:   "'forum.help400'" 
Fecha:  09/01/2019 08:45
Asunto: ** Newsletter ** RE: Entornos de prueba en internet
Enviado por:forum.help400-boun...@listas.combios.es



Hola Alberto,
Supongo que te refieres a éste: http://www.pub400.com/
No obstante tienen, de momento, el servicio cerrado por tener demasiado 
éxito (aprovechados hay en todas partes).
Dicen que este mes de enero van a decir algo.
Saludos,
Xavier
 
De: forum.help400-boun...@listas.combios.es 
 En nombre de alberto
Enviado el: miércoles, 9 de enero de 2019 7:43
Para: forum.help400 
Asunto: Entornos de prueba en internet
 
Buenos dias. 
El otro dia, un colega que quiere iniciarse en el mundo AS400 me preguntó 
si había en internet algún entorno para probar sus cosas e ir haciendo 
prácticas. 
Me acordé de que esto salió alguna vez en el Foro y que se proporcionó 
alguna dirección de Internet en la que te dabas de alta y te dejaban un 
pequeño entorno para tus cosas. 
Evidentemente sólo necesita un usuario. 
Alguien se acuerda de alguna de estas direcciones? 
Gracias! 
Ú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.

Entornos de prueba en internet

[alberto]

Buenos dias.
El otro dia, un colega que quiere iniciarse en el mundo AS400 me preguntó 
si había en internet algún entorno para probar sus cosas e ir haciendo 
prácticas.
Me acordé de que esto salió alguna vez en el Foro y que se proporcionó 
alguna dirección de Internet en la que te dabas de alta y te dejaban un 
pequeño entorno para tus cosas.
Evidentemente sólo necesita un usuario.
Alguien se acuerda de alguna de estas direcciones?
Gracias!

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

Re: As400 en datacenter

[alberto]

Si, hablando desde la teoría si. Pero hasta que no esté configurada y 
activa  la pata Macrolan y haga pruebas con un AS allí en Housting no 
podré saberlo. Y ya será demasiado tarde.
Ahora estamos moviendo servidores a traves de un canal VPNIP provisional a 
la espera de la pata definitiva.
Salu2


De: "Sergi Sitjes" 
Para:   "forum.help400" 
Fecha:  18/12/2018 10:30
Asunto: ** Newsletter ** Re: ** Newsletter ** Re: As400 en datacenter
Enviado por:forum.help400-boun...@listas.combios.es



Sin tener más detalles y sin ser un experto en el tema creo que el hecho 
de que esté todo dentro de la misma red macrolan debería ser una garantía. 
Quizás podrías poner un portátil o alguna cosa en el housing y hacer 
pruebas de latencia entre ese equipo y vuestra oficina. No será ni de 
lejos lo mismo que tener las aplicaciones allí pero si véis que el ping ya 
no es bueno... 

Saludos, 


Sergi Sitjes
Director Sistemes d'Informació/CIO
GENEBRE GROUP
E-mail: se...@genebre.es
Web:   http://www.genebre.es
Tel:  +34 93 298 80 02
Fax: +34 93 298 80 07 



De:"alberto"  
Para:"forum.help400"  
Fecha:18/12/2018 10:17 
Asunto:Re: ** Newsletter ** Re: As400 en datacenter 
Enviado por:forum.help400-boun...@listas.combios.es 



Hola Sergi. 
Nosotros ahora tenemos una RPV tipo Macrolan(lo digo por no decir el 
proveeder) con varias sedes y todas acceden al mismo AS400. 
Ahora, no hay probllemas de rendimiento con las comunicaciones entre AS y 
demás servidores, pero claro, ahora están todos juntos en la misma red 
física y virtual. 
Se trata de migrar todos los servidores principales al Cloud y hacer un 
Housing del AS que físicamente estraría al mismo Datacenter, pero 
comunicado con los servidores del Cloud. 
Sería una pata más de la misma Macrolan, todo con el mismo proveedor. 
Por ejemplo, tengo un serviror Domino con Xpages para la gestión 
documental que me trabaja contra el As400 a base de stored procedures. 
Dentro de la misma red el rendimiento es brutal, pero sacándolo de aquí ya 
tengo mis dudas. 
Salu2 


De:"Sergi Sitjes"  
Para:"forum.help400"  
Fecha:18/12/2018 08:51 
Asunto:** Newsletter ** Re: As400 en datacenter 
Enviado por:forum.help400-boun...@listas.combios.es 



Hola, 

Nosotros tenemos los equipos de backup en un CPD remoto a modo de housing. 
Lo que hicimos fue una extensión de nuestra LAN hacia el CPD del proveedor 
y la latencia es inferior a 1 milisegundo, o sea como si fuera una red 
local. Si lo haces por Internet la latencia será más alta seguro pero 
dependiendo quien te de las comunicaciones no tiene por que ser limitante 
para trabajar. Si tiras por esa via intenta que todos las redes se 
conecten a Internet con el mismo proveedor de acceso, justamente para no 
afectar a la latencia. 

Nosotros utilizamos la consola LAN indistintamente para el equipo en 
producción en la red local y el equipo de backup en el CPD remoto. 

Saludos, 


Sergi Sitjes
Director Sistemes d'Informació/CIO
GENEBRE GROUP
E-mail: se...@genebre.es
Web:   http://www.genebre.es
Tel:  +34 93 298 80 02
Fax: +34 93 298 80 07 



De:"alberto"  
Para:"forum.help400"  
Fecha:18/12/2018 07:21 
Asunto:As400 en datacenter 
Enviado por:forum.help400-boun...@listas.combios.es 



Buenos dias. 
Nos estamos planteando la posibilidad bastante seria de llevar nuestro 
AS400 en plan Housing a un datacenter. 
Alguno de vosotros lo tiene así? Cómo tenéis la cónsola del sistema? Da 
problemas? 
Luego tambien otra cosa: muchos de los servidores con los que se comunica 
estarían en el mismo datacenter, pero en un cloud privado. 
Otros en cambio estarían en una delegación. 
Algo especial a tener en cuenta? 
Problemas de rendimiento en conexiones con otros servidores ?(Mysql, 
Stored Procedures con Domino...etc) 
Puedo tener problemas por demasiados saltos en la traza? (ya sé que con el 
Telnet no los voy a tener, pero me refiero a Stored Procedures contra el 
AS) 
Se agraceden comentarios! 
Saludos 
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L. 




La información que contiene este correo electrónico es confidencial y 
compete exclusivamente al destinatario. Si Vd. ha recibido esta 
comunicación por error, por favor, notifíquelo inmediatamente al remitente 
y borre el mensaje junto con sus ficheros anexos sin leerlo, copiarlo, 
grabarlo, distribuirlo o divulgarlo o hacer cualquier otro uso de la 
información sin el consentimiento de Genebre S.A. El correo electrónico 
vía Internet no permite asegurar la confidencialidad o correcta recepción 
de los mensajes, por lo que Genebre no asume responsabilidad alguna por 
los daños causados.

The information contained in this communication is confidential, may be 
privileged and

Re: ** Newsletter ** Re: As400 en datacenter

[alberto]

Hola Sergi.
Nosotros ahora tenemos una RPV tipo Macrolan(lo digo por no decir el 
proveeder) con varias sedes y todas acceden al mismo AS400.
 Ahora, no hay probllemas de rendimiento con las comunicaciones entre AS y 
demás servidores, pero claro, ahora están todos juntos en la misma red 
física y virtual.
 Se trata de migrar todos los servidores principales al Cloud y hacer un 
Housing del AS que físicamente estraría al mismo Datacenter, pero 
comunicado con los servidores del Cloud.
Sería una pata más de la misma Macrolan, todo con el mismo proveedor.
Por ejemplo, tengo un serviror Domino con Xpages para la gestión 
documental que me trabaja contra el As400 a base de stored procedures.
 Dentro de la misma red el rendimiento es brutal, pero sacándolo de aquí 
ya tengo mis dudas.
Salu2


De: "Sergi Sitjes" 
Para:   "forum.help400" 
Fecha:  18/12/2018 08:51
Asunto: ** Newsletter ** Re: As400 en datacenter
Enviado por:forum.help400-boun...@listas.combios.es



Hola, 

Nosotros tenemos los equipos de backup en un CPD remoto a modo de housing. 
Lo que hicimos fue una extensión de nuestra LAN hacia el CPD del proveedor 
y la latencia es inferior a 1 milisegundo, o sea como si fuera una red 
local. Si lo haces por Internet la latencia será más alta seguro pero 
dependiendo quien te de las comunicaciones no tiene por que ser limitante 
para trabajar. Si tiras por esa via intenta que todos las redes se 
conecten a Internet con el mismo proveedor de acceso, justamente para no 
afectar a la latencia. 

Nosotros utilizamos la consola LAN indistintamente para el equipo en 
producción en la red local y el equipo de backup en el CPD remoto. 

Saludos, 


Sergi Sitjes
Director Sistemes d'Informació/CIO
GENEBRE GROUP
E-mail: se...@genebre.es
Web:   http://www.genebre.es
Tel:  +34 93 298 80 02
Fax: +34 93 298 80 07 



De:"alberto"  
Para:"forum.help400"  
Fecha:18/12/2018 07:21 
Asunto:As400 en datacenter 
Enviado por:forum.help400-boun...@listas.combios.es 



Buenos dias. 
Nos estamos planteando la posibilidad bastante seria de llevar nuestro 
AS400 en plan Housing a un datacenter. 
Alguno de vosotros lo tiene así? Cómo tenéis la cónsola del sistema? Da 
problemas? 
Luego tambien otra cosa: muchos de los servidores con los que se comunica 
estarían en el mismo datacenter, pero en un cloud privado. 
Otros en cambio estarían en una delegación. 
Algo especial a tener en cuenta? 
Problemas de rendimiento en conexiones con otros servidores ?(Mysql, 
Stored Procedures con Domino...etc) 
Puedo tener problemas por demasiados saltos en la traza? (ya sé que con el 
Telnet no los voy a tener, pero me refiero a Stored Procedures contra el 
AS) 
Se agraceden comentarios! 
Saludos 
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L. 




La información que contiene este correo electrónico es confidencial y 
compete exclusivamente al destinatario. Si Vd. ha recibido esta 
comunicación por error, por favor, notifíquelo inmediatamente al remitente 
y borre el mensaje junto con sus ficheros anexos sin leerlo, copiarlo, 
grabarlo, distribuirlo o divulgarlo o hacer cualquier otro uso de la 
información sin el consentimiento de Genebre S.A. El correo electrónico 
vía Internet no permite asegurar la confidencialidad o correcta recepción 
de los mensajes, por lo que Genebre no asume responsabilidad alguna por 
los daños causados.

The information contained in this communication is confidential, may be 
privileged and is intended for the exclusive use of the above named 
addressee. If you receive this communication in error, please notify the 
sender immediately and delete it, and all its attached documents. If you 
are not the intended recipient, you are expressly prohibited from reading, 
copying, distributing, disseminating or, in any other way, using any of 
the information without the Genebre S.A. consent. Please note that 
Internet e-mail guarantees neither the confidentiality nor the proper 
receipt of the message sent, so that Genebre shall not be liable for any 
damages caused. 
Ú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.

As400 en datacenter

[alberto]

Buenos dias.
Nos estamos planteando la posibilidad bastante seria de llevar nuestro 
AS400 en plan Housing a un datacenter.
Alguno de vosotros lo tiene así? Cómo tenéis la cónsola del sistema? Da 
problemas?
Luego tambien otra cosa: muchos de los servidores con los que se comunica 
estarían en el mismo datacenter, pero en un cloud privado.
Otros en cambio estarían en una delegación.
Algo especial a tener en cuenta?
Problemas de rendimiento en conexiones con otros servidores ?(Mysql, 
Stored Procedures con Domino...etc)
Puedo tener problemas por demasiados saltos en la traza? (ya sé que con el 
Telnet no los voy a tener, pero me refiero a Stored Procedures contra el 
AS)
Se agraceden comentarios!
Saludos

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

Re: Registro externo en procedimiento Solucion

[alberto]

Pues ya está.
No deja definir un array dentro de una DS definida con LIKEDS.
Entonces lo he definido así:
 D@RegDS E DS  extname(FESDTO) 
 D qualified
 DCliexclos  107601  0 DIM(99)
 D @Registro E DS  Extname(Fesdto) 
Todo como Extname.
Una curiosidad: tampoco me deja definir @regDS dentro del procedimiento. 
Lo tengo que definir en el principal, porque si no, me dice que no existe 
el campo @regds.Cliexclos.
Serán tonterías de la V6R1?
Por cierto, Javier Mora. Para qué usas el template en la deficición de la 
DS?
Salu2





De: "alberto" 
Para:   "forum.help400" 
Fecha:  14/12/2018 10:17
Asunto: ** Newsletter ** Re: Registro externo en procedimiento
Enviado por:forum.help400-boun...@listas.combios.es



Hola 
Creo que ya se cual es el problema(que no la solución). 
De hecho son dos problemas. SQL y procedimiento, porque en un programa con 
subrutinas y sin SQL funciona desde siempre. 
El problema lo tengo al definir que una parte de los campos del registro 
son un array. No tanto en la definición de la DS 
 D @RegDS  DS  likeDS(@registro) 
 d Cliexclos 107601s 0 DIM(99)   
Si defino el array  en la misma DS que recibe los datos: 
Exec SQL Fetch Next From @cursor into :@reg; 
directamente el SQL no me lo reconoce como variable. 
Digo: vale, pues la defino sin array y muevo los datos a otra que tenga 
array. 
pues aquí está el problema. 
 Desde el momento que defino el array y el programa tiene un sólo 
procedimiento, ya no me compila, porque los procedimientos por lo que veo 
no me están reconociendo un array de 99 elementos, sino un campo numérico 
de más de 63 dígitos. 
Esto me pasa tanto definiendo el array dentro del procedimiento como 
fuera. Tanto si la hago servir como si no. 
 Me sigue faltando el compilar en 7.1 que no he podido. 
Salu2 
  




De:"Juan Carlos Paredes"  
Para:"forum.help400"  
Fecha:12/12/2018 18:00 
Asunto:** Newsletter ** Re: Registro externo en procedimiento 
Enviado por:forum.help400-boun...@listas.combios.es 



Me suena haberme encontrado con ese problema en alguna ocasión. Y creo 
recordar que lo solucioné definiendo el fichero en una hoja F específica 
del procedimiento, como Input y UsrOpn, haciendo una apertura en falso 
(para que no se queje el compilador de que no hay operación de apertura) 
y definiendo la DS como LikeRec(NombreRegistro)

Un saludo.

Juan Carlos

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

> 2018 09:20:04 +0100
> From: "alberto" 
> Subject: Registro externo en procedimiento
> To: "forum.help400" 
> Message-ID:
> 
> 
> Content-Type: text/plain; charset="iso-8859-1"
> 
> Hola Foro.
> Me ha surgido una cosa nueva, que a ver cómo lo resolvéis vosotros:
> tengo definido dos registros externos como tal:
>  D  @regext  E DS  EXTNAME(FESDTO)  ?
>  D  Cliexclos107601s 0 DIM(99)  ?
>  D   E DS  EXTNAME(LARTTF1)  ?
>  D  TARE  10405P 3 DIM(99)
> 
> El segundo lo hago servir en el cuerpo principal del programa, y el
> primero @regext lo hago servir en un procedimiento, para me de el
> resultado de un Select *  y me cree un array con los campos que hay en
> 
> esas posiciones.
> En el procedimiento lo tengo definido así:
>  d@REG DS  lIKEDS(@REGEXT)
>   ..
>Exec SQL Fetch Next From @cursor into :@reg;
> Supongo que esto lo habéis hecho servir muchos de vosotros.
> El caso es que al compilar me da error en el que paso como parámetro.
> Del
> que hay en el cuerpo principal no se queja, pero con el otro no me
> deja
> compilar.
> En el procedimiento lo tengo definido como he dicho antes, pero vamos,
> que
> ya he probado varias combinaciones diferentes y no hay manera.
> Como muy poco, me da un error de nivel 20.pero no voy a aburrir con
> los
> errores diferentes que me da al compilar.
> Alguien se ha encontrado con algo parecido?
> Supongo que lo más rápido es pasar del procedimiento y hacer una
> subrutina
> de las de toda la vida, pero seguro que IBM ha resuelto esto y no me
> lo ha
> dicho.
> Saludos
> 
> El mié., 12 dic. 2018 a las 5:01,
>  escribió:
> 
>> Envíe los mensajes para la lista Forum.help400 a
>> forum.help400@listas.combios.es
>> 
>> Para subscribirse o anular su subscripción a través de la WEB
>> 
>> http://listas.combios.es/cgi-bin/mailman/listinfo/forum.help400
>> 
>> O por correo electrónico, enviando un mensaje con el texto "help"
>> en
>> el asunto (subject) o en el cuerpo a:
>> forum.hel

Re: Registro externo en procedimiento

[alberto]

Hola
Creo que ya se cual es el problema(que no la solución).
De hecho son dos problemas. SQL y procedimiento, porque en un programa con 
subrutinas y sin SQL funciona desde siempre.
El problema lo tengo al definir que una parte de los campos del registro 
son un array. No tanto en la definición de la DS
 D @RegDS  DS  likeDS(@registro)
 d Cliexclos 107601s 0 DIM(99) 
Si defino el array  en la misma DS que recibe los datos:
Exec SQL Fetch Next From @cursor into :@reg; 
directamente el SQL no me lo reconoce como variable.
Digo: vale, pues la defino sin array y muevo los datos a otra que tenga 
array.
pues aquí está el problema.
 Desde el momento que defino el array y el programa tiene un sólo 
procedimiento, ya no me compila, porque los procedimientos por lo que veo 
no me están reconociendo un array de 99 elementos, sino un campo numérico 
de más de 63 dígitos.
Esto me pasa tanto definiendo el array dentro del procedimiento como 
fuera. Tanto si la hago servir como si no.
 Me sigue faltando el compilar en 7.1 que no he podido.
Salu2
 
 



De: "Juan Carlos Paredes" 
Para:   "forum.help400" 
Fecha:  12/12/2018 18:00
Asunto: ** Newsletter ** Re: Registro externo en procedimiento
Enviado por:forum.help400-boun...@listas.combios.es



Me suena haberme encontrado con ese problema en alguna ocasión. Y creo 
recordar que lo solucioné definiendo el fichero en una hoja F específica 
del procedimiento, como Input y UsrOpn, haciendo una apertura en falso 
(para que no se queje el compilador de que no hay operación de apertura) 
y definiendo la DS como LikeRec(NombreRegistro)

Un saludo.

Juan Carlos

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

> 2018 09:20:04 +0100
> From: "alberto" 
> Subject: Registro externo en procedimiento
> To: "forum.help400" 
> Message-ID:
> 
> 
> Content-Type: text/plain; charset="iso-8859-1"
> 
> Hola Foro.
> Me ha surgido una cosa nueva, que a ver cómo lo resolvéis vosotros:
> tengo definido dos registros externos como tal:
>  D  @regext  E DS  EXTNAME(FESDTO)  ?
>  D  Cliexclos107601s 0 DIM(99)  ?
>  D   E DS  EXTNAME(LARTTF1)  ?
>  D  TARE  10405P 3 DIM(99)
> 
> El segundo lo hago servir en el cuerpo principal del programa, y el
> primero @regext lo hago servir en un procedimiento, para me de el
> resultado de un Select *  y me cree un array con los campos que hay en
> 
> esas posiciones.
> En el procedimiento lo tengo definido así:
>  d@REG DS  lIKEDS(@REGEXT)
>   ..
>Exec SQL Fetch Next From @cursor into :@reg;
> Supongo que esto lo habéis hecho servir muchos de vosotros.
> El caso es que al compilar me da error en el que paso como parámetro.
> Del
> que hay en el cuerpo principal no se queja, pero con el otro no me
> deja
> compilar.
> En el procedimiento lo tengo definido como he dicho antes, pero vamos,
> que
> ya he probado varias combinaciones diferentes y no hay manera.
> Como muy poco, me da un error de nivel 20.pero no voy a aburrir con
> los
> errores diferentes que me da al compilar.
> Alguien se ha encontrado con algo parecido?
> Supongo que lo más rápido es pasar del procedimiento y hacer una
> subrutina
> de las de toda la vida, pero seguro que IBM ha resuelto esto y no me
> lo ha
> dicho.
> Saludos
> 
> El mié., 12 dic. 2018 a las 5:01,
>  escribió:
> 
>> Envíe los mensajes para la lista Forum.help400 a
>> forum.help400@listas.combios.es
>> 
>> Para subscribirse o anular su subscripción a través de la WEB
>> 
>> http://listas.combios.es/cgi-bin/mailman/listinfo/forum.help400
>> 
>> O por correo electrónico, enviando un mensaje con el texto "help"
>> en
>> el asunto (subject) o en el cuerpo a:
>> forum.help400-requ...@listas.combios.es
>> 
>> Puede contactar con el responsable de la lista escribiendo a:
>> forum.help400-ow...@listas.combios.es
>> 
>> Si responde a algún contenido de este mensaje, por favor, edite la
>> linea del asunto (subject) para que el texto sea mas especifico que:
>> "Re: Contents of Forum.help400 digest...". Además, por favor,
>> incluya
>> en la respuesta sólo aquellas partes del mensaje a las que está
>> respondiendo.
>> 
>> Asuntos del día:
>> 
>> 1. Registro externo en procedimiento (alberto)
>> 2. Re: Registro externo en procedimiento (Alex Martínez)
>> 3. RE: Registro externo en procedimiento (Javier Mora)
>> 4. Registro externo en procedimiento (alberto)
>> 
>> 
> --

RE: Registro externo en procedimiento

[alberto]

Probaré por curiosidad pero haciendo un programa expresamente para probar.
 Precisamente lo que quiero es ahorrarme definir los campos del fichero, 
porque es de esos antiguos y tiene 130 campos.
Tambien pasa que si no los meto en un arrai, me cambia la lógica del 
programa porque tengo que llamarlos uno por uno en vez de hacer un bucle 
con un %lookup dentro
Igualmente,  quiero probarlo en una 7.1 a ver si compila.
Éstos son los problemas del dia a dia que nos encontramos cuando queremos 
modernizar aplicaciones. A veces el tema se complica.
El caso es que me ha tocado meterle mano a un programa de más de 20 años, 
una modificación me llevaba a otra(por ej, quitar un GOTO)y he dicho, pues 
nada, vamos a hacerlo todo nuevo. 
Seguramente hoy en dia a nadie se le ocurriría hacer un fichero con 130 
campos. 
Ya iré informando.
Salu2




De: "Javier Mora" 
Para:   "forum.help400" 
Fecha:  12/12/2018 19:06
Asunto: ** Newsletter ** RE: Registro externo en procedimiento
Enviado por:forum.help400-boun...@listas.combios.es



Sólo por probar:
 
1.   Define una DS externa para utilizarla como “diccionario” de los 
diferentes “tipos” de cada campo.
D MAECLI_T  E DS  ExtName( MAECLI ) 
D Template Qualified
2.   Define la DS con los campos que devolverá del cursor (esto no es 
estrictamente necesario):
D SqlFila_T   DS  Template 
D Qualified 
D   clcodiLike( MAECLI_T.clcodi )
D   clnombLike( MAECLI_T.clnomb )
D   cldni Like( MAECLI_T.cldni )
3.   Define la DS donde almacenarás el resultado del Fetch:
D filaDS  LikeDs( SqlFila_T )
4.   Realiza la lectura del cursor:
Exec Sql FETCH csr INTO :fila;
 
Hasta donde yo sé, la estructura que utilices en el FETCH debe ser global 
al programa. Creo recordar que en PTFs recientes se podían utilizar DS 
locales (seguro que en 6.1 no está esta opción).
 
Todas las estructuras de datos que definas directamente como LIKEDS de 
otro estructura (aunque sea externa) creo que el precompilador no la va a 
tener en cuenta. Sólo si te defines un DS con campos definidos en función 
de otro campo (LIKE) o directamente poniendo su tipo funcionará con SQL 
incrustado.
 
A mí esta técnica me funciona desde versión 5.4. Revisaré si en 7.2 (donde 
estoy) se puede usar directamente el LIKEDS o LIKEREC y DS locales con el 
SQL incrustado (estoy al último nivel de PTF).
 
Ya nos cuentas.
 
Javier Mora
De: forum.help400-boun...@listas.combios.es [
mailto:forum.help400-boun...@listas.combios.es] En nombre de alberto
Enviado el: miércoles, 12 de diciembre de 2018 11:00
Para: forum.help400
Asunto: Registro externo en procedimiento
 
Alex, Javier, os respondo a los dos en el mismo email: 
Este es mi AS de desarrollo, que está en V6r1(espero que por poco tiempo). 

 Luego si puedo me pasaré el fuente al de producción (V7R1) y lo intentaré 
compilar. 
Alex: no, con qualified me da el mismo error, ya lo había probado.  :( 
tampoco me deja ponerlo despues del LikeDS. 
Javier: Pues el error depende, porque he probado varias combinaciones. En 
el caso del ejemplo que he enviado, el error es directamente de SQL 
diciendo que la variable @Reg no existe, 
cuando ya véis que la estoy definiendo como Likeds. 
Si por ejemplo defino el array dentro del procedimiento,  tal que así: 
d@REG DS  lIKEDS(@REGEXT) 
D  Cliexclos107601s 0 DIM(99)   
me da estos 3 errores: 
*RNF0503 20  1 La longitud del elemento numérico es de más de 63 
dígitos; 
   toma el valor por omisión de 63.
*RNF3602 20  1 La entrada no está en blanco para una definición de 
campo; 
   toma el valor por omisión de blancos.  
*RNF3703 20  1 No se ha especificado el subcampo o la definición de

   parámetro en un grupo.




De:"Javier Mora"  
Para:"forum.help400"  
Fecha:12/12/2018 10:06 
Asunto:** Newsletter ** RE: Registro externo en procedimiento 
Enviado por:forum.help400-boun...@listas.combios.es 




¿Puedes poner el mensaje de error de compilación y en qué sentencia? ¿En 
qué versión de sistema operativo estás? 
  
El precompilador de SQL para ILE RPG no anda muy fino y depende de cómo 
estén definidos los campos y estructuras te genera errores del tipo “no 
utilizable”. Creo (de memoria) que en las últimas versiones del compilador 
(PTFs) este tema está solucionado, aunque no estoy muy seguro. 
  
Javier Mora 
  
De: forum.help400-boun...@listas.combios.es [
mailto:forum.help400-boun...@listas.combios.es] En nombre de alberto
Enviado el: miércoles, 12 de diciembre de 2018 9:20
Para: forum.help400
Asunto: Registro externo en procedimiento 
  
Hola Foro. 
Me ha surgido una cosa nueva, que a ver cómo lo resolvéis

Registro externo en procedimiento

[alberto]

Buenas tardes.
Si defino @reg como Extname dentro del procedimiento
 D @Reg  E DS  EXTNAME(FESDTO)
 d Cliexclos 107601s 0 DIM(99) 
  me da error de SQL al compilar, porque no me acepta esta variable para 
hacer un 
 Exec SQL Fetch Next From @cursor into :@reg; 
Si le quito el 
d Cliexclos 107601s 0 DIM(99) 
Cosa que no me interesa, pero es por probar, pues tampoco, pero me da 
campo por campo(hay 130 campos en el fichero, como éste error, en todos. O 
sea, 130 errores como éste):

El nombre EDSITU no está redenominado en la descripción externa FESDTO; se 
ha ignorado el nombre externo. 




De: "Jesus Roberto Finol Luque" 
Para:   forum.help400@listas.combios.es
Fecha:  12/12/2018 16:32
Asunto: ** Newsletter ** Registro externo en procedimiento
Enviado por:forum.help400-boun...@listas.combios.es



Hola Alberto, lo mas posible es que el problema es el LIKE, ya que eso no 
define la estructura sino que la iguala a otra, el compilador RPG la 
acepta y asimila, pero SQL es otra cosa, te sugiero que cambies el LIKE y 
definas la estructura con el mismo EXTNAME.

Saludos.-
-
Date: Wed, 12 Dec 2018 09:20:04 +0100
From: "alberto" 
Subject: Registro externo en procedimiento
To: "forum.help400" 
Message-ID:
<
ofe4c8c25e.48325279-onc1258361.002c3094-c1258361.002dc...@arcadie.es>
Content-Type: text/plain; charset="iso-8859-1"

Hola Foro.
Me ha surgido una cosa nueva, que a ver cómo lo resolvéis vosotros:
tengo definido dos registros externos como tal:
 D  @regext  E DS  EXTNAME(FESDTO)  ?
 D  Cliexclos107601s 0 DIM(99)  ?
 D   E DS  EXTNAME(LARTTF1)  ?
 D  TARE  10405P 3 DIM(99) 

El segundo lo hago servir en el cuerpo principal del programa, y el 
primero @regext lo hago servir en un procedimiento, para me de el 
resultado de un Select *  y me cree un array con los campos que hay en 
esas posiciones. 
En el procedimiento lo tengo definido así:
 d@REG DS  lIKEDS(@REGEXT) 
  .. 
   Exec SQL Fetch Next From @cursor into :@reg;
Supongo que esto lo habéis hecho servir muchos de vosotros. 
El caso es que al compilar me da error en el que paso como parámetro. Del 
que hay en el cuerpo principal no se queja, pero con el otro no me deja 
compilar.
En el procedimiento lo tengo definido como he dicho antes, pero vamos, 
que 
ya he probado varias combinaciones diferentes y no hay manera. 
Como muy poco, me da un error de nivel 20.pero no voy a aburrir con los 
errores diferentes que me da al compilar.
Alguien se ha encontrado con algo parecido?
Supongo que lo más rápido es pasar del procedimiento y hacer una 
subrutina 
de las de toda la vida, pero seguro que IBM ha resuelto esto y no me lo 
ha 
dicho.
Saludos  

El mié., 12 dic. 2018 a las 5:01,  escribió:
Envíe los mensajes para la lista Forum.help400 a
forum.help400@listas.combios.es

Para subscribirse o anular su subscripción a través de la WEB
http://listas.combios.es/cgi-bin/mailman/listinfo/forum.help400

O por correo electrónico, enviando un mensaje con el texto "help" en
el asunto (subject) o en el cuerpo a:
forum.help400-requ...@listas.combios.es

Puede contactar con el responsable de la lista escribiendo a:
forum.help400-ow...@listas.combios.es

Si responde a algún contenido de este mensaje, por favor, edite la
linea del asunto (subject) para que el texto sea mas especifico que:
"Re: Contents of Forum.help400 digest...". Además, por favor, incluya
en la respuesta sólo aquellas partes del mensaje a las que está
respondiendo.


Asuntos del día:

   1. Registro externo en procedimiento (alberto)
   2. Re: Registro externo en procedimiento (Alex Martínez)
   3. RE: Registro externo en procedimiento (Javier Mora)
   4. Registro externo en procedimiento (alberto)


------

Message: 1
Date: Wed, 12 Dec 2018 09:20:04 +0100
From: "alberto" 
Subject: Registro externo en procedimiento
To: "forum.help400" 
Message-ID:
<
ofe4c8c25e.48325279-onc1258361.002c3094-c1258361.002dc...@arcadie.es>
Content-Type: text/plain; charset="iso-8859-1"

Hola Foro.
Me ha surgido una cosa nueva, que a ver cómo lo resolvéis vosotros:
tengo definido dos registros externos como tal:
 D  @regext  E DS  EXTNAME(FESDTO)  ?
 D  Cliexclos107601s 0 DIM(99)  ?
 D   E DS  EXTNAME(LARTTF1)  ?
 D  TARE  10405P 3 DIM(99) 

El segundo lo hago servir en el cuerpo principal del programa, y el 
primero @regext lo hago servir en un procedimiento, para me de el 
resultado de un Select *  y me cree un array con los

Registro externo en procedimiento

[alberto]

Alex, Javier, os respondo a los dos en el mismo email:
Este es mi AS de desarrollo, que está en V6r1(espero que por poco tiempo).
 Luego si puedo me pasaré el fuente al de producción (V7R1) y lo intentaré 
compilar.
Alex: no, con qualified me da el mismo error, ya lo había probado.  :( 
tampoco me deja ponerlo despues del LikeDS.
Javier: Pues el error depende, porque he probado varias combinaciones. En 
el caso del ejemplo que he enviado, el error es directamente de SQL 
diciendo que la variable @Reg no existe,
cuando ya véis que la estoy definiendo como Likeds.
Si por ejemplo defino el array dentro del procedimiento,  tal que así:
d@REG DS  lIKEDS(@REGEXT) 
D  Cliexclos107601s 0 DIM(99) 
me da estos 3 errores:
*RNF0503 20  1 La longitud del elemento numérico es de más de 63 
dígitos;
   toma el valor por omisión de 63.  
*RNF3602 20  1 La entrada no está en blanco para una definición de 
campo;
   toma el valor por omisión de blancos.  
*RNF3703 20  1 No se ha especificado el subcampo o la definición de  
   parámetro en un grupo.  




De: "Javier Mora" 
Para:   "forum.help400" 
Fecha:  12/12/2018 10:06
Asunto: ** Newsletter ** RE: Registro externo en procedimiento
Enviado por:forum.help400-boun...@listas.combios.es



¿Puedes poner el mensaje de error de compilación y en qué sentencia? ¿En 
qué versión de sistema operativo estás?
 
El precompilador de SQL para ILE RPG no anda muy fino y depende de cómo 
estén definidos los campos y estructuras te genera errores del tipo “no 
utilizable”. Creo (de memoria) que en las últimas versiones del compilador 
(PTFs) este tema está solucionado, aunque no estoy muy seguro.
 
Javier Mora
 
De: forum.help400-boun...@listas.combios.es [
mailto:forum.help400-boun...@listas.combios.es] En nombre de alberto
Enviado el: miércoles, 12 de diciembre de 2018 9:20
Para: forum.help400
Asunto: Registro externo en procedimiento
 
Hola Foro. 
Me ha surgido una cosa nueva, que a ver cómo lo resolvéis vosotros: 
tengo definido dos registros externos como tal: 
 D  @regext  E DS  EXTNAME(FESDTO)  ? 
 D  Cliexclos107601s 0 DIM(99)  ? 
 D   E DS  EXTNAME(LARTTF1)  ? 
 D  TARE  10405P 3 DIM(99) 

El segundo lo hago servir en el cuerpo principal del programa, y el 
primero @regext lo hago servir en un procedimiento, para me de el 
resultado de un Select *  y me cree un array con los campos que hay en 
esas posiciones. 
En el procedimiento lo tengo definido así: 
 d@REG DS  lIKEDS(@REGEXT) 
  .. 
   Exec SQL Fetch Next From @cursor into :@reg; 
Supongo que esto lo habéis hecho servir muchos de vosotros. 
El caso es que al compilar me da error en el que paso como parámetro. Del 
que hay en el cuerpo principal no se queja, pero con el otro no me deja 
compilar. 
En el procedimiento lo tengo definido como he dicho antes, pero vamos, que 
ya he probado varias combinaciones diferentes y no hay manera. 
Como muy poco, me da un error de nivel 20.pero no voy a aburrir con los 
errores diferentes que me da al compilar. 
Alguien se ha encontrado con algo parecido? 
Supongo que lo más rápido es pasar del procedimiento y hacer una subrutina 
de las de toda la vida, pero seguro que IBM ha resuelto esto y no me lo ha 
dicho. 
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.

Registro externo en procedimiento

[alberto]

Hola Foro.
Me ha surgido una cosa nueva, que a ver cómo lo resolvéis vosotros:
tengo definido dos registros externos como tal:
 D  @regext  E DS  EXTNAME(FESDTO)  ?
 D  Cliexclos107601s 0 DIM(99)  ?
 D   E DS  EXTNAME(LARTTF1)  ?
 D  TARE  10405P 3 DIM(99) 
 
El segundo lo hago servir en el cuerpo principal del programa, y el 
primero @regext lo hago servir en un procedimiento, para me de el 
resultado de un Select *  y me cree un array con los campos que hay en 
esas posiciones. 
En el procedimiento lo tengo definido así:
 d@REG DS  lIKEDS(@REGEXT) 
  .. 
   Exec SQL Fetch Next From @cursor into :@reg;
Supongo que esto lo habéis hecho servir muchos de vosotros. 
El caso es que al compilar me da error en el que paso como parámetro. Del 
que hay en el cuerpo principal no se queja, pero con el otro no me deja 
compilar.
En el procedimiento lo tengo definido como he dicho antes, pero vamos, que 
ya he probado varias combinaciones diferentes y no hay manera. 
Como muy poco, me da un error de nivel 20.pero no voy a aburrir con los 
errores diferentes que me da al compilar.
Alguien se ha encontrado con algo parecido?
Supongo que lo más rápido es pasar del procedimiento y hacer una subrutina 
de las de toda la vida, pero seguro que IBM ha resuelto esto y no me lo ha 
dicho.
Saludos

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

Re: ** Newsletter ** Re: Emulación impresora con iAccess Solutions

[alberto]

Buenos dias.
Estoy en la 1.1.7.2.
 Bajo la última y vuelvo a probar.
Gracias



De: "Alex Martínez" 
Para:   "forum.help400" 
Fecha:  05/12/2018 14:43
Asunto: ** Newsletter ** Re: Emulación impresora con iAccess Solutions
Enviado por:forum.help400-boun...@listas.combios.es



Hola

¿qué versión de ACS utilizas? La última es la 1.1.8.1 

¿la has actualizado recientemente?

El mié., 5 dic. 2018 a las 13:20, alberto () 
escribió:
Hola Foro. una cosa más que extraña. 
He probado con dos impresoras diferentes el mismo listado una Ricoh y una 
Kyocera. Las dos están a través de dos pc's con emulación de iAccess 
Solutions. 
El caso es un listado de 132 columnas con 6 LPI y 10 CPI. Nada en 
especial. El listado genera varias páginas. Si las imprimo de una en una, 
me sale correcto, pero si imprimo más de una, me reduce el tamaño de los 
caracteres a la mitad. 
Me he quedado a cuadros. 
Hasta ahora, este listado salía por una impresora con emulación Rumba y 
salía perfecto. 
Yo cuando configuré la impresora con el iAccess, evidentemente para hacer 
pruebas lo hice con una sóla página y todo correcto, pero al listar más de 
una, se desmadra. 
Alguna pista??? 
Gracias 

Ú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.

Emulación impresora con iAccess Solutions

[alberto]

Hola Foro. una cosa más que extraña.
He probado con dos impresoras diferentes el mismo listado una Ricoh y una 
Kyocera. Las dos están a través de dos pc's con emulación de iAccess 
Solutions.
El caso es un listado de 132 columnas con 6 LPI y 10 CPI. Nada en 
especial. El listado genera varias páginas. Si las imprimo de una en una, 
me sale correcto, pero si imprimo más de una, me reduce el tamaño de los 
caracteres a la mitad.
Me he quedado a cuadros.
Hasta ahora, este listado salía por una impresora con emulación Rumba y 
salía perfecto.
Yo cuando configuré la impresora con el iAccess, evidentemente para hacer 
pruebas lo hice con una sóla página y todo correcto, pero al listar más de 
una, se desmadra.
Alguna pista???
Gracias

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

Re: diferentes tablas con el Mismo nombre del registro DDS

[alberto]

Haciendo memoria...(corregidme si me equivoco) me suena que los Output  no 
se podían redenominar. Lo tienes definido como Output?




De: "Juan Gutierrez Ruiz" 
Para:   "forum.help400" , 
"forum.help400-requ...@listas.combios.es" 

Fecha:  27/11/2018 22:18
Asunto: ** Newsletter ** diferentes tablas con el Mismo nombre del 
registro DDS
Enviado por:forum.help400-boun...@listas.combios.es



hola Formo
nuevament yo


tengo 2 tablas DDS PF en diferentes librerias
los campos son diferentes sin embargo el nombre del registro es el mismo 
en ambas tablas

estoy haciendo un Logico LF para la primera tabla indicandole la librerias 
de donde quiero tomar esos datos

el RPGILE  aunque el nombre de las tablas son diferentes los registros son 
son iguales y al compilarlo me manda error de que ya existe ese nombre de 
registro aunque le de un RENAME en la hoja F

como puedo renombrarlo
alguna idea ??
gracias de ante mano





Ú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: Impresora Zebra

[alberto]

Buenas.
Con esta configuración mas la calibración, ya está conseguido.
El truco parece que está en que no hay que poner como fabricante ninguna 
impresora, sino:
Fabricante, tipo y modelo  . . . MFRTYPMDL  *WSCST 
Objeto personaliz est trabajo  . WSCST  QWPDEFAULT 
Gracias!! 

 Cambiar cola de salida (CHGOUTQ) 
 
Teclee elecciones, pulse Intro. 
 
Cola de salida . . . . . . . . . OUTQ > PRTVACA 
  Biblioteca . . . . . . . . . .  *LIBL 
Tamaño máximo archivo en spool:  MAXPAGES 
  Número de páginas  . . . . . .*NONE 
  Hora de inicio . . . . . . . . 
  Hora de finalización . . . . . 
 + para más valores 
Orden de archivos en cola  . . . SEQ*FIFO 
Sistema remoto . . . . . . . . . RMTSYS *INTNETADR
 
 
Cola de impresora remota . . . . RMTPRTQ'RAW' 
Transcriptores arranq automát  . AUTOSTRWTR 1 
Cola para mensajes transcrip . . MSGQ   QSYSOPR
  Biblioteca . . . . . . . . . .  QSYS 
Tipo de conexión . . . . . . . . CNNTYPE*IP 
Tipo de destino  . . . . . . . . DESTTYPE   *OTHER 
Fabricante, tipo y modelo  . . . MFRTYPMDL  *WSCST 
Objeto personaliz est trabajo  . WSCST  QWPDEFAULT 
  Biblioteca . . . . . . . . . .  QSYS 
Configuración de imagen  . . . . IMGCFG *NONE 
Dirección internet . . . . . . . INTNETADR  '172.16.2.42'
Clase VM/MVS . . . . . . . . . . CLASS  *SAME 
Alm Interm Control Formularios   FCB*SAME 
Opciones de destino  . . . . . . DESTOPT*NONE   
 
Imprimir página separadora . . . SEPPAGE*NO 
Opción definida por el usuario   USRDFNOPT  *NONE 
 + para más valores 
Objeto definido por el usuario:  USRDFNOBJ 
  Objeto . . . . . . . . . . . .*NONE 
Biblioteca . . . . . . . . . 
  Tipo de objeto . . . . . . . . 
Programa controlador usuario . . USRDRVPGM  *NONE 
  Biblioteca . . . . . . . . . . 
ASP de archivo en spool  . . . . SPLFASP*SYSTEM
Texto descriptivo  . . . . . . . TEXT   *BLANK 
Visualizar cualquier archivo . . DSPDTA *NO 
Separadores de trabajos  . . . . JOBSEP 0 
Controlado por operador  . . . . OPRCTL *YES 
Cola de datos  . . . . . . . . . DTAQ   *NONE 
  Biblioteca . . . . . . . . . . 
Autorización a comprobar . . . . AUTCHK *OWNER 




De: "Fernando Idem" 
Para:   "forum.help400" 
Fecha:  22/10/2018 16:14
Asunto: ** Newsletter ** Re: Impresora Zebra
Enviado por:forum.help400-boun...@listas.combios.es



Por lo que me cuentas, creo que el problema es de calibración. Si la 
tienes por IP, pon la IP en el explorer, para entrar en a configuración. 
En <> vas a la opcion 
<> 

 
Si te pide contraseña es 1234

También tenemos esos modelos conectadas por USB a los ordenadores y en 
este caso y cuando ocurre esto es porque está mal calibrada. Para 
calibrarla hay que dejar pulsado el único botón que hay en el frontal y 
hace cuatro series de destellos luminosos: 1º un parpadeo, 2º dos 
parpadeos, 3º tres parpadeos, 4º cuatro parpadeos y después soltamos el 
botón pulsado para terminar el calibrado.
  
Mira a ver si esto te ayuda.

Un saludo

El lun., 22 oct. 2018 a las 15:50, alberto () 
escribió:
Hola Fernando. 
Es una Zebra Gk420t. 
Funcionar funciona, pero te explico: 
 trabajo con EZL/ZPL. Le envio los ficheros con el formato y los datos. 
Estos ficheros los uso hace años con Zebras o Intermec o Honeyway que 
tengo por LPT o USB , pero al enviarlos a ésta que es la primera que me 
compro por IP, por cada etiqueta que envio, me hace dos .Una en blanco y 
otra más movida hacia abajo. Por eso estoy descartando entre otras cosas 
ese punto de la configuración. Entiendo que los ficheros tienen que ser 
iguales independientemente del tipo de conexión que tenga la impresora. 
Saludos!. 




De:"Fernando Idem"  
Para:"forum.help400"  
Fecha:22/10/2018 14:41 
Asunto:** Newsletter ** Re: Impresora Zebra 
Enviado por:forum.help400-boun...@listas.combios.es 



¿Que tipo de impresora es?. Nosotros tenemos algunas y están en red. 
Saludos 

El lun., 22 oct. 2018 a las 13:00,  escribió: 
Hola, 

Mira aqui: 
http://www-01.ibm.com/support/docview.wss?uid=nas8N1019605 

Saludos 

Martí Riera 


Missatge de alberto  del dia dl., 22 d’oct. 
2018 a les 12:53: 
Hola compañeros. 
Alguien tiene el link a la página de IBM que decía los modelos 
equivalentes a IBM de otras impresoras? 
Quiero configurar una Zebra por red y no sé qué modelo ponerle en el 
CRTOUTQ. 
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

Re: Impresora Zebra

[alberto]

Hola Fernando.
Es una Zebra Gk420t.
Funcionar funciona, pero te explico:
 trabajo con EZL/ZPL. Le envio los ficheros con el formato y los datos. 
Estos ficheros los uso hace años con Zebras o Intermec o Honeyway que 
tengo por LPT o USB , pero al enviarlos a ésta que es la primera que me 
compro por IP, por cada etiqueta que envio, me hace dos .Una en blanco y 
otra más movida hacia abajo. Por eso estoy descartando entre otras cosas 
ese punto de la configuración. Entiendo que los ficheros tienen que ser 
iguales independientemente del tipo de conexión que tenga la impresora.
Saludos!.




De: "Fernando Idem" 
Para:   "forum.help400" 
Fecha:  22/10/2018 14:41
Asunto: ** Newsletter ** Re: Impresora Zebra
Enviado por:forum.help400-boun...@listas.combios.es



¿Que tipo de impresora es?. Nosotros tenemos algunas y están en red.
Saludos

El lun., 22 oct. 2018 a las 13:00,  escribió:
Hola,

Mira aqui:
http://www-01.ibm.com/support/docview.wss?uid=nas8N1019605

Saludos

Martí Riera


Missatge de alberto  del dia dl., 22 d’oct. 
2018 a les 12:53:
Hola compañeros. 
Alguien tiene el link a la página de IBM que decía los modelos 
equivalentes a IBM de otras impresoras? 
Quiero configurar una Zebra por red y no sé qué modelo ponerle en el 
CRTOUTQ. 
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: Impresora Zebra

[alberto]

Gracias Marti
;)




De: marti.ri...@gmail.com
Para:   "Forum.Help400" 
Fecha:  22/10/2018 13:09
Asunto: ** Newsletter ** Re: Impresora Zebra
Enviado por:forum.help400-boun...@listas.combios.es



Hola,

Mira aqui:
http://www-01.ibm.com/support/docview.wss?uid=nas8N1019605

Saludos

Martí Riera


Missatge de alberto  del dia dl., 22 d’oct. 
2018 a les 12:53:
Hola compañeros. 
Alguien tiene el link a la página de IBM que decía los modelos 
equivalentes a IBM de otras impresoras? 
Quiero configurar una Zebra por red y no sé qué modelo ponerle en el 
CRTOUTQ. 
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.

RE: Error en SQL dinámico con prepare y execute

[alberto]

Pues sí señor. Era eso.
Muchas gracias!!!




De: "Sergio Martinez Roig" 
Para:   "forum.help400" 
Fecha:  16/10/2018 11:59
Asunto: ** Newsletter ** RE: Error en SQL dinámico con prepare y execute
Enviado por:forum.help400-boun...@listas.combios.es



Fíjate en la cláusula @where:
 
@where=  ' Arcodi in' +%trim(@cadena_in) 
+' and arpmmi=(select min(arpmmi) from arcfil/fartic' 
+' where arcodi in'+%trim(@cadena_in);
 
El paréntesis que hay antes del “select min” no lo estás cerrando, la 
sentencia debería terminar con +%trim(@cadena_in)+’)’; para que se cerrara 
el que se abre
 
Y antes del “into” ya cierras el paréntesis de la cláusula “VALUES”
 
De: forum.help400-boun...@listas.combios.es [
mailto:forum.help400-boun...@listas.combios.es] En nombre de alberto
Enviado el: martes, 16 de octubre de 2018 11:31
Para: forum.help400
Asunto: RE: Error en SQL dinámico con prepare y execute
 
Hola Sergio. 
Si lo hago así, luego tengo que abrir otras comillas para el INTO 
Se puede dejar así: 
@select='arcodi, dec((arpmmi/1000), 7, 2) from arcfil/fartic '; 
@where=  ' Arcodi in' +%trim(@cadena_in) 
+' and arpmmi=(select min(arpmmi) from arcfil/fartic' 
+' where arcodi in'+%trim(@cadena_in);   
@into='?, ?'; 
@sentencia=' Values(Select '+%trim(@select)+ 
   ' Where ' +%trim(@where)+ ')' +   
   ' Into '+%trim(@into); 
Exec Sql prepare Sentencia from :@sentencia; 
Exec SQl Execute Sentencia using :@article, :@pes_min_max;   

Pero me sigue dando ese error.  :( 


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



De:"Sergio Martinez Roig"  
Para:"forum.help400"  
Fecha:16/10/2018 10:52 
Asunto:** Newsletter ** RE: Error en SQL dinámico con prepare y 
execute 
Enviado por:forum.help400-boun...@listas.combios.es 




Más concretamente faltaría cerrar  la subconsulta en la cláusula 
  
@where=  ' Arcodi in ' +%trim(@cadena_in)   
   +' and arpmmi=(select min(arpmmi) from arcfil/fartic'   
   +' where arcodi in '+%trim(@cadena_in)+’)’ 
  
De: forum.help400-boun...@listas.combios.es [
mailto:forum.help400-boun...@listas.combios.es] En nombre de Sergio 
Martinez Roig
Enviado el: martes, 16 de octubre de 2018 10:33
Para: forum.help400
Asunto: RE: Error en SQL dinámico con prepare y execute 
  
Hola Alberto, 
  
Creo que te falta un cierre de paréntesis antes de la cláusula INTO para 
cerrar el que abre VALUES(. 
  
Un saludo 
Sergio Martinez 
  
De: forum.help400-boun...@listas.combios.es [
mailto:forum.help400-boun...@listas.combios.es] En nombre de alberto
Enviado el: martes, 16 de octubre de 2018 9:27
Para: forum.help400
Asunto: Error en SQL dinámico con prepare y execute 
  
Hola Foro. 
A ver si me podéis ayudar, que muchos ojos ven más que dos, y yo no 
consigo ver el qué: 
Partiendo de este script que funciona perfectamente: 

select arcodi, dec((arpmmi/1000), 7, 2) 
from arcfil.fartic   
where 
arcodi in (209400,209200,213600,215200) and 
arpmmi=( select min(arpmmi) from arcfil.fartic where 
arcodi in (209400,209200,213600,215200)); 

Quiero hacer un embebido dinámico en un programa. 

Lo que hago es lo siguiente: 

@select='arcodi, dec((arpmmi/1000), 7, 2) from arcfil/fartic '; 
@where=  ' Arcodi in ' +%trim(@cadena_in)   
   +' and arpmmi=(select min(arpmmi) from arcfil/fartic'   
   +' where arcodi in '+%trim(@cadena_in); 
@sentencia=' Values(Select '+%trim(@select)+ 
  ' Where ' +%trim(@where)+ ') into ?, ?'; 
Exec Sql prepare Sentencia from :@sentencia; 
Exec SQl Execute Sentencia using :@article, :@pes_min_max; 

El resultante de la variable @sentencia es: 

Values(Select arcodi, dec((arpmmi/1000), 7, 2) from arcfil/ 
fartic Where Arcodi in(209400, 209200, 213600, 215200) and arpmmi= 
(select min(arpmmi) from arcfil/fartic where arcodi in 
(209400, 209200, 213600, 215200)) into ?, ?   

El caso es que al ejecutar el prepare, me da un error SQLSTATE: 
42601 A character, token, or clause is invalid or missing.   

No consigo encontrar qué me dejo. 
Alguna pista? 
Gracias!!! 


Este mensaje contiene información confidencial dirigida al destinatario 
del mismo. Las opiniones expresadas pertenecen al autor y no 
necesariamente a ESTIBARNA. Si Ud. recibe este mensaje por error, se ruega 
informe inmediatamente al remitente del mismo. Queda prohibido el uso, 
divulgación, copia o distribución a terceros de la información incluida en 
este mensaje. 
Este mensaje contiene información confidencial dirigida al destinatario 
del mismo. Las opiniones expresadas pertenecen al autor y no 
necesariamente a ESTIBARNA. Si Ud. recibe este mensaje por error, se ruega 
informe inmediatamente

RE: Error en SQL dinámico con prepare y execute

[alberto]

Hola Sergio.
Si lo hago así, luego tengo que abrir otras comillas para el INTO
Se puede dejar así:
@select='arcodi, dec((arpmmi/1000), 7, 2) from arcfil/fartic '; 
@where=  ' Arcodi in' +%trim(@cadena_in) 
+' and arpmmi=(select min(arpmmi) from arcfil/fartic' 
+' where arcodi in'+%trim(@cadena_in); 
@into='?, ?'; 
@sentencia=' Values(Select '+%trim(@select)+ 
   ' Where ' +%trim(@where)+ ')' + 
   ' Into '+%trim(@into); 
Exec Sql prepare Sentencia from :@sentencia; 
Exec SQl Execute Sentencia using :@article, :@pes_min_max; 

Pero me sigue dando ese error.  :(


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



De: "Sergio Martinez Roig" 
Para:   "forum.help400" 
Fecha:  16/10/2018 10:52
Asunto: ** Newsletter ** RE: Error en SQL dinámico con prepare y execute
Enviado por:forum.help400-boun...@listas.combios.es



Más concretamente faltaría cerrar  la subconsulta en la cláusula 
 
@where=  ' Arcodi in ' +%trim(@cadena_in)   
+' and arpmmi=(select min(arpmmi) from arcfil/fartic'   
+' where arcodi in '+%trim(@cadena_in)+’)’
 
De: forum.help400-boun...@listas.combios.es [
mailto:forum.help400-boun...@listas.combios.es] En nombre de Sergio 
Martinez Roig
Enviado el: martes, 16 de octubre de 2018 10:33
Para: forum.help400
Asunto: RE: Error en SQL dinámico con prepare y execute
 
Hola Alberto,
 
Creo que te falta un cierre de paréntesis antes de la cláusula INTO para 
cerrar el que abre VALUES(.
 
Un saludo
Sergio Martinez
 
De: forum.help400-boun...@listas.combios.es [
mailto:forum.help400-boun...@listas.combios.es] En nombre de alberto
Enviado el: martes, 16 de octubre de 2018 9:27
Para: forum.help400
Asunto: Error en SQL dinámico con prepare y execute
 
Hola Foro. 
A ver si me podéis ayudar, que muchos ojos ven más que dos, y yo no 
consigo ver el qué: 
Partiendo de este script que funciona perfectamente: 

select arcodi, dec((arpmmi/1000), 7, 2) 
from arcfil.fartic   
where 
 arcodi in (209400,209200,213600,215200) and 
 arpmmi=( select min(arpmmi) from arcfil.fartic where 
 arcodi in (209400,209200,213600,215200)); 

 Quiero hacer un embebido dinámico en un programa. 

Lo que hago es lo siguiente: 

@select='arcodi, dec((arpmmi/1000), 7, 2) from arcfil/fartic '; 
@where=  ' Arcodi in ' +%trim(@cadena_in)   
+' and arpmmi=(select min(arpmmi) from arcfil/fartic'   
+' where arcodi in '+%trim(@cadena_in); 
@sentencia=' Values(Select '+%trim(@select)+ 
   ' Where ' +%trim(@where)+ ') into ?, ?'; 
Exec Sql prepare Sentencia from :@sentencia; 
Exec SQl Execute Sentencia using :@article, :@pes_min_max; 

El resultante de la variable @sentencia es: 

 Values(Select arcodi, dec((arpmmi/1000), 7, 2) from arcfil/ 
fartic Where Arcodi in(209400, 209200, 213600, 215200) and arpmmi= 
(select min(arpmmi) from arcfil/fartic where arcodi in 
(209400, 209200, 213600, 215200)) into ?, ?   

El caso es que al ejecutar el prepare, me da un error SQLSTATE: 
42601 A character, token, or clause is invalid or missing.   

No consigo encontrar qué me dejo. 
Alguna pista? 
Gracias!!! 

 
Este mensaje contiene información confidencial dirigida al destinatario 
del mismo. Las opiniones expresadas pertenecen al autor y no 
necesariamente a ESTIBARNA. Si Ud. recibe este mensaje por error, se ruega 
informe inmediatamente al remitente del mismo. Queda prohibido el uso, 
divulgación, copia o distribución a terceros de la información incluida en 
este mensaje. 
Este mensaje contiene información confidencial dirigida al destinatario 
del mismo. Las opiniones expresadas pertenecen al autor y no 
necesariamente a ESTIBARNA. Si Ud. recibe este mensaje por error, se ruega 
informe inmediatamente al remitente del mismo. Queda prohibido el uso, 
divulgación, copia o distribución a terceros de la información incluida en 
este mensaje. 
Ú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.

Error en SQL dinámico con prepare y execute

[alberto]

Hola Foro.
A ver si me podéis ayudar, que muchos ojos ven más que dos, y yo no 
consigo ver el qué:
Partiendo de este script que funciona perfectamente:

select arcodi, dec((arpmmi/1000), 7, 2) 
from arcfil.fartic 
where 
 arcodi in (209400,209200,213600,215200) and 
 arpmmi=( select min(arpmmi) from arcfil.fartic where 
 arcodi in (209400,209200,213600,215200)); 

 Quiero hacer un embebido dinámico en un programa.

Lo que hago es lo siguiente:

@select='arcodi, dec((arpmmi/1000), 7, 2) from arcfil/fartic ';
@where=  ' Arcodi in ' +%trim(@cadena_in) 
+' and arpmmi=(select min(arpmmi) from arcfil/fartic' 
+' where arcodi in '+%trim(@cadena_in); 
@sentencia=' Values(Select '+%trim(@select)+ 
   ' Where ' +%trim(@where)+ ') into ?, ?'; 
Exec Sql prepare Sentencia from :@sentencia; 
Exec SQl Execute Sentencia using :@article, :@pes_min_max; 

El resultante de la variable @sentencia es:

 Values(Select arcodi, dec((arpmmi/1000), 7, 2) from arcfil/
fartic Where Arcodi in(209400, 209200, 213600, 215200) and arpmmi=
(select min(arpmmi) from arcfil/fartic where arcodi in
(209400, 209200, 213600, 215200)) into ?, ? 

El caso es que al ejecutar el prepare, me da un error SQLSTATE:
42601 A character, token, or clause is invalid or missing. 

No consigo encontrar qué me dejo.
Alguna pista?
Gracias!!!

 

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

Re: ** Newsletter ** Re: ** Newsletter ** Re: XML con SQL

[alberto]

Hola.
Tienes razón
He probado el mismo ejemplo que da IBM:
CREATE TABLE Customer (Cid BIGINT NOT NULL PRIMARY KEY, texte xml) .
En la V6r1 NO funciona : XML en *LIBL de tipo *SQLUDT no encontrado.
pero en la V7R1 si que va aunque el tipo campo XML no sale en las 
referencias ni en scripts ni en pantalla verde.
Gracias!!




De: "Alex Martínez" 
Para:   "forum.help400" 
Fecha:  01/08/2018 20:57
Asunto: ** Newsletter ** Re: ** Newsletter ** Re: XML con SQL
Enviado por:forum.help400-boun...@listas.combios.es



Hola de nuevo

¿pero has probado si te funciona un CREATE TABLE alex/clientes (Cid ROWID, 
Info XML) por ejemplo ?

Internamente un campo de tipo XML es un CLOB con CCSID UTF-8



El 1 de agosto de 2018, 16:21, alberto  
escribió:
Hola Alex 
Empiezo por el final...no es que tenga errores, es que directamente no 
tengo el campo tipo 'Xml' en la lista de posibles. No puedo crear un campo 
de este tipo porque no existe para mi sistema. 
Ahora lo siguiente: En principio yo (hasta ahora) sólo he generado Xml en 
FREE y no los he tenido que procesar, pero ya me estoy preparando para 
esto, porque me lo veo venir. De aquí viene el que esté empezando a 
investigar y a preguntar. 
Salu2 



De:"Alex Martínez"  
Para:"forum.help400"  
Fecha:01/08/2018 14:55 
Asunto:** Newsletter ** Re: XML con SQL 
Enviado por:forum.help400-boun...@listas.combios.es 



Hola 

¿ Merece la pena? Muy posiblemente SI pero depende de muchos aspectos... 

¿hablamos de una aplicacion tradicional en RPG o Java, PHP, etc?  
¿la funcion principal es generar XML o procesar XML generados por otras 
aplicaciones/plataformas ? 

Las DS anidadas no sé como se utilizan para "crear" un XML, yo las utilizo 
para "parsear" el contenido de un XML y manejarlo en RPG con la operación 
XML-INTO, aunque lo complicado puede ser cambiar la definición de las DS 
si cambia el XML que recibes, detalle que si puedes validar al guardar el 
XML en una tabla contra un esquema registrado en XSR 

En v7r1 debidamente actualizado el grupo de PTFs de DB2 no veo problema, 
¿que errores tienes? 

Salu2  


El 1 de agosto de 2018, 12:30, alberto  
escribió: 
Buenas a los que curráis en agosto. 
Unas preguntas relacionadas con XML: 
Estoy siguiendo el manual de IBM: IBM i DatabaseSQL XML Programming (del 
2012) pero supongo que necesito alguna PTF o algún programa producto 
porque directamente no me deja crear campos tipoXML, ni en V6R1 ni en V7R1 
el manual, repito el del 2012. Ni me deja en pantalla verde, ni con los 
scripts del Iaccess. 
Me podéis confirmar qué se necesita? 
y luego la dos preguntas: Alguien crea XML así con SQL? vale la pena? o 
mejor 'a pelo' como creo que hacemos muchos...Bueno, yo lo hago a base de 
DS anidadas. 
Salu2

Ú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: XML con SQL

[alberto]

Hola Alex
Empiezo por el final...no es que tenga errores, es que directamente no 
tengo el campo tipo 'Xml' en la lista de posibles. No puedo crear un campo 
de este tipo porque no existe para mi sistema.
Ahora lo siguiente: En principio yo (hasta ahora) sólo he generado Xml en 
FREE y no los he tenido que procesar, pero ya me estoy preparando para 
esto, porque me lo veo venir. De aquí viene el que esté empezando a 
investigar y a preguntar.
Salu2



De: "Alex Martínez" 
Para:   "forum.help400" 
Fecha:  01/08/2018 14:55
Asunto: ** Newsletter ** Re: XML con SQL
Enviado por:forum.help400-boun...@listas.combios.es



Hola

¿ Merece la pena? Muy posiblemente SI pero depende de muchos aspectos...

¿hablamos de una aplicacion tradicional en RPG o Java, PHP, etc? 
¿la funcion principal es generar XML o procesar XML generados por otras 
aplicaciones/plataformas ?

Las DS anidadas no sé como se utilizan para "crear" un XML, yo las utilizo 
para "parsear" el contenido de un XML y manejarlo en RPG con la operación 
XML-INTO, aunque lo complicado puede ser cambiar la definición de las DS 
si cambia el XML que recibes, detalle que si puedes validar al guardar el 
XML en una tabla contra un esquema registrado en XSR

En v7r1 debidamente actualizado el grupo de PTFs de DB2 no veo problema, 
¿que errores tienes?

Salu2 


El 1 de agosto de 2018, 12:30, alberto  
escribió:
Buenas a los que curráis en agosto. 
Unas preguntas relacionadas con XML: 
Estoy siguiendo el manual de IBM: IBM i DatabaseSQL XML Programming (del 
2012) pero supongo que necesito alguna PTF o algún programa producto 
porque directamente no me deja crear campos tipoXML, ni en V6R1 ni en V7R1 
el manual, repito el del 2012. Ni me deja en pantalla verde, ni con los 
scripts del Iaccess. 
Me podéis confirmar qué se necesita? 
y luego la dos preguntas: Alguien crea XML así con SQL? vale la pena? o 
mejor 'a pelo' como creo que hacemos muchos...Bueno, yo lo hago a base de 
DS anidadas. 
Salu2

Ú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.

XML con SQL

[alberto]

Buenas a los que curráis en agosto.
Unas preguntas relacionadas con XML:
Estoy siguiendo el manual de IBM: IBM i DatabaseSQL XML Programming (del 
2012) pero supongo que necesito alguna PTF o algún programa producto 
porque directamente no me deja crear campos tipoXML, ni en V6R1 ni en V7R1 
el manual, repito el del 2012. Ni me deja en pantalla verde, ni con los 
scripts del Iaccess.
Me podéis confirmar qué se necesita?
y luego la dos preguntas: Alguien crea XML así con SQL? vale la pena? o 
mejor 'a pelo' como creo que hacemos muchos...Bueno, yo lo hago a base de 
DS anidadas.
Salu2
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: ** Newsletter ** RE: [EXT] Re: ** Newsletter ** W10 y QDLS

[alberto]

A mí en concreto me ha dejado de funcionar esta noche en varios pc's. En 
todos tenía activado el SMBv1, y no trabajo con Office. 
En alguno lo he podido solucionar habilitando el uso compartido de 
archivos para dispositivos que usan cifrado de 40 56 bits, pero en otros 
lo estoy probando y no me hace caso. 
Trabajo con el Ibm ACS, pero yo estos archivos los tenía compartidos como 
unidad de red directamente en los equipos. Por suerte sólo me afecta a la 
QDLS.
Voy a mirar el enlace que me envia el compañero Javier Mora a ver lo que 
saco.
Gracias!!
Albert Martinez de Urda
  Director TIC
Roler España SLU
Grupo Arcadie



De: "Gandul, Luis" 
Para:   "forum.help400" 
Fecha:  06/07/2018 11:38
Asunto: ** Newsletter ** RE: [EXT] Re: ** Newsletter ** W10 y QDLS
Enviado por:forum.help400-boun...@listas.combios.es



Qué peligro tiene W10 !
En serio…..te iba a contestar que revisaras con cuidado las 
actualizaciones pero ya lo has hecho
Te confirmo que nosotros hemos detectado algún problema también.
 
Y ya que estamos, cuidadín on el Office 2016 64 bits y la versión de 
Iseries Access que tengáis instalada en los clientes.
Seguramente ya hay publicado algo al respecto, pero os adelanto que hay 
cosas que dejan de funcionar.
 
 
 
Saludos
 
De: forum.help400-boun...@listas.combios.es 
 En nombre de alberto
Enviado el: viernes, 06 de julio de 2018 10:57
Para: forum.help400 
Asunto: [EXT] Re: ** Newsletter ** W10 y QDLS
 
Ya lo he encontrado. Ha sido una actualizacion de segurudad de W10 esta 
noche. 
Gracias 




De:"alberto"  
Para:"forum.help400"  
Fecha:06/07/2018 10:12 
Asunto:** Newsletter ** W10 y QDLS 
Enviado por:forum.help400-boun...@listas.combios.es 




Buenos dias. 
Me he encontrado hoy conque no desde W10 puedo acceder al QDSL de ninguno 
de los dos as400 que tenemos. 
Algunas ya estaban compartidas hace mucho como recursos de red. 
Da error de autorización. Muestra las carpetas, pero no deja acceder. Con 
el resto de IFS no hay problemas. 
Os pasa esto a alguien mas? 
Gracias
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L. 
MetLife Europe d.a.c y MetLife Europe Insurance d.a.c son Compañías del 
Grupo MetLife.

MetLife Europe d.a.c. es una sociedad de responsabilidad limitada por 
acciones registrada en Irlanda con número 415123. MetLife Europe d.a.c. 
Sucursal en España, con CIF W-0072536-F, está registrada en el Registro 
Mercantil de Madrid en el Tomo 30.276, Folio 192, Sección 8ª, Hoja 
M-544907, Inscripción 1ª, e inscrita en la Dirección General de Seguros y 
Fondos de Pensiones con el número E-0208, con domicilio social en Madrid, 
Avenida de los Toreros nº 3 (CP 28028).

MetLife Europe Insurance d.a.c. es una sociedad de responsabilidad 
limitada por acciones registrada en Irlanda con número 472350. MetLife 
Europe Insurance d.a.c. Sucursal en España, con CIF W-0072537-D, está 
registrada en el Registro Mercantil de Madrid en el Tomo 30.288, Folio 
181, Sección 8ª, Hoja M-544155, Inscripción 1ª, e inscrita en la Dirección 
General de Seguros y Fondos de Pensiones con el número E-0209, con 
domicilio social en Madrid, Avenida de los Toreros nº 3 (CP 28028).

El domicilio social de MetLife Europe d.a.c. y MetLife Europe Insurance 
d.a.c. está situado en Irlanda, "20 on Hatch, Lower Hatch Street, Dublín 
2".. MetLife Europe d.a.c. y MetLife Europe Insurance d.a.c. (ambas 
utilizando la marca MetLife), están reguladas por el Central Bank of 
Ireland sin perjuicio de las facultades atribuidas a la Dirección General 
de Seguros y Fondos de Pensiones.

This email (including any attachments) is intended for the designated 
recipient(s) only, and may be confidential, non-public, proprietary, 
and/or protected by the attorney-client or other privilege. Unauthorized 
reading, distribution, copying or other use of this communication is 
prohibited and may be unlawful. Receipt by anyone other than the intended 
recipient(s) should not be deemed a waiver of any privilege or protection. 
If you are not the intended recipient or if you believe that you have 
received this email in error, please notify the sender immediately and 
delete all copies from your computer system without reading, saving, 
printing, forwarding or using it in any manner. Although it has been 
checked for viruses and other malicious software ("malware"), we do not 
warrant, represent or guarantee in any way that this communication is free 
of malware or potentially damaging defects. All liability for any actual 
or alleged loss, damage, or injury arising out of or resulting in any way 
from the receipt, opening or use of this email is expressly disclaimed.

Únete a Recursos AS400, nuestra Comunidad ( http:

Re: ** Newsletter ** W10 y QDLS

[alberto]

Ya lo he encontrado. Ha sido una actualizacion de segurudad de W10 esta 
noche.
Gracias




De: "alberto" 
Para:   "forum.help400" 
Fecha:  06/07/2018 10:12
Asunto: ** Newsletter ** W10 y QDLS
Enviado por:forum.help400-boun...@listas.combios.es



Buenos dias. 
Me he encontrado hoy conque no desde W10 puedo acceder al QDSL de ninguno 
de los dos as400 que tenemos. 
Algunas ya estaban compartidas hace mucho como recursos de red. 
Da error de autorización. Muestra las carpetas, pero no deja acceder. Con 
el resto de IFS no hay problemas. 
Os pasa esto a alguien mas? 
Gracias
Ú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.

W10 y QDLS

[alberto]

Buenos dias.
Me he encontrado hoy conque no desde W10 puedo acceder al QDSL de ninguno 
de los dos as400 que tenemos.
Algunas ya estaban compartidas hace mucho como recursos de red.
Da error de autorización. Muestra las carpetas, pero no deja acceder. Con 
el resto de IFS no hay problemas.
Os pasa esto a alguien mas?
Gracias
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: ** Newsletter ** Re: Imporesoras remotas por LPD

[alberto]

Hola José.
No es por problemas de configuración. Una cosa que tenemos clara, es que 
en una instalación 'limpia', el W10Pro no instala los servicios impresión 
UNIX(LPR/LPD) y se tienen que activar a mano.
El problema que nos estamos encontrando es que las colas así configuradas, 
en los W10 se nos cuelgan que es una alegría. Puedes ver pc's con 10 o 15 
listados del AS en cola de impresión. Y hasta que no reinicias el pc, no 
hay manera. Cuando te pasa con uno, dices...vale. Pero cuando te pasa con 
cuatro...empiezas a dudar. Y más si lees que Msoft va a dejar de dar 
soporte para LPD/LPR(lo que no sé es cuando). Por eso preguntaba, ya que 
yo sólo sé encontrar desde el AS una cola impresora compartida por Windows 
si es con el LPD/LPR. No sé si hay otra manera.
Salu2



De: "José A. Remesal" 
Para:   "forum.help400" 
Fecha:  20/06/2018 14:10
Asunto: ** Newsletter ** Re: Imporesoras remotas por LPD
Enviado por:forum.help400-boun...@listas.combios.es



Buenos días,

De momento nosotros no hemos tenido problemas configurando colas remotas 
en el AS contra Windows 10.  Lo único que si que tuvimos que configurar 
nuestro firewall para permitir el acceso a los equipos Windows 10.  
Verificar que vuestro firewall, ya sea el de Windows 10, de un tercero o 
externo no impide los accesos vía LPD/LPR.

También es importante que comprobéis que la configuración red del Windows 
10 es una red privada y que en la configuración de uso compartido (Panel 
de control\Centro de redes y recursos compartidos\Configuración de uso 
compartido avanzado) tenéis la siguiente configuración o similar:





Con respecto al driver de Windows os recomiendo que utilicéis el driver HP 
LaserJet 4.  Luego simplemente compartir el driver de Windows con un 
nombre que no exceda de 8 caracteres y sin espacios en blanco:



En Windows 10 tenemos que asegurarnos que tenemos instalado el servicio 
"ServicioLPD".  Si no está instalado hay que acceder a las características 
de Windows (Panel de control\Programas y características) y en el apartado 
Servicios de impresión y documentos activar las características "Monitor 
de puerto de LPR" y "Servicio de impresión LPD".



En los Servicios de Windows tenemos que asegurarnos que el servicio 
"Servicio LPD" está iniciado y que el arranque esta en modo Automático.

Por último creamos nuestra cola remota en el AS de la siguiente forma:

CHGOUTQ OUTQ(QUSRSYS/PRTXXX) RMTSYS(*INTNETADR) RMTPRTQ(HP4) AUTOSTRWTR(1) 
CNNTYPE(*IP) DESTTYPE(*OTHER) TRANSFORM(*YES) MFRTYPMDL(*HP4) 
INTNETADR(‘1.2.3.4') DESTOPT( 'XAIX' ) PRTERRMSG(*INFO)

El parámetro RMTPRTQ debe contener el nombre de recurso compartido que 
hayamos asignado al driver de Windows (HP4 en el ejmplo de más arriba) y 
el parámetro INTNETADR debe contener la dirección IP del Windows 10.

Por último arrancamos el trancriptor remoto:

STRRMTWTR OUTQ(QUSRSYS/PRTXXX)

Y comprobamos que podemos imprimir correctamente.

Si con esta información no te funciona, amplia un poco más que 
comportamiento observas, errores, etc...

Un cordial saludo.

José A. Remesal


El 19 de junio de 2018, 10:57, alberto  
escribió:
Buenos dias. Una consultilla: 
tengo varios pc's con impresoras que las comparto con LPD/LPR y en el 
AS400 las configuro como colas remotas. 
Últimamente con el W10 estoy teniendo algún problema con esto y mirando 
por Internet veo que Microsoft está avisando que acabará haciendo 
desaparecer el protocolo. 
Alguien de vosotros se ha encontrado con esto? 
cómo habéis configurado las colas remotas en el Windows? y cómo en el AS? 
PD: Lo tengo como colas remotas, porque si meto por medio IseriesAccess o 
similares, en estas impresoras(matriciales) me descogorcia el formato y en 
cambio así sale perfecto. 
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.

Imporesoras remotas por LPD

[alberto]

Buenos dias. Una consultilla:
tengo varios pc's con impresoras que las comparto con LPD/LPR y en el 
AS400 las configuro como colas remotas.
Últimamente con el W10 estoy teniendo algún problema con esto y mirando 
por Internet veo que Microsoft está avisando que acabará haciendo 
desaparecer el protocolo.
Alguien de vosotros se ha encontrado con esto?
cómo habéis configurado las colas remotas en el Windows? y cómo en el AS?
PD: Lo tengo como colas remotas, porque si meto por medio IseriesAccess o 
similares, en estas impresoras(matriciales) me descogorcia el formato y en 
cambio así sale perfecto.
Saludos

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

Re: ** Newsletter ** RE: Consulta %dec

[alberto]

Perfecto!!!
Gracias.




De: "Jesus Maria Arzak (DHL ES)" 
Para:   "forum.help400" 
Fecha:  14/06/2018 18:04
Asunto: ** Newsletter ** RE: Consulta %dec
Enviado por:forum.help400-boun...@listas.combios.es



Muy buenas
 
El problema lo tienes porque no trae  la coma
 
Debieras pasarlo primero a un campo de 4,0 y después hacer la división
 
Esto es
 
HDECEDIT('0,') DATEDIT(*YMD.) 
D@altivaS 4 
DAltiva  S 4 2 
D@texte_variable  s  30 

@Altiva=%subst(@texte_variable:1:4);   
Altiva=%dec(@altiva:4:0)/100; 

 
 
Un saludo
 
 
Jesús Mª Arzak Capilla
Solutions Management
DHL Parcel Iberia, S.L.U.
Paseo Mikeletegi, nº 65 
Parque Tecnológico de San Sebastián
E-20009 San Sebastián
Phone: +34 943 37 81 37

jesusmaria.ar...@dhl.com
www.dhlparcel.es
GOGREEN – Environmental protection with DHL
Por favor, ten en cuenta el medio ambiente antes de imprimir este correo
 
 
 
From: forum.help400-boun...@listas.combios.es [
mailto:forum.help400-boun...@listas.combios.es] On Behalf Of alberto
Sent: jueves, 14 de junio de 2018 16:22
To: forum.help400
Subject: Consulta %dec
 
Hola Foro. No sé si es por culpa del dia que llevo que estoy 'nublado', 
pero hay algo de lo más tonto que no tengo manera de que me salga. 
Supongo que ya a la hora que es sería mejor dejarlo para mañana, pero el 
gusanillo me corroe. 
Lo consulto con vosotros aún a riesgo de quedar como un ceporro, a ver si 
me podéis dar un poco de claridad. 
Simplificando mucho, es lo siguiente: 
HDECEDIT('0,') DATEDIT(*YMD.) 
D@altivaS 4 
DAltiva  S 4 2 
D@texte_variable  s  30 

@Altiva=%subst(@texte_variable:1:4); 
Altiva=%dec(@altiva:4:2); 

Y hecho esto, casca con: 
ID de mensaje  . . . . :   RNQ0103   Gravedad . . . . . . . :   99  
Tipo de mensaje  . . . :   Consulta 
  
 Mensaje . . . . :   El destino de una operación numérica es demasiado 
pequeñ 
   para contener el resultado (C G D F). 

Importante: el valor de @texte_variable es literalmente=0400, con lo que  
el valor de Altiva tendría que ser 4,00. 
He probado uncluso definiendo el Altiva como 10,4 y sigue cascando. 
Gracias 
CONFIDENTIALITY NOTICE: This message is from DHL and may contain 
confidential business information. It is intended solely for the use of 
the individual to whom it is addressed. If you are not the intended 
recipient please contact the sender and delete this message and any 
attachment from your system. Unauthorized publication, use, dissemination, 
forwarding, printing or copying of this E-Mail and its attachments is 
strictly prohibited. 
Ú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: Consulta %dec

[alberto]

Hola.
Lo que me estaba despistando es que para las pruebas, llegué a definir el 
campo como 10,4 con lo que cabe por todos sitios, y también me daba el 
error.
Gracias



De: "Javier Mora" 
Para:   "forum.help400" 
Fecha:  14/06/2018 18:00
Asunto: ** Newsletter ** RE: Consulta %dec
Enviado por:forum.help400-boun...@listas.combios.es



El campo de destino ‘Altiva’ es de 4,2, es decir, dos entero y dos 
decimales. En la asignación estás asignando cuatro enteros, por lo tanto, 
no cabe en la variable. Ten en cuenta que el %DEC le indicas los 
decimales, pero en ‘@altiva’ todo son parte entera. La asignación no es un 
MOVE.
 
Javier
 
De: forum.help400-boun...@listas.combios.es [
mailto:forum.help400-boun...@listas.combios.es] En nombre de alberto
Enviado el: jueves, 14 de junio de 2018 16:22
Para: forum.help400
Asunto: Consulta %dec
 
Hola Foro. No sé si es por culpa del dia que llevo que estoy 'nublado', 
pero hay algo de lo más tonto que no tengo manera de que me salga. 
Supongo que ya a la hora que es sería mejor dejarlo para mañana, pero el 
gusanillo me corroe. 
Lo consulto con vosotros aún a riesgo de quedar como un ceporro, a ver si 
me podéis dar un poco de claridad. 
Simplificando mucho, es lo siguiente: 
HDECEDIT('0,') DATEDIT(*YMD.) 
D@altivaS 4 
DAltiva  S 4 2 
D@texte_variable  s  30 

@Altiva=%subst(@texte_variable:1:4); 
Altiva=%dec(@altiva:4:2); 

Y hecho esto, casca con: 
ID de mensaje  . . . . :   RNQ0103   Gravedad . . . . . . . :   99  
Tipo de mensaje  . . . :   Consulta 
  
 Mensaje . . . . :   El destino de una operación numérica es demasiado 
pequeñ 
   para contener el resultado (C G D F). 

Importante: el valor de @texte_variable es literalmente=0400, con lo que  
el valor de Altiva tendría que ser 4,00. 
He probado uncluso definiendo el Altiva como 10,4 y sigue cascando. 
Gracias 

Ú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.

Consulta %dec

[alberto]

Hola Foro. No sé si es por culpa del dia que llevo que estoy 'nublado', 
pero hay algo de lo más tonto que no tengo manera de que me salga.
Supongo que ya a la hora que es sería mejor dejarlo para mañana, pero el 
gusanillo me corroe.
Lo consulto con vosotros aún a riesgo de quedar como un ceporro, a ver si 
me podéis dar un poco de claridad.
Simplificando mucho, es lo siguiente:
HDECEDIT('0,') DATEDIT(*YMD.)
D@altivaS 4 
DAltiva  S 4 2
D@texte_variable  s  30 

@Altiva=%subst(@texte_variable:1:4); 
Altiva=%dec(@altiva:4:2); 

Y hecho esto, casca con:
ID de mensaje  . . . . :   RNQ0103   Gravedad . . . . . . . :   99  
Tipo de mensaje  . . . :   Consulta 
  
 Mensaje . . . . :   El destino de una operación numérica es demasiado 
pequeñ
   para contener el resultado (C G D F). 

Importante: el valor de @texte_variable es literalmente=0400, con lo que   
el valor de Altiva tendría que ser 4,00.
He probado uncluso definiendo el Altiva como 10,4 y sigue cascando.
Gracias 
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: ** Newsletter ** Llamada a CLP desde windows

[alberto]

Hola
Das poca información, y a lo mejor lo que te propongo es excesivo, 
pero...te has planteado crear un trigger sobre la tabla DB2 en cuestión?
Directamente se ejecutará siempre y en cualesquiera de los 3 casos que 
contempla el trigger y puede llamar a un programa interno que haga lo que 
tú quieres.
Evidentemente, desde dentro del trigger puedes controlar qué llamadas 
procesas y cuáles no.
Saludos




De: "Rafael CERRADA MENENDEZ" 
Para:   "forum.help400" 
Fecha:  10/05/2018 14:58
Asunto: ** Newsletter ** Llamada a CLP desde windows
Enviado por:forum.help400-boun...@listas.combios.es



Buenas tardes: 


Se me plantea por primera vez la necesidad de ejecutar un CLP desde una 
aplicación windows (pasándole parámetros). En concreto, la aplicación 
envía datos a un fichero DB2 y tengo que llamar a un CLP para procesar 
dicha información. 


¿Me podéis orientar al respecto? 

Gracias 

Un saludo, 

Rafael Cerrada Menéndez







_



** ADVERTENCIA LEGAL **




Le informamos, como destinatario de este mensaje, que el correo 
electrónico y las comunicaciones por medio de Internet no permiten 
asegurar ni garantizar plenamente la confidencialidad de los mensajes 
transmitidos, así como tampoco su integridad o su correcta recepción, por 
lo que CONSTRUCTORA LOS ALAMOS, S.A. no asume responsabilidad alguna por 
tales circunstancias. CONSTRUCTORA LOS ALAMOS, S.A., con CIF A33009036 y 
domicilio social en la calle General Zuvillaga número 6 y código postal 
33005 de Oviedo, Asturias, le comunica que, la información contenida en el 
presente correo electrónico tiene CARÁCTER CONFIDENCIAL y esta dirigida 
exclusivamente a la persona destinataria. El uso indebido,la difusión, 
publicación, reproducción, revelación, cesión, modificación y 
apoderamiento, sin el consentimiento del titular, podrá dar lugar al 
ejercicio de las acciones legales que pudieran derivarse. Si usted no es 
la persona destinataria, debe comunicar la confusión o el error a la 
dirección de correo electrónico del remitente que figura en este email de 
manera inmediata, no debiendo mantener copia o borrador alguno del 
documento o adjuntos. El remitente le informa que este correo electrónico 
puede contener datos de carácter personal, por lo que se deberá mantener 
la máxima confidencialidad y el deber de secreto respecto a los mismos 
según lo establecido en el Art. 10 de la Ley 15/1999 de Protección de 
Datos de Carácter Personal. Queda informado y consiente expresamente que 
los datos personales que pudiera facilitar, pasen a formar parte del 
fichero responsabilidad de CONSTRUCTORA LOS ALAMOS, S.A., con la finalidad 
de cumplir las directrices de la Ley 15/1999 de Protección de Datos. El 
remitente le informa que se compromete en el tratamiento de los datos, a 
la máxima confidencialidad, deber de secreto y al uso de los mismos según 
la finalidad del fichero y lo establecido en la Ley 15/1999. Podrá ejercer 
sus derechos de acceso, rectificación, oposición y cancelación por medio 
del procedimiento establecido, solicitándolo por escrito en el domicilio 
social del remitente sito en la calle General Zuvillaga número 6 y código 
postal 33005 de Oviedo, debidamente acreditado adjuntando fotocopia del 
DNI. 



_











Ú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: ODBC y W10

[alberto]

Perdón, me refería al Windows Application Package, que es un peñazo 
descargarlo




De: alberto/arcadie
Para:   "forum.help400" <forum.help400@listas.combios.es>
Fecha:  04/04/2018 13:06
Asunto: ODBC y W10
Enviado por:Alberto Martinez


Hola.
Pues hecha la prueba, sí que parece que sea el W10. La misma configuración 
de ODBC con un XP funciona perfecta.
Recuerdo que es un procedure en un AS400 que se llama desde un Domino de 
otro AS400, pero se ejecuta en local en el PC, o sea, la confuguración que 
vale es la del PC.
Marti: intento bajarme el Base Package de iAccess, pero no veas, es peor 
que ir al ministerio a hacer una instancia...
Saludos



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

ODBC y W10

[alberto]

Hola.
Pues hecha la prueba, sí que parece que sea el W10. La misma configuración 
de ODBC con un XP funciona perfecta.
Recuerdo que es un procedure en un AS400 que se llama desde un Domino de 
otro AS400, pero se ejecuta en local en el PC, o sea, la confuguración que 
vale es la del PC.
Marti: intento bajarme el Base Package de iAccess, pero no veas, es peor 
que ir al ministerio a hacer una instancia...
Saludos


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

Odbc y W10

[alberto]

Buenos dias.
Una cosa que me está mareando.
Yo tenía un pc con W7 y el ODBC configurado para ejecutar procedures desde 
el AS. (V6)
Un cliente Domino(amb el servidor en un altre AS400) ejecutaba un agente 
que llamaba al procedure y actualizaba el formulario del Domino con los 
datos del AS.
Importante: el agente se ejecutaba en local en el pc por lo que el pc.
El caso es que el W7 se murió y desde un W10 no consigo que se ejecute el 
puñetero procedure. Ya no sé cómo configurar el ODBC del PC.
Aunque puedo acceder al HDD del pc muerto, no puedo recuperar la 
configuración del ODBC. Pero tampoco sé si es que hay un problema  con W10 
y el ODBC del AS400.
Alguna idea?
Gracias

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

Re: ** Newsletter ** RE: Duda copias en preformatos (acabando de perfilar)

[alberto]

No es ningún rollo...de hecho la cosa tiene su gracia. Tengo un preformato 
totalmente cuadrado en impresora, y si en vez de imprimir lo envio a PDF 
poniendo en el OVRPRTF los parámetros TOSTMF() WSCST(*PDF), me lo 
descogorcia todo. Pero no es que se mueva X líneas o columnas, no. Es que 
me se pasa por las narices lo que son las proporciones. Por una parte, se 
mueve el preformato como has dicho, pero por otra, el fichero ya no tiene 
el mismo ancho. Con lo que la primera columna es la única que sale bien, y 
conforme va hacia la derecha, se va descuadrando todo más y más.

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



De: "Javier Mora" <jm...@musgrave.es>
Para:   "forum.help400" <forum.help400@listas.combios.es>
Fecha:  31/01/2018 11:57
Asunto: ** Newsletter ** RE: Duda copias en preformatos (acabando de 
perfilar)
Enviado por:forum.help400-boun...@listas.combios.es



Te comento qué es lo que yo hago para evitar el descuadre del preformato:
 
1.   Ten en cuenta que las impresoras láser tienen un área no 
imprimible (unos 4mm aprox). En cambio, la generación del PDF con 
Transform Services o InfoPrint Server no contempla esta zona no 
imprimible.
2.   Al generar el preformato recorto 5mm por cada uno de los 4 lados.
3.   Cuando sitúo el preformato con OVERLAY o FRONTOVL indico un 
desplazamiento entre 4 y 7 mm hasta que consigo que cuadre con el 
contenido. Procuro no situar el preformato dentro del área no imprimible.
 
De esta forma, con el mismo preformato igualo los ajustes para las dos 
impresiones.
 
Puedes realizar una pequeña prueba sin preformato para comprobar lo dicho 
anteriormente. Coge un listado sencillo y ajústalo a la columna 1 y línea 
1 de la hoja. Si visualizas el archivos en spool verás que todo aparece en 
su posición, pero si lo imprimes en láser verás que la primera línea y 
primeras columnas se han desplazado unos milímetros. Si visualizas el PDF 
(y no lo imprimes) verás que el contenido si está pegado a los márgenes 
superior e izquierdo.
 
Es más, si utilizas un archivo de impresión con campos en columnas 
separadas (lo habitual) y ajustas la primera columna en la posición 1, en 
la impresión en papel sólo se desplaza este primer campo y, además, se 
puede llegar a solapar sobre parte de la segunda columna.
 
¡¡QUÉ ROLLO TE HE SOLTADO!! Espero que me disculpes.
 
Creo que tu segunda pregunta se responde también con lo anterior. La 
posición del preformato intento dejarla siempre fija, es más, creo que no 
tengo ninguna variable. El nombre del preformato si suelo parametrizarlo, 
por ejemplo, el caso de las facturas que llevan una “marca de agua” con la 
palabra COPIA o sin ella.
 
Espero haberte sido de ayuda.
 
Javier 
 
De: forum.help400-boun...@listas.combios.es [
mailto:forum.help400-boun...@listas.combios.es] En nombre de alberto
Enviado el: miércoles, 31 de enero de 2018 8:48
Para: forum.help400
Asunto: Duda copias en preformatos (acabando de perfilar)
 
Buenos dias. 
Con este tema de los preformatos, se me ha refrescado la memoria...supongo 
que os ha pasado a muchos, que enviando un preformato a una impresora, os 
sale de una manera, y enviándolo a un fichero PDF se os descuadra(y 
viceversa). 
Esta tambien podría ser la solución. Tener un preformato para impresora y 
otro para PDF y cambiarlo dinámicamente. 
Por otra parte, Javier, estoy diseñando PRTF siguiendo tu idea. Sólo una 
cosa, en ( 6.9 2.5) en 6.9 y 2.5 supongo que pasas los parámetros 
de desplazamiento. Tambien supongo que si los dos preformatos tienen los 
mismos tamaños, esto va a 0, no? 
Gracias!! y gracias a todos los que me respondísteis. 



De:"Javier Mora" <jm...@musgrave.es> 
Para:"forum.help400" <forum.help400@listas.combios.es> 
Fecha:24/01/2018 14:06 
Asunto:** Newsletter ** RE: ** Newsletter ** RE: Duda copias en 
preformatos 
Enviado por:forum.help400-boun...@listas.combios.es 




Te pongo un pequeño ejemplo de la DDS de archivo de impresora: 
  
 A  R OVL1 
 A  OVERLAY( 6.9 2.5) 
 AOVLNM2 8A  P 
  
Y en el programa cambias el valor de la variable en función del preformato 
a imprimir 
  
OVLNM2 = ‘PREFORM01’; 
WRITE OVL1; 
WRITE OTRO_REG; 
  
OVLNM2 = ‘PREFORM02’; 
WRITE OVL1; 
WRITE OTRO_REG; 
  
Normalmente la palabra clave OVERLAY debe ir en un registro a parte, que 
suele “escribirse” antes que el contenido variable del documento. 
  
Javier 
  
  
De: forum.help400-boun...@listas.combios.es [
mailto:forum.help400-boun...@listas.combios.es] En nombre de alberto
Enviado el: miércoles, 24 de enero de 2018 10:45
Para: forum.help400
Asunto: Re: ** Newsletter ** RE: Duda copias en preformatos 
  
Caray. Esto pinta bien. Evidentemente no lo he hecho nunca. 
Interpreto que es un registro vacio, sólo con esta variable? 
Descrito en el fichero al principio al final?, 

Re: ** Newsletter ** Duda copias en preformatos (acabando de perfilar)

[alberto]

Javier, perdona, creo que lo pillo. Entiendo que este overlay con sus 
parámetros sustituye al FRONTOVL(/) que uso en el OVRPRTF, en 
la Cl previa a llamar al programa de impresión, y por lo tanto lleva sus 
propios desplazamientos. Es así?
Gracias.



De: "alberto" <alberto.marti...@roler.es>
Para:   "forum.help400" <forum.help400@listas.combios.es>
Fecha:  31/01/2018 09:16
Asunto: ** Newsletter ** Duda copias en preformatos (acabando de perfilar)
Enviado por:forum.help400-boun...@listas.combios.es



Buenos dias. 
Con este tema de los preformatos, se me ha refrescado la memoria...supongo 
que os ha pasado a muchos, que enviando un preformato a una impresora, os 
sale de una manera, y enviándolo a un fichero PDF se os descuadra(y 
viceversa). 
Esta tambien podría ser la solución. Tener un preformato para impresora y 
otro para PDF y cambiarlo dinámicamente. 
Por otra parte, Javier, estoy diseñando PRTF siguiendo tu idea. Sólo una 
cosa, en ( 6.9 2.5) en 6.9 y 2.5 supongo que pasas los parámetros 
de desplazamiento. Tambien supongo que si los dos preformatos tienen los 
mismos tamaños, esto va a 0, no? 
Gracias!! y gracias a todos los que me respondísteis. 



De:"Javier Mora" <jm...@musgrave.es> 
Para:"forum.help400" <forum.help400@listas.combios.es> 
Fecha:24/01/2018 14:06 
Asunto:** Newsletter ** RE: ** Newsletter ** RE: Duda copias en 
preformatos 
Enviado por:forum.help400-boun...@listas.combios.es 



Te pongo un pequeño ejemplo de la DDS de archivo de impresora: 
  
 A  R OVL1 
 A  OVERLAY( 6.9 2.5) 
 AOVLNM2 8A  P 
  
Y en el programa cambias el valor de la variable en función del preformato 
a imprimir 
  
OVLNM2 = ‘PREFORM01’; 
WRITE OVL1; 
WRITE OTRO_REG; 
  
OVLNM2 = ‘PREFORM02’; 
WRITE OVL1; 
WRITE OTRO_REG; 
  
Normalmente la palabra clave OVERLAY debe ir en un registro a parte, que 
suele “escribirse” antes que el contenido variable del documento. 
  
Javier 
  
  
De: forum.help400-boun...@listas.combios.es [
mailto:forum.help400-boun...@listas.combios.es] En nombre de alberto
Enviado el: miércoles, 24 de enero de 2018 10:45
Para: forum.help400
Asunto: Re: ** Newsletter ** RE: Duda copias en preformatos 
  
Caray. Esto pinta bien. Evidentemente no lo he hecho nunca. 
Interpreto que es un registro vacio, sólo con esta variable? 
Descrito en el fichero al principio al final?, le da lo mismo? 
Interpreto que el orden de escritura sería algo así: 
Overlay=1; 
  Exsr Sr_albaran; 
Overlay=2; 
  Exsr Sr_albaran; 

Begsr Sr_albaran; 
  Write reg_overlay 
  write cabecera 
  dow not %eof 
   Write lineas 
   Enddo 
  write total 
Endsr; 




De:"Javier Mora" <jm...@musgrave.es> 
Para:"forum.help400" <forum.help400@listas.combios.es> 
Fecha:24/01/2018 10:34 
Asunto:** Newsletter ** RE: Duda copias en preformatos 
Enviado por:forum.help400-boun...@listas.combios.es 





Otra opción consiste en incluir en el PRTF un registro con OVERLAY y 
parametrizarlo con una “variable a programa” y cargar el nombre de un 
preformato u otro. 
 
Javier Mora 
 
De: forum.help400-boun...@listas.combios.es [
mailto:forum.help400-boun...@listas.combios.es] En nombre de Fernando 
Sánchez Piña
Enviado el: miércoles, 24 de enero de 2018 9:25
Para: forum.help400
Asunto: Re: Duda copias en preformatos 
 
Buenos días, 
 
De esa manera te genera dos impresos. 
Yo suelo hacer un sólo preformato sin el texto y luego se lo añado en el 
PRTF como una variable de texto más, de esta forma se genera un único 
impreso y quedan identificadas cada hoja con Original y Copia. Además se 
puede ver antes de imprimirlo en el mismo spool del as400. 
 
Un saludo 
 
Fernando Sánchez Piña 
 
El 24 de enero de 2018, 9:17, alberto <alberto.marti...@roler.es> 
escribió: 
Buenos dias. 
Para los que hacéis preformatos, a ver si me podéis confirmar una cosa. Lo 
digo porque igual tiro para el camino más largo, y luego resulta que hay 
un atajo: 
Tengo que hacer una impresión con original + copia en la que en la primera 
página ponga 'original' y en la segunda ponga 'copia' 
Yo he pensado en hacer dos preformatos(uno para cada hoja) y dos rutinas 
de impresión, evidentemente antes de ejecutar cada una de ellas, hago un 
ovrprtf del printerfile y le asigno un preformato. 

-Llenar fichero 
ovrprtf file(printerfile) FRONTOVL(/PREFORMato1) 
Ejecutar rutina printer 
ovrprtf file(printerfile) FRONTOVL(/PREFORMato2) 
Ejecutar rutina printer 

Alguien lo ha hecho de un sólo paso? 
Gracias! 


Ú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 © Pu

Duda copias en preformatos (acabando de perfilar)

[alberto]

Buenos dias.
Con este tema de los preformatos, se me ha refrescado la memoria...supongo 
que os ha pasado a muchos, que enviando un preformato a una impresora, os 
sale de una manera, y enviándolo a un fichero PDF se os descuadra(y 
viceversa).
Esta tambien podría ser la solución. Tener un preformato para impresora y 
otro para PDF y cambiarlo dinámicamente.
Por otra parte, Javier, estoy diseñando PRTF siguiendo tu idea. Sólo una 
cosa, en ( 6.9 2.5) en 6.9 y 2.5 supongo que pasas los parámetros 
de desplazamiento. Tambien supongo que si los dos preformatos tienen los 
mismos tamaños, esto va a 0, no?
Gracias!! y gracias a todos los que me respondísteis.



De: "Javier Mora" <jm...@musgrave.es>
Para:   "forum.help400" <forum.help400@listas.combios.es>
Fecha:  24/01/2018 14:06
Asunto: ** Newsletter ** RE: ** Newsletter ** RE: Duda copias en 
preformatos
Enviado por:forum.help400-boun...@listas.combios.es



Te pongo un pequeño ejemplo de la DDS de archivo de impresora:
 
 A  R OVL1
 A  OVERLAY( 6.9 2.5)
 AOVLNM2 8A  P
 
Y en el programa cambias el valor de la variable en función del preformato 
a imprimir
 
OVLNM2 = ‘PREFORM01’;
WRITE OVL1;
WRITE OTRO_REG;
 
OVLNM2 = ‘PREFORM02’;
WRITE OVL1;
WRITE OTRO_REG;
 
Normalmente la palabra clave OVERLAY debe ir en un registro a parte, que 
suele “escribirse” antes que el contenido variable del documento.
 
Javier
 
 
De: forum.help400-boun...@listas.combios.es [
mailto:forum.help400-boun...@listas.combios.es] En nombre de alberto
Enviado el: miércoles, 24 de enero de 2018 10:45
Para: forum.help400
Asunto: Re: ** Newsletter ** RE: Duda copias en preformatos
 
Caray. Esto pinta bien. Evidentemente no lo he hecho nunca. 
Interpreto que es un registro vacio, sólo con esta variable? 
Descrito en el fichero al principio al final?, le da lo mismo? 
Interpreto que el orden de escritura sería algo así: 
Overlay=1; 
   Exsr Sr_albaran; 
Overlay=2; 
   Exsr Sr_albaran; 

Begsr Sr_albaran; 
   Write reg_overlay 
   write cabecera 
   dow not %eof 
Write lineas 
Enddo 
   write total 
Endsr; 




De:"Javier Mora" <jm...@musgrave.es> 
Para:"forum.help400" <forum.help400@listas.combios.es> 
Fecha:24/01/2018 10:34 
Asunto:** Newsletter ** RE: Duda copias en preformatos 
Enviado por:forum.help400-boun...@listas.combios.es 




Otra opción consiste en incluir en el PRTF un registro con OVERLAY y 
parametrizarlo con una “variable a programa” y cargar el nombre de un 
preformato u otro. 
  
Javier Mora 
  
De: forum.help400-boun...@listas.combios.es [
mailto:forum.help400-boun...@listas.combios.es] En nombre de Fernando 
Sánchez Piña
Enviado el: miércoles, 24 de enero de 2018 9:25
Para: forum.help400
Asunto: Re: Duda copias en preformatos 
 
Buenos días, 
 
De esa manera te genera dos impresos. 
Yo suelo hacer un sólo preformato sin el texto y luego se lo añado en el 
PRTF como una variable de texto más, de esta forma se genera un único 
impreso y quedan identificadas cada hoja con Original y Copia. Además se 
puede ver antes de imprimirlo en el mismo spool del as400. 
 
Un saludo 
 
Fernando Sánchez Piña 
 
El 24 de enero de 2018, 9:17, alberto <alberto.marti...@roler.es> 
escribió: 
Buenos dias. 
Para los que hacéis preformatos, a ver si me podéis confirmar una cosa. Lo 
digo porque igual tiro para el camino más largo, y luego resulta que hay 
un atajo: 
Tengo que hacer una impresión con original + copia en la que en la primera 
página ponga 'original' y en la segunda ponga 'copia' 
Yo he pensado en hacer dos preformatos(uno para cada hoja) y dos rutinas 
de impresión, evidentemente antes de ejecutar cada una de ellas, hago un 
ovrprtf del printerfile y le asigno un preformato. 

-Llenar fichero 
ovrprtf file(printerfile) FRONTOVL(/PREFORMato1) 
Ejecutar rutina printer 
ovrprtf file(printerfile) FRONTOVL(/PREFORMato2) 
Ejecutar rutina printer 

Alguien lo ha hecho de un sólo paso? 
Gracias! 


Ú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: Duda copias en preformatos

[alberto]

Caray. Esto pinta bien. Evidentemente no lo he hecho nunca. 
Interpreto que es un registro vacio, sólo con esta variable?
Descrito en el fichero al principio al final?, le da lo mismo? 
Interpreto que el orden de escritura sería algo así:
Overlay=1;
   Exsr Sr_albaran;
Overlay=2;
   Exsr Sr_albaran;

Begsr Sr_albaran;
   Write reg_overlay
   write cabecera
   dow not %eof
Write lineas
Enddo
   write total
Endsr;




De: "Javier Mora" <jm...@musgrave.es>
Para:   "forum.help400" <forum.help400@listas.combios.es>
Fecha:  24/01/2018 10:34
Asunto: ** Newsletter ** RE: Duda copias en preformatos
Enviado por:forum.help400-boun...@listas.combios.es



Otra opción consiste en incluir en el PRTF un registro con OVERLAY y 
parametrizarlo con una “variable a programa” y cargar el nombre de un 
preformato u otro.
 
Javier Mora
 
De: forum.help400-boun...@listas.combios.es [
mailto:forum.help400-boun...@listas.combios.es] En nombre de Fernando 
Sánchez Piña
Enviado el: miércoles, 24 de enero de 2018 9:25
Para: forum.help400
Asunto: Re: Duda copias en preformatos
 
Buenos días,
 
De esa manera te genera dos impresos.
Yo suelo hacer un sólo preformato sin el texto y luego se lo añado en el 
PRTF como una variable de texto más, de esta forma se genera un único 
impreso y quedan identificadas cada hoja con Original y Copia. Además se 
puede ver antes de imprimirlo en el mismo spool del as400.
 
Un saludo
 
Fernando Sánchez Piña
 
El 24 de enero de 2018, 9:17, alberto <alberto.marti...@roler.es> 
escribió:
Buenos dias. 
Para los que hacéis preformatos, a ver si me podéis confirmar una cosa. Lo 
digo porque igual tiro para el camino más largo, y luego resulta que hay 
un atajo: 
Tengo que hacer una impresión con original + copia en la que en la primera 
página ponga 'original' y en la segunda ponga 'copia' 
Yo he pensado en hacer dos preformatos(uno para cada hoja) y dos rutinas 
de impresión, evidentemente antes de ejecutar cada una de ellas, hago un 
ovrprtf del printerfile y le asigno un preformato. 

-Llenar fichero 
ovrprtf file(printerfile) FRONTOVL(/PREFORMato1) 
Ejecutar rutina printer 
ovrprtf file(printerfile) FRONTOVL(/PREFORMato2) 
Ejecutar rutina printer 

Alguien lo ha hecho de un sólo paso? 
Gracias! 


Ú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: Duda copias en preformatos

[alberto]

Es por temas de diseño, Fernando letra difuminada, extragrande, etc...y 
algunos impresos se van a la cola, y otros los convierto en PDF y los 
envio por email.

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



De: "Fernando Sánchez Piña" <fspin...@gmail.com>
Para:   "forum.help400" <forum.help400@listas.combios.es>
Fecha:  24/01/2018 09:45
Asunto: ** Newsletter ** Re: Duda copias en preformatos
Enviado por:forum.help400-boun...@listas.combios.es



Buenos días,

De esa manera te genera dos impresos.
Yo suelo hacer un sólo preformato sin el texto y luego se lo añado en el 
PRTF como una variable de texto más, de esta forma se genera un único 
impreso y quedan identificadas cada hoja con Original y Copia. Además se 
puede ver antes de imprimirlo en el mismo spool del as400.

Un saludo

Fernando Sánchez Piña

El 24 de enero de 2018, 9:17, alberto <alberto.marti...@roler.es> 
escribió:
Buenos dias. 
Para los que hacéis preformatos, a ver si me podéis confirmar una cosa. Lo 
digo porque igual tiro para el camino más largo, y luego resulta que hay 
un atajo: 
Tengo que hacer una impresión con original + copia en la que en la primera 
página ponga 'original' y en la segunda ponga 'copia' 
Yo he pensado en hacer dos preformatos(uno para cada hoja) y dos rutinas 
de impresión, evidentemente antes de ejecutar cada una de ellas, hago un 
ovrprtf del printerfile y le asigno un preformato. 

-Llenar fichero 
ovrprtf file(printerfile) FRONTOVL(/PREFORMato1) 
Ejecutar rutina printer 
ovrprtf file(printerfile) FRONTOVL(/PREFORMato2) 
Ejecutar rutina printer 

Alguien lo ha hecho de un sólo paso? 
Gracias! 


Ú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: Duda copias en preformatos

[alberto]

Buenas. Pues sí, es una posibilidad lo del texto, pero es por temas de 
diseño, me han sugerido hacerlo en un tipo de letra más grande de lo 
normal, y difuminada para que se vea bien, y se pueda escribir encima.

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



De: "INFORMATICA" <informat...@turco-spain.com>
Para:   "forum.help400" <forum.help400@listas.combios.es>
Fecha:  24/01/2018 09:57
Asunto: ** Newsletter ** Re: Duda copias en preformatos
Enviado por:forum.help400-boun...@listas.combios.es



Hola.
Por que no usas el mismo preformato, pero te montas un campo TEXTO donde 
mueves ORIGINAL o COPIA en funcion del estado??
Saludos
- Original Message - 
From: alberto 
To: forum.help400 
Sent: Wednesday, January 24, 2018 9:17 AM
Subject: Duda copias en preformatos

Buenos dias. 
Para los que hacéis preformatos, a ver si me podéis confirmar una cosa. Lo 
digo porque igual tiro para el camino más largo, y luego resulta que hay 
un atajo: 
Tengo que hacer una impresión con original + copia en la que en la primera 
página ponga 'original' y en la segunda ponga 'copia' 
Yo he pensado en hacer dos preformatos(uno para cada hoja) y dos rutinas 
de impresión, evidentemente antes de ejecutar cada una de ellas, hago un 
ovrprtf del printerfile y le asigno un preformato. 

-Llenar fichero 
ovrprtf file(printerfile) FRONTOVL(/PREFORMato1) 
Ejecutar rutina printer 
ovrprtf file(printerfile) FRONTOVL(/PREFORMato2) 
Ejecutar rutina printer 

Alguien lo ha hecho de un sólo paso? 
Gracias! 


Ú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.

Duda copias en preformatos

[alberto]

Buenos dias.
Para los que hacéis preformatos, a ver si me podéis confirmar una cosa. Lo 
digo porque igual tiro para el camino más largo, y luego resulta que hay 
un atajo:
Tengo que hacer una impresión con original + copia en la que en la primera 
página ponga 'original' y en la segunda ponga 'copia'
Yo he pensado en hacer dos preformatos(uno para cada hoja) y dos rutinas 
de impresión, evidentemente antes de ejecutar cada una de ellas, hago un 
ovrprtf del printerfile y le asigno un preformato.

-Llenar fichero
ovrprtf file(printerfile) FRONTOVL(/PREFORMato1)
Ejecutar rutina printer
ovrprtf file(printerfile) FRONTOVL(/PREFORMato2)
Ejecutar rutina printer

Alguien lo ha hecho de un sólo paso?
Gracias!

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

Re: ** Newsletter ** RE: ** Newsletter ** Re: ** Newsletter ** Re: SII Aeat y certificado digital

[alberto]

Hola Angel.
No hombre, no creas polémica. 
A nosotros esa era la información que nos pasaron. En el BOE quedaba un 
poco ambíguo y tuvimos que ir preguntando.
Evidentemente íbamos a contratiempo, porque la última y definitiva 
modificación del BOE al respecto era de mayo y en julio ya teníamos que 
empezar a enviar datos reales. 
Quizá nos fue bien creérnoslo, porque no nos habría dado tiempo.
Salu2




De: "Angel Pulido" <angel.pul...@suzuki.com.es>
Para:   "forum.help400" <forum.help400@listas.combios.es>
Fecha:  18/01/2018 10:13
Asunto: ** Newsletter ** RE: ** Newsletter ** Re: ** Newsletter ** Re: SII 
Aeat y certificado  digital
Enviado por:forum.help400-boun...@listas.combios.es



Hola,
 
Sin ánimo de crear polémica. Nosotros lo hemos hecho desde el AS usando 
WSDL2RPG y HTTPAPI y, ni hay que pagar por factura, ni hay que firmarla. 
El certificado de usuario necesario se usa como login, igual que si 
accedes por la web, y para encriptar la comunicación con SSL, no para 
firmar. Las facturas enviadas no se firman. Lo que sí es verdad es que a 
veces hay errores y hay que reenviar la factura. Tampoco creo que sea 
necesario tener un servidor de ningún tipo, en esta transacción tu eres 
cliente no servidor.
 
La comunicación en sí, usando estas 2 herramientas, no es demasiado 
compleja si usas la integración desde WSDL a HTTPPAPI que asume que vas a 
crear el XML en una estructura de datos que replica la definición del 
servicio. Si quieres hacerte tú el fichero y posteriormente enviarlo 
tendrás que trabajarte por tu cuenta todos los pasos de la comunicación 
usando HTTPAPI, hay guías por internet pero no es especialmente evidente.
 
La integración de errores también es inmediata a cada envío recibes un xml 
de respuesta con los errores que tienes que recorrer para saber cuál de 
tus facturas esta correcta y cual no. 
 
Por mi experiencia la propia comunicación no ha sido un problema, usando 
estas herramientas, claro, el problema ha sido el cambio en la 
contabilización y en algunos casos en alguna facturación para ser capaz de 
informar lo que solicita el SII correctamente, nosotros también tenemos 
una casuística bastante compleja y este ha sido, y sigue siendo, el 
caballo de batalla.
 
Respondiendo a la pregunta de Juan el certificado que necesitas debe ser 
uno que incluya el NIF de la empresa que estas declarando como certificado 
de empresa o como certificado de representación o uno de una persona 
física registrada como colaborador social en AEAT.
 
Luego este certificado tienes que cargarlo en el gestor de certificados 
digitales del AS para poder usarlo en HTTPAPI. Si quieres más información 
escríbeme a mi correo.
Saludos,
 
宜しく
 
Angel Pulido
IT Manager
 
Suzuki Iberica
 
De: forum.help400-boun...@listas.combios.es [
mailto:forum.help400-boun...@listas.combios.es] En nombre de alberto
Enviado el: jueves, 18 de enero de 2018 8:33
Para: forum.help400 <forum.help400@listas.combios.es>
Asunto: Re: ** Newsletter ** Re: ** Newsletter ** Re: SII Aeat y 
certificado digital
 
Si el problema no es crear un XML, sino integrarlo en hacienda. Nosotros 
estuvimos haciendo un estudio el año pasado antes de entrar a saco con el 
SII en julio, y si no me equivoco, así resumiendo mucho, teníamos que 
montar un IIS certificado y firmar digitalemte todos los registros 
enviados a hacienda. que comprende facturas enviadas y recibidas. Por cada 
registro firmado, se paga. y encima, no es seguro que el registro te lo 
acepte hacienda, por lo que hay facturas que vas a pagar la firma varias 
veces. 
 Nosotros lo valoramos, y decidimos contratar un portal certificado al que 
igualmente le enviamos el XML desde el AS, y él se encarga del resto. 
Gestión de históricos y pequeñas modificaciones de errores incluídas. 
Por ejemplo? pues cambiar una factura de la tabla L9 a la L7 o sea, 
quitarle o ponerle la causa de exenciónse puede hacer por el portal 
sin que pase por el AS. 
Repito que nosotros tenemos muchísima complejidad en el tema de facturas y 
encima somos multiempresa. Igual hay quien lo tiene más uniforme, y le es 
más sencillo. 



De:"Juan García" <homeryb...@gmail.com> 
Para:"forum.help400" <forum.help400@listas.combios.es> 
Fecha:17/01/2018 13:42 
Asunto:** Newsletter ** Re: ** Newsletter ** Re: SII Aeat y 
certificado digital 
Enviado por:forum.help400-boun...@listas.combios.es 




Hola 

Repito que ya tengo toda la aplicación hecha, me genera el xml 
perfectamente, el problema me surge cuando lo envío a la AEAT porque me 
devuelve un error debido a que no se envía el certificado digital, es sólo 
esto lo que me hace falta saber cómo hacer. 


Saludos 

El 16 de enero de 2018, 17:15, alberto <alberto.marti...@roler.es> 
escribió: 
Hola Juan. 
Yo, la verdad, te recomiendo que uses un intermediario certificado para 
enviarle tú los XML y que él se los envíe a hacie

Re: ** Newsletter ** Re: ** Newsletter ** Re: SII Aeat y certificado digital

[alberto]

Si el problema no es crear un XML, sino integrarlo en hacienda. Nosotros 
estuvimos haciendo un estudio el año pasado antes de entrar a saco con el 
SII en julio, y si no me equivoco, así resumiendo mucho, teníamos que 
montar un IIS certificado y firmar digitalemte todos los registros 
enviados a hacienda. que comprende facturas enviadas y recibidas. Por cada 
registro firmado, se paga. y encima, no es seguro que el registro te lo 
acepte hacienda, por lo que hay facturas que vas a pagar la firma varias 
veces.
 Nosotros lo valoramos, y decidimos contratar un portal certificado al que 
igualmente le enviamos el XML desde el AS, y él se encarga del resto. 
Gestión de históricos y pequeñas modificaciones de errores incluídas.
Por ejemplo? pues cambiar una factura de la tabla L9 a la L7 o sea, 
quitarle o ponerle la causa de exenciónse puede hacer por el portal 
sin que pase por el AS.
Repito que nosotros tenemos muchísima complejidad en el tema de facturas y 
encima somos multiempresa. Igual hay quien lo tiene más uniforme, y le es 
más sencillo. 



De: "Juan García" <homeryb...@gmail.com>
Para:   "forum.help400" <forum.help400@listas.combios.es>
Fecha:  17/01/2018 13:42
Asunto: ** Newsletter ** Re: ** Newsletter ** Re: SII Aeat y certificado 
digital
Enviado por:forum.help400-boun...@listas.combios.es



Hola 

Repito que ya tengo toda la aplicación hecha, me genera el xml 
perfectamente, el problema me surge cuando lo envío a la AEAT porque me 
devuelve un error debido a que no se envía el certificado digital, es sólo 
esto lo que me hace falta saber cómo hacer.


Saludos

El 16 de enero de 2018, 17:15, alberto <alberto.marti...@roler.es> 
escribió:
Hola Juan. 
Yo, la verdad, te recomiendo que uses un intermediario certificado para 
enviarle tú los XML y que él se los envíe a hacienda. 
Piensa que van facturas de compras y de ventas, y ellos se encargan de la 
firma digital. 
También te ahorras de la gestión de facturas procesadas, porque el hecho 
de que las envíes a hacienda, no quiere decir que ellos las procesen 
porque puede haber errores. 
Te vas a ahorrar un montón de dolores de cabeza, y la verdad es que por el 
precio que se paga, no vale la pena. 
Te lo digo, porque 'pulir' los XML tal y como los quiere hacienda, al 
menos en mi caso, fue para volverse loco. Nosotros tenemos un montón de 
tipos diferentes tanto de clientes como de proveedores. 
Con un intermediario, te pueden decir exactamente dónde está el tag que no 
les cuadra y cómo ponerlo correcto, y ellos se encargan de la firma 
digital y de todo el lio ese. 
Salu2 

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



De:"Juan García" <homeryb...@gmail.com> 
Para:"forum.help400" <forum.help400@listas.combios.es> 
Fecha:16/01/2018 16:23 
Asunto:** Newsletter ** Re: SII Aeat y certificado digital 
Enviado por:forum.help400-boun...@listas.combios.es 



Hola 

  Es que ya tengo hechos los programas para generar el XML, sólo me queda 
hacer la parte que envía el XML a la AEAT 

Un saludo 

El 16 de enero de 2018, 15:14, Alex Martínez <ajut...@gmail.com> escribió: 

Hola 

Sinceramente por la complejidad del WSDL de los datos del SII yo 
utilizaría IWS que gracias a AXIS te crea una buena parte del código y te 
evita tener que escribir el XML, ahora bien necesitas mínimo la  V7R1  

Sé que con HTTPAPI de Scott Klement puedes utilizar SSL pero conozco muy 
poco de la utilidad WSDL2RPG de Thomas Raddatz y cómo integrarlo todo 


El 16 de enero de 2018, 14:35, Juan García <homeryb...@gmail.com> 
escribió: 
Hola 

  Sí, me refiero al certificado digital necesario para autentificarse 

  Quiero hacer el desarrollo utilizando la utilidad HTTPAPI y WSDL2RPG de 
Scott Klement, pero no sé como enviar el XML y autentificándome con el 
certificado 

Un saludo 

El 16 de enero de 2018, 13:50, Alex Martínez <ajut...@gmail.com> escribió: 

Hola 

Entiendo que te refieres a que el certificado digital es necesario para la 
autentificación  

Ese certificado debe estar instalado y ser accesible por el programa que 
uses como cliente web para enviar el XML a la AEAT  

¿estás desarrollando un cliente web en RPG con IWS ? 





El 16 de enero de 2018, 13:25, Juan García <homeryb...@gmail.com> 
escribió: 
Saludos  

  Estamos generando el fichero XML de las facturas para enviar al web 
service de la AEAT con un programa RPG, pero para poder enviarlo hay que 
hacerlo con un certificado digital, ¿puede decirme alguien cómo se puede 
hacer? 


Gracias 


Ú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: SII Aeat y certificado digital

[alberto]

Hola Juan.
Yo, la verdad, te recomiendo que uses un intermediario certificado para 
enviarle tú los XML y que él se los envíe a hacienda.
Piensa que van facturas de compras y de ventas, y ellos se encargan de la 
firma digital. 
También te ahorras de la gestión de facturas procesadas, porque el hecho 
de que las envíes a hacienda, no quiere decir que ellos las procesen 
porque puede haber errores.
Te vas a ahorrar un montón de dolores de cabeza, y la verdad es que por el 
precio que se paga, no vale la pena. 
Te lo digo, porque 'pulir' los XML tal y como los quiere hacienda, al 
menos en mi caso, fue para volverse loco. Nosotros tenemos un montón de 
tipos diferentes tanto de clientes como de proveedores.
Con un intermediario, te pueden decir exactamente dónde está el tag que no 
les cuadra y cómo ponerlo correcto, y ellos se encargan de la firma 
digital y de todo el lio ese. 
Salu2

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



De: "Juan García" 
Para:   "forum.help400" 
Fecha:  16/01/2018 16:23
Asunto: ** Newsletter ** Re: SII Aeat y certificado digital
Enviado por:forum.help400-boun...@listas.combios.es



Hola

  Es que ya tengo hechos los programas para generar el XML, sólo me queda 
hacer la parte que envía el XML a la AEAT

Un saludo

El 16 de enero de 2018, 15:14, Alex Martínez  escribió:
Hola

Sinceramente por la complejidad del WSDL de los datos del SII yo 
utilizaría IWS que gracias a AXIS te crea una buena parte del código y te 
evita tener que escribir el XML, ahora bien necesitas mínimo la  V7R1 

Sé que con HTTPAPI de Scott Klement puedes utilizar SSL pero conozco muy 
poco de la utilidad WSDL2RPG de Thomas Raddatz y cómo integrarlo todo


El 16 de enero de 2018, 14:35, Juan García  
escribió:
Hola

  Sí, me refiero al certificado digital necesario para autentificarse

  Quiero hacer el desarrollo utilizando la utilidad HTTPAPI y WSDL2RPG de 
Scott Klement, pero no sé como enviar el XML y autentificándome con el 
certificado

Un saludo

El 16 de enero de 2018, 13:50, Alex Martínez  escribió:
Hola

Entiendo que te refieres a que el certificado digital es necesario para la 
autentificación 

Ese certificado debe estar instalado y ser accesible por el programa que 
uses como cliente web para enviar el XML a la AEAT 

¿estás desarrollando un cliente web en RPG con IWS ?





El 16 de enero de 2018, 13:25, Juan García  
escribió:
Saludos 

  Estamos generando el fichero XML de las facturas para enviar al web 
service de la AEAT con un programa RPG, pero para poder enviarlo hay que 
hacerlo con un certificado digital, ¿puede decirme alguien cómo se puede 
hacer?


Gracias


Ú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.

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

Re: ** Newsletter ** RE: Problema envio FTP loggin muy largo

[alberto]

Buenos dias.
Ya está solucionado. No se me hubiera pasado por la cabeza que fuera esto, 
pero ha sido cambiarlo(lo he cambiado por probar algo, la verdad) y ha 
funcionado:
Lo explico:
Esto es una CL que llama a otra con varias variables parámetro. Una de 
ellas que estaba definida así:
DCL VAR() TYPE(*CHAR) LEN(20) VALUE(IPCLIENTE) 
CALL  PGM(ARCFTPIFCP) PARM(+ 
  )  
peeero la otra CL, la tenía definida así:
DCL VAR() TYPE(*CHAR) 
Sin la longitud
Ha sido definirla con longitud de 20, y empezar a funcionar.
Increible pero cierto.

Gracias Javier!!!

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



De: "Javier Mora" <jm...@musgrave.es>
Para:   "forum.help400" <forum.help400@listas.combios.es>
Fecha:  09/01/2018 11:36
Asunto: ** Newsletter ** RE: Problema envio FTP loggin muy largo
Enviado por:forum.help400-boun...@listas.combios.es



Lo que interpreto es:
 
que el usuario es A\FTPupload
y que la contraseña es lo que hay a continuación con asteriscos
 
El servidor de FTP no está identificando correctamente al usuario. Lo que 
más me sorprende es que te funcione ejecutando uno a uno los mandatos. 
En mi caso, la primera línea del ‘script’ FTP es 
 
usuario contraseña
 
y luego el resto de subcomandos FTP.
 
No sé qué decir.
 
Javier Mora
 
De: forum.help400-boun...@listas.combios.es [
mailto:forum.help400-boun...@listas.combios.es] En nombre de alberto
Enviado el: martes, 9 de enero de 2018 10:38
Para: forum.help400
Asunto: Re: ** Newsletter ** RE: Problema envio FTP loggin muy largo
 
Hola Javier 
En el fichero de log está todo: 

 > AA\FTPupload **  
 Submandato 'AA\FTPup' no válido.  
 Para obtener una lista de submandatos FTP disponibles, entre el 
submandato HELP.   
 Entre un submandato FTP.  

En cambio, si lo hago manual, en plan 3 pasos 
  OVRDBF  FILE(input) TOFILE(.etc 
 OVRDBF  FILE(output) TOFILE(...etc 
 FTPRMTSYS()   
funciona perfecto. 
Es curiosísimo 


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



De:"Javier Mora" <jm...@musgrave.es> 
Para:"forum.help400" <forum.help400@listas.combios.es> 
Fecha:09/01/2018 10:19 
Asunto:** Newsletter ** RE: Problema envio FTP loggin muy largo 
Enviado por:forum.help400-boun...@listas.combios.es 




Yo utilizo el mismo sistema y no he sido capaz de averiguar si se 
transmite el usuario y contraseña completo. Lo he probado contra un IBM i 
y contra un FileZilla Server. En este último no veo la contraseña pero si 
he contado el número de caracteres “ocultados” y me coincide con los 20 
indicados. 
  
¿Puede ser que estés utilizando algún carácter extraño que se transforme 
en otro distinto por temas de páginas de códigos? 
  
¿Cómo sabes que se envían sólo 12 de los 16 dígitos? 
  
Un saludo, 
  
Javier Mora 
  
De: forum.help400-boun...@listas.combios.es [
mailto:forum.help400-boun...@listas.combios.es] En nombre de alberto
Enviado el: martes, 9 de enero de 2018 9:11
Para: forum.help400
Asunto: Problema envio FTP loggin muy largo 
 
Hola Foro 
Tengo un problema con un proveedor que me ha pedido en vio de ficheros por 
FTP. 
Evidentemente, esto funciona de forma manual, pero el problema es cuando 
lo envio automatizado: 
Lo que hago es lo clásico de llenar el miembro,  OVRDBF  FILE(input) 
TOFILE(/) MBR() 
y luego ejecutar un FTP al otro servidor. 
El problema es que por lo que veo el loggin es demasiado largo, y no se 
transmite entero, (sí que se graba entero en el miembro, pero no se 
transmite entero). 
De los 16 dígitos que tiene el loggin, sólo se envían 12, con lo que me da 
error de autentificación. 
Alguien sabe cómo puedo cambiar esto? 
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.

Re: ** Newsletter ** RE: Problema envio FTP loggin muy largo

[alberto]

Hola Javier
En el fichero de log está todo:

 > AA\FTPupload **  
 Submandato 'AA\FTPup' no válido.  
 Para obtener una lista de submandatos FTP disponibles, entre el 
submandato HELP. 
 Entre un submandato FTP.  

En cambio, si lo hago manual, en plan 3 pasos
  OVRDBF  FILE(input) TOFILE(.etc
 OVRDBF  FILE(output) TOFILE(...etc
 FTPRMTSYS() 
funciona perfecto.
Es curiosísimo


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



De: "Javier Mora" <jm...@musgrave.es>
Para:   "forum.help400" <forum.help400@listas.combios.es>
Fecha:  09/01/2018 10:19
Asunto: ** Newsletter ** RE: Problema envio FTP loggin muy largo
Enviado por:forum.help400-boun...@listas.combios.es



Yo utilizo el mismo sistema y no he sido capaz de averiguar si se 
transmite el usuario y contraseña completo. Lo he probado contra un IBM i 
y contra un FileZilla Server. En este último no veo la contraseña pero si 
he contado el número de caracteres “ocultados” y me coincide con los 20 
indicados.
 
¿Puede ser que estés utilizando algún carácter extraño que se transforme 
en otro distinto por temas de páginas de códigos?
 
¿Cómo sabes que se envían sólo 12 de los 16 dígitos?
 
Un saludo,
 
Javier Mora
 
De: forum.help400-boun...@listas.combios.es [
mailto:forum.help400-boun...@listas.combios.es] En nombre de alberto
Enviado el: martes, 9 de enero de 2018 9:11
Para: forum.help400
Asunto: Problema envio FTP loggin muy largo
 
Hola Foro 
Tengo un problema con un proveedor que me ha pedido en vio de ficheros por 
FTP. 
Evidentemente, esto funciona de forma manual, pero el problema es cuando 
lo envio automatizado: 
Lo que hago es lo clásico de llenar el miembro,  OVRDBF  FILE(input) 
TOFILE(/) MBR() 
y luego ejecutar un FTP al otro servidor. 
El problema es que por lo que veo el loggin es demasiado largo, y no se 
transmite entero, (sí que se graba entero en el miembro, pero no se 
transmite entero). 
De los 16 dígitos que tiene el loggin, sólo se envían 12, con lo que me da 
error de autentificación. 
Alguien sabe cómo puedo cambiar esto? 
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.

Problema envio FTP loggin muy largo

[alberto]

Hola Foro
Tengo un problema con un proveedor que me ha pedido en vio de ficheros por 
FTP.
Evidentemente, esto funciona de forma manual, pero el problema es cuando 
lo envio automatizado:
Lo que hago es lo clásico de llenar el miembro,  OVRDBF  FILE(input) 
TOFILE(/) MBR()
y luego ejecutar un FTP al otro servidor.
El problema es que por lo que veo el loggin es demasiado largo, y no se 
transmite entero, (sí que se graba entero en el miembro, pero no se 
transmite entero).
De los 16 dígitos que tiene el loggin, sólo se envían 12, con lo que me da 
error de autentificación.
Alguien sabe cómo puedo cambiar esto?
Saludos

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

Re: ** Newsletter ** CAMBIO MASIVO DE VALORES DEL SISTEMA

[alberto]

Te han subido el nivel de seguridad del sistema:
El valor del sistema QSECURITY cuyo valor era 40 ha pasado a ser 50. 
Y a partir de aquí se han desencadenado todos los demás cambios. Lo que me 
parece recordar es que no tendrá efecto hasta la próxima IPL.
Comprueba bien, porque te puedes encontrar con un montón de usuarios 
bloqueados y sin acceso a pantallas, ficheros, carpetas...etc.





De: "informatica" 
Para:   "FORUM HELP400" 
Fecha:  12/12/2017 19:37
Asunto: ** Newsletter ** CAMBIO MASIVO DE VALORES DEL SISTEMA
Enviado por:forum.help400-boun...@listas.combios.es



Buenas tardes
Conoceis algún "mandato" en el iseries que cambie una serie de valores del 
sistema???
Hoy me he encontrado con esto, y no se como se ha podido realizar.

El valor del sistema QSECURITY cuyo valor era 40 ha pasado a ser 50.  
El valor del sistema QVFYOBJRST cuyo valor era 1 ha pasado a ser 3.  
El valor del sistema QFRCCVNRST cuyo valor era 1 ha pasado a ser 4.  
El valor del sistema QALWJOBITP cuyo valor era 0 ha pasado a ser 0.  
El valor del sistema QPWDEXPITV cuyo valor era *NOMAX ha pasado a ser 
60. 
El valor del sistema QPWDMINLEN cuyo valor era 3 ha pasado a ser 6.  
El valor del sistema QPWDPOSDIF cuyo valor era '0' ha pasado a ser '1'.   
El valor del sistema QPWDLMTCHR cuyo valor era *NONE ha pasado a ser 
AEIOU@$Ñ 
El valor del sistema QPWDLMTAJC cuyo valor era '0' ha pasado a ser '1'.   
El valor del sistema QPWDLMTREP cuyo valor era 0 ha pasado a ser 2.  
El valor del sistema QPWDRQDDGT cuyo valor era '0' ha pasado a ser '1'.   
El valor del sistema QPWDRQDDIF cuyo valor era 0 ha pasado a ser 1.  
El valor del sistema QPWDVLDPGM cuyo valor era *NONE ha pasado a ser 
*NONE. 
El valor del sistema QPWDCHGBLK cuyo valor era *NONE ha pasado a ser 


Ú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: Modernización - Transición SQL

[alberto]

Ah, me he dejado una cosa. Yo personalmente tengo una sóla biblioteca en 
la que guardo todos los journals.
Salu2



De: alberto/arcadie
Para:   "forum.help400" <forum.help400@listas.combios.es>
Fecha:  24/11/2017 11:04
Asunto: Re: ** Newsletter ** RE: Modernización - Transición SQL
Enviado por:Alberto Martinez


Hola Javier.
No sé si es el caso de las tablas con restricción de integridad 
referencial, pero con tablas 'normales' que no estén registradas por 
diario, si quieres borrar o actualizar, tienes que compliar el programa 
con la opción
 COMMIT *NONE. 
Salu2.




De: "Javier Mora" <jm...@musgrave.es>
Para:   "forum.help400" <forum.help400@listas.combios.es>
Fecha:  24/11/2017 10:14
Asunto: ** Newsletter ** RE: Modernización - Transición SQL
Enviado por:forum.help400-boun...@listas.combios.es



Hola a tod@s,
 
como ya he comentado en este mismo “hilo”, estoy utilizando SQL (en lugar 
de DDS) en pequeños proyectos para crear tablas y vistas. Quiero 
aprovechar las restricciones de integridad referencial para mejorar y 
controlar la consistencia de la BBDD. Sin embargo, es con este mecanismo 
con el que me estoy encontrando con más problemas.
 
Ya he descubierto que para activar estas restricciones el sistema utiliza 
un bloque exclusivo sobre las tablas afectadas, lo que me obliga a hacer 
los cambios en horarios fuera de trabajo o buscar un hueco en el día donde 
afecte al menor número de usuarios posible.
 
Ahora me encuentro con otro problema. Resulta que todas las tablas 
referenciadas necesitan estar registradas por diario, si no es imposible 
actualizar o borrar registros. No tenía previsto utilizar registro por 
diario, sobre todo porque no domino el tema. Así que estas son mis dudas:
 
1.   ¿Es obligatorio registrar por diario las tablas con restricciones 
de integridad referencial?
2.   ¿Se puede evitar de alguna forma el uso del diario sin perder el 
control de las restricciones?
3.   ¿El registro por diario me obliga a utilizar el control de 
compromiso en todos mis programas?
4.   ¿O sólo lo utiliza el motor de base de datos cuando lo necesite?
5.   Recomendaciones, según vuestra experiencia, de donde ubicar 
diario y receptores (yo apunta en la misma biblioteca de los ficheros).
6.   ¿Qué precauciones debo tener con el uso del registro por diario? 
Por ejemplo, crecimiento de los receptores.
 
Si veo que no le “saco punta” a este tema pronto tendré que desistir (de 
momento) en el tema de las restricciones.
 
Un saludo y gracias por vuestros comentarios.
 
Javier Mora
Ú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: Modernización - Transición SQL

[alberto]

Hola Javier.
No sé si es el caso de las tablas con restricción de integridad 
referencial, pero con tablas 'normales' que no estén registradas por 
diario, si quieres borrar o actualizar, tienes que compliar el programa 
con la opción
 COMMIT *NONE. 
Salu2.



De: "Javier Mora" 
Para:   "forum.help400" 
Fecha:  24/11/2017 10:14
Asunto: ** Newsletter ** RE: Modernización - Transición SQL
Enviado por:forum.help400-boun...@listas.combios.es



Hola a tod@s,
 
como ya he comentado en este mismo “hilo”, estoy utilizando SQL (en lugar 
de DDS) en pequeños proyectos para crear tablas y vistas. Quiero 
aprovechar las restricciones de integridad referencial para mejorar y 
controlar la consistencia de la BBDD. Sin embargo, es con este mecanismo 
con el que me estoy encontrando con más problemas.
 
Ya he descubierto que para activar estas restricciones el sistema utiliza 
un bloque exclusivo sobre las tablas afectadas, lo que me obliga a hacer 
los cambios en horarios fuera de trabajo o buscar un hueco en el día donde 
afecte al menor número de usuarios posible.
 
Ahora me encuentro con otro problema. Resulta que todas las tablas 
referenciadas necesitan estar registradas por diario, si no es imposible 
actualizar o borrar registros. No tenía previsto utilizar registro por 
diario, sobre todo porque no domino el tema. Así que estas son mis dudas:
 
1.   ¿Es obligatorio registrar por diario las tablas con restricciones 
de integridad referencial?
2.   ¿Se puede evitar de alguna forma el uso del diario sin perder el 
control de las restricciones?
3.   ¿El registro por diario me obliga a utilizar el control de 
compromiso en todos mis programas?
4.   ¿O sólo lo utiliza el motor de base de datos cuando lo necesite?
5.   Recomendaciones, según vuestra experiencia, de donde ubicar 
diario y receptores (yo apunta en la misma biblioteca de los ficheros).
6.   ¿Qué precauciones debo tener con el uso del registro por diario? 
Por ejemplo, crecimiento de los receptores.
 
Si veo que no le “saco punta” a este tema pronto tendré que desistir (de 
momento) en el tema de las restricciones.
 
Un saludo y gracias por vuestros comentarios.
 
Javier Mora
Ú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: F4 no funciona

[alberto]

Hola Alex.
Podría ser tema se Service Pack, pero me inclino más por alguna 
'putadilla' de Windows10...que si IBM no da soporte...ya no creo que la 
arregle. Esto ha empezado a fallar la semana pasada.
El Access Client Solution hace unos años que lo hago servir pero sólo para 
clientes Linux. La verdad es que no he tenido problemas y sí he tenido 
alguna sorpresa muy agradable...La verdad es una muy buena opción

Os explico, y por favor, si os encontráis con el tema, decidlo  al Foro, 
más que nada que no sea alguna cosa rara exclusivamente de mi empresa.

Teclado físico: no funciona el F4 ni en teclado portátil ni en PC fijo. En 
cambio, tanto el teclado emergente como las F4 de las áreas activas, 
funcionan perfectamente.
Además, me falla en todos los entornos y programas excepto dentro de le 
edición de un miembro fuente.
En cambio con las otras teclas de función no he tenido problemas. Raro, 
verdad?

Muchas gracias.



De: "Alex Martínez" <ajut...@gmail.com>
Para:   "forum.help400" <forum.help400@listas.combios.es>
Fecha:  21/11/2017 13:39
Asunto: ** Newsletter ** Re: F4 no funciona
Enviado por:forum.help400-boun...@listas.combios.es



Hola

el caso es que IBM no da soporte al client access en W10 y que 
funcionar todavía funciona pero ¿tienes el ultimo service pack de 
iseries access instalado? 

¿has probado con una 5250 del Access Client Solution ?

El 21 de noviembre de 2017, 12:56, alberto <alberto.marti...@roler.es> 
escribió:
Hola Foro. 
Me está pasando una cosa muy rara en de momento dos pc's que tienen 
iseries Access, W10 y sesión 5250 Personal Communication 6.0. 
El caso es que les ha dejado de funcionar el F4 de los programas. Por 
ejemplo, dentro de un miembro fuente sí que funciona para hacer la 
búsqueda, pero en los programas en los que uso el F4 para alguna utilidad, 
ha dejado de funcionar. 
Son programas que tienen ya su tiempecito activos, están más que 
contrastados, y en otras terminales funcionan perfectamente. 
Alguna pista? 
Gracias 


Ú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.

F4 no funciona

[alberto]

Hola Foro.
Me está pasando una cosa muy rara en de momento dos pc's que tienen 
iseries Access, W10 y sesión 5250 Personal Communication 6.0.
El caso es que les ha dejado de funcionar el F4 de los programas. Por 
ejemplo, dentro de un miembro fuente sí que funciona para hacer la 
búsqueda, pero en los programas en los que uso el F4 para alguna utilidad, 
ha dejado de funcionar.
Son programas que tienen ya su tiempecito activos, están más que 
contrastados, y en otras terminales funcionan perfectamente.
Alguna pista?
Gracias

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

Re: Cambio en la mascara de red

[alberto]

Hola
Yo en mi caso, crearía una segunda interfaz TCPIIP sobre la misma línea 
Eth, con un rango entero diferente, con lo que cuento que no habría 
conflictos.(estamos cambiando todo el direccionamiento de la empresa).
En la práctica entiendo que podré ver las dos subredes desde el AS. Es 
así?
Lo que no tengo claro, es la definición que se hace de 'temporal': es 
porque se cuenta con que algún dia se va a eliminar, o es que al hacer IPL 
se va al traste?
En mi caso, la que eliminaría con el tiempo es la primera, la que tengo 
activa ahora mismo.
Gracias!



De: Alex Martínez <ajut...@gmail.com>
Para:   "forum.help400" <forum.help400@listas.combios.es>
Fecha:  13/09/2017 11:41
Asunto: Re: Cambio en la mascara de red
Enviado por:forum.help400-boun...@listas.combios.es



Hola

Sobre un recursos de hardware CMNxx solo puede tener activo 1 definición 
de linea Eth y sobre 1 linea Eth puedes tener más de una interfaz TCPIP

por eso te decía que puedes añadir una nueva interfaz IP a la linea que ya 
tienes (y que no es necesario modificar ni eliminar) y probar que desde 
ésta nueva puedes conectar y luego haces cambios en la otras (que tienes 
que desactivar)

Salu2



El 12 de septiembre de 2017, 18:15, alberto <alberto.marti...@roler.es> 
escribió:
Hola. 
A ver si lo entiendo, porque esto tendré que hacerlo dentro de un tiempo: 
Tenemos que crear una interface con la nueva IP o con la nueva máscara de 
subred, pero esto lo tendremos que asignar a un recurso, no? (*CMNxx) 
Y luego a partir de aquí tenemos un recurso con dos ips, no? 
entonces entiendo que luego se puede eliminar al antigua y ya está? o..no 
es tan fácil? 
Salu2 



De:Fernando Idem <cobolero...@gmail.com> 
Para:"forum.help400" <forum.help400@listas.combios.es> 
Fecha:08/09/2017 11:26 
Asunto:Re: Cambio en la mascara de red 
Enviado por:forum.help400-boun...@listas.combios.es 




​Gracias por vuestras aportaciones; 

Si Javier, como bien dices el cambio se hace para aumentar el rango de IP, 
ya que nos hemos quedado cortos. Por lo que el día que se haga habrá que 
revisar bien los accesos. 

Alex,  he visto este documento de IBM por la red  

http://www-01.ibm.com/support/docview.wss?uid=nas8N1016488 

que creo que hace una explicación somera de lo que hay que hacer y es mas 
o menos lo que tu me cuentas.  

Ya veremos, a ver que tal se da. 

Un saludo 

  
 ​ 

El 8 de septiembre de 2017, 10:40, Alex Martínez <ajut...@gmail.com> 
escribió: 
Hola 

Te recomendaría hacer estos cambios desde la consola del sistema, porque 
necesitas desactivar primero el interfaz para que te deje cambiar la 
máscara. 

En ocasiones he añadido una nueva IP temporal y he probado que puedo 
acceder por esta nueva IP ANTES de cambiar los existentes. 

Salu2 


El 8 de septiembre de 2017, 10:00, Fernando Idem <cobolero...@gmail.com> 
escribió: 
Buenos días; 

Debido a un cambio en el sistema de red y para tener mas IP se va hacer 
cambios y uno de ellos afecta al ISERIES por lo que hay que cambiar la 
mascara de subred.  



Este cambio no lo voy hacer yo, pero si me gustaría saber a titulo 
informativo y sobre de todo de conocimiento, cual serian los pasos a 
seguir y a que podría afectar. Por ejemplo, sólo con cambiar la mascara 
valdría o habría que hacer algún cambio mas. 

Muchas gracias por vuestras aportaciones  

Un saludo  



Ú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.


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

Re: Cambio en la mascara de red

[alberto]

Hola.
A ver si lo entiendo, porque esto tendré que hacerlo dentro de un tiempo:
Tenemos que crear una interface con la nueva IP o con la nueva máscara de 
subred, pero esto lo tendremos que asignar a un recurso, no? (*CMNxx)
Y luego a partir de aquí tenemos un recurso con dos ips, no?
entonces entiendo que luego se puede eliminar al antigua y ya está? o..no 
es tan fácil?
Salu2



De: Fernando Idem 
Para:   "forum.help400" 
Fecha:  08/09/2017 11:26
Asunto: Re: Cambio en la mascara de red
Enviado por:forum.help400-boun...@listas.combios.es



​Gracias por vuestras aportaciones;

Si Javier, como bien dices el cambio se hace para aumentar el rango de IP, 
ya que nos hemos quedado cortos. Por lo que el día que se haga habrá que 
revisar bien los accesos.

Alex,  he visto este documento de IBM por la red 

http://www-01.ibm.com/support/docview.wss?uid=nas8N1016488

que creo que hace una explicación somera de lo que hay que hacer y es mas 
o menos lo que tu me cuentas. 

Ya veremos, a ver que tal se da.

Un saludo

 
 ​

El 8 de septiembre de 2017, 10:40, Alex Martínez  
escribió:
Hola

Te recomendaría hacer estos cambios desde la consola del sistema, porque 
necesitas desactivar primero el interfaz para que te deje cambiar la 
máscara.

En ocasiones he añadido una nueva IP temporal y he probado que puedo 
acceder por esta nueva IP ANTES de cambiar los existentes.

Salu2


El 8 de septiembre de 2017, 10:00, Fernando Idem  
escribió:
Buenos días;

Debido a un cambio en el sistema de red y para tener mas IP se va hacer 
cambios y uno de ellos afecta al ISERIES por lo que hay que cambiar la 
mascara de subred. 



Este cambio no lo voy hacer yo, pero si me gustaría saber a titulo 
informativo y sobre de todo de conocimiento, cual serian los pasos a 
seguir y a que podría afectar. Por ejemplo, sólo con cambiar la mascara 
valdría o habría que hacer algún cambio mas.

Muchas gracias por vuestras aportaciones 

Un saludo 



Ú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.

IBM Iaccess Client Solutions

[alberto]

Buenos dias Foro.
Estoy haciendo servir el nuevo IBM Iaccess Client Solutions y es genial, 
porque tiene acceso a las carpetas, ejecución de Scripts...vamos casi todo 
lo que le faltaba al anterior para 'competir' con el iseries access 
tradicional.
Pero me he encontrado una cosa: cuando la sesión 5250 recibe un BRKMSG no 
sólo no lo muestra, sino que se queda pilladísima y la tengo que 
desconectar a la fuerza.
Alguien sabe qué puede ser esto?
Version 1.1.7.0 del 22/2/2017
Yo estoy en Ubuntu. Hasta ayer estaba haciendo servir la versión anterior, 
y nunca me había pasado esto.
Gracias!

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

Re: As 99% ocupacion

[alberto]

Hola.
si, si, como es el de desarrollo, tenemos montones de accesos de pruebas, 
tanto ODBC como JDBC.
No he podido comprobar tanto como quisiera, porque cada consulta se hacía 
eterna, pero trabajos como QPWFSERVSO o QSQSRVR que normalmente hay unos 
pocos, los tenía a cientos.
De hecho, una vez reiniciado, tengo 263 trabajos activos, y esta mañana 
tenía unos 1300.
Salu2




De: Andreu Rul <r...@qsl-group.com>
Para:   "forum.help400" <forum.help400@listas.combios.es>
Fecha:  24/04/2017 17:01
Asunto: Re: As 99% ocupacion
Enviado por:forum.help400-boun...@listas.combios.es



En el pasado a alguno de mis clientes les pasó eso por algún trabajo ODBC 
que se quedó abierto e iba llenando su Qtemp. 
Por mas que miraras bibliotecas no se veia donde estaba la ocupación. 

Teneis algún tipo de acceso ODBC a ese sistema? 

- 
Saludos - Salutacions - Cordiali saluti 
Cordialement - Best Regards - 最好的問候, 
Mit freundlichen grüßen, 宜しく 

Andreu RUL 
Responsable técnico España/Sudamérica 
QSL GROUP 
Tel :  + 34 663 817 144 
Mail: r...@qsl-group.com 

Por favor, para demandas técnicas subscríbase a nuestra: 
Worldwide Support platform: http://qsl.zendesk.com 
----- 



From:"alberto" <alberto.marti...@roler.es> 
To:"forum.help400" <forum.help400@listas.combios.es> 
Date:24/04/2017 16:17 
Subject:Re: As 99% ocupacion 
Sent by:forum.help400-boun...@listas.combios.es 



Buenas. 
Al final he tenido que hacer IPL. Cada vez se ralentizaba más y había 
opciones que me tardaban más de 10 minutos. Infumable del todo. 
Despues de la nueva IPL, todo está en la normalidad. Menos mal que es el 
AS de desarrollo. 
Tengo una teoría, a ver si me dais un poco de luz. En el caso de que esté 
en lo cierto, imagino que sería tema de ptf's. 
El As se programó para parar/iniciar automáticamente (go Power). Paró 
automáticamente, pero para iniciar lo hicimos manual un rato antes. Esto 
es lo único 'extraño' que se pudo hacer, pero esto mismo se hizo con otro 
AS y reinició perfectamente. 
Salu2 


De:Marti Riera <marti.ri...@gmail.com> 
Para:"forum.help400" <forum.help400@listas.combios.es> 
Fecha:24/04/2017 12:05 
Asunto:Re: As 99% ocupacion 
Enviado por:forum.help400-boun...@listas.combios.es 



Hola, 

Haz GO DISKTASKS 
1. Recoger información de espacio de disco 
Si tienes planificada la recogida de estadisticas de disco, solo tienes 
que imprimirla (si es reciente) con PRTDSKINF 

Si no puedes someter el RTVDISKINF para que recoja la información. 

mas info: 
http://as400howto.blogspot.com.es/2009/11/estadisticas-espacio-en-disco.html 


Saludos 





Martí Riera 

2017-04-24 10:43 GMT+02:00 alberto <alberto.marti...@roler.es>: 
Buenos dias Foro. 
Me ha pasado una cosa que me suena de haberla visto comentar en el Foro, 
pero ahora mismo no encuentro el hilo. Tampoco estoy seguro de que sea 
exactamente lo mismo. 
El caso es que despues de una IPL totalmente controlada de un AS400 V6R1 
detectamos que va más lento que el caballo del malo, y cuando miro, veo 
que está al 99% de ocupación. 
Tendría que estar al 50% aprox. 
Supongo que por algún error me ha llenado el disco duro de ficheros de 
error, pero no sé cómo buscarlos sin repasarme las bibliotecas una por 
una. 
A alguien le suena un problema como este? 
Gracias. 


Albert Martinez de Urda
IT Manager 
Roler España SLU 
Grupo Arcadie

Ú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: As 99% ocupacion

[alberto]

Gracias Martin. Comenzaré por ahí.
Cada paso que doy tarda muchos minutos, por lo que tardaré mucho en 
resolverlo.
Lo que sí he visto que tengo activos un montón QPVFSERVSO y QSQSRVR, y 
seguro que el problema viene por ahí.
No sé si volviendo a hacer IPL se solucionaría.

Albert Martinez de Urda
  IT Manager 
Roler España SLU
Grupo Arcadie



De: Marti Riera <marti.ri...@gmail.com>
Para:   "forum.help400" <forum.help400@listas.combios.es>
Fecha:  24/04/2017 12:05
Asunto: Re: As 99% ocupacion
Enviado por:forum.help400-boun...@listas.combios.es



Hola,

Haz GO DISKTASKS
 1. Recoger información de espacio de disco
Si tienes planificada la recogida de estadisticas de disco, solo tienes 
que imprimirla (si es reciente) con PRTDSKINF

Si no puedes someter el RTVDISKINF para que recoja la información.

mas info: 
http://as400howto.blogspot.com.es/2009/11/estadisticas-espacio-en-disco.html

Saludos





Martí Riera

2017-04-24 10:43 GMT+02:00 alberto <alberto.marti...@roler.es>:
Buenos dias Foro. 
Me ha pasado una cosa que me suena de haberla visto comentar en el Foro, 
pero ahora mismo no encuentro el hilo. Tampoco estoy seguro de que sea 
exactamente lo mismo. 
El caso es que despues de una IPL totalmente controlada de un AS400 V6R1 
detectamos que va más lento que el caballo del malo, y cuando miro, veo 
que está al 99% de ocupación. 
Tendría que estar al 50% aprox. 
Supongo que por algún error me ha llenado el disco duro de ficheros de 
error, pero no sé cómo buscarlos sin repasarme las bibliotecas una por 
una. 
A alguien le suena un problema como este? 
Gracias. 


Albert Martinez de Urda
 IT Manager 
Roler España SLU 
Grupo Arcadie

Ú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.

As 99% ocupacion

[alberto]

Buenos dias Foro.
Me ha pasado una cosa que me suena de haberla visto comentar en el Foro, 
pero ahora mismo no encuentro el hilo. Tampoco estoy seguro de que sea 
exactamente lo mismo.
El caso es que despues de una IPL totalmente controlada de un AS400 V6R1 
detectamos que va más lento que el caballo del malo, y cuando miro, veo 
que está al 99% de ocupación. 
Tendría que estar al 50% aprox.
Supongo que por algún error me ha llenado el disco duro de ficheros de 
error, pero no sé cómo buscarlos sin repasarme las bibliotecas una por 
una.
A alguien le suena un problema como este?
Gracias.


Albert Martinez de Urda
  IT Manager 
Roler España SLU
Grupo Arcadie
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Limite arrays anidadas

[alberto]

Buenas. 
Alguien sabe si hay algún límite en las array anidadas? 
Me da error al compilar, en una sentencia como esta: 
 
@isp=%lookup(fetsub:Ds_clients(@icl).ds_palets(@ip).ds_subpalet(*).@subpalet) 

No tengo errores en la definición, pero en la sentencia, al hacer el 
lookup me dice que ds_subpalet(*) no existe. 
Evidentemente, sí que está bien definido. 
Nunca había hecho lookup a más de un segundo nivel. 

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

Re: Borrado de receptroes de diario

[alberto]

Buenas.
Alguien sabe si hay algún límite en las array anidadas?
Me da error al compilar, en una sentencia como esta:
 
@isp=%lookup(fetsub:Ds_clients(@icl).ds_palets(@ip).ds_subpalet(*).@subpalet)
No tengo errores en la definición, pero en la sentencia, al hacer el 
lookup me dice que ds_subpalet(*) no existe.
Evidentemente, sí que está bien definido.
Nunca había hecho lookup a más de un segundo nivel.

Estoy en V7R1
Gracias!

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

Re: Cola remota Zebra con EPL/ZPL

[alberto]

Hola.
Pues no, no me va :(
Si el caso es que yo tengo un montón de colas remotas configuradas y 
funcionando, pero ninguna con una zebra de etiquetas.
En este caso tampoco me funciona. Envia printer y queda como salvado. 
Ya no sé qué más probar.
Salu2 y gracias

Albert Martinez de Urda
  IT Manager 
Roler España SLU
Grupo Arcadie



De: Fernando Sánchez Piña <fspin...@gmail.com>
Para:   "forum.help400" <forum.help400@listas.combios.es>
Fecha:  14/02/2017 10:32
Asunto: Re: Cola remota Zebra con EPL/ZPL
Enviado por:forum.help400-boun...@listas.combios.es



Hola de nuevo:

Aquí una descripción de como crear las "colas remotas"

http://www.mail-archive.com/forum.help400@combios.es/msg04566.html

Un saludo.

El 14 de febrero de 2017, 10:00, Fernando Sánchez Piña <fspin...@gmail.com
> escribió:
Hola Alberto y resto de foro:

Tienes que crearte una cola remota apuntando al pc que tiene compartida la 
impresora por LPR

Echa un ojo al siguiente enlace:

http://www.mail-archive.com/forum.help400@combios.es/msg09774.html

Espero que pueda servirte de ayuda, un saludo.

Fernando Sánchez Piña


El 14 de febrero de 2017, 8:22, alberto <alberto.marti...@roler.es> 
escribió:
Hola Foro 
Siempre salen cosas nuevas, debe de ser nuestro karma, para que no nos 
relajemos. 
Trabajo hace años con impresoras Zebra y compatibles(intermec, etc) con 
EPL/ZPL, de estas que le envias el preformato y luego le envias los datos 
y sacan la etiqueta. 
El caso es que me he visto obligado a configurarla como cola remota, 
porque va en un linux con LPR y no me hace ni caso. Se come los listados 
pero no los imprime. 
Está conectada por usb a un pc con Ubuntu y compartida. Desde otro pc 
recibe el listado y lo imprime, pero desde el AS, no imprime nada. 
Tengo un montón de impresoras funcionando así, porque aquí trabajamos con 
Linux, pero es la primera de este tipo que tengo que hacerlo porque hasta 
ahora las he tenido en pletinas Axel. 
Alguien se ha encontrado con este problema? 
Gracias! 


Ú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.