Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Cobol » quien me puede enviar un ejemplo

Cobol - quien me puede enviar un ejemplo

Volver
Nuevo Tema
<<>>
 
Vista:

quien me puede enviar un ejemplo

Publicado por HUGO (7 intervenciones) el 18/05/2004 17:28:18
por favor desde venezuela quien me facilita un programita ejemplo de como agregar fotos en cobolwow.
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

Agregar fotos en Cobol

Publicado por Alejandro (299 intervenciones) el 05/09/2023 22:15:03
Aquí tienes un ejemplo simple de un programa Cobol que te muestra cómo agregar fotos en un archivo en Cobol. Este programa asume que estás trabajando con un archivo secuencial en formato binario. Asegúrate de ajustar las rutas de los archivos según tu entorno.

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
IDENTIFICATION DIVISION.
PROGRAM-ID. AddPhotos.
DATA DIVISION.
FILE SECTION.
FD PhotoFile.
01 PhotoRecord.
   05 PhotoData   PIC X(100000).  // Ajusta el tamaño según tus necesidades.
 
WORKING-STORAGE SECTION.
01 PhotoPath     PIC X(100).
01 PhotoName     PIC X(30).
01 PhotoSize     PIC 9(9).
01 PhotoBuffer   PIC X(100000).
 
PROCEDURE DIVISION.
    DISPLAY "Ingresa la ruta de la foto: " WITH NO ADVANCING.
    ACCEPT PhotoPath.
    DISPLAY "Ingresa el nombre de la foto: " WITH NO ADVANCING.
    ACCEPT PhotoName.
 
    OPEN OUTPUT PhotoFile.
    IF NOT FILE STATUS IS OK
        DISPLAY "Error al abrir el archivo de fotos."
        STOP RUN
    END-IF.
 
    STRING PhotoPath "/" PhotoName INTO PhotoPath.
 
    CALL "C$COPYFILE" USING PhotoPath, PhotoBuffer, PhotoSize.
 
    MOVE PhotoBuffer TO PhotoData.
    WRITE PhotoRecord FROM PhotoData.
 
    IF NOT FILE STATUS IS OK
        DISPLAY "Error al escribir la foto en el archivo."
        CLOSE PhotoFile
        STOP RUN
    END-IF.
 
    CLOSE PhotoFile.
    DISPLAY "Foto agregada exitosamente.".
 
    STOP RUN.

Este programa solicita la ruta y el nombre de la foto que deseas agregar y utiliza la instrucción `CALL "C$COPYFILE"` para copiar el contenido de la foto en un buffer de datos. Luego, escribe ese buffer en el archivo de fotos.

Ten en cuenta que este es un ejemplo muy básico y que deberás adaptarlo a tus necesidades específicas. Además, asegúrate de tener acceso a la biblioteca estándar de Cobol y a las extensiones específicas de tu entorno para trabajar con archivos y manejar la operación de copia de archivos desde una ubicación dada.
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