Cobol - Llamar aplicaciones desde cobol/console

 
Vista:

Llamar aplicaciones desde cobol/console

Publicado por Stevepuntocom (22 intervenciones) el 12/06/2009 21:33:18
Hola!

Necisito saber por favor:
1-como llamar una aplicacion y/o archivo desde cobol
por ejemplo tengo un archivo txt llamado prueba.txt, como llamarlo desde cobol?

2-como llamar un "stored procedure" de Microsoft SQL Server 2000x desde cobol?
Tambien el mismo recibe parametros. la forma que estoy haciendo para comunicarme con la base de datos es teniendo los codigos transacts en la misma aplicacion cobol. lo quiero hacer diferente porque asi otras aplicaciones pueden usar estos mismos procedimientos.

de ante mano muchas gracias.

saludos!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alejandro

Llamar a una aplicación o archivo y ejecutar un Stored Procedure en SQL Server

Publicado por Alejandro (300 intervenciones) el 08/09/2023 22:43:03
¡Hola!

Aquí tienes información sobre cómo abordar tus dos preguntas en COBOL:

1. Llamar a una aplicación o archivo desde COBOL:

Para llamar a una aplicación o abrir un archivo desde un programa COBOL, puedes utilizar comandos específicos dependiendo del sistema operativo en el que estés trabajando. A continuación, se muestra un ejemplo general en sistemas Unix/Linux:

1
2
3
4
5
6
7
IDENTIFICATION DIVISION.
PROGRAM-ID. LlamarArchivo.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Archivo TXT PIC X(50) VALUE "prueba.txt".
PROCEDURE DIVISION.
CALL "cat" USING Archivo.

En este ejemplo, se utiliza el comando "cat" para mostrar el contenido del archivo "prueba.txt". Puedes reemplazar "cat" con el comando o la aplicación que desees utilizar para abrir o ejecutar el archivo. El archivo se pasa como argumento a través del uso de "USING".

2. Llamar a un Stored Procedure de SQL Server desde COBOL:

Para llamar a un Stored Procedure de SQL Server desde COBOL, generalmente necesitas utilizar SQL incorporado en tu código COBOL. A continuación, se muestra un ejemplo simplificado:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
IDENTIFICATION DIVISION.
PROGRAM-ID. LlamarSP.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Conexión-SQL PIC S9(4) COMP.
01 SQL-Statement.
    05 SQL-Command PIC X(100) VALUE "EXEC nombre_del_procedimiento ?, ?".
    05 SQL-Param1 PIC X(10) VALUE "valor1".
    05 SQL-Param2 PIC X(10) VALUE "valor2".
01 SQL-Return-Code PIC S9(4) COMP.
 
PROCEDURE DIVISION.
EXEC SQL
    CONNECT TO nombre_de_tu_base_de_datos
    USING SQL-User, SQL-Password
    END-EXEC.
 
IF SQL-Return-Code = 0
THEN
    EXEC SQL
        DECLARE C1 CURSOR FOR SQL-Statement
        END-EXEC.
 
    EXEC SQL
        OPEN C1
        END-EXEC.
 
    IF SQL-Return-Code = 0
    THEN
        PERFORM UNTIL SQL-Return-Code ≠ 0
            EXEC SQL
                FETCH C1 INTO :resultado1, :resultado2
                END-EXEC.
            DISPLAY "Resultado1: " resultado1
            DISPLAY "Resultado2: " resultado2
        END-PERFORM.
 
        EXEC SQL
            CLOSE C1
            END-EXEC.
    END-IF.
 
    EXEC SQL
        DISCONNECT nombre_de_tu_base_de_datos
        END-EXEC.
END-IF.

En este ejemplo, se utiliza SQL incorporado en COBOL para conectarse a una base de datos SQL Server, ejecutar un procedimiento almacenado y recuperar resultados. Asegúrate de reemplazar "nombre_del_procedimiento", "nombre_de_tu_base_de_datos", "SQL-User" y "SQL-Password" con los valores adecuados para tu entorno.

Ten en cuenta que la sintaxis y las capacidades específicas pueden variar según el compilador COBOL que estés utilizando y la versión de SQL Server. Asegúrate de consultar la documentación de tu compilador COBOL y de SQL Server para obtener detalles específicos sobre cómo realizar estas operaciones en tu entorno.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar