Re: Impresora Minolta DI-350

2005-04-06 Por tema alex martinez
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.

2005-04-06 Por tema Fernando Pérez






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.

2005-04-06 Por tema Fernando Pérez
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.

2005-04-06 Por tema Fernando Pérez




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.

2005-04-06 Por tema Nicolas Machado
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

2005-04-06 Por tema Jaime Villa Torres



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

2005-04-06 Por tema Establiments Vidal
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

2005-04-06 Por tema Juan Gutierrez Ruiz



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

2005-04-06 Por tema Fernando Pérez




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

2005-04-06 Por tema Marina_Just
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

2005-04-06 Por tema Nelson Brizuela
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]