Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Cobol » ayuda rm/cobol

Cobol - ayuda rm/cobol

Volver
Nuevo Tema
<<>>
 
Vista:

ayuda rm/cobol

Publicado por triki (1 intervención) el 05/07/2003 11:42:04
buenas, esta es una solicitud un poco urgente... necesito ejemplos de programas en RM/cobol que generen listado/s de salida y que utilicen fixheros indexados, gracias.
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

Ejemplo de programa que utiliza archivos indexados en RM/COBOL

Publicado por Alejandro (300 intervenciones) el 05/09/2023 17:28:15
Por supuesto, puedo proporcionarte un ejemplo de programa en RM/COBOL que genere un listado de salida y utilice archivos indexados. En RM/COBOL, los archivos indexados generalmente se implementan utilizando archivos de acceso relativo (Relative Record Files, RRN).

Aquí tienes un ejemplo sencillo de un programa COBOL que crea un archivo de acceso relativo y genera un listado de registros desde ese archivo:

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
47
48
49
IDENTIFICATION DIVISION.
PROGRAM-ID. IndexFileExample.
DATA DIVISION.
FILE SECTION.
FD MyRelativeFile
    LABEL RECORDS STANDARD
    VALUE OF FILE-ID IS "MYFILE"
    DATA RECORD IS MyRecord.
 
01 MyRecord.
   02 StudentID   PIC 9(5).
   02 Name        PIC X(30).
   02 Score       PIC 9(3).
 
WORKING-STORAGE SECTION.
01 StudentCount PIC 9(5) VALUE 0.
 
PROCEDURE DIVISION.
    OPEN OUTPUT MyRelativeFile.
 
    PERFORM VARYING StudentID FROM 1 BY 1 UNTIL StudentID > 5
        MOVE StudentID TO MyRecord-StudentID
        MOVE "Student " & StudentID TO MyRecord-Name
        COMPUTE MyRecord-Score = 90 + StudentID
 
        WRITE MyRecord
        ADD 1 TO StudentCount
    END-PERFORM.
 
    CLOSE MyRelativeFile.
 
    DISPLAY "Total Students Written: " StudentCount.
 
    OPEN INPUT MyRelativeFile.
    DISPLAY "Listado de Estudiantes:"
    PERFORM UNTIL EOF
        READ MyRelativeFile
            AT END
                EXIT PERFORM
            NOT AT END
                DISPLAY "Student ID: " MyRecord-StudentID
                DISPLAY "Name: " MyRecord-Name
                DISPLAY "Score: " MyRecord-Score
        END-READ
    END-PERFORM.
 
    CLOSE MyRelativeFile.
 
    STOP RUN.

Este programa COBOL crea un archivo relativo llamado "MYFILE" y escribe registros en él. Luego, lee los registros y muestra un listado de estudiantes en la salida.

Asegúrate de adaptar este ejemplo a tus necesidades específicas, incluyendo la definición de tu propio archivo relativo y los campos de registro.
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