Grabar un archivo en la carpeta IFS por SqlRpgLe
Hola Algún ejemplo de como grabar Todo un archivo con una variable SQLTYPE (CLOB_FILE) a la carpeta compartida. En síntesis con vuelco el resultado de SELECT (+ de una fila) a mi Variable SQLTYPE(CLOB_TIPE)? Desde ya muchas gracias Saludos. Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
Fwd: Resumen de Forum.help400, Vol 154, Envío 1
Muchas gracias Manuel! Aclarado! Saludos -- Forwarded message - From: Date: vie., 2 ago. 2019 5:52 Subject: Resumen de Forum.help400, Vol 154, Envío 1 To: 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. IF DEFINE RPGLE (josepo...@gmail.com) 2. Re: IF DEFINE RPGLE (Manuel Antonio Ramirez Raygada) 3. Re: IF DEFINE RPGLE (Alex Martínez) -- Message: 1 Date: Thu, 1 Aug 2019 09:17:36 -0400 From: josepo...@gmail.com Subject: IF DEFINE RPGLE To: "forum.help400" Message-ID: Content-Type: text/plain; charset="utf-8" Hola Alguien sabe para que se usa Los comandos /DEFINE /IF /ELSEIF Según la documentación no me es muy claro. (condiciones de compilar ?) Algun ejemplo?Un poco Gracias Saludos próxima parte Se ha borrado un adjunto en formato HTML... URL: < http://listas.combios.es/cgi-bin/mailman/private/forum.help400/attachments/20190801/38dd3556/attachment-0001.html > -- Message: 2 Date: Thu, 1 Aug 2019 15:19:06 -0500 From: Manuel Antonio Ramirez Raygada Subject: Re: IF DEFINE RPGLE To: "forum.help400" Message-ID: Content-Type: text/plain; charset="utf-8" Buenas tardes Jose: Los codigos de operacion DEFINE permiten duplicar caracteristicas de un campo en otro c *like definea_UNCACC k_UNCACC c *like definea_UNCCUN k_UNCCUN c *like definea_UNCRDY k_UNCRDY c *like definea_UNCRDM k_UNCRDM c *like definea_UNCRDD k_UNCRDD c *like defined_ACMACC k_ACMACC El campo especificado en el factor 2, duplicará las caracteristicas en el campo especificado en el campo de resultado. Los codigos de operacion IF y ELSEIF sirven para realizar validaciones. *c ifdeasts=' ' and deapri>0* c move deaglnproref 16 c movel prorefprdcta4 c movel *blanks ctrcta2 c eval ctrcta = %subst(proref:7:2) *c if(prdcta='1414' or prdcta='1424') and c fevede >= fecjob *c eval Pcar06 = 'SI' *c elseif(prdcta='1415' or prdcta='1425') and c fevede < fecjob and ctrcta = '19' * c eval Pcar06 = 'NO' *c endif* *c endif * Espero que la explicacion sea de tu entera satisfaccion. *Manuel A. Ramirez Raygada* *Analista de Sistemas - AS400* *UST GLOBAL PERU* *LIMA - PERU* El jue., 1 ago. 2019 a las 8:20, escribió: > > Hola > Alguien sabe para que se usa > Los comandos > /DEFINE > /IF > /ELSEIF > Según la documentación no me es muy claro. (condiciones de compilar ?) > Algun ejemplo?Un poco > Gracias > Saludos > > Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) > Forum.Help400 © Publicaciones Help400, S.L. próxima parte Se ha borrado un adjunto en formato HTML... URL: < http://listas.combios.es/cgi-bin/mailman/private/forum.help400/attachments/20190801/ec11f200/attachment.htm > -- Message: 3 Date: Fri, 2 Aug 2019 09:27:13 +0200 From: Alex Martínez Subject: Re: IF DEFINE RPGLE To: "forum.help400" Message-ID: Content-Type: text/plain; charset="utf-8" Son directivas del compilador que permiten, por ejemplo, añadir o excluir líneas de código durante la compilación por ejemplo, para depurar un programa incluyes unas lineas de código que sólo se ejecutan si al compilar el programa está lacondición definida CRTBNDRPG DEFINE(depurar-botijo) /if defined( depurar-botijo ) dsplog( 'valor de A : ' + %char( a ) /endif El jue., 1 ago. 2019 a las 15:20, escribió: > > Hola > Alguien sabe para que se usa > Los comandos > /DEFINE > /IF > /ELSEIF > Según la documentación no me es muy claro. (condiciones de compilar ?) > Algun ejemplo?Un poco > Gracias > Saludos > > Únete a Recursos
IF DEFINE RPGLE
Hola Alguien sabe para que se usa Los comandos /DEFINE /IF /ELSEIF Según la documentación no me es muy claro. (condiciones de compilar ?) Algun ejemplo?Un poco Gracias Saludos Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
API verificar trabajo de prearranque
Hola Necesito verificar si un trabajo de prearranque está corriendo o no. Algún API que pueda utilizar para capturar esa información. Gracias Saludos Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
Convertir una tabla a archivo .XML
Hola foro. Tengo una tabla que cree en mi biblioteca y que tiene una única columna tipo XML y quiero subir este archivo a la carpeta compartida Ifs como un archivo. XML Alguien tiene un ejemplo para compartir. Desde ya muchas gracias. Saludos Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
Definir una data structur en un Store procedure
Hola . Lo que quiere es no llamar a un programa RPG. Pero si no es posible, tendré que crear y llamar al programa RPG desde S.P. Desde ya les agradezco mucho la información. Saludos✌ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
Definir una data structur en un Store procedure
Hola estoy necesitando definir una data structur (asi como se define en rpg) dentro de un procedimiento almacenado. Db2. Esto seria hipotéticamente DECLARE "field" CHAR (100) Y la variable "field" subdividir en varios subcampos "field1" Dec (15, 0); "field2" Dec (15, 0); "field3" Dec (15, 0); "field4" Dec (15, 0); "field5" Char (40); Será que es posible? Si tienen algún ejemplo les agradecería mucho. Saludos Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
OVRDBF
Hola! Tengo un progama que lee un archivo en forma primaria (P). No deseo cambiar el codigo de lectura. Habria alguna forma sin usar el Open Qry File de que me lea un solo registro a partir de una clave seleccionada?. Tipo hacer Un OVRDBF? Muchas gracias desde Ya! Saludos Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
Evitar bloqueo con una SELECT
Hola como puedo hacer para que no se bloquee una tabla con una sentencia select ? Ej. Select campo1 from libl/archivo where clave = xx. Haciendo WRKOBJLCK siempre hay bloqueo de la tabla libl/archivo. Gracias! Enviado desde mi BMOBILE AX1020 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
Optimizar el cursor en Sql
Hola Leo un archivo a travez de un Cursor (sql) en forma secuencial y por cada registro seleccionado hago un open y close de otro cursor a travez otra sentencia Sql. Habria una forma de optimizar la 2da consulta o sea dejar abierto el 2do. cursor de manera de no hacer siempre un Open/Close cada vez que accedo a la 2da. consulta? Gracias Saludos! Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
Problema con %Xlate
Hola foro! Asigna a una variable el valor hexadecimal de la comilla que es X'7D' %XLATE(varible: campo_cambio) Espero que te sea util. Saludod. Enviado desde mi BMOBILE AX1020 Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
Recuperar nombre del programa
Muchas gracias foro! por la info muy util y Feliz Navidad! Saludos. Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
Recuperar nombre del programa
Hola foro! Como puedo obtener dentro del programa#2 Rpg, el nombre de programa#1 desde el cual es invocado el programa#2. Gracias Saludos Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
Insertar en un campo de texto comillas simples dentro de un procedimiento almacenado
Hola Como puedo insertar en un campo de texto comillas simples dentro de un procedimiento almacenado? Por ejemplo. Set campo_var = ' fecha ='2017-05-02' ' No me funciona con X'7D' asi Set campo_var = ' fecha =' Concat X'7D' concat '2017-05-02' concat X'7D' en el procedimiento almacenado. Gracias Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
Verificar estado del subsistema
Ok con el utilitario. Excelente. Muchas gracias a todos! Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
Verificar estado del subsistema.
Buenas Hay un api o comando del iseries que me retorne el estado de subsistema. O sea algo que me pueda inicar si esta levantado o bajo? Muchas Gracias. Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
FELICES FIESTAS Y UN 2016 CON MUCHOS ÉXITOS
Felices Fiestas a todos y cada uno de los integrantes del foro. Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
Error en transferencia PC-i_series
Hola podes enviar el archivo de transferencia fdf para ver si puedo ayudar. Saludos Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
Parsear XML con db2
Hola Alguien tiene un ejemplo de volcar en un archivo físico los valores de los atributos de un archivo XML por un función o comando sql . Gracias Saludos. Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
Delete de 2 (dos) tablas
Hola hay forma de borrar registros de dos tablas en una sentencia. Gracias Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
Desplegar Msg en operador del sistema desde un procedimiento almacenado.
Muchas Gracias !!! Saludos Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
Desplegar Msg en operador del sistema desde un procedimiento almacenado.
Hola Como podría visualizar un variable desde un procedimiento almacenado. Algo como DSPLY. y que pueda ver la variable en la cola .QSYSOPR. Gracias Saludos Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
Join DDS
Hola Como puedo hacer un join de 2 archivos físicos cuyo campo unión son A.field ( 6, 0) y B.field (10, 0) . Gracias. Saludos. El mar 27, 2015 8:02 AM, forum.help400-requ...@listas.combios.es 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. RE: Emulación 5250 Citrix Apple Mac OSX (Vicente Jose Garcia Valero) 2. Re: Emulación 5250 Citrix Apple Mac OSX (Antonio) -- Message: 1 Date: Thu, 26 Mar 2015 20:45:30 +0100 From: Vicente Jose Garcia Valero vigar...@obinesa.com Subject: RE: Emulación 5250 Citrix Apple Mac OSX To: forum.help400 forum.help400@listas.combios.es Message-ID: c2e835ad2bdcc340875c6351fb7ecd0c1acbe86...@lubcs4.lubasa.net Content-Type: text/plain; charset=utf-8 Gracias Juan. No tengo muy claro cómo hacer eso y Google no me lo aclara. Como aquí no tengo un Mac, lo pruebo luego y os cuento. De: forum.help400-boun...@listas.combios.es [mailto: forum.help400-boun...@listas.combios.es] En nombre de Juan Fernandez Brea INFORMATICA Enviado el: martes, 24 de marzo de 2015 7:29 Para: forum.help400 Asunto: Re: Emulación 5250 Citrix Apple Mac OSX Hola, Tienes que desactivar el UNICODE de la configuración del teclado del MAC. Saludos Hospital POVISA Juan Brea INFORMATICA INFORMATICA Tlf: 986413144,1631 Email: jb...@povisa.esmailto:jb...@povisa.es Hospital POVISA, C/Salamanca 5, 36211 VIGO El 23 de marzo de 2015, 23:48, Vicente Jose Garcia Valero vigar...@obinesa.commailto:vigar...@obinesa.com escribió: Os quiero consultar un tema un poco rebuscado pero al que no encontramos solución: Tenemos una granja Citrix con XenApp sobre la que tenemos instalados entre otros, Client Access 5.4 con SP SI37892. Cuando utilizamos sesiones PC5250 desde equipos cliente con Windows el teclado funciona correctamente. Pero cuando el cliente es un Apple Mac (varias versiones de OSX) hay muchas teclas que al ser pulsadas no se ven reflejadas en la sesión 5250 (ñ º ª ç ¡). Tanto teclado Apple sin teclas bloque numérico como el que es completo. La sesión es la misma, abierta desde un cliente y el otro alternativamente con el mismo fichero kmp (definición teclado). El teclado del Mac funciona y mapea bien con Citrix ya que si abres por ejemplo el Notepad en este aparecen todas las teclas pulsadas incluidas las que fallan en la sesión 5250. Hemos leído el APAR II11373 pero no aporta ninguna idea. Cualquier ayuda o consejo será apreciado? Vicente García Valero OBINESA | Sistemas Ciudad del Transporte II, Calle Grecia, 31 - 12006 Castellón Tel. 964 34 33 00 - Fax. 964 34 33 22 Móvil 661 27 24 03 (Corp. 8260) www.obinesa.comhttp://www.obinesa.com Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L. AVISO LEGAL: en cumplimiento de la Ley Orgánica de Protección de Datos y Reglamento que la desarrolla: Disclaimer http://povisa.es/disclaimer/email_disclaimer.html próxima parte Se ha borrado un adjunto en formato HTML... URL: http://listas.combios.es/cgi-bin/mailman/private/forum.help400/attachments/20150326/d3dabf38/attachment-0001.html -- Message: 2 Date: Fri, 27 Mar 2015 09:35:19 +0100 From: Antonio drivelikes...@gmail.com Subject: Re: Emulación 5250 Citrix Apple Mac OSX To: forum.help400@listas.combios.es Message-ID: 55151647.2040...@gmail.com Content-Type: text/plain; charset=windows-1252; format=flowed Si la solución de Juan no te funciona, yo lo solucione instalando otro emulador por ejemplo el mocha, en el mismo entorno, es decir servidor citrix versión 6.5 con el mocha funcionaba bien todo si cambiar nada en el mac. Un saludo. El 26/03/2015 a las 20:45, Vicente Jose Garcia Valero escribió: Gracias Juan. No tengo muy claro cómo hacer eso y Google no me lo aclara. Como aquí no tengo un Mac, lo pruebo luego y os cuento. *De:*forum.help400-boun...@listas.combios.es [mailto:forum.help400-boun...@listas.combios.es] *En nombre de *Juan Fernandez Brea INFORMATICA *Enviado el:* martes, 24 de marzo de
Re: Resumen de Forum.help400, Vol 98, Envío 21
Muchas felicidades y éxitos a todos y cada uno del Foro por el 2015. El dic 22, 2014 1:17 p.m., forum.help400-requ...@listas.combios.es 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. Re: Feliz Año 2015!! (Rafael de Juan) 2. RE: Feliz Año 2015!! (FERNANDO MURU ADURIZ) 3. Re: Feliz Año 2015!! (Pedro Pinedo) 4. Re[2]: Feliz Año 2015!! (Elvira_vazquez) -- Message: 1 Date: Mon, 22 Dec 2014 16:41:25 +0100 From: Rafael de Juan rdej...@gmail.com Subject: Re: Feliz Año 2015!! To: forum.help400 forum.help400@listas.combios.es Message-ID: caocggz9zsrgu3rf9lxegoostpelepdo7ikedsjcqjxs9a5g...@mail.gmail.com Content-Type: text/plain; charset=utf-8 Felicidades, agradecimiento y ánimo a todos. Espero que sigáis manteniendo este imprescidible vinculo. El 22 de diciembre de 2014, 16:29, Juan Carlos Paredes Castañón juancar...@paredes.info escribió: 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 *med...@e-camacho.com 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 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 ) Forum.Help400 © Publicaciones Help400, S.L. -- http://www.avast.com/ Este mensaje no contiene virus ni malware porque la protección de avast! Antivirus http://www.avast.com/ está activa. Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L. -- 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. próxima parte Se ha borrado un adjunto en formato HTML... URL:
Como saber la cantidad registros.
Hola Foro. Como puedo obtener la cantidad de registro de un archivo situado en la carpeta compartida IFS. Hay alguna funcion o comando que me pueda indicar. ( tipo función C read () ). Gracias. Saludos:-) Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
Pasar un array como parametro desde a un programa RPG.
Alguien tiene un ejemplo como pasar array como parametro desde java a un prg. RPG. Gracias desde ya. Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
Saber la cantidad de registros en un Select For update.
Hola foro Se puede saber la cantidad de registros en esta sentencia de RPGLE embebido ? EXEC SQL DECLARE cur_001 CURSOR FOR SELECT A.field FROM LIB1/FILE_1 A FOR UPDATE OF field EXEC SQL GET DIAGNOSTICS ? ? ? Gracias Saludos Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
Performance del cpu
Tengo programas RPGLE y SQLRPGLE que no actualizan ningún archivo solo es para consultar y son llamados por otros programas por tal motivo no utilizo ”INDICADOR LR”, sino solo “RETURN” . El problema es que el consumo de CPU del Iseries V7R1M0 es mayor en comparación si en estos mismos programas le agrega ”INDICADOR LR” Según las recomendaciones para aumentar la preformase para casos de consulta masiva es utilizar solo “RETURN” o estoy equivocado? Favor indicarme cual es la forma más efectiva de disminuir el consumo de CPU para estos casos. Gracias y Saludos Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
Clases de Java llamados desde RPGLE
En un mismo proceso ejecuto un programa RPG, que llama a un método java y por tal motivo construyo un CLASSPATH (Ejemplo: ADDENVVAR ENVVAR(CLASSPATH) VALUE('/folder1/myclass1) REPLACE(*YES)), funciona correctamente el programa, acto seguido llamo a otro programa RPG, que también llama a un método java que esta en otra carpeta IFS, lo cual cambio el CLASSPATH Ejemplo: ADDENVVAR ENVVAR(CLASSPATH) VALUE('/folder2/myclass2') REPLACE(*YES), pero este me arroja un error que no encuentra la clase. Para solucionar el problema en la primera construcción del CLASSPATH ya le incluyo todas las carpetas Ejemplo ADDENVVAR ENVVAR(CLASSPATH) VALUE('/folder2/myclass2:/folder1/myclass1') REPLACE(*YES). Mi pregunta es tengo que incluir en el primer CLASSPATH todas las carpetas en donde están las distintas clases? O hay alguna otra forma de ir cambiando el CLASSPATH en el mismo proceso? Gracias Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
Leer un archivo en forma secuencial en Java
hola Necesito leer en un programa Java llamado desde ambiente As400 un archivo que esta un biblioteca en forma secuencial, sin usar un SELECT (result set) Si alguien puede ayudarme Gracias Saludos Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
CREATE PROCEDURE con parametro de salida
Hola Tengo esta sentencia CREATE PROCEDURE MILIB.MIPROCE ( out salida CHAR (3) ) RESULT SETS 1 LANGUAGE SQL sqlproc: begin DECLARE CUR1 SCROLL CURSOR FOR SELECT * FROM MILIB.MItabla; OPEN CUR1; SET RESULT SETS CURSOR CUR1; end Como puedo hacer que este procedimiento devuelva en la variable salida un valor, si el resultado de SELECT * FROM MILIB.MItabla no trae ninguna fila? Desde muchas gracias Saludos © Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es Para darte de baja visita la siguente URL: http://listas.combios.es/mailman/listinfo/forum.help400
Está naciendo una nueva Comunidad de i-Evangelistas ¡
Hola me registre como USUARIO josepozzo saludos © Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es Para darte de baja visita la siguente URL: http://listas.combios.es/mailman/listinfo/forum.help400
Leer parametros y recibir parametros
Hola Foro Antes que nada muchas gracias, Lo que necesito es volcar los 50 paramatros en un campo unico tipo texto y que cada parametro recibido este separado por punto y coma. D principiopr EXTPROC(myprograma) D parm50 likeds(datastruct) D principiopi D parm50 likeds(datastruct) D datastruct DSQUALIFIED D par0120A D par02 1S 0 D par0310S 0 D par5030A D datapuntoDSQUALIFIED D par0120A DINZ(':') D par02 1S 0 DINZ(':') D par0310S 0 DINZ(':') D par5030A En Free datastruct = parm50 y luego y luego con EVAL-CORR datapunto = datapunto; ) )para no mover de a uno cada paramatro. y luego con un FOR recorrer datapunto e ir cargando el campo textopuntoycoma Ej : 'aaao;sdfsd;;;' Es lo que pretendo hacer. Si hay otra manera por favor me podrian indicar como. Gracias © Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es Para darte de baja visita la siguente URL: http://listas.combios.es/mailman/listinfo/forum.help400
Leer parametros y recibir parametros
Hola Foro Tengo un programa que tiene mas de 50 parámetros de entrada.y necesito validar dichos parámetros. 1; Hay forma de volcarlo en una matriz y preguntarlo por índice (tipo macro)? 2: Declaro parametros en un programa en esta forma D principiopr EXTPROC(myprograma) D parm50 likeds(datastruct) D principiopi D parm50 likeds(datastruct) D datastruct DSQUALIFIED D par0120A D par02 1S 0 D par0310S 0 D par5030A Pero al leerlo solo me trae datos validos el primero.(par01) los siguientes me trae basura. Lo solucione de la siguiente forma en el programa Rpgle,del cual envía los parámetros declare los parametros también como (DS) DATA STRUCTUR. Ahora Mi pregunta es como soluciono cuando el programa que envia no es RPG o es un procedimiento almacenado. Gracias desde ya © Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es Para darte de baja visita la siguente URL: http://listas.combios.es/mailman/listinfo/forum.help400
FTP caracter especial
Hora Foro Transfiero un archivo via FTP con caracteres especiales (X'3F', o X'30' u otros, que veo con DSPPFM en la AS400) Y al visualizar el archivo ya tranferido con wordpad me trunca el registro (interpreta como un caracter de retorno) en la posicion del caracter especial y continua en la siguiente linea. Alguien tiene alguna idea como puedo solucionar Desde muchas Gracias © Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es Para darte de baja visita la siguente URL: http://listas.combios.es/mailman/listinfo/forum.help400
Saber EOF en free
GRACIAS a Todos de Ya Un saludo a todos en especial a mi gran amigo CUERVO. Lo que quiero es ganar en velocidad de proceso(Al menos a mi me parece mas rápido ) por eso elijo abrir en forma de archivo primario (P) y no en la parte de calculo(Por favor me corrigen si estoy equivocado). Así como dijo Miguel es lo que necesito /FREE proceso en free; /END-FREE CLREXSR SR_LR. /FREE begsr SR_LR; hacer por fin de archivo; endsr; /END-FREE MUCHAS GRACIAS DESDE PARAGUAY © Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es Para darte de baja visita la siguente URL: http://listas.combios.es/mailman/listinfo/forum.help400
Como se maneja el SQLDA dentro del ile_rpg
Hay un ejemplo de llamar un procedimiento CALL (parm_inp, parm_out) en un programa ile_rpg y recibir un result set en el mismo programa ile_rpg. Como se maneja el SQLDA dentro del ile_rpg. Muchas gracias __ Forum.HELP400 es un servicio mamp;#225;s de ServerNEWS. amp;#169; Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _ Para darte de baja visita la siguente URL: http://listas.combios.es/mailman/listinfo/forum.help400
Recibir un result set en RPG ILE
Buenas Tengo este procedimiento que es llamado de desde RGP ILE C/EXEC SQL C+ Call procedure(:Parm1, Parm2,..Parm3) C/END-EXEC Hasta aqui no hay problema..lo que no consigo es la forma de recuperar en RPG ILE el RESULT SETS que retorna del procedimiento. Alguien tiene algún ejemplo . Gracias __ Forum.HELP400 es un servicio mamp;#225;s de ServerNEWS. amp;#169; Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _ Para darte de baja visita la siguente URL: http://listas.combios.es/mailman/listinfo/forum.help400
SQL CON CURRENT_DATE *ISO
Si estas ejecutando interactivamente pulsas F13 y cambias el formato de fecha a *iso o Tambien CURRENT DATE sin guion. Saludos __ Forum.HELP400 es un servicio mamp;#225;s de NEWS/400. amp;#169; Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _ Para darte de baja visita la siguente URL: http://listas.combios.es/mailman/listinfo/forum.help400
Feliz Navidad
Feliz Navidad y Prospero Año 2009 y que la famosa crisis sea solo una anecdota y una oportunidad de crecer. __ Forum.HELP400 es un servicio mamp;#225;s de NEWS/400. amp;#169; Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _ Para darte de baja visita la siguente URL: http://listas.combios.es/mailman/listinfo/forum.help400
Incluir comilla en campo alfanumérico
Proba con X'7D' que es comilla en hexadecimal eval Campo_comilla= X'7D' + 'direccion' + X'7D' __ Forum.HELP400 es un servicio mamp;#225;s de NEWS/400. amp;#169; Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _ Para darte de baja visita la siguente URL: http://listas.combios.es/mailman/listinfo/forum.help400
Ovrdbf sobre sql (Jaime Villa Torres)
Tienes que hacer un Alias con el archivo/miembro y lo utilizas en la setencia sql con el nombre del Alias __ Forum.HELP400 es un servicio mamp;#225;s de NEWS/400. amp;#169; Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _ Para darte de baja visita la siguente URL: http://listas.combios.es/mailman/listinfo/forum.help400
Copiar un archivo desde un direcctorio IFC a una carpeta
Como logro copiar un archivo desde un directorio IFC a una carpeta de las iSeries? Con las clase fileoutputstream(QDLS/CARUSUARIO/file.txt) me arroja el error no esta permitido Desde ya gracias __ Forum.HELP400 es un servicio mamp;#225;s de NEWS/400. amp;#169; Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _ Para darte de baja visita la siguente URL: http://listas.combios.es/mailman/listinfo/forum.help400