Re: Autorizaciones para las vistas QSYS2.USER_INFO y QSYS2.GROUP_PROFILE_ENTRIES

[Juan Carlos Paredes]

Se me ocurre una posible solución.

Crea una función de usuario que devuelva una tabla con los datos que 
quieres recuperar de USER_INFO y GROUP_PROFILE_ENTRIES. Ese tipo de 
funciones sí te permiten trabajar con autorizaciones adoptadas, con user 
*OWNER, y puedes perfectamente utilizarlas una sentencia SELECT.


Y esa SELECT es la que utilizas para crear la vista a la que accedan los 
usuarios que a ti te interese.


Es pura elucubración mental, ¿eh? No lo he probado, pero en pura teoría, 
debe funcionar.


Suerte.
Juan Carlos

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

El 22/11/2019 18:49, datil400 escribió:

Hola a tod@s,

estoy preparando una vista para auditoría que utiliza QSYS2.USER_INFO
y QSYS2.GROUP_PROFILE_ENTRIES para extraer información de usuario y
grupos junto con un archivo de control de accesos de mi ERP.

Claro está que estoy accediendo a información que puede comprometer
la seguridad, pero necesitamos conocer, por lo menos, si un usuario ya
no existe o que usuarios pertenecen a qué grupo. Evidentemente esta
vista sólo la puede utilizar usuarios como QSECOFR o que tengan
autorización especial *ALLOBJ.

Hasta aquí todo correcto. Ahora necesito que esa vista la pueda
consultar determinados usuarios (como mi Jefe) sin tener que otorgarle
autorización *ALLOBJ a sus perfiles.

Con la vista directamente no he encontrado una solución para que sea
consultada por usuarios "normales". ¿Es posible lo que quiero hacer?

Si la defino como UDTF es posible porque puedo compilar el programa
con la autorización adoptada de QSECOFR

Ú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: Como saber el Nº de semana del Año

[Juan Carlos Paredes]

DB2:

select week_iso(Date('2019-03-31')) from sysibm/sysdummy1

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

El 04/10/2019 12:24, Juan  Pelaez Boismorand escribió:

Buenos días foro,

Necesitaba saber el Nº de semana del año de una fecha dada, puede
ser la fecha del systema o una fecha dada. No se si alguien tiene
algún método sencillo o función para poder averiguarlo.

Ejemplo : HOY ES 04/10/2019 Y ES LA SEMANA 40 DEL AÑO

Muchas Gracias

--
JUAN PELAEZ - ISGAL

juanpel...@mundo-r.com
610 284 683
www.isgal.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: Vista en biblioteca diferente de aquella en la que se encuentran las tablas.

[Juan Carlos Paredes]

No exactamente, Javier.

La vista debe apuntar a varias tablas distintas, todas ellas en la misma 
biblioteca, pero debe crearse en una biblioteca distinta a aquella en la 
que están las tablas.


El proceso está montado en un CL que recupera unos valores del entorno 
de trabajo del usuario, y con ello compone tanto la biblioteca en la que 
están las tablas como la biblioteca en la que debe estar la vista. Hace 
un CHGCURLIB para poner como biblioteca actual la de la vista, un 
ADDLIBLE con la biblioteca en la que están las tablas, y lanza la 
ejecución de un RUNSQLSTM sobre un miembro que contiene el CREATE VIEW.


Y cuando ejecuta el RUNSQLSTM crea la vista en la biblioteca de las 
tablas, en lugar de en la biblioteca que yo le pongo como CURLIB.



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

El 05/09/2019 00:36, datil400 escribió:

¿Quieres decir que cada vista deberá apuntar a las mismas tablas
pero de diferentes bibliotecas?

Yo intenté crear una vista que tomara dinámicamente las tablas base
en función de la lista de bibliotecas. A la conclusión que llegué
es que la vista memoriza la biblioteca en el momento de su creación y
siempre las usará, independientemente de la lista de bibliotecas.

Tampoco he sido capaz de crear vistas con tablas en dos o más
bibliotecas. He tenido que calificar co la biblioteca aquellas que no
residían en la biblioteca de la vista.

Javier

El mié., 4 sept. 2019 21:29, Manuel Antonio Ramirez Raygada
 escribió:


Buenas tardes Juan Carlos:

El Create View no utiliza *CURLIB para ser creado, pero podrías
recuperarla curlib si utilizas en tu CL de creación el comando
RTVJOBA CURLIB().

En esa variable recuperas la biblioteca curlib y la puedes usar como
parámetro de la biblioteca del Create View.

_MANUEL A. RAMIREZ RAYGADA_
_ANALISTA DE SISTEMAS - AS400_

El mié., 4 sept. 2019 a las 11:15, Juan Carlos Paredes
() escribió:


Buenas tardes, compañeros:

Tengo que crear una vista que hace la UNION de varias tablas. La
cuestión es que necesito crearla en una biblioteca diferente de
aquella
en la que están las tablas. Y no puedo calificar directamente la
vista
en el CREATE VIEW, porque el nombre de la biblioteca donde debe
crearse
es variable en función del entorno de trabajo.

He tratado de solucionarlo poniendo esa biblioteca en la lista
como
*CURLIB. Pero por alguna extraña razón, aunque en la lista de
bibliotecas la veo como CURLIB (con lo que debería ser la que
utilizara
el CREATE al no estar calificado) me está creando la vista en la
biblioteca en que residen las tablas, y no en la CURLIB.

He comprobado que, si califico directamente la vista, sí la crea
donde
debe y apunta a las tablas que debe. Pero a través de la CURLIB,
no.

¿Alguna idea al respecto?

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

Ú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: Vista en biblioteca diferente de aquella en la que se encuentran las tablas.

[Juan Carlos Paredes]

Algo parecido a eso es lo que hago.

En lugar de recuperar la CURLIB del trabajo, la monto dinámicamente, en 
función del entorno de trabajo del usuario. En el CL que ejecuta el 
proceso, hace un CHGCURLIB con el nombre de la biblioteca que he 
recuperado del entorno y lanza un RUNSQLSTM sobre un miembro fuente que 
es el que contiene la definición de la vista.


En la lista de bibliotecas de usuario, además, está la biblioteca en la 
que se encuentran las tablas que tiene que unir la vista.


Pero cuando ejecuta el RUNSQLSTM, la vista la crea en la misma 
biblioteca en la que están las tablas, en lugar de crearla en la 
biblioteca que yo he puesto como CURLIB.


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

El 04/09/2019 21:27, Manuel Antonio Ramirez Raygada escribió:

Buenas tardes Juan Carlos:

El Create View no utiliza *CURLIB para ser creado, pero podrías
recuperarla curlib si utilizas en tu CL de creación el comando
RTVJOBA CURLIB().

En esa variable recuperas la biblioteca curlib y la puedes usar como
parámetro de la biblioteca del Create View.

_MANUEL A. RAMIREZ RAYGADA_
_ANALISTA DE SISTEMAS - AS400_

El mié., 4 sept. 2019 a las 11:15, Juan Carlos Paredes
() escribió:


Buenas tardes, compañeros:

Tengo que crear una vista que hace la UNION de varias tablas. La
cuestión es que necesito crearla en una biblioteca diferente de
aquella
en la que están las tablas. Y no puedo calificar directamente la
vista
en el CREATE VIEW, porque el nombre de la biblioteca donde debe
crearse
es variable en función del entorno de trabajo.

He tratado de solucionarlo poniendo esa biblioteca en la lista como
*CURLIB. Pero por alguna extraña razón, aunque en la lista de
bibliotecas la veo como CURLIB (con lo que debería ser la que
utilizara
el CREATE al no estar calificado) me está creando la vista en la
biblioteca en que residen las tablas, y no en la CURLIB.

He comprobado que, si califico directamente la vista, sí la crea
donde
debe y apunta a las tablas que debe. Pero a través de la CURLIB,
no.

¿Alguna idea al respecto?

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

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

Vista en biblioteca diferente de aquella en la que se encuentran las tablas.

[Juan Carlos Paredes]

Buenas tardes, compañeros:

Tengo que crear una vista que hace la UNION de varias tablas. La 
cuestión es que necesito crearla en una biblioteca diferente de aquella 
en la que están las tablas. Y no puedo calificar directamente la vista 
en el CREATE VIEW, porque el nombre de la biblioteca donde debe crearse 
es variable en función del entorno de trabajo.


He tratado de solucionarlo poniendo esa biblioteca en la lista como 
*CURLIB. Pero por alguna extraña razón, aunque en la lista de 
bibliotecas la veo como CURLIB (con lo que debería ser la que utilizara 
el CREATE al no estar calificado) me está creando la vista en la 
biblioteca en que residen las tablas, y no en la CURLIB.


He comprobado que, si califico directamente la vista, sí la crea donde 
debe y apunta a las tablas que debe. Pero a través de la CURLIB, no.


¿Alguna idea al respecto?

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

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

Re: Sintaxis de *entry plist en formato libre rpg

[Juan Carlos Paredes]

No hace falta que utilices un porcedimiento. Tienes que definir el 
prototipo para tu programa (yo suelo llamarlo Main por coherencia con 
otros lenguajes), definirle los parámetros y la interfaz de 
procedimiento. Te pongo el ejemplo de memoria, porque ahora no tengo 
acceso al sistema, pero sería algo así:


Dcl-Pr Main Extpgm('MIPROGRAMA');
  *N Char(10);
End-Pr;
Dcl-Pi Main;
Almacen Char(10);
End-Pi;

Esto definiría la entrada para un programa llamado MIPROGRAMA, que 
recibe un parámetro denominado ALMACEN de 10 caracteres alfanumérico.


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

El 16/08/2019 19:31, Javier B. escribió:

Hola Juan Carlos :

 ¿Tienes un ejemplo?
 De todas formas, en todo lo que he encontrado por internet ha
mencionado también lo del prototipo pero yo no quiero utilizar
ningún procedimiento, simplemente quiero que un programa
reciba/devuelva parámetros.

 Saludos,
 Javier

-

DE: forum.help400-boun...@listas.combios.es
 en nombre de Juan Carlos
Paredes 
ENVIADO: viernes, 16 de agosto de 2019 19:18
PARA: forum.help400 
ASUNTO: Re: Sintaxis de *entry plist en formato libre rpg

Tienes que definir un prototipo con EXTPGM con el nombre de programa.
Y una interfaz de procedimiento con el nombre del prototipo.

Obtener BlueMail para Android [2]
En 16 ago. 2019, en 19:11, "Javier B." 
escribió:


Buenas tardes :

¿Alguien podría decirme por favor cual es la sintaxis de *entry
plist con el formato libre de ile rpg?
Cuando digo "formato libre", no me refiero a los programas que
contienen /FREE../END-FREE, me refiero al formato libre completo, es
decir, al fuente que empieza por **FREE.

En el ile rpg se ponía así:

c *entryplist

cparmparametro1
cparmparametro2

Un saludo y muchas gracias,

Javier

[1]
Libre de virus. www.avast.com [1]

-

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



Links:
--
[1]
https://www.avast.com/sig-email?utm_medium=emailutm_source=linkutm_campaign=sig-emailutm_content=webmail
[2] http://www.bluemail.me/r?b=15487

Ú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: Sintaxis de *entry plist en formato libre rpg

[Juan Carlos Paredes]

Tienes que definir un prototipo con EXTPGM con el nombre de programa. Y una 
interfaz de procedimiento con el nombre del prototipo.


⁣Obtener BlueMail para Android ​

En 16 ago. 2019 19:11, en 19:11, "Javier B."  escribió:
>Buenas tardes :
>
>¿Alguien podría decirme por favor cual es la sintaxis de *entry plist
>con el formato libre de ile rpg?
>Cuando digo "formato libre", no me refiero a los programas que
>contienen /FREE../END-FREE, me refiero al formato libre completo, es
>decir, al fuente que empieza por **FREE.
>
>En el ile rpg se ponía así:
>
>c *entryplist
>cparmparametro1
>cparmparametro2
>
>Un saludo y muchas gracias,
>Javier
>
>[https://ipmcdn.avast.com/images/icons/icon-envelope-tick-round-orange-animated-no-repeat-v1.gif]
>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: Procedimientos almacenados

[Juan Carlos Paredes]

Vamos por partes, que diría Jack "el destripador".

El procedimiento no se "guarda" en ningún sitio. Cuando tú ejecutas el 
create procedure, el motor de base de datos de DB2 genera un programa. 
Concretamente un programa en lenguaje C. Y almacena la definición del 
mismo en una tabla del propio motor de base de datos, llamada 
QSYS2/SYSROUTINES. Sobre esta tabla hay creada un vista denominada 
QSYS2/SYSPROCS que filtra sólo aquellos que son procedimientos. Desde 
esta tabla es desde donde puedes ver la descripción del mismo.


Si quieres guardarte el fuente, lo puedes hacer en cualquier miembro, 
sin tipo, con tipo SQL, TXT, lo que quieras. Esto te servirá para, si 
quieres volver a crear el procedimiento de nuevo, poder hacerlo sólo con 
ejecutar:


RUNSQLSTM SRCFILE(biblioteca/archivofuente) SRCMBR(miembro).

Esto es "parecido" a compilarlo, ya que volverá a crear el objeto (el 
programa C, en resumen).


Las llamadas se pueden hacer desde RPG, siempre que el tipo de programa 
sea un SQLRPG o SQLRPGLE y lo hagas dentro de un EXEC SQL. Si el 
procedimiento devuelve un RESULT SET, podrás utilizarlo en tu programa 
como un cursor SQL.


Desde CL puedes lanzar la ejecución del procedimiento con RUNSQL. Lo que 
no he probado nunca es a procesar un RESULT SET desde un CL y no sé si 
hay posibilidad, pero si tu procedimiento, por ejemplo, lo que hace son 
actualizaciones en tablas o similar, te funcionaría sin problemas.


No sé si esto aclara alguna de las dudas.

Saludos.
Juan Carlos.

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

El 13/08/2019 08:43, Javier B. escribió:

Buenos días :

 He encontrado este ejemplo y me han surgido algunas dudas,  a ver si
me las podéis aclarar por favor :

 -¿Donde guardo el procedimiento sin utilizar IFS?

 -¿Si lo tengo que guardar en un miembro,  de qué tipo tiene que
ser?

 -¿Se tiene que compilar?

 -¿La llamada (CALL) la puedo hacer desde un CL o un RPG?

 Un saludo y gracias,

 Javier

-

FROM: forum.help400-boun...@listas.combios.es
 on behalf of Alberto
Martinez 
SENT: Monday, August 12, 2019 12:53:29 PM
TO: forum.help400 
SUBJECT: Re: Procedimientos almacenados

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 

RE: Re: Urgente - Sueldos RPG AS400

[Juan Carlos Paredes]

Y eso sin tener en cuenta los falsos autónomos, el trabajo free lance, las 
tarifas que determinados clientes importantes te imponen, las horas extras no 
retribuidas, ...

⁣Obtener BlueMail para Android ​

En 8 ago. 2019 19:16, en 19:16, "Gandul, Luis"  escribió:
>Diego,
>En España confirmar un precio/hora no es tan fácil , porque lo de las
>categorías de IT dependen mucho de cada compañía.
>Una cosa es tu categoría en la que estás dado de alta en la Seguridad
>Social y otra muy distinta, dentro de una empresa.
>Hay quienes tienen como categoría Analistas y no han tomado una
>decisión en su vida y hay quienes son programadores juniors y si se van
>de la empresa, generarían una crisis importante.
>
>En España cada vez hay más consultorías y menos técnicos de plantilla
>lo que abre un abanico de posibilidades enorme.
>“Pepe Software” (es un ejemplo)  cobrará relativamente poco por un
>servicio a sus clientes y como consecuencia de esto, pagará muy poco a
>sus desarrolladores que les obligará a Analizar, documentar y hacer el
>backup, si se tercia.
>Y al otro extremo tienes a consultoras como Indra que presta servicios
>a grandes compañías o al Estado, porque sus precios son prohibitivos.
>Por eso en España, la gente de IT se cambia de trabajo con relativa
>frecuencia.
>Pero por guiarte un poco, si estamos hablando de empezar por abajo, yo
>creo que un programador RPG junior estaría entre los 20.000 y 25.000
>euros brutos al año.
>Seguro que alguien del foro diría que por ese dinero no saldrían de
>casa y otros preguntarían que dónde hay que firmar.
>Responder a tu inquietud, no es tan fácil, créeme.
>
>
>Saludos
>
>
>
>
>De: forum.help400-boun...@listas.combios.es
> En nombre de Elvira
>Enviado el: jueves, 08 de agosto de 2019 18:40
>Para: forum.help400 
>Asunto: [EXT] Re: Urgente - Sueldos RPG AS400
>
>Lo siento pero no tengo ni ideaestoy un poco fuera del mercado
>laboral activo. Siento no poder ayudarte
>
>El 8 ago. 2019 18:09, Diego Denis
>mailto:diego.de...@gmail.com>> escribió:
>Che, no se maten por contestar eh! Jajaja
>
>El mié., 7 de agosto de 2019 20:47, Diego Denis
>mailto:diego.de...@gmail.com>> escribió:
>Estimados ¿Cuál es valor horario que cobra un desarrollador RPG en
>España?
>
>Muchas gracias!!!
>
>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 ( 

Re: Validar parámetro de mandato

[Juan Carlos Paredes]

Para este caso (que no esté en blanco), lo puedes hacer obligatorio en 
la definición del parámetro con el valor MIN(1).


Saludos.
Juan Carlos.

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

El 16/07/2019 11:46, Javier Mora escribió:

Hola a tod@s,

¿es posible validar el valor de un parámetro de definición de
mandato sin necesidad de utilizar un programa de validación?

En un mandato quiero validar que un nombre de archivo no pueda estar
en blanco, como en el siguiente ejemplo:

Pero no sé cómo hacerlo.

Hasta ahora lo estoy validando dentro del programa procesador del
mandato enviando un mensaje de escape, pero lo quiero hacer antes de
llamar al programa procesador.

¿Alguien sabe cómo hacerlo?

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

Analista programador en A Coruña

[Juan Carlos Paredes]

Buenos días, compañeros:

Necesitamos incorporar un analista programador en RPG en A Coruña. 
Indispensable residencia en A Coruña o alrededores. Si alguno estáis 
interesado, por favor, enviadme el CV por privado para remitírselo a la 
dirección de mi empresa.


Un saludo.

Juan Carlos.

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

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

Re: Guardar IMAGEN

[Juan Carlos Paredes]

Sí, es factible, lo que no creo que puedas es hacerlo por DDS. Si la 
defines como tabla SQL, puedes definir un campo de tipo BLOB (Binary 
Large Object) que te permite almacenarlos.


Saludos.

Juan Carlos

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

El 17/05/2019 18:04, Carlos C. escribió:

Buenas tardes Foro

 Tengo una consulta, es factible guardar una imagen en una tabla del
Iseries?
 Si es asi, que tipo de campo debo declarar en la DDS?

 Es para utilizar en los reportes de una empresa.

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

[Juan Carlos Paredes]

Ya no. El compilador identifica si es formato libre o fijo.

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

El 17/05/2019 08:39, Alberto Martinez escribió:

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.

Re: RPG all-free

[Juan Carlos Paredes]

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.

Formación RPG

[Juan Carlos Paredes]

Buenos días, compañeros:

Dada la escasez de gente formada en nuestra plataforma, la edad que 
tenemos la gran mayoría, y la práctica imposibilidad de convencer a 
quienes disponen de esa formación de que se trasladen a León, me han 
planteado desde la dirección de la empresa la posibilidad de contactar 
con los centros de formación de FP que imparten el ciclo formativo de 
desarrollo de aplicaciones, para tratar de buscar talento joven al que 
formar nosotros mismos.


La idea sería coger a varios estudiantes o recién titulados de ese ciclo 
formativo y organizar uno o varios cursos (de diferentes niveles) de RPG 
para ir haciendo "cantera". Además, nos serviría para "reciclar" a algún 
compañero que se nos quedó en el PDM, los accesos nativos a físicos y 
lógicos, etc. e irlos incorporando a Rdi, Sql, procedimientos 
almacenados, ...


Y aquí viene mi pregunta, ¿conocéis algún sitio donde pueda encontrar un 
temario (aunque esté algo obsoleto y tenga que actualizarlo) para no 
tener que hacérmelo yo entero desde cero? ¿Alguien que disponga de 
recursos formativos que me puedan facilitar un poco esa labor?


Gracias de antemano.

Un saludo.

Juan Carlos.

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

Ú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

[Juan Carlos Paredes]

Hace años que no trabajo con él, pero creo que no. Creo recordar que lo 
acompañaba una herramienta denominada CODE/400 que era la que permitía 
el diseño de pantallas e informes en modo "WDSC".


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

El 20/03/2019 09:30, Alberto Martinez escribió:

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.

Re: Como evitar error al recuperar valores null en sql embebido

[Juan Carlos Paredes]

Tienes varias funciones que te permiten hacerlo más elegante:

IFNULL(FLD1, ' ')
COALESCE(FLD1, ' ')
VALUE(FLD1, ' ')

Las tres harían lo mismo, devolverte el primer valor no nulo, ya que el 
segundo valor no tiene por qué ser una constante, puede ser otra columna 
de alguna de las dos tablas


Saludos.
Juan Carlos

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

El 18/03/2019 12:09, Juan García escribió:

De momento lo he solucionado con un CASE WHEN FLD1 IS NULL THEN ' '
ELSE FLD1 END, pero no me parece muy elegante

Un saludo

El lun., 18 mar. 2019 a las 12:03, Sergio Martinez Roig
() escribió:


Hola Juan,

Mírate este pdf, lo explica para varias situaciones y varios
releases:



ftp://public.dhe.ibm.com/services/us/igsc/lu/Working_with_null_capable_fields_v2.pdf



Un saludo

Sergio Martinez Roig

DE: forum.help400-boun...@listas.combios.es
[mailto:forum.help400-boun...@listas.combios.es] EN NOMBRE DE Juan
García
ENVIADO EL: lunes, 18 de marzo de 2019 11:36
PARA: forum.help400
ASUNTO: Re: Como evitar error al recuperar valores null en sql
embebido

No, no uso la palabra clave ALWNULL, he visto que el SQLCODE -305 se
produce por esto según IBM:

"22002A null value, or the absence of an indicator
parameter was detected; for example, the null value cannot be
assigned to a variable, because no indicator variable is specified.
-305"

pero no sé cómo poner una variable indicador para evitar el error.


El lun., 18 mar. 2019 a las 11:28, Carlos Bartolomé
() escribió:

Hola,
¿usas la palabra clave ALWNULL en la hoja H?
ALWNULL(*NO | *INPUTONLY | *USRCTL)

Saludos,
Carlos Bartolomé.

El 18/03/2019 a las 10:08, Juan García escribió:

Hola  a todos

Tengo una sentencia SQL que recupera datos de dos tablas con un
left outer join, en un pgm  pero hay registros de la segunda tabla
que no tienen correspondiencia con los datos de la primera y me
devuelve un null, el programa asigna los datos recuperados a
variables de programa y en el caso de los registros recuperados con
valores null me da un SQLCODE -305 y se sale del bucle sin terminar
de cargar todos los registros. ¿Como puedo hacer que no me de el
SQLCODE -305 para poder continuar con el bucle DO y cargar todos los
registros?

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
[1] )
Forum.Help400 © Publicaciones Help400, S.L.

 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.

Links:
--
[1] http://bit.ly/db68dd

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

Programador RPG en Coruña

[Juan Carlos Paredes]

Buenas noches, compañeros.

Me acaba de llamar mi jefe porque necesitamos incorporar un programador 
RPG en La Coruña. Si alguno estáis interesado, por favor, hacedme llegar 
vuestro CV por privado.


Un saludo.

Juan Carlos

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

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

Re: Registro externo en procedimiento

[Juan Carlos Paredes]

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)



--


Message: 1
Date: Wed, 12 Dec 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
 próxima parte 
Se ha borrado un adjunto en formato HTML...
URL:





--

Message: 2
Date: Wed, 12 Dec 2018 09:35:22 

Re: Debug en cobol

[Juan Carlos Paredes]

Y si usas Rational, es aún más fácil. Sólo tienes que buscar el trabajo 
y seleccionar "Depurar con solicitud". Le añades el programa a depurar y 
en cuanto arranque el trabajo te aparecerá la perspectiva de depuración 
en el IDE. Cuando se ejecute ese programa se detendrá inmediatamente 
antes de empezar la ejecución y ahí ya puedes poner los puntos de 
interrupción que quieras, ver y cambiar valores de variables, depurar 
los programas a los que vaya llamando ése, etc.


Saludos.
Juan Carlos.

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

El 01/12/2018 09:53, pedro.pin...@gmail.com escribió:

Mira este Link

http://iseries-peru.blogspot.com/2011/03/debug-programas-sometidos-as400.html

como hacer debug de un trabajo sometido.

STRSRVJOB - STRDBG

_Pedro Pinedo Hernandez._

_Pedro.Pinedo@hotmail.com_

DE: forum.help400-boun...@listas.combios.es
[mailto:forum.help400-boun...@listas.combios.es] EN NOMBRE DE Joaquín
Flor López
ENVIADO EL: viernes, 30 de noviembre de 2018 22:39
PARA: 'forum.help400'
ASUNTO: Debug en cobol

Hola,

¿Se pueden poner instrucciones de depuración a un programa de cobol
de la misma forma que se hace en RPG para salir por impresora poniendo
'DEBUG' en operación y la variable a imprimir en campo de resultado?

Es para depurar un programa que se somete y no se puede depurar
interactivamente con STRDBG.

Gracias de antemano.

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: Copias de fuentes en RDI

[Juan Carlos Paredes]

Efectivamente.

Muchas gracias.

Juan Carlos.

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

El 08/11/2018 13:49, Leocadio Quesada escribió:

Buenos días,

Creo que es en
C:\users\[nombre_usuario]\IBM\rationalsdp\workspace\RemoteSystemsTempFiles\[Servidor_IBM_i]\


Saludos,

-

DE: forum.help400-boun...@listas.combios.es
 en nombre de Juan Carlos
Paredes 
ENVIADO: Thursday, November 8, 2018 1:34:06 PM
PARA: Forum Help 400
ASUNTO: Copias de fuentes en RDI

Buenos días, compañeros:

Creo recordar que el RDI guardaba una copia en local de los fuentes
cuando los estabas modificando. ¿Alguno recordáis donde era?

Estoy trabajando con él en una máquina virtual y, de vez en cuando
se
cuelga y hay que finalizarlo por el Task Manager. Y cuando te pilla
con
200 líneas de código modificadas ... no queráis oír lo que sale de
mi
boca ;)

Gracias.

Juan Carlos.

--
https://eur02.safelinks.protection.outlook.com/?url=https%3A%2F%2Fparedes.infodata=02%7C01%7C%7Cc7b14a812e96449ab73608d64577d0f8%7C84df9e7fe9f640afb435%7C1%7C0%7C636772778239152575sdata=7jOZxpJ3rGptWF3d7QxL7mLb0%2FQr07Exdyy%2BsuNNi0g%3Dreserved=0
juancar...@paredes.info

Únete a Recursos AS400, nuestra Comunidad (
https://eur02.safelinks.protection.outlook.com/?url=http%3A%2F%2Fbit.ly%2Fdb68dddata=02%7C01%7C%7Cc7b14a812e96449ab73608d64577d0f8%7C84df9e7fe9f640afb435%7C1%7C0%7C636772778239152575sdata=Ks8TXTd50VoIbv025GQ3v1ESnj4wtAiD2ZsKSWfqn9I%3Dreserved=0
[1] )
Forum.Help400 © Publicaciones Help400, S.L.


Links:
--
[1]
https://eur02.safelinks.protection.outlook.com/?url=http%3A%2F%2Fbit.ly%2Fdb68ddamp;data=02%7C01%7C%7Cc7b14a812e96449ab73608d64577d0f8%7C84df9e7fe9f640afb435%7C1%7C0%7C636772778239152575amp;sdata=Ks8TXTd50VoIbv025GQ3v1ESnj4wtAiD2ZsKSWfqn9I%3Damp;reserved=0

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

Copias de fuentes en RDI

[Juan Carlos Paredes]

Buenos días, compañeros:

Creo recordar que el RDI guardaba una copia en local de los fuentes 
cuando los estabas modificando. ¿Alguno recordáis donde era?


Estoy trabajando con él en una máquina virtual y, de vez en cuando se 
cuelga y hay que finalizarlo por el Task Manager. Y cuando te pilla con 
200 líneas de código modificadas ... no queráis oír lo que sale de mi 
boca ;)


Gracias.

Juan Carlos.


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

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

Re: Despedida y solicitud de baja

[Juan Carlos Paredes]

¡Enhorabuena y a disfrutar! Seguro que te lo has ganado.

Juan Carlos.

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

El 01/10/2018 10:34, Carlos Veza Iglesias escribió:

Estimados compañeros,

Ha llegado el momento de jubilarme, por lo que me dirijo a todos los
miembros, agradeciéndoles todas las ayudas que he recibido a mis
consultas en todos los años de mi pertenencia al foro, así como las
que han hecho otros miembros de las que también he aprendido.

En el orden práctico, ¿Cómo puedo darme de baja de la lista de
correo?. Hace ya algún tiempo dejo de aparecer en los correos, una
nota de pie de página con la forma de darse de baja, pero ahora no
sé cómo hacerlo.

De nuevo GRACIAS

Carlos Veza

EMALSA

AVISO LEGAL***
Este mensaje y sus archivos adjuntos van dirigidos exclusivamente a su
destinatario, pudiendo contener información confidencial sometida a
secreto profesional. No está permitida su reproducción o
distribución sin la autorización expresa de la Empresa Mixta de
Aguas de Las Palmas S.A. (EMALSA).Si usted no es el destinatario final
por favor elimínelo e infórmenos por esta vía. De acuerdo con lo
establecido en el Reglamento UE 2016/679 (RGPD) le informamos que
tratamos los datos que usted nos ha facilitado con la finalidad de
gestionar las comunicaciones realizadas a través del correo
electrónico de los servicios prestados, información comercial o de
las actividades realizados por el Responsable del fichero (EMALSA). La
base jurídica que legitima el tratamiento es el consentimiento del
interesado o la ejecución o desarrollo de un contrato. No se cederán
datos a terceros, salvo obligación legal. Tiene derecho a acceder,
rectificar y suprimir los datos, así como otros derechos, indicados
en la política de privacidad inserta en www.emalsa.es Asimismo, si
considera que sus datos han sido tratados de forma inadecuada, podrá
presentar una reclamación ante la Agencia Española de Protección de
Datos.

Ú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: SQL reporte de linea a columnas

[Juan Carlos Paredes]

Yo empezaría por ponerle un manejador de errores para que, en caso de 
producirse algún SQL Code que sea quien lo haga fallar, te devuelva ese 
código y saber qué está ocurriendo:


DECLARE SQLCODE INTEGER DEFAULT 0 ;
DECLARE RETCODE INTEGER DEFAULT 0 ;

DECLARE CONTINUE HANDLER FOR SQLEXCEPTION
BEGIN
SET RETCODE = SQLCODE ;
RETURN RETCODE ;
END ;

Esto lo que hace es capturar cualquier excepción que se produzca y 
devolver el SQL Code producido como valor de retorno del procedimiento.


Saludos.
Juan Carlos.

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

El 18/09/2018 21:58, Juan Gutierrez Ruiz escribió:

Hola
 Para el ejemplo que me envio bernabé (que en linea si me funciona
 como son muchos  trabajadores con diferentes conceptos
 realice un CURSOR

 Pero al correrlo no me llena la tabla
 mi tabla tiene la clave del trabajador  el nombre y 40 campos
numericos
 pero no me la llena
 la verdad ando empezando hacer mis primeros SP
 este es mi SP

 alguna observacion
 gracias

 CREATE PROCEDURE ADAM.ACUM4600 ( )

LANGUAGE SQL

SPECIFIC ADAM.ACUM4600

NOT DETERMINISTIC

MODIFIES SQL DATA

CALLED ON NULL INPUT

SET OPTION  ALWBLK = *ALLREAD ,

ALWCPYDTA = *OPTIMIZE ,

COMMIT = *NONE ,

DECRESULT = (31, 31, 00) ,

DFTRDBCOL = *NONE ,

DYNDFTCOL = *NO ,

DYNUSRPRF = *USER ,

SRTSEQ = *HEX

BEGIN ATOMIC

DECLARE @TRACVE  CHAR ( 7 ) ;

 DECLARE @TRANOM CHAR (40 ) ;

 DECLARE @TNOCVE   CHAR ( 2 ) ;

DECLARE @CONCOD NUMERIC  ( 4 , 0 ) ;

 DECLARE @CONDES CHAR ( 40 ) ;

 DECLARE @CPRAÑO  NUMERIC ( 4 , 0 ) ;

 DECLARE @CPRMAC   NUMERIC ( 2 , 0 ) ;

DECLARE @CPRPER   NUMERIC ( 2 , 0 ) ;

DECLARE @TRNFEC   NUMERIC ( 8, 0 ) ;

 DECLARE @TRNREF   CHAR (10 ) ;

DECLARE @TRNTIE DECIMAL ( 7 , 0 ) ;

DECLARE @TRNIMP NUMERIC ( 15, 2 ) ;

 DECLARE SQLCODE INTEGER DEFAULT 0 ;

 DECLARE C1 CURSOR FOR

  SELECT TRACVE, TRANOM, TNOCVE, CONCOD, CONDES, CPRAÑO,
CPRMAC,  CPRPER, TRNFEC, TRNREF, TRNTIE, TRNIMP

  FROM ADAM.TACUM4600 ;

 OPEN C1 ;

FETCH  C1 INTO @TRACVE , @TRANOM ,  @TNOCVE,  @CONCOD,
 @CONDES,  @CPRAÑO,  @CPRMAC,  @CPRPER, @TRNFEC, @TRNREF, @TRNTIE,
@TRNIMP ;

  WHILE ( SQLCODE = 0 ) DO

 INSERT INTO ADAM.TACUMDE (TRACVE, TRANOM,
TRNIMP1)

   SELECT DISTINCT TRACVE, TRANOM,


 (SELECT  TRNIMP FROM adam.tacum4600 B
WHERE

   A.tracve = B.tracve


   AND B.CONCOD = @CONCOD) AS "Consepto"


  FROM adam.tacum4600 A


WHERE TRACVE = @TRACVE  ;


 FETCH  C1 INTO @TRACVE , @TRANOM ,  @TNOCVE,  @CONCOD,
@CONDES,  @CPRAÑO,  @CPRMAC,  @CPRPER, @TRNFEC, @TRNREF, @TRNTIE,
@TRNIMP ;

 END WHILE ;

  CLOSE C1 ;
  END  ;

 cualquier ayuda se las agradecere
 saludos

-

DE: Juan Gutierrez Ruiz 
ENVIADO: martes, 18 de septiembre de 2018 08:00 a. m.
PARA: Bernabé Estrada; forum.help400
ASUNTO: RE: SQL reporte de linea a columnas

 Gracias Bernabe
 esto si me funciona  !!!

 Sin embargo tengo muchos conceptos que varían en cada tipo de
nómina

 Esto lo puedo poner en un cursor y el concepto sea sustituido por una
variable
 cierto ??

 gracias y un saludo
 un abrazo !!

-

DE: forum.help400-boun...@listas.combios.es
 en nombre de Bernabé
Estrada 
ENVIADO: lunes, 17 de septiembre de 2018 04:16 p. m.
PARA: forum. help400
ASUNTO: Re: SQL reporte de linea a columnas

Te sirve algo como esto?

SELECT DISTINCT
EMPLEADO, NOMBRE,
(SELECT  IMPORTE FROM DETALLE B WHERE A.EMPLEADO = B.EMPLEADO
AND B.CONCEPTO = '1000') AS SUELDO,
(SELECT  IMPORTE FROM DETALLE B WHERE A.EMPLEADO = B.EMPLEADO
AND B.CONCEPTO = '1001') AS PREMIO_ASISTENCIA,
(SELECT  IMPORTE FROM DETALLE B WHERE A.EMPLEADO = B.EMPLEADO
AND B.CONCEPTO = '5010') AS DESCUENTO_IMSS
FROM DETALLE A

Saludos

El lun., 17 sept. 2018 a las 13:48, Juan Gutierrez Ruiz
() escribió:


hola foro

alguna pista de esto
me pueden echar una mano??
gracias

-

DE: Juan Gutierrez Ruiz
ENVIADO: jueves, 6 de septiembre de 2018 10:14 a. m.
PARA: forum.help400; forum.help400-requ...@listas.combios.es
ASUNTO: SQL reporte de linea a columnas

Buenos días Foro

Estoy tratando de cambiar una tabla que se genera a través de un
RPG a nivel línea detalle
y la transfiere a excel

EMPLEADO  NOMBRE Concepto Descripción  Importe
145JUAN   1000   SUELDO
1500.00
145JUAN   1001   PREMIO ASISTENCIA
279.50
145JUAN   5010   DESCUENTO IMSS
51.49

146 TOÑO 1000 SUELDO
1200.00
146 TOÑO  1001PREMIO ASISTENCIA
279.50
146 TOÑO 5010DESCUENTO IMSS
51.49
.
.
.
pero el usuario quiero que salga asi

EMPLEADO   NOMBRE   SUELDO PREMIO ASISTENCIA
DESCUENTOS  IMSS
145  JUAN 

Re: Inserciones en un fichero grande

[Juan Carlos Paredes]

De entrada, lo primero que se me ocurre es que lee/graba, lee/graba, ... 
es un claro candidato a transformarse en un Insert de SQL. Y un Insert 
no tiene por qué irse ralentizando con el tiempo. Además, le daría un 
repaso al asesor de índices de la base de datos. Es probable que si lo 
revisas te proponga crear índices, bien EVI, bien RADIX que agilicen 
bastante el proceso. Revisa los índices que te propone tanto para el 
fichero de origen como para el de destino.


Saludos.

Juan Carlos.

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

El 12/09/2018 11:55, Juan Carlos O. escribió:

Buenos días a todos.

Mi problema es el siguiente. Tengo un fichero muy grande. Como todos
os podéis imaginar estamos hablado de varios millones de registros.
Todos los días hay un proceso que incluye entre 20.000 y 50.000
registros en el fichero. Solo se incluyen, no hay ni actualizaciones
no borrados. Resumiendo el proceso diario, lee y graba, lee y graba.
El problema es que el proceso cada vez tarda mas. Lo que empezó
tardando minutos, ahora tarda mas de dos horas.

¿Se os ocurre alguna forma de agilizarlo?

Os doy algún dato mas. El proceso se ejecuta en batch. Por desgracia
el fichero gordo, tiene varios índices, el físico se creó con
clave, aunque mi ultimo intento para agilizarlo ha sido realizar las
inserciones sobre un lógico sin clave no he conseguido nada
destacable.

Muchas gracias por el tiempo que habéis dedicado en leer esta
parrafada.

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: Programa JSON

[Juan Carlos Paredes]

¿Puede ser un tema del CCSID del trabajo? Prueba a cambiarlo al 284. El 
CCSID por defecto de una sesión 5250 (65535) da problemas con ese tipo 
de cosas.


Saludos

Juan Carlos.

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

El 05/09/2018 10:44, Jesus Maria Arzak (DHL ES) escribió:

Buenos Dias

Estoy intentando crear un WebService JSON en RPGLE

Es la primera vez que lo hago de esta manera pero no tengo forma de
visualizar los datos

Estoy en V73

El prg es muy sencillo

El resultado no es legible en WRK salen chinos.

Alguna sugerencia?

Gracias

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 [1]

_GO__GREEN – ENVIRONMENTAL PROTECTION WITH DHL_
_POR FAVOR, TEN EN CUENTA EL MEDIO AMBIENTE ANTES DE IMPRIMIR ESTE
CORREO_

  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.

Links:
--
[1] http://www.dhlparcel.es/

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


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

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

[Juan Carlos Paredes]

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


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

from sysibm.sysdummy1

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

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

Saludos

Juan Carlos

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

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

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

  RandomNum = %Int(RandomNumSQL * 10);

  *inlr=*on;

/End-free

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

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

-

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

Saludos,
Javier

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

Gracias Jordi!!,  lo probaré.

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

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

Hola Javier,

Puedes utilizar la funcion SQL Rand().

sería algo parecido a esto:

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

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

RandomNum = %Int(RandomNumSQL * 10;

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

Espero te sirva de idea.

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

Hola a todos :

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

Un saludo y gracias por anticipado,
Javier

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


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

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


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

Re: generar desde AS a EXCELL

[Juan Carlos Paredes]

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


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

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

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

existiendo el complemento de Excel

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


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

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

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

en las opciones "Permitir salvar resultados".

Juan Carlos.

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

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

Buenos dias compañeros !!!

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

Muchas gracias

Saludos

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


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


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


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

Re: generar desde AS a EXCELL

[Juan Carlos Paredes]

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


Juan Carlos.

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

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

Buenos dias compañeros !!!

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

Muchas gracias

Saludos

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


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

Empleo

[Juan Carlos Paredes]

Buenos días, compañeros:

Esta mañana me ha telefoneado mi antiguo jefe en Madrid. Al parecer está 
buscando una persona para incorporarse en un proyecto estable en Madrid. 
Buscan a alguien de COBOL/400 con conocimientos de Java ya que, según me 
ha contado, habría que interpretar código Java (no programar en Java).


Si alguno estáis interesado, mandadme un mensaje privado y os facilito 
su teléfono para contactar con él.


Un saludo.
Juan Carlos.

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

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

Re: OBTENER TAMAÑO DE PANTALLA

[Juan Carlos Paredes]

Puedes verlo en el fichero resultante de este mandato:

DSPFD FILE(PANTA01FM) TYPE(*ATR) OUTPUT(*OUTFILE) FILEATR(*DSPF) 
OUTFILE(QTEMP/DSPDATOS)


Tiene varios campos con el tamaño de pantalla Y/N:

DSDSZ1, DSDSZ2, DSDSZ3 y DSDSZ4, que se corresponden con los tamaños 
16x64, 12x80, 24x80 y 27x132


Espero que te ayude.
Juan Carlos.


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

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

Re: Feliz cumpleaños AS/400

[Juan Carlos Paredes]

Y yo 29 trabajando con él. El 30 de junio de 1989 me enfrenté por 
primera vez a uno de ellos en mi primer empleo. Eso sí, con bastantes 
menos arrugas y canas que ahora.


Felicidades a IBM, a nuestro entorno y a todos los compañeros.

Juan Carlos

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

El 07/06/2018 23:50, Joaquín Flor López escribió:

Hola a tod@s,

Este mes de junio celebramos el 30 aniversario del anuncio de nuestro
querido AS/400. Junio de 1988. ¡Qué tiempos!

Pues que cumpla muchos más (y nosotr@s también)

Un cordial saludo a toda la comunidad.

Ú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: Como poner signo negativo a la izquierda

[Juan Carlos Paredes]

En RPG lo puedes hacer usando un campo alfanumérico y con la BIF 
%EditC(numero:'J')


Juan Carlos.

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

El 28/05/2018 21:09, Carlos C. escribió:

Buenas tardes Sres. Foro
Tengo un pequeño inconveniente : los resultados de una operacion
aritmetica. especificamente de los signos negativos al procesar
CPYTOPCD se transfiere con algun caracter raro.

Existe una opcion para evitar esos caracteres raros y que se registre
correctamente al transferir el dato?
Ya sea a nivel del programa de RPG o del CPYTOPCD?

Muchas gracias desde ya por la ayuda

Ú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: Convertir datos a XLM

[Juan Carlos Paredes]

¿Te vale algo tan barato como utilizar las propias funciones XML de DB2 
for i?


Algo así como:

select xmlelement(
name "Articulos",
xmlnamespaces(default 'https://miempresa.com'),
xmlagg(xmlelement(name "ID",
   xmlattributes(m.id as "Codigo"),
   xmlforest(Trim(m.nbart) as "Descripcion",
 Digits(m.ean13) as "Cod_Barras"
from maestros.maeart m


Esto te generaría un formato XML partiendo de una tabla de artículos 
llamada MAEART en la biblioteca MAESTROS, incluyendo tres valores: el 
código de artículo, la descripción del mismo y el codigo de barras 
EAN13, a partir de tres columnas: ID, NBART y EAN13 de la propia tabla. 
Luego sólo tienes que guardar el resultado en un fichero de texto con 
extensión XML en el IFS.


Es un ejemplo muy simple, pero te puede servir para arrancar. A partir 
de ahí, sólo tendrías que añadir las columnas que quieras.


Lo puedes complicar todo lo que quieras, ya que MAEART no tiene por qué 
ser una tabla. Podría se una vista (en la que puedes montar consultas 
complejas con uniones entre tablas, condiciones Where, etc.), una 
función definida por el usuario que te devuelva una tabla (y en una 
función puedes codificar SQL realmente complejo), una tabla temporal, 
etc.


Espero que ayude.

Juan Carlos.

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

El 29/05/2018 16:08, Elvira Jurado escribió:

Hola,

alguno conoce alguna utilidad para poder recuperar datos del as400 y
convertir a XML ?
Un cliente quiere enviar sus factura de manera electrónica y no
quiere invertir mucho dinero.

Muchas gracias a todos

Elvira Jurado Leiva - Dpto. Informática
Tlf.: 914791512 (ext.165) - Fax: 914631790
informat...@fsoria.com - WWW.F-SORIA.ES [1]

AVISO DE CONFIDENCIALIDAD

-
La información contenida en este mensaje y archivos adjuntos es
privada, confidencial y de uso exclusivo de la(s) persona(s) y
entidad(es) a la(s) que va dirigido. Si Ud. no es el destinatario de
esta información se le notifica que está expresamente prohibida la
declaración, reproducción, distribución o la toma de cualquier
acción basada en el contenido de esta comunicación. Si ha recibido
este mensaje por error, le rogamos que nos lo comunique inmediatamente
y proceda a eliminarlo de todos sus sistemas. Francisco Soria
Melguizo, S.A. no asume responsabilidad legal por el contenido de esta
comunicación, ni representa la opinión de la firma, salvo que
expresamente se especifique lo contrario y que el remitente esté
autorizado para hacerlo. Gracias.


Links:
--
[1] http://www.f-soria.es/

Ú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: Proteger campo en Subfile

[Juan Carlos Paredes]

El indicador de protección debes activarlo en el momento que ejecutas el 
WRITE sobre el registro del SFL, cuando lo estás cargando. De este modo, 
quedará protegido en aquellos registros que lo hayas activado antes de 
grabar el registro y desprotegido en aquellos registros que se grabaron 
con el indicador desactivado.


Un saludo.

Juan Carlos.

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

El 19/04/2018 15:56, Carlos C. escribió:

Buenos dias
Tengo una consulta para el Foro.

Como se protege un campo en subfile; en el subfile control prendo un
indicador y respeta la proteccion de campo.
En el subfile, no protege el indicador que esta definido en el campo:

Establecer identificador datos modif . MDT

Proteger campo . . . . . . . . . . . . PRY  22


 Existe una regla en el RPG para proteger un campo en el subfile?

Muchas gracias desde ya por la ayuda

-

Ú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: Devolver posición fila/columna de pantalla (COBOL400 o ILE COBOL)

[Juan Carlos Paredes]

Puedes utilizar la palabra clave RTNCSRLOC en el fichero de pantalla. Le 
defines dos campos ocultos numéricos de 3 posiciones sin decimales y en 
ellos te devuelve la fila y columna. Es más, puedes decirle que te 
devuelva el campo concreto en el que está el cursor, con lo que te 
despreocupas si lo mueves a otro sitio.


Espero que te ayude.

Un saludo

Juan Carlos.

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

El 23/02/2018 15:01, Javier Baca escribió:

Buenas tardes :

¿Alguien sabría decirme por favor por qué "CURSOR IS" no me
devuelve la fila/columna de pantalla?

Y si realmente no funciona, ¿cómo lo podría hacer?.



  *  *

  * PANTALLA CON INDARA  *

  *  *

  

   IDENTIFICATION DIVISION.

   PROGRAM-ID. FUENTE1.

   AUTHOR. NOMBRE.

   INSTALLATION. EMPRESA.

   DATE-WRITTEN. 24/01/2005.

   DATE-COMPILED. 24/01/2005.

   ENVIRONMENT DIVISION.

   CONFIGURATION SECTION.

   SOURCE-COMPUTER. AS400.

   OBJECT-COMPUTER. AS400.

   SPECIAL-NAMES. CURSOR IS WPOSPANT.

   INPUT-OUTPUT SECTION.

   FILE-CONTROL.

   SELECT FICHERO ASSIGN TO WORKSTATION-PANT1-SI

   ORGANIZATION IS TRANSACTION

   ACCESS MODE IS SEQUENTIAL.

   DATA DIVISION.

   FILE SECTION.

   FD  FICHERO

   LABEL RECORDS ARE OMITTED

   DATA RECORD IS REG-FICHERO.

   01  REG-FICHERO.

   COPY DDS-ALL-FORMATS OF PANT1.

   WORKING-STORAGE SECTION.

   01 IND-OFF PIC 1 VALUE B"0".

   01 IND-ON  PIC 1 VALUE B"1".

   01 INDICADORES-FICHERO.

  COPY DDS-ALL-FORMATS-INDIC OF PANT1.

   01 WPF PIC X(2) VALUE SPACES.

   01 WPOSPANT.

  05 WFILA PIC 9(3).

  05 WCOLU PIC 9(3).

   PROCEDURE DIVISION.

   INICIO.

   OPEN I-O FICHERO.

   MOVE IND-ON TO IN52 IN RUNO-O-INDIC.

   WRITE REG-FICHERO FORMAT IS "RUNO"

 INDICATORS ARE RUNO-O-INDIC.

   READ FICHERO FORMAT IS "RUNO"

 INDICATORS ARE RUNO-I-INDIC.

   DISPLAY 'FILA=' WFILA.

   DISPLAY 'COLU=' WCOLU.

   MOVE '  ' TO WPF.

   IF IN10 IN RUNO-I-INDIC = IND-ON THEN

  MOVE '10' TO WPF

   END-IF.

   IF IN06 IN RUNO-I-INDIC = IND-ON THEN

  MOVE '06' TO WPF

   END-IF.

   CLOSE FICHERO.

   STOP RUN.


Un saludo y muchas 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.

Re: Resumen de Forum.help400, Vol 136, Envío 15

[Juan Carlos Paredes]

Puedes utilizar la vista QSYS2.SYSCOLUMNS.

Saludos.

Juan Carlos.

El 2018-02-19 21:20, Carlos C. escribió:

Que interesante 

una consulta un poco mas amplia, una funcion parecida, donde se lista
los campos existe?

Mucha gracias por compartir tu conocimiento.

Saludos

-

FROM: forum.help400-boun...@listas.combios.es
 on behalf of Jose Luis
Hernandez Riesgo 
SENT: Saturday, February 17, 2018 6:05 AM
TO: forum.help400@listas.combios.es
SUBJECT: Re: Resumen de Forum.help400, Vol 136, Envío 15

Hola Juan Carlos,

A lo mejor un método más sencillo para obtener los datos que
necesitas está en las vistas de DB2 del sistema, prueba esta
objects_Statistics, te adjunto el link al knowledge:

https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/rzajq/rzajqudfobjectstat.htm


 OBJECT_STATISTICS - ibm.com [4]
 www.ibm.com
 A character or graphic string expression that identifies the name of
a library. If the library's name is a delimited name, the delimited
form of the name must be ...

Te devuelve toda la información básica de los objetos de una
biblioteca, entre ellos la fecha de creación.

Espero que sirva.

Un saludo


Message: 3
Date: Fri, 16 Feb 2018 18:08:14 +0100
Subject: RE: API QUSLOBJ
To: "forum.help400" 
Message-ID:





Content-Type: text/plain; charset="utf-8"

Con QUSROBJD creo que tienes esa información ya en un CHAR(13)...



-

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 [1]
Mail: r...@qsl-group.com

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

Trader?s is now a part of Syncsort



-


De: Javier Mora 
Para:   "forum.help400" 
Fecha:  16/02/2018 18:00
Asunto: RE: API QUSLOBJ
Enviado por:forum.help400-boun...@listas.combios.es

Si revisas la documentación de la API puedes ver que estas fechas
hay que
convertirlas utilizando la API QWCCVTDT. El formato utilizado para
estas
fechas (*DTS) es específico del sistema.

Javier Mora

-Mensaje original-
De: forum.help400-boun...@listas.combios.es [
mailto:forum.help400-boun...@listas.combios.es] En nombre de
juancar...@paredes.info
Enviado el: viernes, 16 de febrero de 2018 17:22
Para: Forum Help 400
Asunto: API QUSLOBJ

Buenas tardes, foro:

¿Alguno tenéis experiencia con la API QUSLOBJ?

La estoy intentando utilizar con el formato OBJ0300 para obtener la
fecha
de creación de una lista de objetos y me encuentro con que devuelve
correctamente los datos, excepto en los campos de fecha de creación
y
cambio, donde me devuelve "basurilla". Concretamente esto:
QUSCDT00 µ'&  Á
QUSCDT01 µ'&
r

La estructura de datos la tengo definida con /Copy
QSYSINC/QRPGLESRC,QUSLOBJ, con lo que entiendo que debe ser
correcta. De
hecho el resto de los campos, los encaja correctamente.

Me llama la atención una cosa y es que, según la documentación
del
knowledge center, son dos campos carácter de 8 posiciones y
contienen la
fecha y hora de creación/cambio del objeto, y eso no me acaba de
cuadrar.

¿Alguna idea al respecto?

Gracias y perdón por meteros en este lío un viernes a estas horas.

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

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



Links:
--
[1] tel:34%20663%2081%2071%2044
[2] http://qsl.zendesk.com
[3] http://bit.ly/db68dd
[4]
https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/rzajq/rzajqudfobjectstat.htm

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


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

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

Re: Resumen de Forum.help400, Vol 136, Envío 15

[Juan Carlos Paredes]

Si no hay como preguntar al que sabe. ;)

Estuvimos mirando a ver si directamente con una SQL eramos capaces de 
sacar estos datos y no encontrábamos la forma. De ahí que buscara la 
alternativa de la API.


Efectivamente, me sirve perfectamente para lo que queremos.

Gracias, José Luis.

El 2018-02-17 10:05, Jose Luis Hernandez Riesgo escribió:

Hola Juan Carlos,

A lo mejor un método más sencillo para obtener los datos que
necesitas está en las vistas de DB2 del sistema, prueba esta
objects_Statistics, te adjunto el link al knowledge:

https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/rzajq/rzajqudfobjectstat.htm

Te devuelve toda la información básica de los objetos de una
biblioteca, entre ellos la fecha de creación.

Espero que sirva.

Un saludo


Message: 3
Date: Fri, 16 Feb 2018 18:08:14 +0100
Subject: RE: API QUSLOBJ
To: "forum.help400" 
Message-ID:





Content-Type: text/plain; charset="utf-8"

Con QUSROBJD creo que tienes esa información ya en un CHAR(13)...



-

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 [1]
Mail: r...@qsl-group.com

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

Trader?s is now a part of Syncsort



-


De: Javier Mora 
Para:   "forum.help400" 
Fecha:  16/02/2018 18:00
Asunto: RE: API QUSLOBJ
Enviado por:forum.help400-boun...@listas.combios.es

Si revisas la documentación de la API puedes ver que estas fechas
hay que
convertirlas utilizando la API QWCCVTDT. El formato utilizado para
estas
fechas (*DTS) es específico del sistema.

Javier Mora

-Mensaje original-
De: forum.help400-boun...@listas.combios.es [
mailto:forum.help400-boun...@listas.combios.es] En nombre de
juancar...@paredes.info
Enviado el: viernes, 16 de febrero de 2018 17:22
Para: Forum Help 400
Asunto: API QUSLOBJ

Buenas tardes, foro:

¿Alguno tenéis experiencia con la API QUSLOBJ?

La estoy intentando utilizar con el formato OBJ0300 para obtener la
fecha
de creación de una lista de objetos y me encuentro con que devuelve
correctamente los datos, excepto en los campos de fecha de creación
y
cambio, donde me devuelve "basurilla". Concretamente esto:
QUSCDT00 µ'&  Á
QUSCDT01 µ'&
r

La estructura de datos la tengo definida con /Copy
QSYSINC/QRPGLESRC,QUSLOBJ, con lo que entiendo que debe ser
correcta. De
hecho el resto de los campos, los encaja correctamente.

Me llama la atención una cosa y es que, según la documentación
del
knowledge center, son dos campos carácter de 8 posiciones y
contienen la
fecha y hora de creación/cambio del objeto, y eso no me acaba de
cuadrar.

¿Alguna idea al respecto?

Gracias y perdón por meteros en este lío un viernes a estas horas.

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

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



Links:
--
[1] tel:+34%20663%2081%2071%2044

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


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

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

Re: API QUSLOBJ

[Juan Carlos Paredes]

Gracias, Andreu. El tema es que con esa API tengo que ir objeto a objeto 
y con la otra me devuelve una lista de objetos directamente. Además 
permite usar genéricos para el nombre, el tipo y la biblioteca.




El 2018-02-16 18:08, Andreu Rul escribió:

Con QUSROBJD creo que tienes esa información ya en un CHAR(13)...

-
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

_Trader’s is now a part of __SYNCSORT_

-

De:Javier Mora 
Para:"forum.help400" 
Fecha:16/02/2018 18:00
Asunto:RE: API QUSLOBJ
Enviado por:forum.help400-boun...@listas.combios.es

-

Si revisas la documentación de la API puedes ver que estas fechas hay
que convertirlas utilizando la API QWCCVTDT. El formato utilizado para
estas fechas (*DTS) es específico del sistema.

Javier Mora

-Mensaje original-
De: forum.help400-boun...@listas.combios.es
[mailto:forum.help400-boun...@listas.combios.es] En nombre de
juancar...@paredes.info
Enviado el: viernes, 16 de febrero de 2018 17:22
Para: Forum Help 400
Asunto: API QUSLOBJ

Buenas tardes, foro:

¿Alguno tenéis experiencia con la API QUSLOBJ?

La estoy intentando utilizar con el formato OBJ0300 para obtener la
fecha de creación de una lista de objetos y me encuentro con que
devuelve correctamente los datos, excepto en los campos de fecha de
creación y cambio, donde me devuelve "basurilla". Concretamente esto:
QUSCDT00 µ'&Á
QUSCDT01 µ'&
r

La estructura de datos la tengo definida con /Copy
QSYSINC/QRPGLESRC,QUSLOBJ, con lo que entiendo que debe ser correcta.
De hecho el resto de los campos, los encaja correctamente.

Me llama la atención una cosa y es que, según la documentación del
knowledge center, son dos campos carácter de 8 posiciones y contienen
la fecha y hora de creación/cambio del objeto, y eso no me acaba de
cuadrar.

¿Alguna idea al respecto?

Gracias y perdón por meteros en este lío un viernes a estas horas.

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

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


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

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

Re: API QUSLOBJ

[Juan Carlos Paredes]

Gracias Javier.

El 2018-02-16 17:51, Javier Mora escribió:

Si revisas la documentación de la API puedes ver que estas fechas hay
que convertirlas utilizando la API QWCCVTDT. El formato utilizado para
estas fechas (*DTS) es específico del sistema.

Javier Mora

-Mensaje original-
De: forum.help400-boun...@listas.combios.es
[mailto:forum.help400-boun...@listas.combios.es] En nombre de
juancar...@paredes.info
Enviado el: viernes, 16 de febrero de 2018 17:22
Para: Forum Help 400
Asunto: API QUSLOBJ

Buenas tardes, foro:

¿Alguno tenéis experiencia con la API QUSLOBJ?

La estoy intentando utilizar con el formato OBJ0300 para obtener la
fecha de creación de una lista de objetos y me encuentro con que
devuelve correctamente los datos, excepto en los campos de fecha de
creación y cambio, donde me devuelve "basurilla". Concretamente esto:
QUSCDT00µ'&Á
QUSCDT01µ'&
r

La estructura de datos la tengo definida con /Copy
QSYSINC/QRPGLESRC,QUSLOBJ, con lo que entiendo que debe ser correcta.
De hecho el resto de los campos, los encaja correctamente.

Me llama la atención una cosa y es que, según la documentación del
knowledge center, son dos campos carácter de 8 posiciones y contienen
la fecha y hora de creación/cambio del objeto, y eso no me acaba de
cuadrar.

¿Alguna idea al respecto?

Gracias y perdón por meteros en este lío un viernes a estas horas.


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

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


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

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

Re: CRTBNDRPG vs CRTRPGMOD+CRTPGM (ILE RPG)

[Juan Carlos Paredes Castañón]

Sin ánimo de molestar, éste es un foro del que he recibido mucha ayuda.
He aportado aquello en lo que creía que mis conocimientos podían ayudar
a otros. Ha habido veces en los que mis peticiones no han recibido
respuesta porque, con total seguridad, nadie podía aportarla. Ha habido
veces en las que, queriendo ayudar, seguro que la he "cagado" (y perdón
por la expresión). Pero de lo que estoy absolutamente seguro, después de
muchos años en él, es que si algo no se puede achacar a ningún miembro
de este foro, es que no tenga intención de colaborar. Para eso estamos
aquí. Para aportar nuestro conocimiento a quien lo necesite y para
recabar el de mis compañeros cuando sea yo quien lo necesite. Al menos
esa es mi actitud con respecto a esto. Y espero que siga siendo así
durante otros tantos años. 

Un saludo. 

Juan Carlos

---
url: https://www.paredes.info
mail: juancar...@paredes.info 

El 15/11/2017 12:14, Jorge Caballero escribió:

> digo que si tu intención no es colaborar entonces deberías estar en un foro 
> de illuminatis,  me gustan los mapuches son buenos  y por lo general 
> colaboran con su entorno...aunque siempre hay exepciones.. 
> 
> DE: forum.help400-boun...@listas.combios.es 
> [mailto:forum.help400-boun...@listas.combios.es] EN NOMBRE DE spuentes
> ENVIADO EL: miércoles, 15 de noviembre de 2017 07:48 a.m.
> PARA: forum.help400
> ASUNTO: RE: CRTBNDRPG vs CRTRPGMOD+CRTPGM (ILE RPG) 
> 
> SR. Jorge Caballero 
> 
> Si te molesta es tu problema, Ademas el tema no es un paquete a instalar es 
> simplemente el manejo del entorno ile, Si no te gusta buscar o leer, perdón 
> te equivocaste de profesión y si te dolió tanto es porque te tocó 
> directamente. 
> 
> Antes de ladrar, primero ubicate quien soy que he hecho, la programación es 
> más que simplemente codificar es pensar y resolver los problemas que se nos 
> presentan 
> 
> Sin otro particular 
> 
> Sergio L Puentes Valladares 
> 
> Analista Programador Senior - iSeries 
> 
> Nota: Veo que para ser guaraní, eres muy kuripi 
> 
> Sent from my Samsung Galaxy smartphone. 
> 
>  Original message  
> 
> From: Jorge Caballero  
> 
> Date: 15/11/2017 04:15 (GMT-06:00) 
> 
> To: "'forum.help400'"  
> 
> Subject: RE: CRTBNDRPG vs CRTRPGMOD+CRTPGM (ILE RPG) 
> 
> Si tendríamos que leer todos los libros rojos y negros, entonces no tiene 
> sentido el foro, aca me ayudaron mas de lo que he ayudado y es la primera vez 
> que leo algo asi en todos los foros en que estoy,  máximo lo que han pedido 
> es una colaboración por el paquete a instalar y usar, los foros son de Ayuda 
> Mutua, los que piensan distinto deberían excluidos 
> 
> DE: forum.help400-boun...@listas.combios.es 
> [mailto:forum.help400-boun...@listas.combios.es] EN NOMBRE DE Javier Baca
> ENVIADO EL: miércoles, 15 de noviembre de 2017 04:15 a.m.
> PARA: forum.help400@listas.combios.es
> ASUNTO: FW: CRTBNDRPG vs CRTRPGMOD+CRTPGM (ILE RPG) 
> 
> Buenos días Javier/Paco : 
> 
> Muchísimas gracias Javier, con lo que explicas intentaré apañarme, te lo 
> agradezco, con gente como tú merece la pena estar en este tipo de foros. 
> 
> Muchísimas gracias Paco, por tu apoyo. 
> 
> Hola Sergio : 
> 
> Con o sin comillas la palabra "vago" me ha insultado muchísimo, primero 
> porque soy todo lo contrario y porque tenemos aquí una NECESIDAD, y las dudas 
> han surgido después de leerme todos los manuales, inglés/castellano, da 
> igual, a estas alturas, esto ya no debería de ser un problema. 
> 
> Jamás se me ocurriría hacer un comentario similar al tuyo. 
> 
> Saludos, 
> 
> Javier 
> 
> FROM: forum.help400-boun...@listas.combios.es 
> [mailto:forum.help400-boun...@listas.combios.es] ON BEHALF OF Paco Medina - 
> Exclusivas Camacho
> SENT: martes, 14 de noviembre de 2017 18:59
> TO: 'forum.help400' 
> SUBJECT: RE: CRTBNDRPG vs CRTRPGMOD+CRTPGM (ILE RPG) 
> 
> Estimados sin ofender a nadie, 
> 
> La mayoría de las veces cuando alguien solicita una ayuda al foro , es por 
> que necesita una ayuda 
> 
> Rápida para ejecutar x aplicación , cl o programa , para salir rápido de un 
> atasco , por que el 
> 
> Dpto.. de programación lo necesita para ayer , con lo que la matoria de las 
> veces no da tiempo 
> 
> A buscar en la inmensidad de manuales x rutina para solucionar el problema in 
> situ , la mayoría 
> 
> De las veces , lo intentas con RPG, con ilerpg etc etc , el primero que te 
> solucione el problema 
> 
> Si ya se que alguno dira que no hay que quedarse atrás , pero 
> 
> La mayoría de las veces la solución no espera. 
> 
> saludos 
> 
> DE: forum.help400-boun...@listas.combios.es 
> [mailto:forum.help400-boun...@listas.combios.es] EN NOMBRE DE spuentes
> ENVIADO EL: martes, 14 de noviembre de 2017 18:48
> PARA: forum.help400 
> ASUNTO: RE: CRTBNDRPG vs CRTRPGMOD+CRTPGM (ILE RPG) 
> 
> Estimado Javier 
> 
> Tienes toda la razón, nunca es fácil 

Re: Modernización - Transición SQL

[Juan Carlos Paredes Castañón]

La sentencia CREATE TABLE, tiene también una claúsula LIKE para que tome
la estructura de la tabla que indiques en esta cláusula (tal vez, más
sencillo que crearla con una sub-select de la tabla original). Lo que no
sé, porque no la he utilizado nunca, es si permite el "with data" o
"with no data". Yo suelo hacerlo como te indiqué. 

Una opción que quizá te pueda resultar práctica, si lo haces a menudo,
es crearte un procedimiento almacenado que reciba como parámetros
esquema y tabla de origen y de destino y si debe duplicar datos o no.
Una vez que lo tengas fino, siempre que tengas que hacer un duplicado,
sólo tienes que hacer un CALL a este procedimiento y estarás seguro de
que te va a hacer lo correcto. 

Cambiar de DDS a SQL cuesta un esfuerzo, pero cuando te habitúas a
trabajar con él, la verdad es que es una virguería.  

Saludos y ánimo.  

Juan Carlos

---
url: https://www.paredes.info
mail: juancar...@paredes.info 

El 13/09/2017 18:23, Javier Mora escribió:

> Tengo claro que, como todo cambio, tendremos que hacer un esfuerzo para 
> readaptarnos a SQL. Muchas de las "costumbres" adquiridas durante más de 20 
> años tendremos que dejarlas a un lado, pero mientras descubres y aprendes la 
> alternativa nos vamos a encontrar con algún "aprieto". 
> 
> La opción que apunta Juan Carlos para duplicar tablas me puede ser válida 
> aunque más farragosa que un simple CRTDUPOBJ. El enlace de Alex también es 
> interesante. 
> 
> Respecto a los bloqueos al activar la integridad referencial es un verdadero 
> problema, porque es muy difícil encontrar un hueco en el día donde las tablas 
> afectadas no estén en uso. Para tablas completamente nuevas no es un 
> problema. En mi caso, la tabla de artículos es uno de esos objetos que la 
> utilizan todos los trabajos continuamente. Cualquier restricción referencial 
> nueva sobre ese archivo será un problema. 
> 
> Yo, de momento, me he planteado crear la tabla sin restricciones y activar 
> programas, etc. Cuando haya un hueco, haremos un ALTER TABLE para activarlas. 
> En este caso nos podremos encontrar con el caso de que los datos no las 
> cumplan y tendremos que "depurar" la tabla. 
> 
> Gracias por vuestro interés. 
> 
> Javier Mora 
> 
> DE: forum.help400-boun...@listas.combios.es 
> [mailto:forum.help400-boun...@listas.combios.es] EN NOMBRE DE Alex Martínez
> ENVIADO EL: miércoles, 13 de septiembre de 2017 14:15
> PARA: forum.help400
> ASUNTO: Re: Modernización - Transición SQL 
> 
> Hola
> 
> para el primer problema IBM tiene publicado un documento que lo explica, no 
> sé si te será de ayuda
> http://www-01.ibm.com/support/docview.wss?uid=nas8N1017004 
> 
> El problema mucha veces es seguir utilizando mandatos tradicionales como 
> CRTDUPOBJ,CPYF, etc cuando ya tienes un pie en el mundo SQL. Por ejemplo, 
> hacer un CRTDUPOBJ duplicando integridad y triggers puede ser una muy mala 
> idea 
> 
> Y es un problema añadir, quitar o cambiar una restricción si el objeto está 
> bloqueado, yo todo esto lo controlo antes de empezar a actualizar... por 
> motivos evidentes. Así que si encuentras la solución... coméntalo por aquí 
> !!! 
> 
> El 13 de septiembre de 2017, 13:09, Javier Mora  escribió:
> 
> Hola a tod@s de nuevo, 
> 
> estoy empezando a crear tablas de BBDD con el CREATE TABLE en lugar de DDS, 
> hasta el momento no he tenido ningún problema, ¡hasta ayer! 
> 
> Me encuentro con dos casos que sabría resolver pero no me gusta la solución: 
> 
> 1.   Cuando creo tablas con SQL le defino dos nombres, uno largo (y 
> descriptivo) para utilizar en SQL y el de sistema para poder utilizarlo con 
> los mandatos CL. Todo bien salvo cuando tengo que hacer un duplicado del 
> objeto en la misma biblioteca, que falla con el error CPF327E - No se permite 
> un nombre alternativo para el archivo X. 
> 
> ¿Cómo se pueden crear duplicados (CRTDUPOBJ) de ficheros con "nombre 
> alternativo" en una misma biblioteca? 
> 
> 2.   Nuestra BBDD tiene más de 20 años y nunca se han utilizado 
> "restricciones referenciales" entre archivos. Ahora quiero utilizarlas, pero 
> no es posible crear dicha tabla si las tablas referenciadas se están 
> utilizando. En un entorno como el nuestro (y seguramente como cualquier otro) 
> donde se utiliza el equipo las 24 horas del día por decenas de usuarios es 
> complicado pararlos a todos para hacer el cambio. 
> 
> ¿Existe alguna forma de crear tablas con restricciones referenciales sin 
> parar al personal? 
> 
> En un entorno tradicional de DDS estos problemas no surgían, puedes duplicar 
> tantas veces como quieras un objeto en la misma biblioteca (cambiando el 
> nombre) y puedes crear tantos archivos como quieras sin molestar al resto de 
> personal. 
> 
> ¿Cómo actuáis en estos casos? 
> 
> Saludos y gracias por vuestros comentarios, 
> 
> Javier Mora 
> 
> DE: forum.help400-boun...@listas.combios.es 
> [mailto:forum.help400-boun...@listas.combios.es] EN NOMBRE DE Javier Mora
> ENVIADO EL: 

Re: Modernización - Transición SQL

[Juan Carlos Paredes Castañón]

Para el primer error, mi solución sería crear la nueva tabla a través de
SQL también: 

Create Table Destino.Mi_Nombre_Largo_B as (Select * from
Origen.Mi_Nombre_Largo_A) 

Y añadir la cláusula "with Data" (si quieres que se dupliquen los
registros) o "with No Data" (si sólo quieres duplicar la estructura).  

Respecto a la segunda, no puedo ayudarte. No he trabajado nunca con
integridad referencial

---
url: https://www.paredes.info
mail: juancar...@paredes.info 

El 13/09/2017 13:09, Javier Mora escribió:

> Hola a tod@s de nuevo, 
> 
> estoy empezando a crear tablas de BBDD con el CREATE TABLE en lugar de DDS, 
> hasta el momento no he tenido ningún problema, ¡hasta ayer! 
> 
> Me encuentro con dos casos que sabría resolver pero no me gusta la solución: 
> 
> 1.   Cuando creo tablas con SQL le defino dos nombres, uno largo (y 
> descriptivo) para utilizar en SQL y el de sistema para poder utilizarlo con 
> los mandatos CL. Todo bien salvo cuando tengo que hacer un duplicado del 
> objeto en la misma biblioteca, que falla con el error CPF327E - No se permite 
> un nombre alternativo para el archivo X. 
> 
> ¿Cómo se pueden crear duplicados (CRTDUPOBJ) de ficheros con "nombre 
> alternativo" en una misma biblioteca? 
> 
> 2.   Nuestra BBDD tiene más de 20 años y nunca se han utilizado 
> "restricciones referenciales" entre archivos. Ahora quiero utilizarlas, pero 
> no es posible crear dicha tabla si las tablas referenciadas se están 
> utilizando. En un entorno como el nuestro (y seguramente como cualquier otro) 
> donde se utiliza el equipo las 24 horas del día por decenas de usuarios es 
> complicado pararlos a todos para hacer el cambio. 
> 
> ¿Existe alguna forma de crear tablas con restricciones referenciales sin 
> parar al personal? 
> 
> En un entorno tradicional de DDS estos problemas no surgían, puedes duplicar 
> tantas veces como quieras un objeto en la misma biblioteca (cambiando el 
> nombre) y puedes crear tantos archivos como quieras sin molestar al resto de 
> personal. 
> 
> ¿Cómo actuáis en estos casos? 
> 
> Saludos y gracias por vuestros comentarios, 
> 
> Javier Mora 
> 
> DE: forum.help400-boun...@listas.combios.es 
> [mailto:forum.help400-boun...@listas.combios.es] EN NOMBRE DE Javier Mora
> ENVIADO EL: miércoles, 1 de marzo de 2017 16:48
> PARA: 'forum.help400'
> ASUNTO: RE: Modernización - Transición SQL 
> 
> Gracias Alex. 
> 
> Soy de los que le gusta tener casi todo atado antes de dar un paso de estas 
> dimensiones, pero en muchas ocasiones en muchas ocasiones esa necesidad lo 
> paraliza todo, porque es casi imposible tenerlo todo controlado. 
> 
> Como ya he comentado, he leído mucha documentación sobre el tema. Aunque hay 
> mucha literatura, no encuentro buenos ejemplos a lo que se plantea en estos 
> textos. En muy pocos se concretan decisiones sino que es todo muy 
> generalista. Aun así te ayuda a tener una visión amplia de la situación a la 
> que te enfrentas. 
> 
> (Creo) que tengo muy claro qué hacer para migrar las bases de datos a SQL 
> dejando los programas en RPG sin tocar (ni siquiera recompilar). Es de lo 
> poco concreto que he encontrado. 
> 
> De tus comentarios me llama la atención la gestión de la integridad y de las 
> restricciones, ¿las gestionáis con mandatos o con SQL? 
> 
> Respecto al bloque "optimista" siempre he tenido mis dudas y, desde mi punto 
> de vista, es bastante complicada una solución que detecte cuándo han cambiado 
> los datos leídos y qué datos. 
> 
> Saludos, 
> 
> Javier Mora 
> 
> DE: forum.help400-boun...@listas.combios.es 
> [mailto:forum.help400-boun...@listas.combios.es] EN NOMBRE DE Alex Martínez
> ENVIADO EL: miércoles, 01 de marzo de 2017 15:11
> PARA: forum.help400
> ASUNTO: Re: Modernización - Transición SQL 
> 
> Intento contestar de forma resumida, porque esto da para una telenovela de 
> varias temporadas ;-)
> 
> La moda de mover aplicaciones a SQL era para aprovechar las ventajas del 
> motor SQE... si las aplicaciones usaban OPNQRYF te quedabas con el motor 
> "tradicional" CQE... hasta que llegó la V7R2 e IBM publicó en un TR varias 
> mejoras para usar el SQE con "cosas" tradicionales en fin. 
> 
> Si hay programas en RPG, lo más que puedes tener es una combinación entre DDS 
> y SQL y creo que es la mejor opción (o la única). Hay varios artículos sobre 
> "DDS and SQL - The Winning Combination for DB2 for i" 
> 
> Yo no conozco aplicaciones en RPG en que TODO los accesos a base de datos 
> sean en SQL. Y te hablo de aplicaciones ya migradas a ILE hace 20 años. Si 
> todavía son OPM en tu caso, el primer paso es pasar a ILE. 
> 
> Sobre añadir integridad a tablas: Si ya utilizas ILE, en las operaciones 
> WRITE, UPDATE y DELETE nosotros empezamos a incluir una rutina GetDbErr de 
> gestión de errores de integridad referencial de base de datos, aunque las 
> tablas no tuvieran integridad, pero esto ya dejaba el programa preparado para 
> futuras reglas de integridad.  Después al añadir 

Create or Replace Index

[Juan Carlos Paredes Castañón]

Me acabo de encontrar con una "tontería" que no sé si a alguno os ha
pasado. En las últimas versiones las sentencias CREATE de SQL tienen una
cláusula OR REPLACE que permiten, por ejemplo, volver a crear una tabla
sin necesidad de borrarla previamente y conservando todos los datos
(vamos, un CHGPF en toda regla, pero con SQL). Lo curioso es que cuando
intento hacer lo mismo con un índice me da error al ejecutarlo. 

La sentencia en cuestión es: 

CREATE OR REPLACE INDEX XMRS_PROFA.IAEXITRA1 ON
XMRS_PROFA.VALORACION_EXISTENCIAS
( EMPRESA ASC , CLIENTE ASC , ALMACEN ASC , MODELO ASC , CALIDAD ASC ,
COLOR ASC ) ; 

Tratándose de un índice, no me preocupa excesivamente tener que hacer un
DROP INDEX y un CREATE INDEX, ya que no afectaría a los datos. Pero me
ha picado la curiosidad.  

Con vistas, por ejemplo, sí funciona y, en teoría, tampoco afectan a los
datos. 

No sé si tiene alguna explicación lógica por la que no funcione con los
índices, pero me gustaría saberlo. 

Estoy en Versión 7.2. 

Un saludo. 

Juan Carlos.

-- 
mail: juancar...@paredes.info
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: Fuentes vacios que crea Rse

[Juan Carlos Paredes Castañón]

¿En unos ficheros fuente denominados EVF*? Si es así, son los ficheros
de eventos que crea al compilar. Si no, ni idea. 

Saludos. 

Juan Carlos.

---
url: http://www.paredes.info
mail: juancar...@paredes.info 

El 01/08/2017 15:32, Juan García escribió:

> Saludos 
> 
> Estoy utilizando IBM Rational developer for i, versión 9.5 y me está creando 
> unos fuentes en la biblioteca de trabajo que están vacíos, ¿sabe alguien 
> porque sucede?, ¿se puede evitar? 
> 
> Gracias 
> 
> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
> Forum.Help400 (c) Publicaciones Help400, S.L.
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: Una de procedimientos almacenados

[Juan Carlos Paredes Castañón]

Buenos días, Javier. 

Esa es la misma sensación que tengo yo, que la sentencia preparada
anterior está todavía "en el limbo" y por eso no puede volver a
prepararla. Lo que no sé es como sacarla de ese limbo.  

El procedimiento está creado como NOT DETERMINISTIC, ya que entre dos
ejecuciones los datos podrían haber variado.

---
url: http://www.paredes.info
mail: juancar...@paredes.info 

El 29/06/2017 18:45, Javier Mora escribió:

> ¿Podría ser que el cursor no se cierre o la sentencia preparada anterior 
> estuviera todavía activa/vigente/etc (no sabría cómo expresarlo)? 
> 
> ¿Algún parámetro al crear el procedimiento como DETERMINISTIC? Esto son 
> "palos de ciego". 
> 
> Javier 
> 
> DE: forum.help400-boun...@listas.combios.es 
> [mailto:forum.help400-boun...@listas.combios.es] EN NOMBRE DE Juan Carlos 
> Paredes Castañón
> ENVIADO EL: jueves, 29 de junio de 2017 17:12
> PARA: Forum Help 400
> ASUNTO: Una de procedimientos almacenados 
> 
> Buenas tardes, foro: 
> 
> A ver si alguien me puede echar una mano, porque llevo todo el día 
> volviéndome loco con este tema y no encuentro solución: 
> 
> Tengo un procedimiento almacenado en SQL que obtiene datos de diferentes 
> ordenadores (todos ellos AS/400). Tiene un primer cursor que, en función de 
> un parámetro recibido obtiene los ordenadores a los que se tiene que 
> conectar. 
> 
> Recorriendo este cursor, mediante SQL dinámico, prepara una sentencia para 
> obtener, en un segundo cursor, unos acumulados de unidades pendientes en cada 
> uno de los ordenadores. Este resultado lo graba en una tabla temporal, que 
> luego es la que se devuelve (una vez procesados todos los ordenadores) como 
> Result Set del procedimiento. 
> 
> La primera vez que ejecuto el procedimiento, todo funciona correctamente. Lo 
> he probado desde STRSQL en pantalla verde, desde Ejecutar Scripts de SQL de 
> System i Navigator y desde Data Studio. 
> 
> La segunda vez no me devuelve ningún resultado. Si cierro la conexión (me 
> salgo del STRSQL, cierro la ventana de Ejecutar Scripts o desconecto de la 
> base de datos en Data Studio) y la vuelvo a abrir, me devuelve correctamente 
> los datos de nuevo. 
> 
> Revisando las anotaciones de trabajo, veo que la primera vez que lo ejecuto, 
> al preparar dinámicamente el cursor, hace correctamente el prepare y abre el 
> cursor.  
> 
> La segunda, llega a componer la variable para el prepare, pero cuando va a 
> abrir el cursor me da el siguiente error: 
> 
> "Sentencia preparada ST2 no encontrada." 
> 
> ¿Alguna idea al respecto?
> 
> Gracias. 
> 
> Juan Carlos. 
> 
> -- 
> 
> url: http://www.paredes.info
> mail: juancar...@paredes.info 
> 
> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
> Forum.Help400 (c) Publicaciones Help400, S.L.
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Una de procedimientos almacenados

[Juan Carlos Paredes Castañón]

Buenas tardes, foro: 

A ver si alguien me puede echar una mano, porque llevo todo el día
volviéndome loco con este tema y no encuentro solución: 

Tengo un procedimiento almacenado en SQL que obtiene datos de diferentes
ordenadores (todos ellos AS/400). Tiene un primer cursor que, en función
de un parámetro recibido obtiene los ordenadores a los que se tiene que
conectar. 

Recorriendo este cursor, mediante SQL dinámico, prepara una sentencia
para obtener, en un segundo cursor, unos acumulados de unidades
pendientes en cada uno de los ordenadores. Este resultado lo graba en
una tabla temporal, que luego es la que se devuelve (una vez procesados
todos los ordenadores) como Result Set del procedimiento. 

La primera vez que ejecuto el procedimiento, todo funciona
correctamente. Lo he probado desde STRSQL en pantalla verde, desde
Ejecutar Scripts de SQL de System i Navigator y desde Data Studio. 

La segunda vez no me devuelve ningún resultado. Si cierro la conexión
(me salgo del STRSQL, cierro la ventana de Ejecutar Scripts o desconecto
de la base de datos en Data Studio) y la vuelvo a abrir, me devuelve
correctamente los datos de nuevo. 

Revisando las anotaciones de trabajo, veo que la primera vez que lo
ejecuto, al preparar dinámicamente el cursor, hace correctamente el
prepare y abre el cursor.  

La segunda, llega a componer la variable para el prepare, pero cuando va
a abrir el cursor me da el siguiente error: 

"Sentencia preparada ST2 no encontrada." 

¿Alguna idea al respecto?

Gracias. 

Juan Carlos. 

-- 
url: http://www.paredes.info
mail: juancar...@paredes.info
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Oferta de empleo

[Juan Carlos Paredes Castañón]

Buenos días, compañeros: 

Necesitamos incorporar un analista/programador iSeries en nuestro equipo
establecido en el Parque Tecnológico de León. Se trata de un proyecto
estable para un importante cliente. Debe ser presencial, no remoto. 

Si alguno estáis interesado, por favor, enviadme el CV a
jcpare...@setta.es 

Un saludo. 

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

Re: Result Set en RPGIII

[Juan Carlos Paredes Castañón]

Esa opción la tenía clara. Y en este caso, fue lo que hice. Pero quería
saber si se podía hacer en RPG III, porque tengo casos en los que el
cliente no quiere convertir a RPG IV. Y, por lo que he visto, un
procedimiento almacenado que devuelva un cursor (ya filtrado y ordenado)
al programa es una técnica muy práctica, ya que una vez probado y
depurado, es perfectamente utilizable desde cualquier sitio (RPG, .NET,
Java, ...). 

---
url: http://www.paredes.info
mail: juancar...@paredes.info 

El 01/06/2017 12:06, Fernando Pérez escribió:

> Más una pregunta que una respuesta: ¿Por qué no conviertes el programa a RPG 
> IV? 
> 
> El 10 de mayo de 2017, 12:57, Juan Carlos Paredes Castañón 
> <juancar...@paredes.info> escribió:
> 
>> Buenos días: 
>> 
>> ¿Alguien sabe como asociar el result set de un procedimiento almacenado que 
>> abre un cursor en un programa RPG III? En RPG IV lo tengo claro, porque al 
>> definir el campo que lo asocia, puedo utilizar campos "integer", pero ¿cómo 
>> se puede hacer eso mismo en RPG III? 
>> 
>> Gracias. 
>> 
>> Juan Carlos.
>> 
>> -- 
>> url: http://www.paredes.info
>> mail: juancar...@paredes.info
>> 
>> 
>> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
>> Forum.Help400 (c) Publicaciones Help400, S.L.
> 
> 
> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
> Forum.Help400 (c) Publicaciones Help400, S.L.
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Result Set en RPGIII

[Juan Carlos Paredes Castañón]

 

Buenos días: 

¿Alguien sabe como asociar el result set de un
procedimiento almacenado que abre un cursor en un programa RPG III? En
RPG IV lo tengo claro, porque al definir el campo que lo asocia, puedo
utilizar campos "integer", pero ¿cómo se puede hacer eso mismo en RPG
III? 

Gracias. 

Juan Carlos. 

-- 
url: http://www.paredes.info
mail:
juancar...@paredes.info
 
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: Limite arrays anidadas

[Juan Carlos Paredes Castañón]

 

Hola. No he probado tampoco a definir más de 2 niveles en arrays,
pero me da la sensación de que no tiene nada que ver con eso. ¿El
problema no será por estar indicando como índice de ds_subpalet un "*"
en lugar de un campo o valor numérico? 

Saludos. 

Juan Carlos. 

El
12/04/2017 09:46, Alex Martínez escribió: 

> Hola 
> 
> Y no será
necesario añadir los parámetros opcionales de %lookup ===> {:
start_index {: number_of_elements}} <===
> 
>
https://www.ibm.com/support/knowledgecenter/ssw_ibm_i_71/rzasd/sc092508961.htm
[2] 
> 
> Salu2 
> 
> El 11 de abril de 2017, 15:52, alberto
 escribió:
> 
>> 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 [1] )
>> Forum.Help400
(c) Publicaciones Help400, S.L.
> 
>

> Únete a Recursos
AS400, nuestra Comunidad ( http://bit.ly/db68dd [1] )
> Forum.Help400
(c) Publicaciones Help400, S.L.

-- 
url: http://www.paredes.info
mail:
juancar...@paredes.info
 

Links:
--
[1] http://bit.ly/db68dd
[2]
https://www.ibm.com/support/knowledgecenter/ssw_ibm_i_71/rzasd/sc092508961.htm

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

RE: Pregunta absurda

[Juan Carlos Paredes Castañón]

 

Me pillas en casa, por lo que no tengo acceso a la máquina, pero
creo que hay un parámetro en la compilación del DSPF en el que puedes
indicarle algo así como DEV(*NONE). Por defecto tiene el valor
*REQUESTER, que indica que se asocia el archivo al dispositivo que lo
solicite. Hablo de memoria. Si quieres mañana, cuando tenga acceso a la
máquina te lo confirmo. 

Un saludo. 

Juan Carlos. 

El 21/03/2017
17:59, Dpto. Informática escribió: 

> Correcto Javier, como sabia lo
que era no mire exactamente el mensaje 
> 
> El error lo da en el open

> 
> No se ha encontrado el dispositivo *REQUESTER mientras se abría el
archivo 
> 
> PED402FM en la biblioteca …… 
> 
> Modificare el proceso y
en vez de grabar SFL hare un write al prtf, que es lo quería evitar para
no liar mas el programa. 
> 
> Gracias 
> 
> JOSÉ SÁNCHEZ 
> 
>
DPTO.INFORMÁTICA 
> 
> PRODUCTOS CLIMAX,
S.A    
> 
> Pol.
Ind. Sector Mollet C/Llobregat Nº 1 
> 
> 08150 - Parets del Valles
(Barcelona) 
> 
> Teléfono: +34 935621311 
> 
> Fax: +34 935621413 
> 
>
www.productosclimax.com [2] 
> 
> FOLLOW US: 
> 
> [3] [4] 
> 
> DE:
forum.help400-boun...@listas.combios.es
[mailto:forum.help400-boun...@listas.combios.es] EN NOMBRE DE Javier
Mora
> ENVIADO EL: martes, 21 de marzo de 2017 17:46
> PARA:
'forum.help400'
> ASUNTO: RE: Pregunta absurda 
> 
> Cuando abres el
archivo en batch ¿no te da el error en ese momento? Si no tengo mal
entendido, si se intenta abrir un archivo de pantalla en un trabajo por
lotes la ejecución falla ¿¿?? 
> 
> Saludos, 
> 
> Javier Mora 
> 
> DE:
forum.help400-boun...@listas.combios.es
[mailto:forum.help400-boun...@listas.combios.es] EN NOMBRE DE Dpto.
Informática (José Sánchez)
> ENVIADO EL: martes, 21 de marzo de 2017
17:34
> PARA: forum.help400
> ASUNTO: RE: Pregunta absurda 
> 
> El
SFLDSP no lo habilito hasta que hago el Exfmt, pero me falla, en batch,
al hacer el write al SFL 
> 
> Creo que es absurdo lo que intento…. 
>

> JOSÉ SÁNCHEZ 
> 
> DPTO.INFORMÁTICA 
> 
> PRODUCTOS CLIMAX,
S.A    
> 
> Pol.
Ind. Sector Mollet C/Llobregat Nº 1 
> 
> 08150 - Parets del Valles
(Barcelona) 
> 
> Teléfono: +34 935621311 
> 
> Fax: +34 935621413 
> 
>
www.productosclimax.com [2] 
> 
> FOLLOW US: 
> 
> [3] [4] 
> 
> DE:
forum.help400-boun...@listas.combios.es
[mailto:forum.help400-boun...@listas.combios.es] EN NOMBRE DE FERNANDO
MURU ADURIZ
> ENVIADO EL: martes, 21 de marzo de 2017 17:21
> PARA:
forum.help400
> ASUNTO: RE: Pregunta absurda 
> 
> Hola, 
> 
> De hecho,
nosotros tenemos algún programa en el que se hizo eso… por reaprovechar
el programa original. 
> 
> Pero en mi caso, es en COBOL. 
> 
> Siempre
que no se intente 'visualizar' el subfile, te debería funcionar, ya que
actúa como un fichero relativo… es decir, tienes que poner el SFLDSP en
deshabilitado. 
> 
> Saludos, 
> 
> F.Muru 
> 
> DE:
forum.help400-boun...@listas.combios.es
[mailto:forum.help400-boun...@listas.combios.es] EN NOMBRE DE Dpto.
Informática (José Sánchez)
> ENVIADO EL: martes, 21 de marzo de 2017
16:47
> PARA: forum.help400
> ASUNTO: Pregunta absurda 
> 
> Buenas
tardes, aunque imagino la respuesta: 
> 
> Tengo un proceso interactivo,
con pantalla, que permite imprimir el contenido de un SFL leyéndolo.
Parametrizando el proceso no muestro por pantalla nada, solo carga el
SFL y lo imprime. Pero…. Al mandarlo a Batch da error al cargar el SFL,
lógico. 
> 
> Es un proceso con mucho cálculo y no quería modificarlo
mucho, ¿hay alguna posibilidad de que me permita cargar un sfl en Batch?
Condiciono los exfmt, pero el write al sfl no puedo si después quiero
leerlo. 
> 
> Gracias 
> 
> JOSÉ SÁNCHEZ 
> 
> DPTO.INFORMÁTICA 
> 
>
PRODUCTOS CLIMAX,
S.A    
> 
> Pol.
Ind. Sector Mollet C/Llobregat Nº 1 
> 
> 08150 - Parets del Valles
(Barcelona) 
> 
> Teléfono: +34 935621311 
> 
> Fax: +34 935621413 
> 
>
www.productosclimax.com [2] 
> 
> FOLLOW US: 
> 
> [3] [4] 
> 
> NOTA DE
CONFIDENCIALIDAD 
> 
> Este mensaje se envía desde el sistema de correo
electrónico de la empresa PRODUCTOS CLIMAX, S.A.. Podría contener por lo
tanto secretos de empresa y otra información confidencial tutelados por
las leyes de la Unión Europea y otros Estados. Si Vd. lo recibiera por
error o sin ser una de las personas indicadas en el encabezamiento,
deberá destruirlo sin copiarlo ni revelarlo o cualquier otra acción
relacionada con el contenido del mensaje e informar inmediatamente por
correo electrónico al emisor del mensaje. Las personas y entidades que
violen sus deberes de confidencialidad podrán ser perseguidas ante los
Tribunales de Justicia al amparo de la legislación civil, penal y
administrativa nacional e internacional. Gracias por su colaboración. 
>

> POLÍTICA DE PRIVACIDAD 
> 
> En base a la Ley 34/2002 de Servicios de
la Sociedad de la Información y de Comercio Electrónico (LSSICE), en
vigor desde el 12 de octubre de 

Re: Necesito una ayudita con los subprocedimientos :-)

[Juan Carlos Paredes Castañón]

 

Puedes hacer que el subprocedimiento devuelva un valor indicando si
tiene que salir o no. Y al retornar, en función de ese valor, haces la
salida. 

Saludos 

Juan Carlos. 

El 15/03/2017 10:13, ostatu ostatu
escribió: 

> Hola.
> 
> Estoy empezando a utilizar los
subprocedimientos en vez de las "clasicas" subrutinas y me acabo de
encontrar con un problema que no soy capaz de resolver.
> 
> Cuando
trabajo con subrutinas y deseo finalizar el programa puedo codificar un
*inLR = *on y un Return en cualquier parte y el programa finaliza, pero
si intendo hacer los mismo en un subprocedimiento no hay manera de que
el programa finalize inmediatamente :-(
> 
> Este es el pgm de
ejemplo.
> 
> H DFTACTGRP(*NO) 
> 
> /free 
> 
> dsply 'inicio main' ;
>
sub1() ; 
> dsply 'final main' ;
> 
> *inLR = *on ; 
> Return ; 
> 
>
/end-free 
> 
> p sub1 b 
> d pi 
> /free 
> dsply 'inicio sub1' ; 
>
finalizar_pgm() ; 
> dsply 'final sub1' ; 
> /end-free 
> p e 
> * 
> p
finalizar_pgm b 
> d pi 
> /free 
> dsply 'inicio finalizar_pgm' ;
>
*inLR = *on ; 
> Return ; 
> dsply 'final finalizar_pgm' ;
> /end-free

> p e 
> 
> He probado a llamar a una subrutina desde el
subprocedimiento (Exsr) para hacer el LR y el Return pero al compilador
no le ha gustado con lo que deduzco que no se pueden hacer Exsr dentro
de los subprocedimientos ...
> 
> ¿Alguna idea de como solucionar el
problema?
> 
> Saludos Ostatu
> 
>

> Únete a Recursos
AS400, nuestra Comunidad ( http://bit.ly/db68dd [1] )
> Forum.Help400
(c) Publicaciones Help400, S.L.

-- 
url: http://www.paredes.info
mail:
juancar...@paredes.info
 

Links:
--
[1] http://bit.ly/db68dd

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

RE: Opciones del cursor

[Juan Carlos Paredes Castañón]

 

Efectivamente. Esa opción lo que hace es cerrar todos los cursores
en el momento que finaliza el módulo activo. El valor por defecto es
*ENDACTGRP que sólo cierra los cursores cuando se finaliza el grupo de
activación. Se lo estás ejecutando en el grupo de activación por
defecto, no te los cierra. 

Otra opción es, cuando vas a abrir el
cursor, si ya se lo encuentra abierto devuelve un SqlCode (que de
memoria no me sé, sinceramente) podrías comprobarlo y en caso de ser así
cerrar y volver a abrir el cursor. 

Saludos. 

Juan Carlos. 

El
02/03/2017 16:13, González Torrejón escribió: 

> Entiendo que con la
opción de compilación: 
> 
> Cerrar cursor SQL . . . . . . . CLOSQLCSR
*ENDMOD 
> 
> JAVIER GONZÁLEZ TORREJÓN 
> 
> Dpto. de Desarrollo 
> 
>
jgonza...@agroseguro.es 
> 
> C/Gobelas, 23 
> 
> 28023 MADRID 
> 
>
Tfno.: 918373200-902010193 
> 
> Fax.: 918373232 
> 
> AVISO
> Este
mensaje es personal, y podría contener información confidencial o
legalmente protegida. Si usted no es el destinatario del mismo, o la
transmisión ha resultado defectuosa, le rogamos que nos lo comunique a
la mayor rapidez y lo destruya junto a sus copias. Gracias por su
colaboración. 
> 
> POR FAVOR, ANTES DE IMPRIMIR ESTE CORREO
ELECTRÓNICO, CONSIDERE SU APORTACIÓN A LA CONSERVACIÓN DEL MEDIO
AMBIENTE POR LA REDUCCIÓN DE CONSUMO DE PAPEL. GRACIAS POR SU
COLABORACIÓN. 
> 
> DE: forum.help400-boun...@listas.combios.es
[mailto:forum.help400-boun...@listas.combios.es] EN NOMBRE DE Juan
Carlos O.
> ENVIADO EL: jueves, 2 de marzo de 2017 16:14
> PARA:
forum.help400
> ASUNTO: Opciones del cursor 
> 
> Buenas tardes.
> 
> En
un programa RPG tengo declarado un cursor, despues el open, el bucle de
lectura y por ultimo close. Hasta aquí muy bien. Si este proceso da un
error y se ejecuta otra vez el cursor va a seguir por donde estaba.
Es un error/problema muy tipico y aquí es donde enlazo mi pregunta. Hay
alguna forma de indicar en el declare u open que limpie el cursor y
empiece desde 0. Similar a hacer un *Replace de un fichero. Quiero que
olvide por donde iba, que ejecute la select y empiece desde el primer
registro.
> 
> Muchisimas gracias por vuestra atención.
> 
> Saludos. 
>

> 
> Únete a
Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd [1] )
>
Forum.Help400 (c) Publicaciones Help400, S.L.

-- 
url:
http://www.paredes.info
mail: juancar...@paredes.info



Links:
--
[1] http://bit.ly/db68dd

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

Oferta de empleo

[Juan Carlos Paredes Castañón]

 

Por si a alguien le interesa:


http://www.infojobs.net/leon/analista-programador-iseries/of-i6461ec6f7b4ee1825f12a9158a2ee2?applicationOrigin=search-new


Un saludo. 

Juan Carlos. 

-- 
url: http://www.paredes.info
mail:
juancar...@paredes.info
 
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: EMPRESA VIRTUAL SERVICIOS AS400

[Juan Carlos Paredes Castañón]

 

En principio, la idea me gusta. Sólo le veo un "pequeño"
inconveniente. La crisis (aunque en mi caso creo que habría que
calificarlo de otra forma) se llevó mi puesto de trabajo, el de todos
mis compañeros y la empresa al completo. Quiero con esto decir que, en
el último año y medio, me he tenido que buscar la vida para encontrar
trabajo y, afortunadamente, lo he conseguido. 

Y en ese tiempo de
búsqueda de trabajo, he detectado que el perfil de la empresa que
trabaja en entorno AS ha cambiado mucho. Ya no hablamos de medianas
empresas. Estamos hablando de grandes monstruos: Banca, Seguros,
multinacionales ... Empresas que, además, tienen integrados distintos
entornos (Java, DB2, Oracle, SAP, ...) 

Y ahí, precisamente, es donde
está el "pequeño" inconveniente. En ese mundo habría que entrar a
competir con las grandes consultoras. Hablo de empresas del tipo Cap
Gemini, RandStad, etc. Y, francamente, lo veo complicado. 

Un saludo.


Juan Carlos. 

El 14/01/2017 10:40, Juan Pelaez escribió: 

> buenos
días, 
> 
> Quería compartir con vosotros una idea que tengo desde hace
tiempo y que tampoco se si sería factible pero lo comento por si fuera

> 
> del interés de alguien y, asi de paso, ver vuestras opiniones
.. 
> 
> Supongo que, como a muchos de vostros, esta crisis se ha
llevado por delante buena parte del trabajo que parecía inagotable 
> 
>
hace unos años, en mi caso pasé de una situación de no dar abasto a ya
prácticamente limitarme a migraciones de e AS400 a 
> 
> otras
plataformas, los clientes de " toda la vida " de AS400 han preferido
migrar a ERPS o a otras soluciones. Esto me ha llevado 
> 
> a tener que
ponerme a "estudiar" de nuevo otros lenguajes y plataformas y tratar de
seguir por otro camino ( MALDITA LA GRACIA )  
> 
> Pero no me
resigno a pensar que toda esa experiencia, conocimientos, software
desarrollado . ya no sirvan para nada ni para nadie 
> 
> tiene que
haber en algún lugar alguien ( empresas ) que precisaran profesionales
de este entorno. Es por esto que, visto lo visto, se me ocurre 
> 
> que
se podría formar una "empresa virtual" o lo que sea donde se pudiera
agrupar todo aquel que estuviera en una situación similar donde 
> 
> se
podrían ofrecer todo tipo de servicios relacionados con el AS400 ( en mi
caso con una maquina actualmente parada y unas oficinas disponibles ),

> 
> en esta era de la comunicación donde no hace falta ir a las
empresas donde con_ INTERNET se arregla CASI todo no veo por que no se
podría afrontar_ 
> 
> _un proyecto como este. Pienso en una minúscula
cuota que nos permitiría crear y mantener una pagina web y otros
servicios COMERCIALES para_ 
> 
> _la captación de clientes ._ 
> 
>
_No se que pensáis o que problemas le veis a ESTO, me gustaría que lo
comentarais para ver los pros pero, sobre todo, los CONTRAS !!!_ 
> 
> _
_ 
> 
> _Muchas gracias y perdonad el ROLLO_ 
> 
> _ _ 
> 
> _Juan
Pelaez - ISGAL_ 
> 
> _info@isgal.com_ 
> 
> _610 284 683_ 
> 
>
-
> 
> [2]
> 
> El software de antivirus Avast
ha analizado este correo electrónico en busca de virus. 
> www.avast.com
[2] 
> 
> 
> Únete a
Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd [1] )
>
Forum.Help400 (c) Publicaciones Help400, S.L.

-- 
url:
http://www.paredes.info
mail: juancar...@paredes.info



Links:
--
[1] http://bit.ly/db68dd
[2]
https://www.avast.com/antivirus

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

Oferta de Empleo

[Juan Carlos Paredes Castañón]

 

Buenos días, compañeros: 

Necesitamos incorporar, con cierta
urgencia, un Analista Programador en entorno iSeries, en nuestro centro
ubicado en el Parque Tecnológico de León. 

Es un proyecto a largo plazo
para un importante cliente multinacional. 

Imprescindible experiencia
en RPG III, RPG IV, ILE y Free, DB2/400 y SQL. Valorable conocimentos y
experiencia en COBOL. 

Para no saturar el foro, por favor, no
respondáis a este correo. Los interesados enviadme el CV a
jcpare...@setta.es 

Un saludo. 

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

RE: Trigger y Rollback RESUELTO

[Juan Carlos Paredes Castañón]

 

Como simple curiosidad y por si os sirve en lo sucesivo a alguien.
Ya he conseguido que funcione. Era un problema de la compilación. Si se
compila con grupo de activación *CALLER, sí tiene en cuenta el rollback.


Gracias. 

Juan Carlos. 

El 10/11/2016 09:20, Pinedo Hernandez, Pedro
escribió: 

> La tabla del log, ¿está bajo control de compromiso, y sin
comit en el trigger? 
> 
> Si no está bajo control de compromiso el
rollback no le afecta, y si tiene un comit propio, tampoco. 
> 
> _Pedro
Pinedo Hernandez._ 
> 
> _Tlf.: 669377219_ 
> 
>
_Pedro.Pinedo@hotmail.com_ 
> 
> FROM:
forum.help400-boun...@listas.combios.es
[mailto:forum.help400-boun...@listas.combios.es] ON BEHALF OF Juan
Carlos Paredes Castañón
> SENT: jueves, 10 de noviembre de 2016 9:04
>
TO: Forum Help 400 <forum.help400@listas.combios.es>
> SUBJECT: Trigger
y Rollback 
> 
> Buenos días, compañeros: 
> 
> Tengo una tabla a la que
le he asociado un trigger para llevar un log de todas las
actualizaciones que se producen en ella. Esta tabla se actualiza, entre
otras cosas, por aplicaciones externas (Web) que trabajan con control de
compromiso. La cuestión es que, por lo que he podido probar, si se hace
un Insert en la tabla, salta el trigger y registra el alta. Si embargo,
si posteriormente el programa que trabaja con control de compromiso hace
un rollback, el trigger no se activa. 
> 
> Esto supone que en el log
figura una inserción de un registro que realmente no existe en la tabla.

> 
> ¿Alguna idea al respecto? 
> 
> Gracias. 
> 
> Juan Carlos. 
> 
>
-- 
> url: http://www.paredes.info [1]
> 
> mail:
juancar...@paredes.info
> 
>

> Únete a Recursos
AS400, nuestra Comunidad ( http://bit.ly/db68dd [2] )
> Forum.Help400
(c) Publicaciones Help400, S.L.

-- 
url: http://www.paredes.info
mail:
juancar...@paredes.info
 

Links:
--
[1] http://www.paredes.info
[2]
http://bit.ly/db68dd

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

Re: Trigger y Rollback

[Juan Carlos Paredes Castañón]

 

El tema es que no sólo hace el log. Hace más cosas. Puse sólo lo del
log porque es donde me afecta el rollback. 

El 10/11/2016 09:30, Alex
Martínez escribió: 

> Hola 
> 
> Yo creo que es un error llevar un log
de la tabla con un trigger; para eso ya tienes el journal o registro por
diario y el motivo es lo que nos estás explicando: no se activa ningún
trigger si hacen un rollback en la tabla. 
> 
> Puedes ver la entradas
afectadas por el rollback con un DSPJRN JRN("diario") JRNCDE((R))
ENTTYP(DR) 
> 
> El 10 de noviembre de 2016, 9:03, Juan Carlos Paredes
Castañón <juancar...@paredes.info> escribió:
> 
>> Buenos días,
compañeros: 
>> 
>> Tengo una tabla a la que le he asociado un trigger
para llevar un log de todas las actualizaciones que se producen en ella.
Esta tabla se actualiza, entre otras cosas, por aplicaciones externas
(Web) que trabajan con control de compromiso. La cuestión es que, por lo
que he podido probar, si se hace un Insert en la tabla, salta el trigger
y registra el alta. Si embargo, si posteriormente el programa que
trabaja con control de compromiso hace un rollback, el trigger no se
activa. 
>> 
>> Esto supone que en el log figura una inserción de un
registro que realmente no existe en la tabla. 
>> 
>> ¿Alguna idea al
respecto? 
>> 
>> Gracias. 
>> 
>> Juan Carlos. 
>> 
>> -- 
>> url:
http://www.paredes.info [1]
>> mail: juancar...@paredes.info
>> 
>>

>> Únete a Recursos
AS400, nuestra Comunidad ( http://bit.ly/db68dd [2] )
>> Forum.Help400
(c) Publicaciones Help400, S.L.
> 
>

> Únete a Recursos
AS400, nuestra Comunidad ( http://bit.ly/db68dd [2] )
> Forum.Help400
(c) Publicaciones Help400, S.L.

-- 
url: http://www.paredes.info
mail:
juancar...@paredes.info
 

Links:
--
[1] http://www.paredes.info
[2]
http://bit.ly/db68dd

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

RE: Trigger y Rollback

[Juan Carlos Paredes Castañón]

 

La tabla del log la tengo definida así: 

FLOGMMPP UF A E K Disk
USROPN 
F Commit(RunCommit) 

Y posteriormente, en el cálculo, en
función del nivel de compromiso con que haya saltado el trigger, hago
esto: 

** Si el trigger salta con control de compromiso lo activamos.

Eval RunCommit = *Off;
If DBCMTLCK > '0';
 Eval RunCommit = *On;
EndIf;


Sobre esa tabla, en el programa trigger, no se ejecuta ningún commit o
rollback. 

El 10/11/2016 09:20, Pinedo Hernandez, Pedro escribió: 

>
La tabla del log, ¿está bajo control de compromiso, y sin comit en el
trigger? 
> 
> Si no está bajo control de compromiso el rollback no le
afecta, y si tiene un comit propio, tampoco. 
> 
> _Pedro Pinedo
Hernandez._ 
> 
> _Tlf.: 669377219_ 
> 
> _Pedro.Pinedo@hotmail.com_ 
>

> FROM: forum.help400-boun...@listas.combios.es
[mailto:forum.help400-boun...@listas.combios.es] ON BEHALF OF Juan
Carlos Paredes Castañón
> SENT: jueves, 10 de noviembre de 2016 9:04
>
TO: Forum Help 400 <forum.help400@listas.combios.es>
> SUBJECT: Trigger
y Rollback 
> 
> Buenos días, compañeros: 
> 
> Tengo una tabla a la que
le he asociado un trigger para llevar un log de todas las
actualizaciones que se producen en ella. Esta tabla se actualiza, entre
otras cosas, por aplicaciones externas (Web) que trabajan con control de
compromiso. La cuestión es que, por lo que he podido probar, si se hace
un Insert en la tabla, salta el trigger y registra el alta. Si embargo,
si posteriormente el programa que trabaja con control de compromiso hace
un rollback, el trigger no se activa. 
> 
> Esto supone que en el log
figura una inserción de un registro que realmente no existe en la tabla.

> 
> ¿Alguna idea al respecto? 
> 
> Gracias. 
> 
> Juan Carlos. 
> 
>
-- 
> url: http://www.paredes.info [1]
> 
> mail:
juancar...@paredes.info
> 
>

> Únete a Recursos
AS400, nuestra Comunidad ( http://bit.ly/db68dd [2] )
> Forum.Help400
(c) Publicaciones Help400, S.L.

-- 
url: http://www.paredes.info
mail:
juancar...@paredes.info
 

Links:
--
[1] http://www.paredes.info
[2]
http://bit.ly/db68dd

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

Trigger y Rollback

[Juan Carlos Paredes Castañón]

 

Buenos días, compañeros: 

Tengo una tabla a la que le he asociado
un trigger para llevar un log de todas las actualizaciones que se
producen en ella. Esta tabla se actualiza, entre otras cosas, por
aplicaciones externas (Web) que trabajan con control de compromiso. La
cuestión es que, por lo que he podido probar, si se hace un Insert en la
tabla, salta el trigger y registra el alta. Si embargo, si
posteriormente el programa que trabaja con control de compromiso hace un
rollback, el trigger no se activa. 

Esto supone que en el log figura
una inserción de un registro que realmente no existe en la tabla.


¿Alguna idea al respecto? 

Gracias. 

Juan Carlos. 

-- 
url:
http://www.paredes.info
mail: juancar...@paredes.info
 
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

RE: Edición de fechas como dd/mm/aaaa en DDS.

[Juan Carlos Paredes Castañón]

 

Yo utilizo el formato *EUR. Al usuario, realmente, le resulta
transparente, ya que no necesita teclear los separadores. 

Un saludo.


Juan Carlos. 

El 20/09/2016 10:22, Lazaro Matas - Jose Ignacio
escribió: 

> Mi intención es cambiar el tratamiento que actualmente
hago de fechas como números de 8, editados con EDTWRD(' / / ') por
campos de tipo fecha. El tratamiento en el programa es mucho más cómodo,
pero tenemos todas las fechas como dd/mm/, pretendía hacer el cambio
sin alterar la costumbre del usuario, pero IBM solo ofrece en DATFMT:
*EUR (dd.mm.) que no permite DATSEP o *DMY (dd/mm/yy) y no *DMYY que
me vendía muy bien. 
> 
> Me surge otra pregunta ¿cómo editáis las
fechas?.
> 
> Gracias por vuestras respuestas.
> 
> - Este mensaje y los
documentos que, en su caso, lleve anexos, pueden contener información
confidencial. Por ello, se informa a quien lo reciba por error que la
información contenida en el mismo es reservada y su uso no autorizado
está prohibido legalmente, por lo que en tal caso le rogamos que nos lo
comunique por la misma vía, se abstenga de realizar copias del mensaje o
remitirlo o entregarlo a otra persona, procediendo a borrarlo de
inmediato.
> 
> "CONSUM, S.COOP.V." con domicilio en la Avda. Alginet,
nº 1, 46460, Silla (Valencia) es responsable de un tratamiento en el que
son almacenados los datos personales contenidos en esta comunicación con
el fin de gestionar las comunicaciones electrónicas, almacenar los
correos en el histórico de comunicaciones y, si fuera necesario
monitorizar el mensaje y archivos adjuntos por motivos de seguridad y
prevención de virus. 
> Asimismo, dichos datos y otros de contacto que
el interesado haya proporcionado a través de su tarjeta de visita u
otros medios, serán incluidos en el directorio de contactos de la
entidad para mantenimiento de la relación comercial. Los interesados
pueden ejercitar sus derechos de acceso, rectificación, cancelación y
oposición dirigiéndose por escrito a "CONSUM, S.COOP.V." en la dirección
indicada o en aquella que la sustituya y se comunique en el Registro
General de Protección de Datos. 
> La inclusión en esta comunicación de
datos personales de terceros, queda limitada a datos actuales y veraces
y requiere con carácter previo informar y solicitar el consentimiento a
dichos terceros para el tratamiento de sus datos conforme los extremos
contenidos en el presente aviso. Con el fin de mantener los datos
actualizados, los interesados pueden comunicar a "CONSUM, S.COOP.V." en
la dirección indicada cualquier variación de sus datos, así como el cese
de su actividad en la entidad a la que pertenecen.
> 
> - Este missatge
i els documents que, si és el cas, porte annexos, poden contindre
informació confidencial. Per això, s'informa a qui el reba per error que
la informació continguda en el mateix és reservada i el seu ús no
autoritzat està prohibit legalment, pel que en este cas li preguem que
ens ho comunique per la mateixa via, s'abstinga de realitzar còpies del
missatge o remetre'l o entregar-lo a una altra persona, procedint a
esborrar-lo immediatament.
> 
> "CONSUM, S.COOP.V." amb domicili en
l'Av. Alginet, núm. 1, 46460, Silla (València) és responsable d'un
tractament en què són emmagatzemats les dades personals contingudes en
esta comunicació a fi de gestionar les comunicacions electròniques,
emmagatzemar els correus en l'històric de comunicacions i, si fóra
necessari monitoritzar el missatge i arxius adjunts per motius de
seguretat i prevenció de virus. 
> Així mateix, tals dades i altres de
contacte que l'interessat haja proporcionat a través de la seua targeta
de visita o altres mitjans, seran inclosos en el directori de contactes
de l'entitat per a manteniment de la relació comercial. Els interessats
poden exercitar els seus drets d'accés, rectificació, cancel·lació i
oposició dirigint-se per escrit a "CONSUM, S.COOP.V." en l'adreça
indicada o en aquella que la substituïsca i es comunique en el Registre
General de Protecció de Dades.
> La inclusió en esta comunicació de
dades personals de tercers, queda limitada a dades actuals i veraces i
requerix amb caràcter previ informar i sol·licitar el consentiment a
dits tercers per al tractament de les seues dades conforme els extrems
continguts en el present avís. A fi de mantindre les dades
actualitzades, els interessats poden comunicar a "CONSUM, S.COOP.V." en
l'adreça indicada qualsevol variació de les seues dades, així com el
cessament de la seua activitat en l'entitat a qual pertanyen.
> 
>

> Únete a Recursos
AS400, nuestra Comunidad ( http://bit.ly/db68dd [1] )
> Forum.Help400
(c) Publicaciones Help400, S.L.

-- 
url: http://www.paredes.info
mail:
juancar...@paredes.info
 

Links:
--
[1] http://bit.ly/db68dd

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

Re: Websphere development y compañía

[Juan Carlos Paredes Castañón]

 

Pues sí. El WDSC ha desaparecido, creo que en la versión 6 del SO.
Se sustituyó por el Rational Developer for I, que es de pago. 

Un
saludo. 

Juan Carlos 

El 15/07/2016 09:40, alberto escribió: 

> Hola
Foro. 
> Recientemente he estado buscando el Websphere Development
Studio Client para Iseries, para editar mis programas en entorno visual,
y cuando he conseguido llegar al sitio de descarga, (Madre mía, IBM se
superan cada vez que cambian la web. Yo creo que sacarán una nueva
profesión que sea Técnico en buscar cosas en la Web de IBM) me muestra
el programa en una versión 7.0(Esta se publicó igual hace 6 o 7 años) y
luego no deja descargarlo. 
> Sabéis si se ha discontinuado? 
> Sabéis
si hay algo que lo sustituya? 
> Si alguien se ha comprado un Iseries
hace poco...qué software proporcionan para editar programas, pantallas,
PRTF...? 
> Gracias 
> 
>

> Únete a Recursos
AS400, nuestra Comunidad ( http://bit.ly/db68dd [1] )
> Forum.Help400
(c) Publicaciones Help400, S.L.

-- 
url: http://www.paredes.info
mail:
juancar...@paredes.info
 

Links:
--
[1] http://bit.ly/db68dd

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

Impresora XPS con AFPDS

[Juan Carlos Paredes Castañón]

 

Buenas tardes compañeros: 

Me encuentro con un "pequeño" problema.
Accedemos al sistema del cliente a traves de una máquina virtual Citrix.
Estamos absolutamente capados en ella, de forma que no tengo manera de
configurar una impresora (ni siquiera PDF). La única que tengo
configurada es la XPS de Microsoft. 

Me he creado una sesión de
emulación de impresora apuntando a esta impresora y los listados
"normales" funcionan perfectamente. Me genera el fichero XPS y con el
propio lector de Office, puedo verlos sin problema. El problema viene
cuando el documento tiene funciones AFP. En ese momento, al liberar el
archivo en spool, me lo retiene con el siguiente mensaje: 

CPI3379 - EL
TRANSCRIPTOR X NO PUEDE REDIRIGIR EL ARCHIVO FACTURA AL DISPOSITIVO
X. 

_El transcriptor X no ha podido redirigir el archivo
__FACTURA número 48 trabajo NN/X/Y creado en el sistema
__SS en 15/06/16 17:43:59 al dispositivo X. Los datos de la
__corriente de datos de impresión de función avanzada (AFPDS) no pueden
__convertirse al formato requerido para producir el archivo en ese
__dispositivo._ 

¿Alguna idea al respecto de cómo configurar esa
emulación para que soporte AFPDS? 

-- 
url:
http://www.paredes.info
mail: juancar...@paredes.info
 
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: El RPGLE LLEGA A SU FINAL?

[Juan Carlos Paredes Castañón]

 

No sólo no se muere, sino que hay abundante demanda. 

Eso sí, al
menos en España, sólo en las grandes ciudades (Madrid y Barcelona). Por
desgracia, me ha tocado moverme en el último año buscando trabajo y he
encontrado dos en tan sólo 6 meses. Sigo recibiendo casi a diario
ofertas y cada X tiempo me llaman de alguna consultora que tiene mi CV
porque necesitan desarrolladores de AS/400. 

Lo que sí ha cambiado,
creo, es el perfil de las empresas que buscan expertos en nuestro
entorno. Si hace unos años (muchos, para ser exactos) había un montón de
medianas empresas que tenían AS/400, el desarrollo de los servidores
Windows, Oracle, Sql Server, etc. ha hecho que de esas prácticamente no
quede ninguna. Hoy son grandes monstruos (bancos, aseguradoras, grandes
multinacionales, etc.) las que continúan trabajando en AS/400. Y muchas
de ellas, además de RPG, tienen importantes desarrollos en COBOL, por lo
que, al menos a mí, no me ha quedado más opción que desempolvar mis
conocimientos de COBOL y ponerme manos a la obra. 

Y, por supuesto,
ganando cerca de un 20% menos. 

Un saludo. 

Juan Carlos. 

>> El 8 de
junio de 2016, 13:55, Nacho Colado  escribió: 
>>

>>> ¡Hay que ver como pasa el tiempo! 
>>> 
>>> De 2010 data mi última
aportación al foro. Y el "Asunto" de este correo era al que respondía.

>>> 
>>> Pues no. No ha llegado a su final. 
>>> 
>>> De hecho hemos
contratado este último año a 3 nuevos desarrolladores RPG y tenemos 5
externos dándole "al tema". 
>>> 
>>> Espero no pasarme otros 6 años
mudo :-) 
>>> 
>>> -- 
>>> 
>>> Saludos, Nacho 400.

>>> Únete a
Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd [1] )
>>>
Forum.Help400 (c) Publicaciones Help400, S.L.
>> 
>>

>> Únete a Recursos
AS400, nuestra Comunidad ( http://bit.ly/db68dd [1] )
>> Forum.Help400
(c) Publicaciones Help400, S.L.
> 
>

> Únete a Recursos
AS400, nuestra Comunidad ( http://bit.ly/db68dd [1] )
> Forum.Help400
(c) Publicaciones Help400, S.L.

-- 
url: http://www.paredes.info
mail:
juancar...@paredes.info
 

Links:
--
[1] http://bit.ly/db68dd

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

Re: imprimir etiquetas en PDF

[Juan Carlos Paredes Castañón]

 

Por lo que veo en ese mensaje, es un problema del salvar activo. Te
está diciendo que no es capaz de alcanzar el punto de sincronización.
Revisa las anotaciones de trabajo porque supongo que habrá mensajes
anteriores. 

Un saludo. 

Juan Carlos. 

El 02/06/2016 20:25, Daniel
Bautista escribió: 

> Hola, alguien me podra ayudar al respecto... 
>
Al hacer un backup de archivos, me da el siguiente error: CPF377F 
> la
sentencia en el cl es: 
> 
> SAVOBJ OBJ(T13FPRO T14FPLA T08FCOD T88FGRP
T13LCCO + 
> T13FREL) LIB(SMPDATD) DEV(*SAVF) + 
> SAVF(/)
SAVACT(*SYNCLIB) + 
> DTACPR(*YES) 
> MONMSG MSGID(CPF3770) EXEC(GOTO
ERROR1) 
> MONMSG MSGID(CPF3701) EXEC(GOTO ERROR1) 
> 
> Habrá alguna
solucion??? 
> desde ya muchas gracias 
> 
> Daniel, Bautista 
> Santa
Fe Capital.- 
> 
> El Viernes, 27 de mayo, 2016 6:39:39, Fernando Idem
 escribió:
> 
> Si lo imprimo directamente desde
el as400. las impresoras las tenemos configuradas en el as400. 
> Voy a
intentar lo que dices a ver si se puede. 
> 
> Un saludo 
> 
> El 27 de
mayo de 2016, 11:03, Dpto. Informática (José Sánchez)
 escribió:
> 
>> Una pregunta Fernando,

>> 
>> ¿imprimes directamente en la Zebra o usando CA/400? 
>> 
>> Creo
que hace tiempo, usanco el CA400, cambie el puerto de salida del driver
de la impresora y la dirigi al del Pdfcreator y jurario que generaba un
pdf. 
>> 
>> Eso requiere un pc, dos impresoras configuradas, etc. 
>>

>> No se si lo recuerdo bien o es absurdo lo que te sugiero. 
>> 
>>
Saludos Cordiales 
>>   
>> JOSÉ SÁNCHEZ 
>> DPTO.
INFORMÁTICA 
>>
Productos Climax, S.A 
>> Pol. Ind. Sector Mollet C/A Nº 1 
>> 08150 -
Parets del Valles (Barcelona) 
>> Tlf: 93 562 13 11 - Fax: 93 562 14 13

>> www.productosclimax.com [2] 
>> 
>> DE:
forum.help400-boun...@listas.combios.es
[mailto:forum.help400-boun...@listas.combios.es] EN NOMBRE DE Fernando
Idem
>> ENVIADO EL: viernes, 27 de mayo de 2016 10:21
>> PARA:
forum.help400 
>> 
>> ASUNTO: Re: imprimir etiquetas en PDF 
>> 
>>
​Buenos días; 
>> 
>> A lo mejor yo estoy equivocado, yo no se que tipo
de spool os llega a vosotros, pero si te vas al spool que generas en la
etiqueta te genera esto 
>> 
>>
*---* 
>> 
>> ^XA

>> 
>> ^MCY 
>> 
>> ^XZ 
>> 
>> ^XA 
>> 
>> ^FWN^CFD,24^PW1320^LH0,0

>> 
>> ^CI0^PR2^MNY^MTT^MMT^MD0^PON^PMN^LRN 
>> 
>> ^XZ 
>> 
>> ^XA 
>>

>> ^MCY 
>> 
>> ^XZ 
>> 
>> ^XA 
>> 
>> ^DFR:TEMP_FMT.ZPL 
>> 
>> ^LRN

>> 
>> ^FO352,72^GFA,01456,01456,00052, 
>> 
>>
00,00,00,00,00,1860,3F871C

>> 
>>
07001C001C0071C00F07C018039C7FDCE00F07

>> 
>>
C01FE0,3FE71C07001C001C0071C01F87C0

>> 
>>
18039C7FDCE01F87C01FE0,3FE70807001C001C0021

>> 
>>
C039CFC018039C7FDCE039CFC01FE0,38F70007

>> 
>> .. 
>> 
>>
*---* 
>> 
>> Sigue
mas, evidentemente, pero esto pasarlo a PDF es un poco duro. Cuando esto
se imprime, la impresora lo traduce y sale la etiqueta con los logotipos
y lo que se haya impreso en ella. 
>> 
>> Saludos 
>> 
>> ​ 
>> 
>> El
27 de mayo de 2016, 7:45, alberto  escribió:

>> 
>>> Buenas. 
>>> Traducir el código, no, porque el código ZPL ya lo
estás generando tú. Como dice el compañero Pedro Pinedo, lo suyo sería
hacer dos ficheros. 
>>> A la vez que generas el ZPL que va a la
impresora, generas también un printer normal que pasas a PDF. 
>>> Salu2

>>> 
>>> De: Fernando Idem  
>>> Para:
"forum.help400"  
>>> Fecha: 26/05/2016
19:58 
>>> Asunto: Re: imprimir etiquetas en PDF 
>>> Enviado por:
forum.help400-boun...@listas.combios.es 
>>> 
>>>
-
>>> 
>>> buena pregunta; es una idea que
tengo, para que el usuario pueda ver que tipo de etiqueta se genera con
un articulo determinado. Evidentemente el spool es imposible ya que lo
que se vería serian los códigos ZPL. No seria hasta que se imprime por
la impresora cuando se ve la etiqueta. Me gustaría sacar por pdf, pero
claro tendría que traducir el código. Por lo que he visto por ahí, no
parece que sea muy posible. 
>>> 
>>> Un saludo 
>>> 
>>> El 26 de mayo
de 2016, 18:04, Juan Ramón Garcia  escribió:

>>> Hola Fernando:
>>> 
>>> Si estás imprimiendo directamente por la
Zebra, ¿porqué quieres generarla en pdf?.
>>> 
>>> Un saludo. 
>>>
Juanra
>>> 
>>> El 26 de mayo de 2016, 16:10, Fernando Idem
 escribió: 
>>> Buenos tardes; 
>>> 
>>> Lo
pregunto por si alguien lo ha hecho, estoy intentando imprimir una
etiqueta y generarla en PDF. Evidentemente el spool que se genera es
código zpl, estoy imprimiendo a una impresora zebra. No se si alguien lo
ha intentado o si se podría 

Re: OFF TOPIC.

[Juan Carlos Paredes Castañón]

 

Y yo diría más. ¿Sabes quiénes vamos a perder? LOS DE SIEMPRE 

El
25/05/2016 16:05, Rafael de Juan escribió: 

> el voto es secreto. 
>
Pero si quieres saber quien va a ganar, ya te lo digo: LOS DE SIEMPRE 
>

> El 23 de mayo de 2016, 21:32, Marcelo Diaz 
escribió:
> 
>> Aca hay muchos amigos españoles y quisiera tener una
idea de a quien van a votar
>> 
>> Marcelo
>> 
>>

>> Únete a Recursos
AS400, nuestra Comunidad ( http://bit.ly/db68dd [1] )
>> Forum.Help400
(c) Publicaciones Help400, S.L.
> 
>

> Únete a Recursos
AS400, nuestra Comunidad ( http://bit.ly/db68dd [1] )
> Forum.Help400
(c) Publicaciones Help400, S.L.

-- 
url: http://www.paredes.info
mail:
juancar...@paredes.info
 

Links:
--
[1] http://bit.ly/db68dd

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

¡Felices Fiestas!

[Juan Carlos Paredes Castañón]

 

A punto de acabar un año bastante más agitado de lo habitual en lo
profesional, quiero agradeceros a todos el espíritu de ayuda y
colaboración que desde hace años mantiene este foro. 

¡Que tengáis unas
muy felices fiestas en compañía de vuestros seres queridos! 

Juan
Carlos. 

-- 
url: http://www.paredes.info
mail:
juancar...@paredes.info
 
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: Llamado de programa con delay

[Juan Carlos Paredes Castañón]

 

Yo haría un proceso batch en el que crees un bucle que ejecute el
programa, haga un DLYJOB DLY(30) y vuelva arriba. Algo así: 

DCL
VAR() TYPE(*LGL) 

DOWHILE COND( = '0') 

 CALL PGM(PROGRAMA)
PARM() 

 DLYJOB DLY(30) 

ENDDO 

RETURN 

En la variable ,
desde el programa, le devuelves un '0' mientras quieras que siga
ejecutándose y un '1' cuando quieras que se salga. 

Un saludo. 

Juan
Carlos. 

El 27/11/2015 05:14, Joss DJ escribió: 

> Hola Foro,
> 
>
Reciban un cordial saludo y aprovecho para solicitar de nueva cuenta su
ayuda, alguno de ustedes me podría ilustrar como mandar llamar un
programa cada determinado tiempo¿? Es decir, necesito hacer el llamado a
un programa cada 30 segundos para actualizar cierta información en el
sistema.
> 
> De antemano gracias por el apoyo recibido. 
> 
> Saludos
Cordiales,
> José DJ. 
> 
>

> Únete a Recursos
AS400, nuestra Comunidad ( http://bit.ly/db68dd [1] )
> Forum.Help400
(c) Publicaciones Help400, S.L.

-- 
url: http://www.paredes.info
mail:
juancar...@paredes.info
 

Links:
--
[1] http://bit.ly/db68dd

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

Re: Parámetros variables en Mandato

[Juan Carlos Paredes Castañón]

 

La cuestión es que, el programa ya está definido con el *NOPASS y
hay un montón de programas que acceden a él, por lo que cambiar los
parámetros de entrada es complicado. 

Me haré otro programa que, en
función de esos datos que me indicas haga la llamada al que ya existe y
pondré éste como programa a ejecutar en el mandato. 

Gracias. 

Juan
Carlos. 

El 09/11/2015 11:02, Alex Martínez escribió: 

> Hola 
> 
>
Las 15 direcciones de correo las puede definir como char 50 por ejemplo

> 
> PARM KWD(EMAIL) TYPE(*CHAR) LEN(50) MIN(1) MAX(20)
PROMPT('Correo') 
> 
> El programa recibirá 1 PARÁMETRO de 1002 de
longitud ( 20 elementos de 50 char + 2 byte )... asi que no debes usar
*NOPASS sino definir una DS por ejemplo 
> 
> El "truco" es que los 2
primero bytes indican el numero de elementos pasados, es decir el numero
de direcciones de correo que has indicado en el mandato 
> 
> NOTE: The
values for a list parameter are passed consecutively, preceded by a
2-byte binary value that indicates the number of values entered in the
parameter by the user. 
> 
>
http://www-01.ibm.com/support/knowledgecenter/ssw_ibm_i_61/cl/parm.htm
[3] 
> 
> El 9 de noviembre de 2015, 10:18, Juan Carlos Paredes Castañón
<juancar...@paredes.info> escribió:
> 
>> Buenos días: 
>> 
>> Tengo un
programa RPG que recibe un número variable de parámetros (entre 2 y 17).
Concretamente, recibe una cola de salida y un texto obligatorios y hasta
15 direcciones de correo para enviarlo. Las 15 direcciones están
definidas con Options(*NOPASS) para que no sea necesario pasar más que
las que se van a usar. 
>> 
>> Quería hacer un mandato que invocara a
este programa, pero no tengo claro cómo definir los parámetros
variables. 
>> 
>> ¿Alguna idea? 
>> 
>> -- 
>> url:
http://www.paredes.info [1]
>> mail: juancar...@paredes.info
>> 
>>

>> Únete a Recursos
AS400, nuestra Comunidad ( http://bit.ly/db68dd [2] )
>> Forum.Help400
(c) Publicaciones Help400, S.L.
> 
>

> Únete a Recursos
AS400, nuestra Comunidad ( http://bit.ly/db68dd [2] )
> Forum.Help400
(c) Publicaciones Help400, S.L.

-- 
url: http://www.paredes.info
mail:
juancar...@paredes.info
 

Links:
--
[1] http://www.paredes.info
[2]
http://bit.ly/db68dd
[3]
http://www-01.ibm.com/support/knowledgecenter/ssw_ibm_i_61/cl/parm.htm

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

Parámetros variables en Mandato

[Juan Carlos Paredes Castañón]

 

Buenos días: 

Tengo un programa RPG que recibe un número variable
de parámetros (entre 2 y 17). Concretamente, recibe una cola de salida y
un texto obligatorios y hasta 15 direcciones de correo para enviarlo.
Las 15 direcciones están definidas con Options(*NOPASS) para que no sea
necesario pasar más que las que se van a usar. 

Quería hacer un mandato
que invocara a este programa, pero no tengo claro cómo definir los
parámetros variables. 

¿Alguna idea? 

-- 
url:
http://www.paredes.info
mail: juancar...@paredes.info
 
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: Diferencias entre VALUES, SPCVAL y SNGVAL

[Juan Carlos Paredes Castañón]

 

Te respondo de memoria. Si no estoy equivocado (que es posible
porque hace mucho que no toco ese tema), VALUES indica los posibles
valores que puede tener el parámetro, SPCVAL te permite definir valores
"especiales" tipo *NONE, *LIBL, etc. y SNGVAL indica que, si utilizas
alguno de los valores especiales, tiene que ser el único valor. Por
ejemplo, si tienes un parámetro que sea el nombre de la biblioteca,
podrías indicar varias bibliotecas, pero, en caso de usar *LIBL no
puedes introducir más valores. 

Un saludo. 

Juan Carlos. 

El
04/11/2015 13:01, Javier Mora escribió: 

> Hola a tod@s: 
> 
> estoy
adaptando una serie de mandatos CL de "producción propia" y me ha
surgido una duda con unas opciones del PARM, en concreto ¿qué diferencia
hay entre VALUES, SPCVAL y SNGVAL? Sinceramente, estoy algo oxidado con
este tema. 
> 
> He revisado la ayuda y el manual "CL Programming" pero
sigo sin aclarame. 
> 
> Otra cosa, ¿alguno de vosotros tiene dicho
manual en castellano? Me da igual la versión (cuanto más reciente
mejor). Mi inglés tiene algunas limitaciones y el de mi compañero es
nulo. 
> 
> Un saludo, 
> 
> Javier Mora 
> 
>

> Únete a Recursos
AS400, nuestra Comunidad ( http://bit.ly/db68dd [1] )
> Forum.Help400
(c) Publicaciones Help400, S.L.

-- 
url: http://www.paredes.info
mail:
juancar...@paredes.info
 

Links:
--
[1] http://bit.ly/db68dd

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

RE: Comando para observar objeto RPG

[Juan Carlos Paredes Castañón]

 

No me refería a eso, sino a las vistas de depuración: STRDBG y, con
suerte, está compilado con DBGVIEW(*SOURCE), DBGVIEW(*LIST),
DBGVIEW(*COPY) o DBGVIEW(*ALL). En cualquiera de estos casos, al depurar
el programa, puedes ver el fuente y saber qué parámetros (con sus
longitudes y tipos) tiene. 

Saludos. 

Juan Carlos. 

El 27/10/2015
19:08, Juan Gutierrez Ruiz escribió: 

> hola 
> pedo ver el numero de
parámetros , pero no el tipo y la longitud 
> 
> Visualizar Información
de Programa 
> 
> Programa . . . . . . . : MA8CIAS Biblioteca . . . . .
. : ADAM 
> Propietario . . . . . : QSECOFR 
> Atributo programa . . :
RPG 
> 
> Estadísticas del programa: 
> Número de parámetros . . . . . .
. . . . . . . . : 0 2 <<<- 
> Tamaño de
programa (bytes) . . . . . . . . . . . : 122880 
> Tamaño de espacio
asociado (bytes) . . . . . . . : 0 
> Tamaño almacenamiento estático
(bytes) . . . . . : 8144 
> Tamaño de almacenamiento automático (bytes)
. . : 0 
> Número de instrucciones MI . . . . . . . . . . . : 1001 
>
Número de entradas ODT . . . . . . . . . . . . . : 1405 
> Estado de
programa . . . . . . . . . . . . . . . : *USER 
> Dominio de programa .
. . . . . . . . . . . . . : *USER 
> Compiladorr . . . . . . . . . . . .
. . . . . . : 5722WDS V5R4M0 
> Primer release en el que puede
ejecutarse el 
> programa . . . . . . . . . . . . . . . . . . . : V5R4M0

> 
> -
> Date: Tue, 27 Oct 2015 18:03:15
+0100
> Subject: RE: Comando para observar objeto RPG
> From:
juancar...@paredes.info
> To: forum.help400@listas.combios.es
> 
> Mirar
a ver si tienes vista de depuración 
> 
> Enviado desde mi dispositivo
Samsung 
> 
>  Mensaje original 
> De: Juan Gutierrez
Ruiz  
> Fecha: 27/10/2015 17:46
(GMT+01:00) 
> Para: "forum.help400" ,
forum.help...@combios.es 
> Asunto: Comando para observar objeto RPG 
>

> hola Foro 
> 
> Algún programa donde pueda recuperar el fuente RPG IV
?? 
> o 
> como puedo saber los parámetros de un programa objeto RPG
IV
> no tengo le fuente
> 
> gracias y 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 [1] )
> Forum.Help400
(c) Publicaciones Help400, S.L.

-- 
url: http://www.paredes.info
mail:
juancar...@paredes.info
 

Links:
--
[1] http://bit.ly/db68dd

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

RE: Comando para observar objeto RPG

[Juan Carlos Paredes Castañón]

Mirar a ver si tienes vista de depuración 


Enviado desde mi dispositivo Samsung

 Mensaje original 
De: Juan Gutierrez Ruiz  
Fecha: 27/10/2015  17:46  (GMT+01:00) 
Para: "forum.help400" , 
forum.help...@combios.es 
Asunto: Comando para observar objeto RPG 

 hola Foro 
 
Algún programa donde pueda recuperar el fuente  RPG IV ?? 
o 
como puedo saber  los parámetros de un programa objeto RPG IV
no tengo le fuente
 
gracias y saludos
 
 
 
 
  
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: Oferta

[Juan Carlos Paredes Castañón]

 

Por eso en mi primer mensaje decía que se me enviara en un correo
privado. 

La verdad es que no me di cuenta de que, en este caso, el CV
venía del foro. 

Saludos. 

Juan Carlos. 

El 21/10/2015 13:27, Alex
Martínez escribió: 

> Lo de enviar vuestro CV al foro PUBLICO ¿os
parece buena idea? 
> 
> El 20 de octubre de 2015, 22:01, Juan Carlos
Paredes Castañón <juancar...@paredes.info> escribió:
> 
>> Le acabo de
reenviar tu CV a mi director. 
>> 
>> Un saludo 
>> 
>> Juan Carlos. 
>>

>> El 20/10/2015 21:42, Manuel Antonio Ramirez Raygada escribió: 
>>

>>> Buenas tardes Juan Carlos Paredes, 
>>> 
>>> Habiendo leido la
opcion de poder postular por un empleo en la empresa para la cual usted
se desempeña y teniendo los conocimientos de su requerimiento, les
remito mi curriculum vitae para su evaluacion correspondiente.
>>> 
>>>
Actualmente me encuentro en un proyecto en el Banco Internacional de la
ciudad de Quito - Ecuador hasta el 31 de octubre, fecha en que regreso a
la ciudad de Lima - Peru.
>>> 
>>> Espero poder tener una oportunidad de
mostrarle mis conocimientos profesionales y participar del staff de
profesionales.
>>> 
>>> En espera de sus comentarios,
>>> Manuel A.
Ramirez Raygada
>>> Analista de Sistemas - AS400 
>>> 
>>> _MANUEL A.
RAMIREZ RAYGADA_ 
>>> _ANALISTA DE SISTEMAS - AS400_ 
>>> 
>>> El 20 de
octubre de 2015, 12:20, Juan Carlos Paredes Castañón
<juancar...@paredes.info> escribió:
>>> 
>>>> Buenas tardes, Foro: 
>>>>

>>>> Llevo mucho tiempo sin participar y sin intervenir, por avatares
laborales. Desde mediados de septiembre estoy en una nueva empresa
(después de una serie de peripecias que no vienen al caso) 
>>>> 
>>>>
La cuestión es que mi nueva empresa me ha comunicado que necesitan a una
persona de AS/400 en La Coruña y me ha pedido que, si puedo, les
facilite datos de posibles candidatos. 
>>>> 
>>>> Así que, si alguno de
vosotros está interesado, enviadme un privado con vuestro CV para
hacérselo llegar a la dirección. 
>>>> 
>>>> Un saludo. 
>>>> 
>>>> Juan
Carlos Paredes. 
>>>> 
>>>> -- 
>>>> url: http://www.paredes.info
[1]
>>>> mail: juancar...@paredes.info
>>>> 
>>>>

>>>> Únete a
Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd [2] )
>>>>
Forum.Help400 (c) Publicaciones Help400, S.L.
>>> 
>>>

>>> Únete a
Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd [2] )
>>>
Forum.Help400 (c) Publicaciones Help400, S.L.
>> 
>> -- 
>> url:
http://www.paredes.info [1]
>> mail: juancar...@paredes.info
>> 
>>

>> Únete a Recursos
AS400, nuestra Comunidad ( http://bit.ly/db68dd [2] )
>> Forum.Help400
(c) Publicaciones Help400, S.L.
> 
>

> Únete a Recursos
AS400, nuestra Comunidad ( http://bit.ly/db68dd [2] )
> Forum.Help400
(c) Publicaciones Help400, S.L.

-- 
url: http://www.paredes.info
mail:
juancar...@paredes.info
 

Links:
--
[1] http://www.paredes.info
[2]
http://bit.ly/db68dd

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

Oferta

[Juan Carlos Paredes Castañón]

 

Buenas tardes, Foro: 

Llevo mucho tiempo sin participar y sin
intervenir, por avatares laborales. Desde mediados de septiembre estoy
en una nueva empresa (después de una serie de peripecias que no vienen
al caso) 

La cuestión es que mi nueva empresa me ha comunicado que
necesitan a una persona de AS/400 en La Coruña y me ha pedido que, si
puedo, les facilite datos de posibles candidatos. 

Así que, si alguno
de vosotros está interesado, enviadme un privado con vuestro CV para
hacérselo llegar a la dirección. 

Un saludo. 

Juan Carlos Paredes.


-- 
url: http://www.paredes.info
mail: juancar...@paredes.info
 
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: Oferta

[Juan Carlos Paredes Castañón]

 

Le acabo de reenviar tu CV a mi director. 

Un saludo 

Juan Carlos.


El 20/10/2015 21:42, Manuel Antonio Ramirez Raygada escribió: 

>
Buenas tardes Juan Carlos Paredes, 
> 
> Habiendo leido la opcion de
poder postular por un empleo en la empresa para la cual usted se
desempeña y teniendo los conocimientos de su requerimiento, les remito
mi curriculum vitae para su evaluacion correspondiente.
> 
> Actualmente
me encuentro en un proyecto en el Banco Internacional de la ciudad de
Quito - Ecuador hasta el 31 de octubre, fecha en que regreso a la ciudad
de Lima - Peru.
> 
> Espero poder tener una oportunidad de mostrarle mis
conocimientos profesionales y participar del staff de profesionales.
>

> En espera de sus comentarios,
> Manuel A. Ramirez Raygada
> Analista
de Sistemas - AS400 
> 
> _MANUEL A. RAMIREZ RAYGADA_ 
> _ANALISTA DE
SISTEMAS - AS400_ 
> 
> El 20 de octubre de 2015, 12:20, Juan Carlos
Paredes Castañón <juancar...@paredes.info> escribió:
> 
>> Buenas
tardes, Foro: 
>> 
>> Llevo mucho tiempo sin participar y sin
intervenir, por avatares laborales. Desde mediados de septiembre estoy
en una nueva empresa (después de una serie de peripecias que no vienen
al caso) 
>> 
>> La cuestión es que mi nueva empresa me ha comunicado
que necesitan a una persona de AS/400 en La Coruña y me ha pedido que,
si puedo, les facilite datos de posibles candidatos. 
>> 
>> Así que, si
alguno de vosotros está interesado, enviadme un privado con vuestro CV
para hacérselo llegar a la dirección. 
>> 
>> Un saludo. 
>> 
>> Juan
Carlos Paredes. 
>> 
>> -- 
>> url: http://www.paredes.info [1]
>> mail:
juancar...@paredes.info
>> 
>>

>> Únete a Recursos
AS400, nuestra Comunidad ( http://bit.ly/db68dd [2] )
>> Forum.Help400
(c) Publicaciones Help400, S.L.
> 
>

> Únete a Recursos
AS400, nuestra Comunidad ( http://bit.ly/db68dd [2] )
> Forum.Help400
(c) Publicaciones Help400, S.L.

-- 
url: http://www.paredes.info
mail:
juancar...@paredes.info
 

Links:
--
[1] http://www.paredes.info
[2]
http://bit.ly/db68dd

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

Re: Re[2]: REGUNTA

[Juan Carlos Paredes Castañón]

Con un savobj en el origen y rstobj en el destino.

Elvira_vazquez elvira_vazq...@edasnet.com wrote:


Ú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: Re[2]: REGUNTA

[Juan Carlos Paredes Castañón]

 

Efectivamente, estoy con Emilio. No es un mandato que haya
desaparecido (al menos hasta la versión 6.1, que es la última con la que
he trabajado) Revisa los programas instalados porque es fácil que te
falte algo. 

El 17/03/2015 10:43, LLagostera Vila, Emilio escribió: 


Yo diría que te falta instalar algún programa producto…. Compara lo que
hay en cada máquina con GO LICPGM opción 10. 
 
 DE:
forum.help400-boun...@listas.combios.es
[mailto:forum.help400-boun...@listas.combios.es] EN NOMBRE DE
Elvira_vazquez
 ENVIADO EL: martes, 17 de marzo de 2015 10:00
 PARA:
forum.help400
 ASUNTO: Re[2]: REGUNTA 
 
 Pregunta tonta: como copias
un comando??? 
 
 -
 
 -Mensaje
original-
 De: Fernando Campiño Cuetia
fernandoc...@gmail.com
 A: forum.help400
forum.help400@listas.combios.es
 Fecha: 16/03/2015 20:05
 Asunto:
Re: REGUNTA 
 
 Buenas. 
 
 Copialo desde el V5R4M0, y pruebalo.

 
 El 15 de marzo de 2015, 10:08, Elvira Vázquez
elvira_vazq...@edasnet.com escribió: 
 
 Hola Foro 
 

Trabajo con 3 AS diferentes cada uno con una versión de SO diferente:

 
 V5R4M0 
 
 V5R2M0 
 
 V5R4M5 
 
 En las dos
primeras tengo el comando CPYFRMPCD pero en el ultimo no existe. 


 Alguien sabe si esto es correcto y si hay otro comando que lo
reemplace?? 
 
 Gracias 
 
 THINKING ABOUT 
 
 YOUR
BUSINESS 
 
 Elvira Vázquez González 
 
 Administradora 


 Tel: (+34) 91 665 72 98 [1] 
 Fax: (+34) 91 616 93 26 [2] 


 elvira_vazq...@edasnet.com 
 
 www.edasnet.com [3] 
 

Este mensaje puede contener información confidencial sujeta al secreto
profesional, cuya divulgación no está permitida por la ley y está
dirigida únicamente para el uso de la persona destinataria. Si usted no
es la persona destinataria de este mensaje, por la presente se le
comunica que no debe usar, difundir, copiar de ninguna forma, ni
emprender ninguna acción en relación con ella. Si usted ha recibido este
mensaje por error, le rogamos que lo elimine, al igual que cualquier
copia del mismo, y que proceda a la eliminación de cualquier archivo
adjunto al mismo, y nos notifique este hecho de manera inmediata
mediante correo electrónico remitido a nuestra atención, o a través del
teléfono (+34) 91 665 72 98 [1]. Asimismo, le comunicamos que la
distribución, copia o utilización de este mensaje, o de cualquier
documento adjunto al mismo, cualquiera que fuera su finalidad, están
prohibidas por la ley.
 Le informamos, como destinatario de este
mensaje, que el correo electrónico y las comunicaciones por medio de
Internet no permiten asegurar ni garantizar la confidencialidad de los
mensajes transmitidos, así como tampoco su integridad o su correcta
recepción, por lo que el emisor no asume responsabilidad alguna por
tales circunstancias. Si no consintiese en la utilización del correo
electrónico o de las comunicaciones vía Internet, le rogamos nos lo
comunique y ponga en nuestro conocimiento de manera inmediata.
 This
message may contain confidential and privileged information, protected
from disclosure by law, and is intended only for the use of the
addressee named above. If you are not the intended recipient of this
message you are hereby informed that you must not use, disseminate, copy
it in any form or take any action in reliance on it. If you have
received this message in error please delete it and any attachments or
copies of it and notify the sender by reply e-mail or by phone (+34) 91
665 72 98 [1]. In such case, you are hereby notified that any
dissemination, distribution, copying or use of this message or any
attachments, for any purpose, is strictly prohibited by law.
 We
hereby inform you, as addressee of this message, that e-mail and
Internet do not guarantee the confidentiality, nor the completeness or
proper reception of the messages sent and, thus, the sender does not
assume any liability for those circumstances. Should you not agree to
the use of e-mail or to communications via Internet, you are kindly
requested to notify us immediately. 
 
 P 
 
 Antes de
imprimir este e-mail piense bien si es necesario hacerlo: El
medioambiente es cosa de todos 
 
 Before printing this e-mail
think well if you must: The environment is everyone's 
 

-
 
 [4] 
 
 El software de
antivirus Avast ha analizado este correo electrónico en busca de
virus.
 www.avast.com [4] 
 


 Únete a
Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd [5] )

Forum.Help400 (c) Publicaciones Help400, S.L.
 

-
 


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


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

-- 
url: http://www.paredes.info
mail:
juancar...@paredes.info
 

Links:
--
[1]

Re: Crear una carpeta en un PC desde un programa CL

[Juan Carlos Paredes Castañón]

 

MD 

Saludos. 

Juan Carlos. 

El 04/03/2015 11:26, Nacho López
escribió: 

 Buenos días,
 
 estoy haciendo un programa CL de AS400 y
necesito crear por código una carpeta en un directorio y ponerle de
nombre el nombre del trabajo.
 
 ¿Cómo o que comando debo usar para
crear esa carpeta?
 
 Gracias. 
 


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

-- 
url: http://www.paredes.info
mail:
juancar...@paredes.info
 

Links:
--
[1] http://bit.ly/db68dd

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

Re: Crear una carpeta en un PC desde un programa CL

[Juan Carlos Paredes Castañón]

 

Usa CPY a secas. Puedes acceder al PC en cuestión a través del QNTC,
siempre que tengas autorizaciones. 

Un saludo. 

Juan Carlos 

El
04/03/2015 12:23, Nacho López escribió: 

 Muchísimas gracias Juan
Carlos.
 
 Si me permites molestarte un poquito más ...
 
 ...
debo copiar en esa carpeta (o directorio) un archivo .ods que está
almacenado en otra ruta de un PC
 
 uso este comando CPYDOC
FROMDOC(FICHERO.ODS) + 
 FROMFLR(DIR1) TOFLR(DIR2) REPLACE(*YES)
 

DIR1 = Ruta origen (..) 
 DIR2 = Ruta destino (..) 
 
 ¿qué
estoy haciendo mal o no es el comando adecuado?.
 
 Perdona y muchas
gracias. 
 
 El 4 de marzo de 2015, 10:41, Juan Carlos Paredes
Castañón juancar...@paredes.info escribió:
 
 MD 
 
 Saludos.

 
 Juan Carlos. 
 
 El 04/03/2015 11:26, Nacho López escribió:

 
 Buenos días,
 
 estoy haciendo un programa CL de AS400 y
necesito crear por código una carpeta en un directorio y ponerle de
nombre el nombre del trabajo.
 
 ¿Cómo o que comando debo usar
para crear esa carpeta?
 
 Gracias. 
 


 Únete a
Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd [1] )

Forum.Help400 (c) Publicaciones Help400, S.L.
 
 -- 
 url:
http://www.paredes.info [2]
 mail: juancar...@paredes.info
 


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


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

-- 
url: http://www.paredes.info
mail:
juancar...@paredes.info
 

Links:
--
[1] http://bit.ly/db68dd
[2]
http://www.paredes.info

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

RE: Acceso NetServer

[Juan Carlos Paredes Castañón]

 

Hola, José. 

Yo cuando me he encontrado con problemas es cuando el
usuario de Windows y el del AS/400 son el mismo pero las contraseñas son
diferentes. 

Saludos. 

Juan Carlos. 

El 19/02/2015 10:20, escribió:


 Hola Javier, no tengo ninguno deshabilitado, incluso autorice al
usuario a esa carpeta. 
 
 Me da error CPE3401 que es Permiso
Denegado 
 
 De hecho si intento acceder por Windows desde un pc que
no coincide el usuario/ contraseña de Windows con el as400, solicita
contraseña, en cambio si coincide no hay problema. 
 
 En su dia lei
algo del inicio de sesión único para 5250, db2 web query, etc, pero ni
idea si todavía se usa. 
 
 Sigo peleando…… 
 
 Saludos Cordiales 


   
 
 JOSÉ SÁNCHEZ 
 
 RESPONSABLE DPTO.
INFORMÁTICA 
 

Productos Climax, S.A 
 
 Pol. Ind. Sector Mollet C/A Nº 1 
 
 08150
- Parets del Valles (Barcelona) 
 
 Tlf: 93 562 13 11 - Fax: 93 562 14
13 
 
 www.productosclimax.com [2] 
 
 No imprima este correo si no
es necesario 
 
 NOTA DE CONFIDENCIALIDAD 
 
 Este mensaje se envía
desde el sistema de correo electrónico de la empresa PRODUCTOS CLIMAX,
S.A.. Podría contener por lo tanto secretos de empresa y otra
información confidencial tutelados por las leyes de la Unión Europea y
otros Estados. Si Vd. lo recibiera por error o sin ser una de las
personas indicadas en el encabezamiento, deberá destruirlo sin copiarlo
ni revelarlo o cualquier otra acción relacionada con el contenido del
mensaje e informar inmediatamente por correo electrónico al emisor del
mensaje. Las personas y entidades que violen sus deberes de
confidencialidad podrán ser perseguidas ante los Tribunales de Justicia
al amparo de la legislación civil, penal y administrativa nacional e
internacional. Gracias por su colaboración. 
 
 POLÍTICA DE PRIVACIDAD

 
 En base a la Ley 34/2002 de Servicios de la Sociedad de la
Información y de Comercio Electrónico (LSSICE), en vigor desde el 12 de
octubre de 2002 y de la Ley Orgánica 15/1999 del 13/12/1999 de
Protección de Datos Personales, le comunicamos que su dirección de
correo electrónico forma parte de nuestro fichero automatizado, al
objeto de continuar enviándole ofertas de nuestros servicios y / o el
mantenimiento de las comunicaciones en nuestras relaciones
contractuales. En virtud de las Leyes antes mencionadas, tiene derecho
de oposición, acceso, rectificación y cancelación de sus datos. Le
recordamos que sus datos nunca son suministrados a terceros bajo ningún
concepto, siendo únicamente utilizados para el envío de nuestras
comunicaciones con Vd. 
 
 DE: forum.help400-boun...@listas.combios.es
[mailto:forum.help400-boun...@listas.combios.es] EN NOMBRE DE JAVIER
MOREDA FERNANDEZ
 ENVIADO EL: jueves, 19 de febrero de 2015 10:01

PARA: forum.help400
 ASUNTO: RE: Acceso NetServer 
 
 Buenos días, no
creo que el problema sea la contraseña. Son equipos distintos y pueden
tener diferentes contraseñas. Mas bien creo que el problema lo tienes
porque netserver desactiva los usuarios de 400 para el servicio. 
 

Entra por system i navigator y con botón derecho sobre i5/os Netserver
comprueba que no tengas los usuarios desahabilitados. 
 
 Saludos 


 DE: forum.help400-boun...@listas.combios.es
[mailto:forum.help400-boun...@listas.combios.es] EN NOMBRE DE
Dpto.Informática Productos Climax(Jose Sánchez)
 ENVIADO EL: jueves, 19
de febrero de 2015 9:51
 PARA: forum.help400
 ASUNTO: Acceso NetServer

 
 Buenas, se que este tema es recurrente en el foro pero por mas que
leo me estoy liando. 
 
 Estoy generando unos archivos CSV en
\homecomun [3]. con mi usuario funciona correctamente pero creo que
porque mi usuario/contraseña de Windows y el del As400 es el mismo. 


 ¿debe ser el mismo usuario/contraseña el de Windows y el del as400
para que deje acceder? Me da error de acceso denegado y creo que es eso.

 
 Estoy leyendo un redbook y creo que el tema va por ahí 
 

Saludos Cordiales 
 
   
 
 JOSÉ SÁNCHEZ 
 
 RESPONSABLE DPTO.
INFORMÁTICA 
 

Productos Climax, S.A 
 
 Pol. Ind. Sector Mollet C/A Nº 1 
 
 08150
- Parets del Valles (Barcelona) 
 
 Tlf: 93 562 13 11 - Fax: 93 562 14
13 
 
 www.productosclimax.com [2] 
 
 No imprima este correo si no
es necesario 
 
 NOTA DE CONFIDENCIALIDAD 
 
 Este mensaje se envía
desde el sistema de correo electrónico de la empresa PRODUCTOS CLIMAX,
S.A.. Podría contener por lo tanto secretos de empresa y otra
información confidencial tutelados por las leyes de la Unión Europea y
otros Estados. Si Vd. lo recibiera por error o sin ser una de las
personas indicadas en el encabezamiento, deberá destruirlo sin copiarlo
ni revelarlo o cualquier otra acción relacionada con el contenido del
mensaje e informar inmediatamente por correo electrónico al emisor del
mensaje. Las personas y entidades que violen sus deberes de
confidencialidad podrán ser perseguidas ante los Tribunales de Justicia
al amparo de la legislación civil, penal y administrativa 

Re: Accesar con CHAIN a un archivo definido por programa

[Juan Carlos Paredes Castañón]

 

Hace siglos que no programo en entorno S/36, pero creo recordar que
era algo así; 

FMFUSCC IF F 400 3AIDISK 

Saludos. 

Juan Carlos. 

El
12/02/2015 16:52, Juan Gutierrez Ruiz escribió: 

 Gracias Por
contestar foro 
 me estado peleando con todo eso que me dicen 
 
 le
he puesto un K , para indicarle que es un archivo de llave, mas sin
embargo en el SEU me manda error de sintaxis y me dice que no puedo
poner un K a un archivo descrito por programa, solo a los externos 
 

le he tratado de poner la longitud de la llave de 3 en la hoja F y
también manda una sintaxis de error 
 
 también he creado un archivo
lógico por la llave de cliente y me nada el mismo error como el fidico

 
 también genere un Klist y es lo mismo , me manda el mismo error
(mostrado Abajo) 
 
 ya no encuentro mas opciones 
 saludos 
 
 DE:
Vicente Aliaga | Silomar
 ENVIADO EL: ‎jueves‎, ‎12‎ de ‎febrero‎ de
‎2015 ‎09‎:‎35‎ ‎a. m.
 PARA: forum.help400 
 
 Ponle la K en la
hoja F como te indica Francisco 
 
 Un saludo foo 
 
 Vicente 
 

P _No lo imprima si no es necesario. Protejamos el medio ambiente._ 


 Este mensaje y sus archivos adjuntos pueden contener información
confidencial y están dirigidos exclusivamente a su destinatario. Le
informamos que la legislación vigente prohíbe el uso, divulgación o
copia del contenido del presente mensaje por persona distinta del
destinatario sin autorización previa. Si Ud. no es el destinatario de
este mensaje y lo ha recibido por error le agradeceríamos que nos lo
comunicara y que procediera a destruirlo. This message can contain
confidential information and is directed exclusively to its adressee. We
inform you that the legislation prohibits to use, spreading or copy the
content of the present message by person different from the adressee
without previous authorization. If you are not the adressee of this
message or you have received it by error we would be thankful if you
notify us and delete it. 
 
 DE:
forum.help400-boun...@listas.combios.es
[mailto:forum.help400-boun...@listas.combios.es] EN NOMBRE DE Juan
Gutierrez Ruiz
 ENVIADO EL: jueves, 12 de febrero de 2015 15:43
 PARA:
forum.help400; forum.help...@combios.es
 ASUNTO: Accesar con CHAIN a un
archivo definido por programa 
 
 Buenos Días Foro 
 
 estos
tratando de acceder con un chain a un archivo definido por programa 


 el archivo tiene una longitud de registro 400 
 
 y la claves es de
3 caracteres alfabéticos 
 
 el archivo es MFUSCC es un archivo de
clientes donde las 3 primeras posiciones es de 3 caracteres alfabéticas
y el resto la razón social y demás, este fue credo en un ambiente 36 


 el problema es que al darle chain con el dato de entrada de 3
caracteres el compilador me manda error 
 
 *RNF7055 30 1 El Factor 1
no es válido para la operación especificada. 
 Causa . . . . . : El
operando de Factor 1 no es válido 
 para la operación especificada. 

-- Para el proceso de número de registro relativo, el 
 operando de
Factor 1 debe ser numérico con cero 
 posiciones decimales. 
 -- Para
el acceso aleatorio por clave, el operando de 
 Factor 1 debe ser
compatible con el tipo de dirección 
 de registro (posición 34 de la
especificación de 
 Archivo) del archivo. 
 La especificación se pasa
por alto. 
 Recuperación . : Corrija la definición del operando de 

Factor 1. Vuelva a compilar. 
 * * F I N D E R E S U M E N D E M E N S
A J E S * * 
 
 estos compilando en un RPGILE 
 
 la tabla CONDATOS
es igual, sin embargo este lo leo secuencialmente sin problema 
 

pero al archivo MFUSCC al encadenarlo me manda error 
 
 alguien me
puede echar una mano ?? 
 
 gracias 
 
 FCONDATOSX IF F 43 DISK 

FMFUSCC IF F 400 DISK 
 FLCLIEN1 UF A E K DISK 
 FLPOLDDS1 O A E K
DISK 
 * 
 ICONDATOSX NS 01 
 I P 1 3 0LLAVE 
 I 5 5 MA 
 I 6 11
0NUMAUX 
 I 12 17 0FECHA 
 I 18 18 0CP 
 I 19 23 0NP 
 I P 24 31
2IMP 
 I 32 32 CA 
 IMFUSCC XX 02 1 CC 
 I 1 3 CLIENTE 
 I 4 45
NOMBRE 
 I 46 400 DEMAS 
 
 C*
== 
 C* |
RECEPCION Y MANEJO DE PARAMETROS. DEF. DE CAMPOS DE TRAB. | 
 C*
== 
 C
*ENTRY PLIST 
 C PARM WCTE 3 
 C*
== 
 C* | B
L O Q U E P R I N C I P A L D E L P R O G R A M A | 
 C*
== 
 C EXSR
SRDATOS 
 C EXSR SRCLIEN 
 C EVAL *INLR = *ON 
 C*
== 
 C* |
SRDATOS: Genera DDS TPOLDD de COMDATOSX | 
 C*
== 
 C
SRDATOS BEGSR 
 C READ CONDATOSX 80 
 C DOW *IN80 = *off 
 C* MOVEL
'YYY' CLIECVE 
 C MOVEL WCTE CLIECVE 
 C Z-ADD LLAVE POLAIDD 
 
 C
Z-ADD LLAVE POLAIDD 
 C Z-ADD NUMAUX POLAAUX 
 C Z-ADD FECHA POLAFEC

 C Z-ADD CP POLACLP 
 C Z-ADD NP POLANUP 
 C Z-ADD IMP POLAIMP 
 C
MOVEL CA POLAMOV 
 C WRITE TPOLDDSF 
 C READ CONDATOSX 80 
 C ENDDO

 C ENDSR 
 C*

RE: Recuperar fuente.

[Juan Carlos Paredes]

Sí, si tiene la vista de depuración de fuente. Eso sí, a base de copiar y pegar.

Un saludo.

Juan Carlos

De: forum.help400-boun...@listas.combios.es 
[mailto:forum.help400-boun...@listas.combios.es] En nombre de Celestino Zubiri
Enviado el: lunes, 05 de enero de 2015 11:06
Para: forum.help400
Asunto: Recuperar fuente.

He perdido un fuente RPG  y quiero saber si puedo recuperarlo a partir del 
objeto creado.

Saludos

Celestino Zubiri Vidaureta | IT HelpDesk
UniCarriers Manufacturing Spain S.A. | Soto Grande s/n | 31110 Noain (Navarra) 
| Spain
+34 948 29 88 67 | 
celestino.zub...@unicarrierseurope.commailto:celestino.zub...@unicarrierseurope.com
[cid:image009.png@01D028DB.33DC0330]
[cid:image003.jpg@01CEF585.F4F2A040]http://www.unicarriers.co.jp/en/company/overseas_office



[http://www.everest.es/img/mailings/imgfirma_02.png]
[http://www.everest.es/img/mailings/imgfirma_03.png]
[http://www.everest.es/img/mailings/imgfirma_04.png]
[http://www.everest.es/img/mailings/imgfirma_05.png]
[http://www.everest.es/img/mailings/imgfirma_06.png]
[http://www.everest.es/img/mailings/imgfirma_07.png] 
http://es-es.facebook.com/editorialeverest   
[http://www.everest.es/img/mailings/imgfirma_08.png] 
http://twitter.com/ed_everest
De acuerdo con la Ley orgánica 15/1999, de 13 de diciembre, de Protección de 
Datos de Carácter Personal, le informamos que los datos que nos facilite 
podrían ser incluidos en los ficheros de *GRUPO EVEREST con fines comerciales, 
contractuales y publicitarios y, a tal efecto, serán cedidos a otras empresas 
del Grupo Everest dedicadas a actividades de impresión, encuadernación, 
edición, publicación, distribución y venta de libros y otra clase de 
publicaciones. Sus datos se presumen veraces mientras no nos comunique lo 
contrario. Podrá ejercitar sus derechos de acceso, rectificación, cancelación y 
oposición en la siguiente dirección, carretera León - A Coruña, km.5, s/n, 
código postal 24010 (León). GRUPO EVEREST está integrado por EDITORIAL EVEREST, 
S.A, EVEREST DE EDICIONES Y DISTRIBUCIÓN, S.L., LA BOUTIQUE DEL LIBRO Y DEL 
OCIO, S.L., GRUPO EVERHOUSE, S.L., EDITORIAL EVEREST ANDALUCÍA, S.L., EDICIONES 
GAVIOTA, S.L., EDICIONES CADÍ, S.L., EDITORIAL EVERGRÁFICAS, S.L., GRUPO 
EVEREST DE COMUNICACIÓN, S.L., EDITORIAL EVEREST GALICIA, S.L., AIZKORRI 
ARGITALETXEA, S.L. EDITORIAL EVEREST MEXICANA, S.A. de C.V. y COMERCIAL 
LUJOAN, S.A. de C.V. Le informamos, como destinatario de este mensaje, que el 
correo electrónico y las comunicaciones por medio de Internet no permiten 
asegurar ni garantizar la confidencialidad de los mensajes transmitidos, así 
como tampoco su integridad o su correcta recepción, por lo que EDITORIAL 
EVEREST, S.A. y el resto de empresas del Grupo Everest no asume responsabilidad 
alguna por tales circunstancias. Si no consintiese en la utilización del correo 
electrónico o de las comunicaciones vía Internet le rogamos nos lo comunique y 
lo ponga en nuestro conocimiento de manera inmediata. Este mensaje va dirigido, 
de manera exclusiva, a su destinatario y contiene información confidencial y 
sujeta al secreto profesional, cuya divulgación no está permitida por la ley. 
En caso de haber recibido este mensaje por error, le rogamos que, de forma 
inmediata, nos lo comunique mediante correo electrónico remitido a nuestra 
atención o a través del teléfono 902123400 y proceda a su eliminación, así como 
a la de cualquier documento adjunto al mismo. Asimismo, le comunicamos que la 
distribución, copia o utilización de este mensaje, o de cualquier documento 
adjunto al mismo, cualquiera que fuera su finalidad, están prohibidas por la 
ley. El uso y contenido de los correos electrónicos remitidos con direcciones 
bajo el dominio de everest .es serán exclusivamente de ámbito profesional. 
Las opiniones de índole política, moral o religiosa que pueden ser vertidas en 
los correos electrónicos remitidos con direcciones bajo aquel dominio, serán 
responsabilidad exclusiva de su autor, exonerando de cualquier responsabilidad 
a la empresa.



image008.wmz
Description: image008.wmz

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

Re: NO PERMITIR QUE EL USUARIO CAMBIE SU CONTRASEÑA

[Juan Carlos Paredes Castañón]

 

Una posibilidad que se me ocurre es crear un mandato CHGPWD que no
haga nada en otra biblioteca y poner ésta por delante de la QSYS en la
lista de bibliotecas de la JOBD. 

Un saludo y feliz 2015 

El
31/12/2014 12:15, INFORMATICA escribió: 

 Buenos días. 
 
 Como se
puede evitar que un usuario cambie su propia contraseña?? 
 Me está
pasando que cuando les aparece que la contraseña caducará en 7 días, la
cambian 
 y pierdo el control de las mismas. 
 
 Saludos y gracias 


 
 Únete a
Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd [1] )

Forum.Help400 (c) Publicaciones Help400, S.L.

-- 
url:
http://www.paredes.info
mail: juancar...@paredes.info



Links:
--
[1] http://bit.ly/db68dd

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

Feliz año

[Juan Carlos Paredes Castañón]

 

Feliz año 2015 para todos mis compañeros.


http://www.paredes.info/blog/?p=178 

Un saludo a todos. 

Juan
Carlos. 

-- 
url: http://www.paredes.info
mail:
juancar...@paredes.info
 
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

RE: Feliz Año 2015!!

[Juan Carlos Paredes Castañón]

 

Buenas tardes, compañeros: 

Aunque no esté yo en el mejor de mis
años y mi espíritu navideño esté bastante maltrecho, quiero felicitaros
a todos estas fiestas y desearos lo mejor para el año próximo. 

Gracias
por estar ahí y por vuestro apoyo, sabiduría y generosidad. 

Un fuerte
abrazo. 

Juan Carlos Paredes. 

El 22/12/2014 15:58, Paco Medina
escribió: 

 igualmente a todos, os deseo felices fiestas 
 

saludos, 
 
 PACO MEDINA 
 
   
 
 DEPT. INFORMÁTICA
 Exclusivas
Camacho, S. Ltd.
 CIF B29145240
 Av. J. Ortega y Gasset, 301 (Pol. San
Luis)
 Málaga, España
 www.e-camacho.com [2]
 med...@e-camacho.com 


   
 
 Antes de imprimir piensa si es necesario, piensa en el MEDIO
AMBIENTE 
 Este mensaje se dirige exclusivamente a su destinatario y
puede contener información privilegiada o confidencial. Si no es vd. el
destinatario indicado, queda notificado de que la utilización,
divulgación y/o copia sin autorización está prohibida en virtud de la
legislación vigente. Si ha recibido este mensaje por error, le rogamos
que nos lo comunique inmediatamente por esta misma vía y proceda a su
destrucción. Gracias. 
 
 Before printing thinks if necessary, think
of ENVIRONMENT
 This message is intended exclusively for its addressee
and may contain information that is CONFIDENTIAL and protected by
professional privilege. If you are not the intended recipient you are
hereby notified that any dissemination, copy or disclosure of this
communication is strictly prohibited by law. If this message has been
received in error, please immediately notify us via e-mail and delete
it. Thank you. 
 
 DE: forum.help400-boun...@listas.combios.es
[mailto:forum.help400-boun...@listas.combios.es] EN NOMBRE DE Francisco
Rubio Enríquez
 ENVIADO EL: lunes, 22 de diciembre de 2014 15:56

PARA: forum.help400
 ASUNTO: Re: Feliz Año 2015!! 
 
 Muchas gracias;
igualmente para ti y para todos los miembros de este gran foro. 
 

Francisco Rubio Enríquez
 Analista Funcional 
 
 Web:
http://www.cibernos.com [3] 
 
 El 22 de diciembre de 2014, 15:31,
Javier jab...@gmail.com escribió: 
 
 Os deseo a todos, unas felices
fiestas de Navidad y un muy feliz Año Nuevo 2015. 
 
 Saludos, 
 

Javier 
 
 

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd [1] )

Forum.Help400 (c) Publicaciones Help400, S.L. 
 

-
 
 [4]
 
 Este mensaje no contiene virus
ni malware porque la protección de avast! Antivirus [4] está activa. 


 
 Únete a
Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd [1] )

Forum.Help400 (c) Publicaciones Help400, S.L.

-- 
url:
http://www.paredes.info
mail: juancar...@paredes.info



Links:
--
[1] http://bit.ly/db68dd
[2]
http://www.e-camacho.com
[3] http://www.cibernos.com/
[4]
http://www.avast.com/

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

RE: Subfichero que se autorefresca y SFLMODE

[Juan Carlos Paredes Castañón]

 

Efectivamente, Javier, ya te dije que hablaba de memoria. Ahora que
estoy en la empresa lo he comprobado y no era exactamente así. Lo que yo
hago para esto es lo siguiente: 

1.- En el archivo de pantalla: 

A
SFLMODE(MODE) 

A N11 SFLDROP(CF11) 

A 11 SFLFOLD(CF11) 

A MODE 1A H


Y en el programa RPG, inmediatamente antes de presentar el control del
subarchivo: 

if mode = '0'; 

 *in11 = *on; 

else; 

 *in11 = *off;


endif; 

Espero que esto ayude. 

Saludos. 

Juan Carlos. 

El
18/12/2014 09:47, Javier Mora escribió: 

 Es cierto que el problema me
surge cuando recargo el subfichero (su refresco). El tipo de subfichero
que estoy utilizando en este caso es completo (hay pocos registros que
visualizar). 
 
 Te confirmo que SFLMODE no puede condicionarse con
indicadores. 
 
 Con todas las pruebas que he hecho, llego a la
conclusión que con el READ(E) RAD061W (que es el nombre del fichero y no
el del registro) no se están leyendo los campos de E/S del registro de
control, pero no está actualizando los campos de salida (como son los
ocultos tipo H). 
 
 El caso es, que si utilizo READ(E) P_SFLCTL ya no
me funciona el autorrefresco. 
 
 Gracias por tu interés. 
 
 Javier

 
 DE: forum.help400-boun...@listas.combios.es
[mailto:forum.help400-boun...@listas.combios.es] EN NOMBRE DE Juan
Carlos Paredes Castañón
 ENVIADO EL: miércoles, 17 de diciembre de 2014
22:48
 PARA: forum.help400
 ASUNTO: Re: Subfichero que se autorefresca
y SFLMODE 
 
 Te hablo de memoria, porque ahora estoy en casa y no
tengo acceso al iSeries para confirmártelo. El problema es el mismo que
se produce cuando dejas que sea el propio sistema el que gestione la
carga del subarchivo. Una vez que pulsas la tecla de doblar, sólo se
mantiene en los registros ya cargados. Una vez que carga nuevos
registros, el registro vuelve a estar truncado. En las DDS (o en el SDA)
indicas si el registro, inicialmente, está doblado o truncado. Si
condicionas el SFLMODE por el mismo indicador que activas al pulsar la
tecla que lo dobla o lo trunca, creo que funciona. No obstante, mañana
lo compruebo (lo tengo implementado en alguna pantalla, sin refresco
automático, pero con gestión de la carga por parte del sistema) y te lo
confirmo. 
 
 Un saludo. 
 
 Juan Carlos 
 
 El 17/12/2014 19:40,
Javier Mora escribió: 
 
 Hola a tod@s: 
 
 Tengo una pantalla
con un subfichero que se refresca automáticamente sin tocar ninguna
tecla. Los registros del subfichero son de dos líneas e inicialmente
aparecen truncadas (DROP). Durante la visualización puedo pulsar una
tecla para ver el registro completo (FOLD). Sin embargo, cuando refresco
el subfichero no permanece en el modo (truncado/ampliado) en el que se
encontraba antes del refresco. 
 
 El diseño de pantalla se asemeja
a esto: 
 
 A R P_SFLMDT 
 
 A OVERLAY 
 
 A 11
2'F1=Ampliar' 
 
 A DSPATR(HI) 
 
 A 11 14'F3=Salir' 
 
 A
DSPATR(HI) 
 
 … 
 
 A R P_SFLCTL SFLCTL(P_SFL) 
 
 A
SFLSIZ(0050) 
 
 A SFLPAG(0003) 
 
 A CA03 
 
 A CA07 


 A 01 INVITE 
 
 A OVERLAY 
 
 A SFLCSRRRN(SFLCSRRRN) 


  A  SFLMODE(SFLMODE) 


 A N02 ERASE(P_SFL) 
 
 A 02 SFLDSP 
 
 A 01 SFLDSPCTL 


 A N01 SFLCLR 
 
 A 03 SFLEND 
 
 A 05 SFLDROP(CA01) 
 

 A    SFLMODE    1A  H 
 
 A SFLRCD 4S 0H
SFLRCDNBR(*TOP) 
 
 A SFLCSRRRN 5S 0H 
 
 A 1 2DATE 
 
 A
EDTWRD(' - - ') 
 
 A COLOR(BLU) 
 
 A 1 11TIME 
 
 A
COLOR(BLU) 
 
 … 
 
 La visualización y espera del registro de
control se hace como sigue: 
 
 Write P_SFLMDT; 
 
 Write
P_SFLCTL; 
 
 Read(e) RAD061W; 
 
 //EXFMT P_SFLCTL; 
 
 //
Con EXFMT si obtengo un SLFMODE con el valor correcto 
 
 ‚ // Se
excedió el tiempo de espera 
 
 If %Status() = 1331; 
 

infDsp.key = F10; 
 
 Endif; 
 
 Si desactivo el autorefresco
de pantalla sustituyendo la pareja WRITE P_SFLCTL/READ(E) RAD061W por un
EXFMT P_SFLCTL el comportamiento es el esperado, pero pierdo el
autorefresco. 
 
 Creo que el problema está en el READ RAD061W,
pero es necesario para el refresco. El caso es que no encuentro una
solución para tener ambas cosas. ¿Alguna sugerencia? 
 
 Un saludo a
todos, 
 
 JAVIER MORA 
 


 
 Únete a
Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd [1] )
 

Forum.Help400 (c) Publicaciones Help400, S.L.
 
 -- 
 
 url:
http://www.paredes.info
 
 mail: juancar...@paredes.info
 


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

-- 
url: http://www.paredes.info
mail:
juancar...@paredes.info
 

Links:
--
[1] http://bit.ly/db68dd

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

Re: Subfichero que se autorefresca y SFLMODE

[Juan Carlos Paredes Castañón]

 

Te hablo de memoria, porque ahora estoy en casa y no tengo acceso al
iSeries para confirmártelo. El problema es el mismo que se produce
cuando dejas que sea el propio sistema el que gestione la carga del
subarchivo. Una vez que pulsas la tecla de doblar, sólo se mantiene en
los registros ya cargados. Una vez que carga nuevos registros, el
registro vuelve a estar truncado. En las DDS (o en el SDA) indicas si el
registro, inicialmente, está doblado o truncado. Si condicionas el
SFLMODE por el mismo indicador que activas al pulsar la tecla que lo
dobla o lo trunca, creo que funciona. No obstante, mañana lo compruebo
(lo tengo implementado en alguna pantalla, sin refresco automático, pero
con gestión de la carga por parte del sistema) y te lo confirmo. 

Un
saludo. 

Juan Carlos 

El 17/12/2014 19:40, Javier Mora escribió: 


Hola a tod@s: 
 
 Tengo una pantalla con un subfichero que se refresca
automáticamente sin tocar ninguna tecla. Los registros del subfichero
son de dos líneas e inicialmente aparecen truncadas (DROP). Durante la
visualización puedo pulsar una tecla para ver el registro completo
(FOLD). Sin embargo, cuando refresco el subfichero no permanece en el
modo (truncado/ampliado) en el que se encontraba antes del refresco. 


 El diseño de pantalla se asemeja a esto: 
 
 A R P_SFLMDT 
 
 A
OVERLAY 
 
 A 11 2'F1=Ampliar' 
 
 A DSPATR(HI) 
 
 A 11
14'F3=Salir' 
 
 A DSPATR(HI) 
 
 … 
 
 A R P_SFLCTL SFLCTL(P_SFL)

 
 A SFLSIZ(0050) 
 
 A SFLPAG(0003) 
 
 A CA03 
 
 A CA07 


 A 01 INVITE 
 
 A OVERLAY 
 
 A SFLCSRRRN(SFLCSRRRN) 
 
 
A  SFLMODE(SFLMODE) 
 
 A N02
ERASE(P_SFL) 
 
 A 02 SFLDSP 
 
 A 01 SFLDSPCTL 
 
 A N01 SFLCLR

 
 A 03 SFLEND 
 
 A 05 SFLDROP(CA01) 
 
  A   
SFLMODE    1A  H 
 
 A SFLRCD 4S 0H SFLRCDNBR(*TOP) 
 
 A
SFLCSRRRN 5S 0H 
 
 A 1 2DATE 
 
 A EDTWRD(' - - ') 
 
 A
COLOR(BLU) 
 
 A 1 11TIME 
 
 A COLOR(BLU) 
 
 … 
 
 La
visualización y espera del registro de control se hace como sigue: 
 

Write P_SFLMDT; 
 
 Write P_SFLCTL; 
 
 Read(e) RAD061W; 
 

//EXFMT P_SFLCTL; 
 
 // Con EXFMT si obtengo un SLFMODE con el valor
correcto 
 
 ‚ // Se excedió el tiempo de espera 
 
 If %Status() =
1331; 
 
 infDsp.key = F10; 
 
 Endif; 
 
 Si desactivo el
autorefresco de pantalla sustituyendo la pareja WRITE P_SFLCTL/READ(E)
RAD061W por un EXFMT P_SFLCTL el comportamiento es el esperado, pero
pierdo el autorefresco. 
 
 Creo que el problema está en el READ
RAD061W, pero es necesario para el refresco. El caso es que no
encuentro una solución para tener ambas cosas. ¿Alguna sugerencia? 
 

Un saludo a todos, 
 
 JAVIER MORA 
 


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

-- 
url: http://www.paredes.info
mail:
juancar...@paredes.info
 

Links:
--
[1] http://bit.ly/db68dd

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

Prueba

[Juan Carlos Paredes Castañón]

 

http://www.paredes.info 

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

Nueva página profesional.

[Juan Carlos Paredes Castañón]

 

Buenos días, compañeros: 

Os presento mi nueva página:
http://www.paredes.info 

Estoy tratando de buscar salidas a la
situación laboral en que me encuentro, bastante compleja (por no
utilizar otras palabras más duras). 

Así que, si alguno, en algún
momento, me necesitáis, ahí tenéis mi perfil y todos mis datos de
contacto. 

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

RE: prueba

[Juan Carlos Paredes]

[aplausos-2.gif][aplausos-2.gif][aplausos-2.gif][aplausos-2.gif]

De: forum.help400-boun...@listas.combios.es 
[mailto:forum.help400-boun...@listas.combios.es] En nombre de Jesus Manuel 
Sanchez Montaña
Enviado el: jueves, 20 de noviembre de 2014 19:23
Para: forum.help400
Asunto: Re: prueba


Hola:



Yo creo que lo que dice Paco es verdad; pero le doy más la razón a Juanra.



Y... ¿por qué paso esto?.



Pues yo creo que IBM ha cometido un error garrafal y ha perdido una oportunidad 
de oro, que ahora ya no sé si es posible que vuelva a recuperar, o por lo menos 
le va a costar mucho trabajo.



Me explico:



No éramos pocos los que en su momento pedíamos, o hasta no sé si decir que en 
algunos casos suplicábamos, a IBM que nos proporcionase las herramientas 
necesarias para seguir con nuestro querido RPG de siempre pero poder programar 
en gráfico en vez, o además,  de seguir con el SDA y la 5250. Pero ellos que si 
teníamos que pasarnos a Java, que si PHP, que si Webfacing, que si Hats, que 
si. chorradas, pero al final ni puñetero caso.



Tengo que decir que yo, siempre que he tenido la ocasión por mi mismo, bien en 
reuniones, eventos, y todo tipo de contactos que tenido la ocasión de 
participar con representantes de IBM, les he venido trasladando mi opinión 
siempre, aunque veo que sin mucho resultado.



Y ahora(o desde hace relativamente poco), qué es lo que han hecho para intentar 
cambiar las cosas: RPG Open Access. ¡jo.  de puta madre no..!. Si, si no 
tuviera truco: si, el RPG Open Access es gratis; pero te tienes que gastar un 
pastón para comprarte una herramienta de algún ISV que haya desarrollado un 
handler, editor de pantallas, convertidor de DDS,s. Y claro, cliente mediano o 
pequeño(PYME) no puede permitirse esto, porque ¡Ojo! cuando digo pastón es por 
algo eh, no es ninguna tontería.



Entonces, con todo este panorama, qué suele pasar: pues que te dice el cliente 
PYME, esto del AS400 está muy bien, es estable, fiable; pero yo quería 
algo más bonito que el 5250. Y tu le dices: no se preocupe, adquiera una 
máquina de última generación que le vale x; y además gástese 18000 dólares(que 
será algo menos en €, pero es igual) en esta herramienta que me permitirá 
desarrollar de forma gráfica, etc.. Y claro, el cliente coge, y por ese dinero, 
se compra una máquina windows con un ERP de puta madre y no sé cuantas cosas 
más.





Por tanto, la conclusión para mi es que seguimos igual o casi igual que antes 
del RPG Open Access.



En fin, perdonad la chapa, pero es que me salió del alma.



Saludo2.








De: forum.help400-boun...@listas.combios.es 
[forum.help400-boun...@listas.combios.es] en nombre de Paco Medina 
[med...@e-camacho.com]
Enviado: jueves, 20 de noviembre de 2014 18:43
Para: 'forum.help400'
Asunto: RE: prueba
ya y las que detrás de todo lo bonito , apartado en un rincon …..el que lleva 
la carga de las
bases de datos es el AS400

De: forum.help400-boun...@listas.combios.es 
[mailto:forum.help400-boun...@listas.combios.es] En nombre de Juan Ramón Garcia
Enviado el: jueves, 20 de noviembre de 2014 18:28
Para: forum.help400
Asunto: Re: prueba

Hola Paco:
Pero, hace unos años, (no demasiados) también la mayoría de las PYMES usaban el 
AS400, no te puedes ni imaginar las que han cambiado a otros entornos más 
bonitos pero menos estables :-(
Un saludo.
Juanra

El 20 de noviembre de 2014, 15:56, Paco Medina 
med...@e-camacho.commailto:med...@e-camacho.com escribió:
jaja por eso las mayoria de las grandes empresas lo tienen

De: 
forum.help400-boun...@listas.combios.esmailto:forum.help400-boun...@listas.combios.es
 
[mailto:forum.help400-boun...@listas.combios.esmailto:forum.help400-boun...@listas.combios.es]
 En nombre de Rafael de Juan
Enviado el: jueves, 20 de noviembre de 2014 15:54
Para: forum.help400
Asunto: Re: prueba

No os cortéis ninguno, este foro es necesario.

Si no fuera por esto creo que al 400 habría desaparecido.

Me da la impresión de que lo seguimos muchísimas personas. No todas podemos 
aportar.

Gracias a todos.

El 20 de noviembre de 2014, 14:43, Juan Ramón Garcia 
juanranei...@gmail.commailto:juanranei...@gmail.com escribió:
Hola Sergi:
No hay una actividad alta porque el pelmazo de Juanra ya no tiene tiempo de 
escribir los tostones de antes ;-)
Un saludo.
Juanra
TostónSaurio

El 19 de noviembre de 2014, 9:05, se...@genebre.esmailto:se...@genebre.es 
escribió:
Yo no dejo de recibir mensajes habitualmente. No hay una actividad alta pero sí 
que me llegan los mensajes.

[cid:image003.gif@01D00566.321E1620]

Sergi Sitjes
Director Sistemes d'Informació/IT Manager
GENEBRE GROUP
E-mail: se...@genebre.esmailto:se...@genebre.es
Web:   http://www.genebre.eshttp://www.genebre.es/
Tel:  +34 93 298 80 02tel:%2B34%2093%20298%2080%2002
Fax: +34 93 298 80 07tel:%2B34%2093%20298%2080%2007



De:Elvira Vázquez 
elvira_vazq...@edasnet.commailto:elvira_vazq...@edasnet.com
Para:'forum.help400' 

Perfil Profesional

[Juan Carlos Paredes Castañón]

Os dejo mi perfil profesional en Infojobs y Linkedin por si a alguien le
interesa.

http://www.infojobs.net/juancarlos-paredes-castanon.prf

https://es.linkedin.com/in/jcparedescastanon

Un saludo.

Juan Carlos.

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

RE: Return en función

[Juan Carlos Paredes]

Pues, sinceramente, en la 7 no lo sé, porque yo estoy todavía en 6.1.

Juan Carlos.

De: forum.help400-boun...@listas.combios.es 
[mailto:forum.help400-boun...@listas.combios.es] En nombre de alberto
Enviado el: lunes, 03 de noviembre de 2014 12:34
Para: forum.help400
Asunto: RE: Return en función

Buenas.
A modo de curiosidad: en la 6.1 había que definir el prototipo previamente y en 
la V7R1 ya no hace falta? porque en la V7R1 ya no me da este error.
Muchas gracias por la respuesta



De:Juan Carlos Paredes jcar...@everest.es
Para:forum.help400 forum.help400@listas.combios.es
Fecha:03/11/2014 12:01
Asunto:RE: Return en función




Respecto al primer error, te falta definir el prototipo antes de comenzar el 
procedimiento. Respecto al segundo, en la especificación H necesitas la palabra 
clave NOMAIN. Quedaría algo así:

H nomain
D Tomdy   pr10a
D8  0
P Tomdy   B   Export
D Tomdy   PI10A
D ymd8  0
D Retval  S 10a
/free
 Monitor;
   retval=%char(%date(ymd:*iso):*usa);
 on-error;
   retval='ERROR';
 Endmon;
 return retval;
 //*inlr=*on;
/end-free
P Tomdy   E

De: forum.help400-boun...@listas.combios.es 
[mailto:forum.help400-boun...@listas.combios.es] En nombre de alberto
Enviado el: lunes, 03 de noviembre de 2014 11:28
Para: forum.help400
Asunto: Return en función

Hola Foro. Estoy intentando crear en ILE un procedimiento para ser llamado por 
una función, hasta ahora nunca había creado ninguno, siempre he seguido la 
forma 'tradicional' con los parámetros, pero alguna vez tenía que ser la 
primera.
El caso, es que estoy probando con este pequeño procedimiento que pone 
ScottKlement como ejemplo, y ni siquiera complia.
He probado en un V6R1 y en un V7R1 y me da errores diferentes.
En la V6R1 me pide que defina previamente el procedimiento, y además me dice 
que tengo que finalizar con *inlr=*on, no le val el Return. En cambio en la 
V7R1 sólo me da este segundo error. El caso es que yo no quiero finalizar con 
*inlr sino con Return. Me podéis dar una pista?
Gracias


P Tomdy   B   Export
D Tomdy   PI10A
D ymd8  0
D Retval  S 10a
/free
 Monitor;
   retval=%char(%date(ymd:*iso):*usa);
 on-error;
   retval='ERROR';
 Endmon;
 return retval;
 //*inlr=*on;
/end-free
P Tomdy   E




De acuerdo con la Ley orgánica 15/1999, de 13 de diciembre, de Protección de 
Datos de Carácter Personal, le informamos que los datos que nos facilite 
podrían ser incluidos en los ficheros de *GRUPO EVEREST con fines comerciales, 
contractuales y publicitarios y, a tal efecto, serán cedidos a otras empresas 
del Grupo Everest dedicadas a actividades de impresión, encuadernación, 
edición, publicación, distribución y venta de libros y otra clase de 
publicaciones. Sus datos se presumen veraces mientras no nos comunique lo 
contrario. Podrá ejercitar sus derechos de acceso, rectificación, cancelación y 
oposición en la siguiente dirección, carretera León - A Coruña, km.5, s/n, 
código postal 24010 (León). GRUPO EVEREST está integrado por EDITORIAL EVEREST, 
S.A, EVEREST DE EDICIONES Y DISTRIBUCIÓN, S.L., LA BOUTIQUE DEL LIBRO Y DEL 
OCIO, S.L., GRUPO EVERHOUSE, S.L., EDITORIAL EVEREST ANDALUCÍA, S.L., EDICIONES 
GAVIOTA, S.L., EDICIONES CADÍ, S.L., EDITORIAL EVERGRÁFICAS, S.L., GRUPO 
EVEREST DE COMUNICACIÓN, S.L., EDITORIAL EVEREST GALICIA, S.L., AIZKORRI 
ARGITALETXEA, S.L. EDITORIAL EVEREST MEXICANA, S.A. de C.V. y COMERCIAL 
LUJOAN, S.A. de C.V. Le informamos, como destinatario de este mensaje, que el 
correo electrónico y las comunicaciones por medio de Internet no permiten 
asegurar ni garantizar la confidencialidad de los mensajes transmitidos, así 
como tampoco su integridad o su correcta recepción, por lo que EDITORIAL 
EVEREST, S.A. y el resto de empresas del Grupo Everest no asume responsabilidad 
alguna por tales circunstancias. Si no consintiese en la utilización del correo 
electrónico o de las comunicaciones vía Internet le rogamos nos lo comunique y 
lo ponga en nuestro conocimiento de manera inmediata. Este mensaje va dirigido, 
de manera exclusiva, a su destinatario y contiene información confidencial y 
sujeta al secreto profesional, cuya divulgación no está permitida por la ley. 
En caso de haber recibido este mensaje por error, le rogamos que, de forma 
inmediata, nos lo comunique mediante correo electrónico remitido a nuestra 
atención o a través del teléfono 902123400 y proceda a su eliminación, así como 
a la de cualquier documento adjunto al mismo. Asimismo, le comunicamos que la 
distribución, copia o utilización de este mensaje, o de cualquier documento 
adjunto al mismo, cualquiera que fuera su finalidad, están prohibidas por la 
ley. El uso y contenido de los correos electrónicos remitidos con

RE: Diferencias entre archivo lógico e índices SQL

[Juan Carlos Paredes]

Yo utilizo la misma técnica para ficheros temporales. Objeto vacío existente en 
una biblioteca de copia y CRTDUPOBJ y OVRDBF antes de abrir el fichero.

Con respecto a la documentación en el fuente DDS, se puede hacer exactamente lo 
mismo en fuentes SQL. Sólo tenéis que ejecutar los create desde la opción de 
scripts SQL del navigator y después salvarlo. Los comentarios se añaden como 
líneas que empiezan por - (Dos guiones).

De: forum.help400-boun...@listas.combios.es 
[mailto:forum.help400-boun...@listas.combios.es] En nombre de Javier Mora
Enviado el: miércoles, 22 de octubre de 2014 13:15
Para: forum.help400
Asunto: RE: Diferencias entre archivo lógico e índices SQL

Realmente con mi pregunta original no preguntaba por las diferencias entre DDS 
y DDL ni iniciar un conversión sobre ese tema (tampoco me importa que ocurra). 
Creo que tengo bastante claro las diferencias y las ventajas/inconvenientes de 
cada modelo, mi duda era más existencial. Sólo quería saber si, a parte de 
las diferencias que la mayoría conocemos:

- CRTLF vs CREATE INDEX
- Lógico sin claves vs vista SQL
- Lógico con claves vs índice SQL
- Tamaño de página
- etc

los índices disponían de una característica que decantara la balanza.

Con los conocimientos (que son pocos) sobre el tema, mi experiencia es:

- Tengo la sensación que el motor SQL SQE sí que tiene en cuenta los lógicos 
para analizar y generar los planes de acceso. Supongo que el motor busca vías 
de acceso, independientemente si son lógicos o índices.

- Por lo que he leído, un índice es un lógico con clave con un tamaño de página 
mayor. De hecho, en el manual dice que se utiliza CRTLF para crear el índice.

- A efectos de uso en un RPG con operaciones de E/S nativas no hay diferencias 
en utilizar uno u otro.

- Al crear un índice o lógico el sistema aprovecha vías de acceso ya existentes 
para crear el nuevo índice/lógico.

- Las herramientas de IBM (sobre todo el navegador de operaciones o navigator 
for i) diferencian claramente el objeto que es un índice de lo que es un 
lógico.


Respecto a tu respuesta, creo que en V6R1 (no sé si V5R4) sí se pueden crear 
índices con selección de registros ya que disponde de una cláusula WHERE en el 
CREATE INDEX.

Estoy de acuerdo contigo que la documentación que añadíamos a las DDS parece 
menos vistosa en un miembro fuente con CREATE TABLE. Habría que plantearse si 
es oportuno crear una documentación a parte (word, excel, la herramienta que 
sea) con la información de cada campo y tabla.

Respecto a la técnica descrita para crear archivos temporales o intermedios, yo 
utilizo otra. Normalmente estos archivos existen vacíos en una biblioteca (de 
programas o de plantillas). Cuando un programo necesita uno de ellos, lo 
duplica en la QTEMP (CRTDUPOBJ) o en la biblioteca que se quiera y luego los 
usa (OVRDBF). Mi experiencia es, que al sistema le cuesta más crear un archivo 
desde cero (CRTLF o CREATE TABLE) que duplicarlo.

Gracias por tu aportación.

Javier


De: forum.help400-boun...@listas.combios.es 
[mailto:forum.help400-boun...@listas.combios.es] En nombre de Angel ALMEIDA 
(DHL ES)
Enviado el: miércoles, 22 de octubre de 2014 11:22
Para: forum.help400
Asunto: RE: Diferencias entre archivo lógico e índices SQL
Hola,

Sin entrar en las grandes diferencias que existen entre DDS y DDL, 
evidentemente son muchas (tampoco hay que olvidar que las DD's ya han dejado de 
recibir mejoras), si quería apuntar algunas pequeñas diferencias  que afectan 
al RPG.

El fichero lógico además de claves, permite seleccionar registros, un caso 
típico sería un fichero que tenga registros suprimidos (No físicamente), si no 
un campo con una marca, el lógico estaría construido con un clave de acceso y 
una selección de que solo mostrase los que tuviesen un determinado campo en 
blanco ó que fuese diferente a B de baja, los RPG que accediesen a este 
fichero no tendría que preocuparse de filtrar los registros de baja, si ahora 
trasladamos esto a  DDL, tendríamos que hacer CREATE TABLE.., CREATE INDEX y 
CREATE VIEW, el índice no permite filtrar y la vista no permite especificar 
claves, así que nuestro RPG tendría que sufrir modificaciones.

No estoy defendiendo las DDS,  sé que están muertas y las posibilidades de la 
DDL son muchas y además seguirán recibiendo mejoras, pero es cierto que las 
aplicaciones que han convivido con DDS no son tan fáciles de migrar, otra de 
las cosas que no me gusta demasiado de las DDL es la forma de crearlas, ahora 
disponemos de una DDS en fichero con todos los detalles y comentarios que 
quiera poner, puedo utilizar esta DDS desde un CLLE ó desde 200, siempre 
utilizo la misma descripción, solo hago el CRTPF con el nombre y ya está, a la 
hora de trabajar con ficheros temporales, los que normalmente creamos en QTEMP 
es muy sencillo, al comienzo del CCLE hacemos el CRTPF y cuando llamamos al RPG 
el fichero ya existe, si lo hacemos con DDL, yo normalmente los CREATE los 

RE: consulta / desde que campo se llamo la tecla de funcion

[Juan Carlos Paredes]

Si no puedes tocar el fuente de pantalla, puedes asignarle en la especificación 
F del fichero de pantalla una estructura de datos de información de archivo: 
INFDS. En esa estructura de datos tienes un campo binario que te indica la 
posición en que está situado el cursor:

linpos   370371b 0

Luego con una pequeña rutina sabes la línea y columna:

Eval lin=%div(linpos:256);
Eval col=%rem(linpos:256)

Si pudieras tocar el fuente de pantalla, es aún más sencillo. Define a nivel de 
registro la palabra clave RTNCSRLOC(RCDCSR FLDCSR) donde RCDCSR te devuelve 
el nombre del formato de registro activo y FLDCSR el nombre de campo en el que 
está situado el cursor. Estos campos debes definirlos como alfanuméricos de 10 
posiciones y ocultos.

Espero que te sirva.

Un saludo.

Juan Carlos.



De: Marvin Correa Montenegro [mailto:marvin_corr...@hotmail.com]
Enviado el: viernes, 03 de octubre de 2014 4:50
Para: forum.help400@listas.combios.es; FORO_400
Asunto: consulta / desde que campo se llamo la tecla de funcion

Sres Foristas, buenas noches.


Yo quiero consultar si alguno de ustedes me podría indicar un manual y la 
pagina donde puedo hayar la siguiente información


CampoA

CampoB

CampoC

Tres campos de una pantalla el cursor se encuentra en uno de ellos, se presiona 
la tecla de función F4 esta llama a otro programa, la pregunta es como saber 
desde cual de los campos se invoco la tecla de funcion el programa esta hecho 
en RPG.

El problema es que tengo 2 años sin tocar un programa, y necesito modificar 
uno, en la empresa son muy estrictos y solo me dieron el fuente a modificar, no 
tengo acceso a otros fuentes.

Gracias y disculpen la molestia

Marvin Correa

[http://www.everest.es/img/mailings/imgfirma_02.png]
[http://www.everest.es/img/mailings/imgfirma_03.png]
[http://www.everest.es/img/mailings/imgfirma_04.png]
[http://www.everest.es/img/mailings/imgfirma_05.png]
[http://www.everest.es/img/mailings/imgfirma_06.png]
[http://www.everest.es/img/mailings/imgfirma_07.png] 
http://es-es.facebook.com/editorialeverest   
[http://www.everest.es/img/mailings/imgfirma_08.png] 
http://twitter.com/ed_everest
De acuerdo con la Ley orgánica 15/1999, de 13 de diciembre, de Protección de 
Datos de Carácter Personal, le informamos que los datos que nos facilite 
podrían ser incluidos en los ficheros de *GRUPO EVEREST con fines comerciales, 
contractuales y publicitarios y, a tal efecto, serán cedidos a otras empresas 
del Grupo Everest dedicadas a actividades de impresión, encuadernación, 
edición, publicación, distribución y venta de libros y otra clase de 
publicaciones. Sus datos se presumen veraces mientras no nos comunique lo 
contrario. Podrá ejercitar sus derechos de acceso, rectificación, cancelación y 
oposición en la siguiente dirección, carretera León - A Coruña, km.5, s/n, 
código postal 24010 (León). GRUPO EVEREST está integrado por EDITORIAL EVEREST, 
S.A, EVEREST DE EDICIONES Y DISTRIBUCIÓN, S.L., LA BOUTIQUE DEL LIBRO Y DEL 
OCIO, S.L., GRUPO EVERHOUSE, S.L., EDITORIAL EVEREST ANDALUCÍA, S.L., EDICIONES 
GAVIOTA, S.L., EDICIONES CADÍ, S.L., EDITORIAL EVERGRÁFICAS, S.L., GRUPO 
EVEREST DE COMUNICACIÓN, S.L., EDITORIAL EVEREST GALICIA, S.L., AIZKORRI 
ARGITALETXEA, S.L. EDITORIAL EVEREST MEXICANA, S.A. de C.V. y COMERCIAL 
LUJOAN, S.A. de C.V. Le informamos, como destinatario de este mensaje, que el 
correo electrónico y las comunicaciones por medio de Internet no permiten 
asegurar ni garantizar la confidencialidad de los mensajes transmitidos, así 
como tampoco su integridad o su correcta recepción, por lo que EDITORIAL 
EVEREST, S.A. y el resto de empresas del Grupo Everest no asume responsabilidad 
alguna por tales circunstancias. Si no consintiese en la utilización del correo 
electrónico o de las comunicaciones vía Internet le rogamos nos lo comunique y 
lo ponga en nuestro conocimiento de manera inmediata. Este mensaje va dirigido, 
de manera exclusiva, a su destinatario y contiene información confidencial y 
sujeta al secreto profesional, cuya divulgación no está permitida por la ley. 
En caso de haber recibido este mensaje por error, le rogamos que, de forma 
inmediata, nos lo comunique mediante correo electrónico remitido a nuestra 
atención o a través del teléfono 902123400 y proceda a su eliminación, así como 
a la de cualquier documento adjunto al mismo. Asimismo, le comunicamos que la 
distribución, copia o utilización de este mensaje, o de cualquier documento 
adjunto al mismo, cualquiera que fuera su finalidad, están prohibidas por la 
ley. El uso y contenido de los correos electrónicos remitidos con direcciones 
bajo el dominio de everest .es serán exclusivamente de ámbito profesional. 
Las opiniones de índole política, moral o religiosa que pueden ser vertidas en 
los correos electrónicos remitidos con direcciones bajo aquel dominio, serán 
responsabilidad exclusiva de su autor, exonerando de cualquier responsabilidad 
a la empresa.

RE: Números aleatorios en COBOL400

[Juan Carlos Paredes]

¿Puedes utilizar SQL embebido? Si es así, puedes utilizar la función

Select int(RAND()) into :numero from sysibm/sysdummy1

Esto te generaría un número aleatorio de 1 dígito. Si lo necesitas de mayor 
longitud, puedes ir multiplicando por potencias de 10.

Un saludo.

Juan Carlos.

De: forum.help400-boun...@listas.combios.es 
[mailto:forum.help400-boun...@listas.combios.es] En nombre de Juan Ramón Garcia
Enviado el: miércoles, 17 de septiembre de 2014 16:27
Para: forum.help400
Asunto: Re: Números aleatorios en COBOL400

Gracias Emilio pero tampoco me sirve.
Necesito hacerlo con COBOL400 puro y duro, no puedo utilizar API's ni otros 
lenguajes.
Si no encuentro nada mejor me tendré que montar algo con TIME.
Un saludo.
Juanra

El 17 de septiembre de 2014, 15:59, LLagostera Vila, Emilio 
emiliollagost...@mediolanum.esmailto:emiliollagost...@mediolanum.es 
escribió:
Hola Juanra,

Cuanto tiempo…

A ver si esto te sirve:

http://www-01.ibm.com/support/knowledgecenter/api/content/ssw_ibm_i_71/apis/qc3genprns.htm

No tengo ningún ejemplo en cobol ahora….cualquier cosa me dices…


De: 
forum.help400-boun...@listas.combios.esmailto:forum.help400-boun...@listas.combios.es
 
[mailto:forum.help400-boun...@listas.combios.esmailto:forum.help400-boun...@listas.combios.es]
 En nombre de Juan Ramón Garcia
Enviado el: miércoles, 17 de septiembre de 2014 14:25
Para: marcelo.d...@gmail.commailto:marcelo.d...@gmail.com; forum.help400
Asunto: Re: Números aleatorios en COBOL400

Muchas gracias Marcelo pero busco algo un poco más elaborado.

El 17 de septiembre de 2014, 14:14, Marcelo Diaz 
marcelo.d...@gmail.commailto:marcelo.d...@gmail.com escribió:
Hice una rutina que tomaba la datetime y agarraba los ultimos 6 digitos ...

El 17 de septiembre de 2014, 9:01, Juan Ramón Garcia 
juanranei...@gmail.commailto:juanranei...@gmail.com escribió:
Hola a tod@s:
Tengo un pequeño problemilla, necesito generar un nº aleatorio en COBOL400 (NO 
ILE) y no puedo utilizar CEERAN0.
He encontrado varios ejemplos en San Google pero ninguno me funciona, o son 
para COBOL-II o para ILE o simplemente no funcionan.
¿Alguien tiene una rutinilla en COBOL400 que calcule números aleatorios?
Muchas gracias.
Un saludo.

Juanra
El iSaurio RpgEro que se convirtió en CobolEro ;-)


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


[http://www.everest.es/img/mailings/imgfirma_02.png]
[http://www.everest.es/img/mailings/imgfirma_03.png]
[http://www.everest.es/img/mailings/imgfirma_04.png]
[http://www.everest.es/img/mailings/imgfirma_05.png]
[http://www.everest.es/img/mailings/imgfirma_06.png]
[http://www.everest.es/img/mailings/imgfirma_07.png] 
http://es-es.facebook.com/editorialeverest   
[http://www.everest.es/img/mailings/imgfirma_08.png] 
http://twitter.com/ed_everest
De acuerdo con la Ley orgánica 15/1999, de 13 de diciembre, de Protección de 
Datos de Carácter Personal, le informamos que los datos que nos facilite 
podrían ser incluidos en los ficheros de *GRUPO EVEREST con fines comerciales, 
contractuales y publicitarios y, a tal efecto, serán cedidos a otras empresas 
del Grupo Everest dedicadas a actividades de impresión, encuadernación, 
edición, publicación, distribución y venta de libros y otra clase de 
publicaciones. Sus datos se presumen veraces mientras no nos comunique lo 
contrario. Podrá ejercitar sus derechos de acceso, rectificación, cancelación y 
oposición en la siguiente dirección, carretera León - A Coruña, km.5, s/n, 
código postal 24010 (León). GRUPO EVEREST está integrado por EDITORIAL EVEREST, 
S.A, EVEREST DE EDICIONES Y DISTRIBUCIÓN, S.L., LA BOUTIQUE DEL LIBRO Y DEL 
OCIO, S.L., GRUPO EVERHOUSE, S.L., EDITORIAL EVEREST ANDALUCÍA, S.L., EDICIONES 
GAVIOTA, S.L., EDICIONES CADÍ, S.L., EDITORIAL EVERGRÁFICAS, S.L., GRUPO 
EVEREST DE COMUNICACIÓN, S.L., EDITORIAL EVEREST GALICIA, S.L., AIZKORRI 
ARGITALETXEA, S.L. EDITORIAL EVEREST MEXICANA, S.A. de C.V. y COMERCIAL 
LUJOAN, S.A. de C.V. Le informamos, como destinatario de este mensaje, que el 
correo electrónico y las comunicaciones por medio de Internet no permiten 
asegurar ni garantizar la confidencialidad de los mensajes transmitidos, así 
como tampoco su integridad o su correcta recepción, por lo que EDITORIAL 
EVEREST, S.A. y el resto de empresas del Grupo Everest no asume responsabilidad 
alguna por tales circunstancias. Si no consintiese en la utilización del correo 
electrónico o de las comunicaciones vía Internet le rogamos nos lo comunique y 
lo ponga en nuestro conocimiento de manera inmediata. Este 

En busca de nuevas oportunidades.

[Juan Carlos Paredes Castañón]

Buenas noches, compañeros:

Os dejo mi perfil en linkedin.

http://es.linkedin.com/pub/juan-carlos-paredes/56/517/798/

Actualmente busco nuevas oportunidades ya que la situación se está poniendo
muy complicada por aquí.

Si a alguien le interesa, por favor que contacte conmigo.

Gracias.

Juan Carlos

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

RE: Punteros en rpg

[Juan Carlos Paredes]

Te envío un ejemplo que yo uso habitualmente con las teclas de función y los 
indicadores

 d Ind s   *   inz(%addr(*in))
 d Indicadores ds  based(Ind)
 d   TeclaF3   3  3n
 d   TeclaF12 12 12n
 d   Error99 99n

El puntero Ind se inicializa con la posición de memoria de la serie *in(xx). La 
estructura de datos basada en ese puntero contendrá los valores de cada uno de 
los elementos de dicha serie. La variable TeclaF3 contendrá el valor del *in03, 
la TeclaF12 el de *in12 y la variable Error el valor de *in99.

No sé si esto te sirve.

Saludos.

Juan Carlos.

From: rpalomi...@gmail.commailto:rpalomi...@gmail.com
Sent: Tuesday, June 17, 2014 5:19 AM
To: forum.help400mailto:forum.help400@listas.combios.es
Subject: Punteros en rpg

buenas noches agradeceré su apoyo en lo siguiente. Se que para obtener 
dirección de memoria de una variable de la siguiente manera: ptr=%DDR(var1) 
pero como hago lo contrario var1=%xxx(ptr) ósea como obtengo el valor o el 
contenido a partir de una posición de memoria?.

De antemano Gracias.
Roberto Palomino



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

[http://www.everest.es/img/mailings/imgfirma_02.png]
[http://www.everest.es/img/mailings/imgfirma_03.png]
[http://www.everest.es/img/mailings/imgfirma_04.png]
[http://www.everest.es/img/mailings/imgfirma_05.png]
[http://www.everest.es/img/mailings/imgfirma_06.png]
[http://www.everest.es/img/mailings/imgfirma_07.png] 
http://es-es.facebook.com/editorialeverest   
[http://www.everest.es/img/mailings/imgfirma_08.png] 
http://twitter.com/ed_everest
De acuerdo con la Ley orgánica 15/1999, de 13 de diciembre, de Protección de 
Datos de Carácter Personal, le informamos que los datos que nos facilite 
podrían ser incluidos en los ficheros de *GRUPO EVEREST con fines comerciales, 
contractuales y publicitarios y, a tal efecto, serán cedidos a otras empresas 
del Grupo Everest dedicadas a actividades de impresión, encuadernación, 
edición, publicación, distribución y venta de libros y otra clase de 
publicaciones. Sus datos se presumen veraces mientras no nos comunique lo 
contrario. Podrá ejercitar sus derechos de acceso, rectificación, cancelación y 
oposición en la siguiente dirección, carretera León - A Coruña, km.5, s/n, 
código postal 24010 (León). GRUPO EVEREST está integrado por EDITORIAL EVEREST, 
S.A, EVEREST DE EDICIONES Y DISTRIBUCIÓN, S.L., LA BOUTIQUE DEL LIBRO Y DEL 
OCIO, S.L., GRUPO EVERHOUSE, S.L., EDITORIAL EVEREST ANDALUCÍA, S.L., EDICIONES 
GAVIOTA, S.L., EDICIONES CADÍ, S.L., EDITORIAL EVERGRÁFICAS, S.L., GRUPO 
EVEREST DE COMUNICACIÓN, S.L., EDITORIAL EVEREST GALICIA, S.L., AIZKORRI 
ARGITALETXEA, S.L. EDITORIAL EVEREST MEXICANA, S.A. de C.V. y COMERCIAL 
LUJOAN, S.A. de C.V. Le informamos, como destinatario de este mensaje, que el 
correo electrónico y las comunicaciones por medio de Internet no permiten 
asegurar ni garantizar la confidencialidad de los mensajes transmitidos, así 
como tampoco su integridad o su correcta recepción, por lo que EDITORIAL 
EVEREST, S.A. y el resto de empresas del Grupo Everest no asume responsabilidad 
alguna por tales circunstancias. Si no consintiese en la utilización del correo 
electrónico o de las comunicaciones vía Internet le rogamos nos lo comunique y 
lo ponga en nuestro conocimiento de manera inmediata. Este mensaje va dirigido, 
de manera exclusiva, a su destinatario y contiene información confidencial y 
sujeta al secreto profesional, cuya divulgación no está permitida por la ley. 
En caso de haber recibido este mensaje por error, le rogamos que, de forma 
inmediata, nos lo comunique mediante correo electrónico remitido a nuestra 
atención o a través del teléfono 902123400 y proceda a su eliminación, así como 
a la de cualquier documento adjunto al mismo. Asimismo, le comunicamos que la 
distribución, copia o utilización de este mensaje, o de cualquier documento 
adjunto al mismo, cualquiera que fuera su finalidad, están prohibidas por la 
ley. El uso y contenido de los correos electrónicos remitidos con direcciones 
bajo el dominio de everest .es serán exclusivamente de ámbito profesional. 
Las opiniones de índole política, moral o religiosa que pueden ser vertidas en 
los correos electrónicos remitidos con direcciones bajo aquel dominio, serán 
responsabilidad exclusiva de su autor, exonerando de cualquier responsabilidad 
a la empresa.




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

RE: apagado del sistema

[Juan Carlos Paredes]

De entrada, yo me aseguraría de tener un salvado completo del sistema (opción 
21 del menú GO SAVE).

Saludos.

Juan Carlos.

De: Fernando Idem [mailto:cobolero...@gmail.com]
Enviado el: jueves, 05 de junio de 2014 16:10
Para: forum.help400
Asunto: apagado del sistema

Buenas tardes;

Esta tarde noche tenemos previsto hacer un apagado del AS400, para proceder a 
cambiarlo de armario, y una vez instalado en el nuevo sitio,  proceder a su 
encendido.

En principio el proceso seria un PWRDWNSYS *IMMED.

Seria bueno hacer algo antes o tomar alguna precaucion,

Muchas gracias por vuestros comentarios

Un saludo





[http://www.everest.es/img/mailings/imgfirma_02.png]
[http://www.everest.es/img/mailings/imgfirma_03.png]
[http://www.everest.es/img/mailings/imgfirma_04.png]
[http://www.everest.es/img/mailings/imgfirma_05.png]
[http://www.everest.es/img/mailings/imgfirma_06.png]
[http://www.everest.es/img/mailings/imgfirma_07.png] 
http://es-es.facebook.com/editorialeverest   
[http://www.everest.es/img/mailings/imgfirma_08.png] 
http://twitter.com/ed_everest
De acuerdo con la Ley orgánica 15/1999, de 13 de diciembre, de Protección de 
Datos de Carácter Personal, le informamos que los datos que nos facilite 
podrían ser incluidos en los ficheros de *GRUPO EVEREST con fines comerciales, 
contractuales y publicitarios y, a tal efecto, serán cedidos a otras empresas 
del Grupo Everest dedicadas a actividades de impresión, encuadernación, 
edición, publicación, distribución y venta de libros y otra clase de 
publicaciones. Sus datos se presumen veraces mientras no nos comunique lo 
contrario. Podrá ejercitar sus derechos de acceso, rectificación, cancelación y 
oposición en la siguiente dirección, carretera León - A Coruña, km.5, s/n, 
código postal 24010 (León). GRUPO EVEREST está integrado por EDITORIAL EVEREST, 
S.A, EVEREST DE EDICIONES Y DISTRIBUCIÓN, S.L., LA BOUTIQUE DEL LIBRO Y DEL 
OCIO, S.L., GRUPO EVERHOUSE, S.L., EDITORIAL EVEREST ANDALUCÍA, S.L., EDICIONES 
GAVIOTA, S.L., EDICIONES CADÍ, S.L., EDITORIAL EVERGRÁFICAS, S.L., GRUPO 
EVEREST DE COMUNICACIÓN, S.L., EDITORIAL EVEREST GALICIA, S.L., AIZKORRI 
ARGITALETXEA, S.L. EDITORIAL EVEREST MEXICANA, S.A. de C.V. y COMERCIAL 
LUJOAN, S.A. de C.V. Le informamos, como destinatario de este mensaje, que el 
correo electrónico y las comunicaciones por medio de Internet no permiten 
asegurar ni garantizar la confidencialidad de los mensajes transmitidos, así 
como tampoco su integridad o su correcta recepción, por lo que EDITORIAL 
EVEREST, S.A. y el resto de empresas del Grupo Everest no asume responsabilidad 
alguna por tales circunstancias. Si no consintiese en la utilización del correo 
electrónico o de las comunicaciones vía Internet le rogamos nos lo comunique y 
lo ponga en nuestro conocimiento de manera inmediata. Este mensaje va dirigido, 
de manera exclusiva, a su destinatario y contiene información confidencial y 
sujeta al secreto profesional, cuya divulgación no está permitida por la ley. 
En caso de haber recibido este mensaje por error, le rogamos que, de forma 
inmediata, nos lo comunique mediante correo electrónico remitido a nuestra 
atención o a través del teléfono 902123400 y proceda a su eliminación, así como 
a la de cualquier documento adjunto al mismo. Asimismo, le comunicamos que la 
distribución, copia o utilización de este mensaje, o de cualquier documento 
adjunto al mismo, cualquiera que fuera su finalidad, están prohibidas por la 
ley. El uso y contenido de los correos electrónicos remitidos con direcciones 
bajo el dominio de everest .es serán exclusivamente de ámbito profesional. 
Las opiniones de índole política, moral o religiosa que pueden ser vertidas en 
los correos electrónicos remitidos con direcciones bajo aquel dominio, serán 
responsabilidad exclusiva de su autor, exonerando de cualquier responsabilidad 
a la empresa.




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