Re: Impresora Minolta DI-350
Las impresoras Minolta DiAlta se puede configurar como modelo *HP5, puerto 9100 http://www-912.ibm.com/s_dir/slkbase.nsf/1ac66549a21402188625680b0002037e/4b2576f82af70d80862569c1007a491d?OpenDocument No deberías tener problemas para configurarla. Salu2 On Apr 5, 2005 12:42 PM, jose manuel lopez gestal [EMAIL PROTECTED] wrote: Buenis días foro alguien tiene conectada al 400 una Minolta DI-350 como una impresora de red ? podría pasarnos la descripción del dispositivo con todas las especificaciones ? gracias ** José Manuel López Gestal Dpto. Sistemas de Información Hospital Modelo http://www.hospitalmodelo.com ** Este mensaje puede contener Información Privilegiada o Confidencial. Si Vd. no es el destinatario indicado en este mensaje (o el responsable de la entrega del mensaje a dicha persona), no debe copiar o entregar este mensaje a ninguna persona. Por el contrario, debe destruir este mensaje y notificárnoslo inmediatamente. This e-mail and any attachment contains information which is private and confidential and is intended for the addressee only. If you are not an addressee, you are not authorised to read, copy or use the e-mail or any attachment. If you have received this e-mail in error, please notify the sender by return e-mail and then destroy it. _ Forum.HELP400 es un servicio más de NEWS/400. (c) Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _ Para darte de baja, envía el mensaje resultante de pulsar mailto:[EMAIL PROTECTED] _ Forum.HELP400 es un servicio más de NEWS/400. © Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _ Para darte de baja, envía el mensaje resultante de pulsar mailto:[EMAIL PROTECTED]
Re: Reingenieria de Programas clasicos, por programas de 2 o 3 capas, en RPG y RPGLE.
Nicolas Machado escribi: Mensaje Hola Fernando, si mas o menos esa es la idea de nuestro problema. Algunos compaeros habian implementado algo con parametros formados por DS externas que se mapeaban con los archivos a procesar. Pero al usar una subfile tendria que leer de a n regsitros por vez, y guardar cual es el ultimo registro leido. Creo, me parece haber leido algo, para usar SQLRPGLE y poder armar un Recordset desde una consulta SQL embebida en un RPG. Eso estaria interesante. Bueno, te cuento que puse un weblog en http://nicoweblog.blogspirit.com/ ahi puedes encontrar una entrada llamada " Programacion de Capas en RPG/ILE", y puse el link al "Libro Rojo" de donde saque las ideas Bueno espero les sirva. Nicolas Vaya, el mismo redbook que le yo :). Respecto a los subfiles, es uno de los casos de lectura secuencial de un fichero en los que normalmente nuestros programas acceden directamente al fichero en lugar de mediante funciones externas. No solemos usar sql embebido para cargar subficheros porque no hay una forma fcil de gestionar la accin de posicionarse en un determinado registro a peticin del usuario. De todas maneras, para subficheros que no tengan esta opcin y cuya carga implique selecciones y joins entre varios ficheros, sql es la mejor eleccin. Solo comentar que le en un manual de IBM (no recuerdo cual, lo siento) que convena utilizar lo menos posible sql en programas de servicio, porque el consumo de memoria es bastante alto. -- Saludos. Fernando Prez Cermica Saloni. Dpto. Sistemas begin:vcard fn;quoted-printable:Fernando P=C3=A9rez n;quoted-printable:P=C3=A9rez;Fernando org:;Sistemas email;internet:[EMAIL PROTECTED] tel;work:Ext. 627 x-mozilla-html:TRUE version:2.1 end:vcard
Re: Reingenieria de Programas clasicos, por programas de 2 o 3 capas, en RPG y RPGLE.
Title: Mensaje Jaime Villa Torres escribi: Este tema me parece muy interesante, pero poco estoy enterado, es posible un ejemplo de un programa que utilice un programa de servicio donde se utilice las operaciones de acceso de base de datos como setll, chain, etc., no se si es mucho pedir, pero de antemano agradezco esta informacin. Jaime Villa T. Aqu va un pequeo ejemplo de una funcin que implementa un chain. El equivalente para setll y read/e es muy similar // // asumiremos que fichero tiene una clave de acceso de dos campos Ffichero UF E K DISK usropn prefix(fic_) * // Ds con el formato de registro de nuestro fichero de referencia // de campos. La lnea siguiente la tenemos en realidad en un fuente // a parte para incluir con /copy D ref E DS extname(ref) qualified based(@) // // Ds prototipo con el formato de registro del fichero. Tambin est // en un fuente aparte para incluir con /copy D dsfichero_rf E DS extname(fichero) qualified based(@) // // DS en la que se exportan los datos del fichero. El puntero y la segunda // DS son para que se cargue la primera DS con los campos del fichero a cada // operacin de lectura. D dsfichero DS likeds(dsfichero_rf) inz export D dsfichero@ S * inz(%addr(dsfichero)) D E DS extname(fichero) based(dsfichero) D prefix(fic_) // // Ejemplo de chain. En el nombre de la funcin, la U significa que el fichero // est abierto para actualizacin y la C indica que la operacin es chain. P fichero_UC B export D PI 1N D ds likeds(fichero_RF ) options(*omit) D clave1 like(ref.clave1) value D clave2 like(ref.clave2) value * /free // // El programa de servicio solo abrir los ficheros que se vayan a utilizar. En las operaciones de chain // y setll/setgt se abre el fichero si no est ya abierto. En read/e, update, write y delete se asume que // el fichero ya se ha abierto. if not %open(fichero); open fichero; endif; select; when %parms=2; chain clave1 fichero ; when %parms=3; chain (clave1: clave2) fichero ; other; return false; endsl; // // Si se encontr registro y se pasa ds en la que devolver los datos, // la cargo con los datos recuperados. El programa que llama a esta funcin // puede no pasar la ds y trabajar directamente con dsfichero, donde siempre // estn los datos del ltimo registro accedido. // en V5R3 se puede hacer chain para que devuelva directamente en una DS, pero // en V5R2 no hay una forma prctica de hacerlo. if %found and %addr(ds)*null; ds=dsfichero; endif; return (%found); /end-free * P fichero_UC E Y ahora el acceso desde un programa (asumiremos que se han hecho los /copy necesarios para tener las declaraciones de ds's prototipo utilizadas) D dsfichero DS likeds(dsfichero_rf) import * D ds2 DS likeds(dsfichero_rf) inz // /free // Chain por clave parcial y sin pasar DS. Se usan los datos de la DS importada if fichero_UC(*omit: c1) ; dsply dsfichero.campo1 ; endif ; // Chain pasando DS. Se usan los datos de la DS, pero tambin estn en la DS importada if fichero_UC(ds2: c1: c2) ; dsply ds2.campo1 ; endif ; /end-free -- Saludos. Fernando Prez Cermica Saloni. Dpto. Sistemas begin:vcard fn;quoted-printable:Fernando P=C3=A9rez n;quoted-printable:P=C3=A9rez;Fernando org:;Sistemas email;internet:[EMAIL PROTECTED] tel;work:Ext. 627 x-mozilla-html:TRUE version:2.1 end:vcard
Re: Reingenieria de Programas clasicos, por programas de 2 o 3 capas, en RPG y RPGLE.
Una pequea pero importante errata: D E DS extname(fichero) based(dsfichero@) en lugar de : D E DS extname(fichero) based(dsfichero) -- Saludos. Fernando Prez Cermica Saloni. Dpto. Sistemas begin:vcard fn;quoted-printable:Fernando P=C3=A9rez n;quoted-printable:P=C3=A9rez;Fernando org:;Sistemas email;internet:[EMAIL PROTECTED] tel;work:Ext. 627 x-mozilla-html:TRUE version:2.1 end:vcard
RE: Reingenieria de Programas clasicos, por programas de 2 o 3 capas, en RPG y RPGLE.
Title: Mensaje Hola Buenos Das. El objetivo es permitir mantener la lgica de negocios que fue programada originalmente en RPG o RPGLE, y cambiar la capa de interfaz. De esta manera se podra, utilizar un browser para acceder a la aplicacin, si entrar en el uso de Screen Scrappers. Y tambin para romper un poco el mito de que el AS/400 es tecnologa vieja con pantallas de caracteres. Pero volviendo a la practicidad, creo que una tcnica moderna de capas seria muy productivo a la hora de hacer mas accesible las aplicaciones legacy hacia otros sistemas. Para que realmente la aplicacin sea abierta, como la arquitectura. Para que cualquier intento de cambio de arquitectura realmente se centre en la relacin costo / beneficio, y no en favoritismos o fanatismos ;). Saludos Nicolas PD: Adems, aprender algo nuevo nunca esta de mas. -Original Message-From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Juan AntonioSent: Wednesday, April 06, 2005 3:29 AMTo: forum.help400@combios.esSubject: Re: Reingenieria de Programas clasicos, por programas de 2 o 3 capas, en RPG y RPGLE. Buenos das. Una duda: cal es el objetivo final, o lo que se pretende,de reprogramar con este tipo de estructura?. - Original Message - From: Nicolas Machado To: forum.help400@combios.es Sent: Tuesday, April 05, 2005 8:51 PM Subject: RE: Reingenieria de Programas clasicos, por programas de 2 o 3 capas, en RPG y RPGLE. Hola Fernando, si mas o menos esa es la idea de nuestro problema.Algunos compaeros habian implementado algo con parametros formados por DS externas que se mapeaban con los archivos a procesar.Pero al usar una subfile tendria que leer de a n regsitros por vez, y guardar cual es el ultimo registro leido.Creo, me parece haber leido algo, para usar SQLRPGLE y poder armar un Recordset desde una consulta SQL embebida en un RPG.Eso estaria interesante.Bueno, te cuento que puse un weblog en http://nicoweblog.blogspirit.com/ ahi puedes encontrar una entrada llamada "Programacion de Capas en RPG/ILE",y puse el link al "Libro Rojo" de donde saque las ideasBueno espero les sirva.Nicolas -Original Message-From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] On Behalf Of Fernando PrezSent: Tuesday, April 05, 2005 11:52 AMTo: forum.help400@combios.esSubject: Re: Reingenieria de Programas clasicos, por programas de 2 o 3 capas, en RPG y RPGLE.Hola, Nicols. Antes que nada, una pregunta: Me podras decir qu redBooks de Ibm has leido sobre esta materia?. Yo solamente he encontrado uno que , aunque no trataba directamente de esto, tena un apartado que haca referencia.Y ahora lo poco que puedo aportar: aqu, al empezar a trabajar con programas de servicio, decidimos que para evitar tener abiertos los ficheros tanto en el programa como en los programas de servicio, el acceso a los ficheros (chain, setll, read/e,...) se hara va funciones definidas en los programas de servicio. De esta forma se minimiza el n de veces que un mismo fichero se abre a la vez.Por ejemplo, si un programa usa X programas de servicio y tanto el programa como los programas de servicio han de usar el fichero Y, en vez de que cada uno acceda directamente al fichero, tenemos un programa de servicio con las funciones para chain, reade, del fichero Y, y de este modo dicho fichero solo est abierto una vez y el programa y el resto de programas de servicio acceden a l mediante las funciones.No todos los accesos a fichero se sirven mediante funciones. Por ejemplo, si un programa carga un subfichero mediante un lgico que no es necesario en ningn programa de servicio (ni se estima que lo pueda ser), el programa accede directamente a dicho lgico.Hablando del coste de esto: al principio te las a sacar las funciones de acceso a datos que vas necesitando y eso te consume tiempo, pero hay que decir que la funcion para el chain, read, setll, ... de un fichero a otro vara muy poco, y en poco tiempo salen como churros.En cuanto a las pantallas, no es que tengamos mucho en ese sentido. Yo trabajo con un 'prototipo estndar de programa' que implementa el tpico subfichero de seleccin de acciones a realizar en sus registros. Mi meta es conseguir sacar todas las funciones que pueda a un programa de servicio, pero seguir teniendo una pantalla y un programa por cada subfichero a mostrar.A grandes rasgos, es lo que tenemos por aqu, aunque se podran escribir bastantes pginas con los puntos a tener en cuenta y las decisiones a tomar. Es un tema muy interesante, del que no se encuentra demasiada informacin. A ver que podemos sacar en este hilo.Nicolas Machado escribi:Hola,queria consultar si alguien intento la faraonica tarea de
Re: Reingenieria de Programas clasicos, por programas de 2 o 3 capas, en RPG y RPGLE.- Fernando
Fernando, gracias por tu tiempo, mirare detenidamente el ejemplo. Jaime Villa T. - Mensaje original - De: Fernando Prez Para: forum.help400@combios.es Enviado: Mircoles, 06 de Abril de 2005 02:29 a.m. Asunto: Re: Reingenieria de Programas clasicos, por programas de 2 o 3 capas, en RPG y RPGLE. Una pequea pero importante errata: D E DS extname(fichero) based(dsfichero@)en lugar de : D E DS extname(fichero) based(dsfichero) -- Saludos.Fernando Prez Cermica Saloni. Dpto. Sistemas
RE: Impresora Minolta DI-350
Nosotros tenemos configurada otro modelo RICOH Cl/3000. ¿ Te puede servir ? -Mensaje original- De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] nombre de jose manuel lopez gestal Enviado el: martes 5 de abril de 2005 12:42 Para: forum.help400@combios.es Asunto: Impresora Minolta DI-350 Buenis días foro alguien tiene conectada al 400 una Minolta DI-350 como una impresora de red ? podría pasarnos la descripción del dispositivo con todas las especificaciones ? gracias ** José Manuel López Gestal Dpto. Sistemas de Información Hospital Modelo http://www.hospitalmodelo.com ** Este mensaje puede contener Información Privilegiada o Confidencial. Si Vd. no es el destinatario indicado en este mensaje (o el responsable de la entrega del mensaje a dicha persona), no debe copiar o entregar este mensaje a ninguna persona. Por el contrario, debe destruir este mensaje y notificárnoslo inmediatamente. This e-mail and any attachment contains information which is private and confidential and is intended for the addressee only. If you are not an addressee, you are not authorised to read, copy or use the e-mail or any attachment. If you have received this e-mail in error, please notify the sender by return e-mail and then destroy it. _ Forum.HELP400 es un servicio más de NEWS/400. © Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _ Para darte de baja, envía el mensaje resultante de pulsar mailto:[EMAIL PROTECTED] _ Forum.HELP400 es un servicio más de NEWS/400. © Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _ Para darte de baja, envía el mensaje resultante de pulsar mailto:[EMAIL PROTECTED]
almacenamiento de decimales
hola foro ! una pregunta si yo defino un campo numérico así en una DDS Lon Dec CTDESC 4 2 esto es que tengo 4 campos enteros y 2 decimales ok ? los decimales van dentro del campo de 4 ? es decir si yo muevo 100.20 me almacenacorrectamente o tengo que definir mi campo de 5 2 saludos esto es en rpg
Re: almacenamiento de decimales
4-2 significa que son 4 dgitos, dos de los cuales son decimales. O sea, dos enteros y dos decimales. Juan Gutierrez Ruiz escribi: hola foro ! una pregunta si yo defino un campo numrico as en una DDS Lon Dec CTDESC 4 2 esto es que tengo 4 campos enteros y 2 decimales ok ? los decimales van dentro del campo de 4 ? es decir si yo muevo 100.20 me almacenacorrectamente o tengo que definir mi campo de 5 2 saludos esto es en rpg -- Saludos. Fernando Prez Cermica Saloni. Dpto. Sistemas begin:vcard fn;quoted-printable:Fernando P=C3=A9rez n;quoted-printable:P=C3=A9rez;Fernando org:;Sistemas email;internet:[EMAIL PROTECTED] tel;work:Ext. 627 x-mozilla-html:TRUE version:2.1 end:vcard
Re: almacenamiento de decimales
Hola, Si defines un campo en una DDS, con Lon 4 y 2 Dec, son 2 enteros y 2 decimales, osea que 100,20 debes definirlo con Lon = 5, Dec = 2, que son 3 enteros y 2 decimales. Saludos Marina Juan Gutierrez Ruiz juan_gutierrez_r To [EMAIL PROTECTED] forum.help400@combios.es Sent by: cc forum.help400-req [EMAIL PROTECTED] [EMAIL PROTECTED] Subject almacenamiento de decimales 06/04/2005 18:03 Please respond to [EMAIL PROTECTED] bios.es hola foro ! una pregunta si yo defino un campo numérico así en una DDS Lon Dec CTDESC 4 2 esto es que tengo 4 campos enteros y 2 decimales ok ? los decimales van dentro del campo de 4 ? es decir si yo muevo 100.20 me almacena correctamente o tengo que definir mi campo de 5 2 saludos esto es en rpg _ Forum.HELP400 es un servicio más de NEWS/400. © Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _ Para darte de baja, envía el mensaje resultante de pulsar mailto:[EMAIL PROTECTED]
Convertir SPOOL a PDF y enviarlos por email
Hola todos; Necesito convertir unos archivos del spool a PDF para luego enviarlos por email, la verdad es que esto es una experiencia nueva, alguno de ustedes que haya sufrido con esto podrían darme una mano?, por donde empezar, algún link, ejemplos; estamos en V5R2. Gracias y Salu2. Nelson -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.9.3 - Release Date: 05/04/2005 _ Forum.HELP400 es un servicio más de NEWS/400. © Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _ Para darte de baja, envía el mensaje resultante de pulsar mailto:[EMAIL PROTECTED]