Acerca de Delphi/400

[Kira]

Empezado por agallardo

... contamos con un As/400 y con Delphi 7, al AS/400 me conecto via ODBC, con esto logro obtener datos y puedo grabar al As, pero no puedo ejecutar programas residentes en el AS. Tu me podrias explicar de forma mas detallada que tendria que hacer para ejecutar los programas del AS.

Hola,

yo estuve trabajando con Delphi 4 sobre as/400 vía ODBC a través de Client Access, hace tiempo que pasó y ahora no te podría decir la sintaxis exacta, pero recuerdo que conseguí ejecutar programas cobol que existian en el AS, desde Delphi.


Para ello se creaba en sql en el AS un procedimiento almacenado (creo recordar que con el mismo nombre del programa en cuestión que se queria ejecutar), y despues se accedia desde delphi con el correspondiente componente de Stored Procedures, para llamar al procedimiento almacenado. Al ejecutar el procedimiento se ejecutaba el programa cobol.

Recuerdo que llegó a funcionar tanto con programas cobol como con CL(Eran asi los ficheros de comandos, no?)

Se que esto es solo una pista muy vaga, pero espero que te sirva de algo.


Saludos.

[__cadetill]

Empezado por Kira

Para ello se creaba en sql en el AS un procedimiento almacenado (creo recordar que con el mismo nombre del programa en cuestión que se queria ejecutar), y despues se accedia desde delphi con el correspondiente componente de Stored Procedures, para llamar al procedimiento almacenado. Al ejecutar el procedimiento se ejecutaba el programa cobol.

Pues no lo habría probado nunca, la verdad, pero lo probaré a ver que tal (ya te contaré, puede que nos saque de algunos quebraderos de cabeza )

Por otro lado, la manera en que nosotros lo hacemos, es mediante los componentes Client/Object que ya traen un componente especial para ejecutar CL (y sí, se llaman así ). Como ya he dicho anteriormente, estos componentes no son precisamente baratos, por lo que recomiendo, antes de adquirirlos, ver los pros y contras de no utilizar esos SP y hacerlo desde el lado cliente (siempre y cuando no tengamos éxito con la conexión ODBC comentado por Kira)

[Kira]

Hola!,

Empezado por cadetill

Pues no lo habría probado nunca, la verdad, pero lo probaré a ver que tal

Como llevas las prubas?

Por favor, una consulta:

como ya comenté, yo trabajé con OS400 hace tiempo, pero ya no lo tengo a mano, ¿hay algun tipo de emulador que me permita refrescar cosas en casa?

¿Algún lugar donde encontrar información, a parte de la página ya indicada en este foro?

Gracias

[__cadetill]

Empezado por Kira

Como llevas las prubas?

Pos la verdad es que muy mal, no tenemos tiempo para probarlo
A ver si el volumen de trabajo baja un poco y el programata de As puede dedicarle algo de tiempo

Empezado por Kira

como ya comenté, yo trabajé con OS400 hace tiempo, pero ya no lo tengo a mano, ¿hay algun tipo de emulador que me permita refrescar cosas en casa?

¿Algún lugar donde encontrar información, a parte de la página ya indicada en este foro?

Pos no te sabría decir, yo soy de PC, el As sólo para sacar información
No obstante le he preguntado al compañero de As y me ha dicho que él no conoce nada pero que cree que en esta web alquilan un As (o dan permiso de acceso a él) vía internet. Yo lo he buscado, pero no lo he encontrado (aunque tampoco me he matado )

Pos nada, suerte

[Kira]

Muchas gracias, yo si lo encontré, y tiene pinta de ser muy interesante.


Hace poco me han llamado para volver al AS y estoy muy tentada de aceptar, me ha picado el gusanillo.

Ya veremos.

Gracias.

[orodriguezc]

Hola foro.


No se si Jose Armando aún este interesado en el tema, pues ya ha pasado algún tiempo desde que inicio el hilo, pero ahi van mis comentarios:


La empresa para la que trabajo tiene varios AS400. En el principio la mayoria de la aplicaciones estaban escritas en COBOL para terminales 5250. Algún buen día uno de los asesores escribió una aplicación Delphi para realizar consultas (solo consultas) y tuvo mucho éxito.

Basados en esta primera experiencia se decidió realizar un primer ensayo para realizar una pequeña aplicación Cliente/Servidor. Se desarrollo el front-end en Visual Basic 5.0 y la experiencia no fué muy agradable, pués los tiempos de respuesta de algunas consultas de actualización eran terriblemente lentas. Se cambio parte del Front-End hacia Delphi 4.0, pero la situación no mejoró para nada.

Como resultado de este experimento se decidió buscar alternativas de conectividad y al poco tiempo se Adquirio Delphi 5/400. Nuestras primeras pruebas arrojaron resultados sorprendentes, los tiempos de respuestas eran "Instantaneos", justo lo que queriamos en ese momento.

Para esa época nuestro AS400 tenía la version OS/400 3.7 y en los PC's usabamos Client access 3.7. Posteriormente migramos los AS400 a unas versiones de hardware más modernas, pasando por la version OS/400 4.2, OS/400 4.5 y actualmente estamos en la version OS/400 5.1 y en los PC´s Client Access Express 5.1.

Esta breve reseña historica la hago para comentar que a medida que se fueron actualizando las versiones del Sistema OS400, las mejoras introducidas en la drivers ODBC y en los drivers OLE DB ha sido tan buenos que ya no hay hay una ventaja real al utilizar Delphi/400 u otros software de conectividad para este proposito (por ejemplo EasyCom).

Actualmente todo nuestro desarrollo Cliente/Servidor hacia el AS lo estamos haciendo con Delphi 5 (Estamos en mora de actualizarnos ) via ODBC u OLE DB con excelentes tiempos de respuesta, por lo que personalmente no recomiendo la adquisición de un software tan costoso para conectarse al As.

No digo que el producto Delphi/400 no sea bueno, sino que en la actualidad la relación Costo/beneficio no es la mejor. Ahora, si la máquina AS400 que posee la empresa tiene OS/400 3.7, definitivamente Delphi/400 es una opción a tener en cuenta.

Nuestras aplicaciones Delphi/400 actuales constituyen menos del 2% de nuestro inventario de Software propietario, y en breve será del 0%.

Con respecto a la ejecución de programas en el AS400 desde nuestra aplicación Delphi puedo comentar que, efectivamente, si se puede ejecutar cualquier programa en el AS400 siempre que este programa no utilice Archivos de pantalla (los programadores de AS400 saben de que estoy hablando). Se pueden pasar parametros de entrada, parametros de salida e incluso obtener Result Sets desde programas escritos en COBOL, RPG, C y programas CL. Tal como lo comenta kira lo único que se necesita es definir ese programa como un Procedimiento Almacenado. La sintaxis en su forma más básica es la siguiente:

CREATE PROCEDURE LIBRERIA/NOMBREPROCEDURE(
     IN       PAR_ENTRADA  CHAR(10),
     INOUT PAR_ENTSAL    CHAR(10),
     OUT    PAR_SALIDA    TIMESTAMP)
 RESULT SETS 1
 EXTERNAL NAME LIBPROGRAMA/NOMPROGRAMA
 LANGUAGE RPGLE
 SIMPLE CALL;

Aqui estamos definiendo un Stored procedure ubicado en la Libreria LIBRERIA, de nombre NOMBREPROCEDURE el cual devuelve un "Conjunto de Resultados" y hace referencia a un programa de nombre NOMPROGRAMA ubicado en la Libreria LIBPROGRAMA.

Espero haber sido de ayuda.

Saludos...

[__cadetill]

Hola orodriguezc

Pues gracias por esta información

De hecho, nosotros también hemos realizado pruebas con ODBC (yo personalmente, mis jefes siguen emperrados en el CO400) y, la verdad es que con la versión de SO 5.2 que tenemos en nuestros AS400, las respuestas son muy rápidas. La diferencia entre CO400 y ODBC es despreciable.

Lo que no hemos probado aún es el tema de SP llamados desde ODBC pero, si logramos hacerlo (que ya veo que se puede), intentaré demostrarles a los "capos" el gasto "tonto" anual que hacen (aunque se que me costará sudores, son muy cabezotas )

Bueno, pues lo dicho, gracias por la información, siempre es bienvenida