[Duda] (AYUDA) Problema en codigo COBOL

[Marengo97]

Hola soy nuevo en el foro como tambien un principiante en COBOL.
Estoy estudiando el lenguaje hace ya casi un mes y estoy intentando desarrollar este programita como forma de práctica y me he encontrado con varios problemas.

Lo que tiene que hacer el programa:

"Una compania de seguros tiene contratados a n vendedores. Cada vendedor realiza
multiples ventas a la semana. La politica de pagos de la compania es que cada vendedor
recibe un sueldo base más un 10% extra por comisiones de sus ventas. El gerente de la
compania desea saber, por un lado, cuanto dinero deber¡a pagar en la semana a cada
vendedor por concepto de comisiones de las ventas realizadas, y por otro lado, cua¡nto
deberia pagar a cada vendedor como sueldo total (sueldo base + comisiones). Para cada
vendedor ingresar cuanto es su sueldo base, cuantas ventas realizó y cuanto cobró por
cada venta."

Mi código (incompleto):

       IDENTIFICATION DIVISION.
       PROGRAM-ID.                PROG-PAGOS-F.
       AUTHOR.                    LUCAS GALEANO.
       DATE-WRITTEN.              1/2/2023.
 
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT REG-VENDEDORES ASSIGN TO "REG-MAESTRO.DAT"
               ORGANIZATION IS LINE SEQUENTIAL.
 
           SELECT REG-VENTAS     ASSIGN TO "REG-VENTAS-MAESTRO.DAT"
               ORGANIZATION IS LINE SEQUENTIAL.
 
       DATA DIVISION.
       FILE SECTION.
       FD REG-VENDEDORES.
       01 VENDEDORES              PIC 9(14).
 
       FD REG-VENTAS.
       01 COB-VENTAS              PIC 9(5).
 
 
       WORKING-STORAGE SECTION.
       01 WS-VENDEDORES.
           05 WS-EMPLEADO            PIC 999.
           05 WS-SUELDO-BASE         PIC 9(5).
           05 WS-CANTIDAD-VENTAS     PIC 999.
           05 WS-TOTAL-EMPLEADOS     PIC 999.
           05 WS-COBRO-VENTAS        PIC 9(5).
       01 WS-TABLAS.
           05 WS-REGISTRO-COBROS     PIC 9(5)
                                     OCCURS 100 TIMES.
       77 CONTADOR                   PIC 99 VALUE ZEROS.
 
       PROCEDURE DIVISION.
       BEGIN-OUTPUT.
           OPEN OUTPUT REG-VENDEDORES.
           DISPLAY "INGRESE DATOS SOLICITADOS".
           DISPLAY "INGRESE CANTIDAD TOTAL DE EMPLEADOS:".
           ACCEPT WS-TOTAL-EMPLEADOS.
           PERFORM INGRESO-DATOS-EMPLEADOS.
           PERFORM VARYING CONTADOR FROM 1 BY 1 
                           UNTIL CONTADOR = WS-TOTAL-EMPLEADOS
           WRITE VENDEDORES FROM WS-VENDEDORES
           PERFORM INGRESO-DATOS-EMPLEADOS
           END-PERFORM.
           CLOSE  REG-VENDEDORES.
           STOP RUN.
 
       INGRESO-DATOS-EMPLEADOS.
         
           DISPLAY "INGRESE NUMERO DE EMPLEADO:".
           ACCEPT WS-EMPLEADO.
           DISPLAY "INGRESE SUELDO BASE:".
           ACCEPT WS-SUELDO-BASE.
           DISPLAY "INGRESE CANTIDAD DE VENTAS REALIZADAS:".
           ACCEPT WS-CANTIDAD-VENTAS.
           PERFORM VARYING WS-CANTIDAD-VENTAS FROM 1 BY 1
                           UNTIL WS-CANTIDAD-VENTAS = 3
           DISPLAY "INGRESE COBRO DE CADA VENTA:"
           ACCEPT WS-COBRO-VENTAS
           MOVE WS-COBRO-VENTAS TO WS-REGISTRO-COBROS(1)
           END-PERFORM.

El problema que es no saber como terminar el perform del parrafo BEGIN-OUTPUT en este caso especial ya que no me escribe los datos de cada empleado solo de uno, probe con contador, con "=Spaces" y el mismo comportamiento.
Solo funciona si ingreso todos los datos de una tira "e.j nnnnMMMMEEEVV, y abajo un accept para ingresar tooodo el registro" y en perform lo condiciono con un "UNTIL...= SPACES", en ese caso si me registra cada empleado pero no tengo claro el por que esto sucede, no puedo entenderlo , capaz no entiendo los detalles de como escribe cobol en un archivo..
Y bueno ese es mi problema, tambien estaria muy agradecido si podrian darme algun consejo de como realizar el programa, Graciasss

Edit: Asi es como se lee el archivo .dat : 00120000003002 en vez de varios registros.

[JCantero]

@Marengo97,
Primer problema.

En el primer perform.

Si pones 0 empleados, te pide datos de forma idefinida porque nunca se cumple la condicion.

Si hay un empleado, pides los datos del primer empleado y ni entra al perform porque se cumple la condicion CONTADOR = WS-TOTAL-EMPLEADOS.

Si hay 2 empleados, pide los datos del primer empleado, lo escribe y vuelve a pedir los datos del segundo empleado y se sale.

Y así sucesivamente.

Se puede hacer así para evitar el problema. Entra si hay mas de un empleado, pide datos y escribe.

       PROCEDURE DIVISION.
       BEGIN-OUTPUT.
           OPEN OUTPUT REG-VENDEDORES.
           DISPLAY "INGRESE DATOS SOLICITADOS".
           DISPLAY "INGRESE CANTIDAD TOTAL DE EMPLEADOS:".
           ACCEPT WS-TOTAL-EMPLEADOS.     
           PERFORM VARYING CONTADOR FROM 1 BY 1 
                           UNTIL CONTADOR > WS-TOTAL-EMPLEADOS
             PERFORM INGRESO-DATOS-EMPLEADOS
             WRITE VENDEDORES FROM WS-VENDEDORES
           END-PERFORM.
           CLOSE  REG-VENDEDORES.
           STOP RUN.

- - - Updated - - -

En el segundo perform, siempre te pide 3 ventas.
Además no inicializas la tabla, ni escribes la tabla.

[JCantero]

Te modifico la fd de las tabla cobros. Lo hago asi porque a mi me gusta trabajar con la FD directamente.

Tambien el segundo perform para que pida y guarde los cobros solicitados.

       IDENTIFICATION DIVISION.
       PROGRAM-ID.                PROG-PAGOS-F.
       AUTHOR.                    LUCAS GALEANO.
       DATE-WRITTEN.              1/2/2023.
 
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT REG-VENDEDORES ASSIGN TO "REG-MAESTRO.DAT"
               ORGANIZATION IS LINE SEQUENTIAL.
 
           SELECT REG-VENTAS     ASSIGN TO "REG-VENTAS-MAESTRO.DAT"
               ORGANIZATION IS LINE SEQUENTIAL.
 
       DATA DIVISION.
       FILE SECTION.
       FD REG-VENDEDORES.
       01 VENDEDORES              PIC 9(14).
 
       FD REG-VENTAS.
       01 COB-VENTAS.
           03 cobros PIC 9(5) occurs 100 times.
 
 
       WORKING-STORAGE SECTION.
       01 WS-VENDEDORES.
           05 WS-EMPLEADO            PIC 999.
           05 WS-SUELDO-BASE         PIC 9(5).
           05 WS-CANTIDAD-VENTAS     PIC 999.
       01 esto-deberia-estar-fuera.    
           05 WS-TOTAL-EMPLEADOS     PIC 999.
           05 WS-COBRO-VENTAS        PIC 9(5).
       01 WS-TABLAS.
           05 WS-REGISTRO-COBROS     PIC 9(5)
                                     OCCURS 100 TIMES.
       77 CONTADOR                   PIC 99 VALUE ZEROS.
       77 indice                  PIC 999.
 
       PROCEDURE DIVISION.
       BEGIN-OUTPUT.
           OPEN OUTPUT REG-VENDEDORES.
           open output reg-ventas.
           DISPLAY "INGRESE DATOS SOLICITADOS".
           DISPLAY "INGRESE CANTIDAD TOTAL DE EMPLEADOS:".
           ACCEPT WS-TOTAL-EMPLEADOS.
           PERFORM VARYING CONTADOR FROM 1 BY 1 
                           UNTIL CONTADOR > WS-TOTAL-EMPLEADOS
             PERFORM INGRESO-DATOS-EMPLEADOS
             WRITE VENDEDORES FROM WS-VENDEDORES
             write cob-ventas end-write
           END-PERFORM.
           CLOSE  REG-VENDEDORES reg-ventas.
           STOP RUN.
 
       INGRESO-DATOS-EMPLEADOS.
         
           DISPLAY "INGRESE NUMERO DE EMPLEADO:".
           ACCEPT WS-EMPLEADO.
           DISPLAY "INGRESE SUELDO BASE:".
           ACCEPT WS-SUELDO-BASE.
           DISPLAY "INGRESE CANTIDAD DE VENTAS REALIZADAS:".
           ACCEPT WS-CANTIDAD-VENTAS.
           initialize cob-ventas.
           PERFORM VARYING indice FROM 1 BY 1
                           UNTIL indice > WS-CANTIDAD-VENTAS
                                 or indice = 100
              DISPLAY "INGRESE COBRO DE CADA VENTA:"
              ACCEPT WS-COBRO-VENTAS
              MOVE WS-COBRO-VENTAS TO cobros(indice)
           END-PERFORM.

Mira a ver y si no entiendes algo me lo dices.

Mejora--> en vez de guardar los 100 cobros, que ocupan mas espacio, lo mejor es guardar un registro con cada cobro de esta forma VVVNNNCCCCC siendo VVV el numero de vendedor, NNN el numero de cobro, CCCCC importe de cobro.

Pero bueno, para empezar no los llevabas mal. Animo ¡¡

[Marengo97]

.......

- - - Updated - - -

❞ Te modifico la fd de las tabla cobros. Lo hago asi porque a mi me gusta trabajar con la FD directamente. Tambien el segundo perform para que pida y guarde los cobros solicitados.        IDENTIFICATION DIVISION.        PROGRAM-ID.                PROG-PAGOS-F.        AUTHOR.                    LUCAS GALEANO.        DATE-WRITTEN.              1/2/2023.          ENVIRONMENT DIVISION.        INPUT-OUTPUT SECTION.        FILE-CONTROL.            SELECT REG-VENDEDORES ASSIGN TO "REG-MAESTRO.DAT"                ORGANIZATION IS LINE SEQUENTIAL.              SELECT REG-VENTAS     ASSIGN TO "REG-VENTAS-MAESTRO.DAT"                ORGANIZATION IS LINE SEQUENTIAL.          DATA DIVISION.        FILE SECTION.        FD REG-VENDEDORES.        01 VENDEDORES              PIC 9(14).          FD REG-VENTAS.        01 COB-VENTAS.            03 cobros PIC 9(5) occurs 100 times.            WORKING-STORAGE SECTION.        01 WS-VENDEDORES.            05 WS-EMPLEADO            PIC 999.            05 WS-SUELDO-BASE         PIC 9(5).            05 WS-CANTIDAD-VENTAS     PIC 999.        01 esto-deberia-estar-fuera.                05 WS-TOTAL-EMPLEADOS     PIC 999.            05 WS-COBRO-VENTAS        PIC 9(5).        01 WS-TABLAS.            05 WS-REGISTRO-COBROS     PIC 9(5)                                      OCCURS 100 TIMES.        77 CONTADOR                   PIC 99 VALUE ZEROS.        77 indice                  PIC 999.          PROCEDURE DIVISION.        BEGIN-OUTPUT.            OPEN OUTPUT REG-VENDEDORES.            open output reg-ventas.            DISPLAY "INGRESE DATOS SOLICITADOS".            DISPLAY "INGRESE CANTIDAD TOTAL DE EMPLEADOS:".            ACCEPT WS-TOTAL-EMPLEADOS.            PERFORM VARYING CONTADOR FROM 1 BY 1                            UNTIL CONTADOR > WS-TOTAL-EMPLEADOS              PERFORM INGRESO-DATOS-EMPLEADOS              WRITE VENDEDORES FROM WS-VENDEDORES              write cob-ventas end-write            END-PERFORM.            CLOSE  REG-VENDEDORES reg-ventas.            STOP RUN.          INGRESO-DATOS-EMPLEADOS.                      DISPLAY "INGRESE NUMERO DE EMPLEADO:".            ACCEPT WS-EMPLEADO.            DISPLAY "INGRESE SUELDO BASE:".            ACCEPT WS-SUELDO-BASE.            DISPLAY "INGRESE CANTIDAD DE VENTAS REALIZADAS:".            ACCEPT WS-CANTIDAD-VENTAS.            initialize cob-ventas.            PERFORM VARYING indice FROM 1 BY 1                            UNTIL indice > WS-CANTIDAD-VENTAS                                  or indice = 100               DISPLAY "INGRESE COBRO DE CADA VENTA:"               ACCEPT WS-COBRO-VENTAS               MOVE WS-COBRO-VENTAS TO cobros(indice)            END-PERFORM. Mira a ver y si no entiendes algo me lo dices. Mejora--> en vez de guardar los 100 cobros, que ocupan mas espacio, lo mejor es guardar un registro con cada cobro de esta forma VVVNNNCCCCC siendo VVV el numero de vendedor, NNN el numero de cobro, CCCCC importe de cobro. Pero bueno, para empezar no los llevabas mal. Animo ¡¡

Hola! muchas gracias pude avanzar mas en el programa gracias a la ayuda, aunque ahora me cruze con otro problema, presiento que es algo complejo para mi nivel realizar este programa ya me marea demasiado

       IDENTIFICATION DIVISION.
       PROGRAM-ID.                PROG-PAGOS-F.
       AUTHOR.                    LUCAS GALEANO.
       DATE-WRITTEN.              1/2/2023.
 
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT REG-VENDEDORES ASSIGN TO "REG-MAESTRO.DAT"
               ORGANIZATION IS LINE SEQUENTIAL.
 
           SELECT REG-VENTAS     ASSIGN TO "REG-VENTAS-MAESTRO.DAT"
               ORGANIZATION IS LINE SEQUENTIAL.
 
       DATA DIVISION.
       FILE SECTION.
       FD REG-VENDEDORES.
       01 VENDEDORES.
           05 EMPLEADOS              PIC 999.
           05 SUELDO-BASE            PIC 9(5).
           05 CANTIDAD-VENTAS        PIC 9.
 
       FD REG-VENTAS.
       01 COBRO-VENTAS               PIC 9(5).
 
 
       WORKING-STORAGE SECTION.
       01 WS-VENDEDORES.
           05 WS-EMPLEADO            PIC 999.
           05 WS-SUELDO-BASE         PIC 9(5).
           05 WS-CANTIDAD-VENTAS     PIC 9.
 
       01 WS-COBROS.
           05 WS-COBRO-VENTA         PIC 9(5).
           05 WS-NUM-EMPLEADO        PIC 99.
 
 
 
       01 WS-TABLAS.
           05 WS-TABLA-VENTAS OCCURS 3 TIMES.
               10 WS-TABLA-EMPLEADO   PIC 99.
               10 WS-TABLA-COBRO      PIC 9(5).
 
       77 WS-SUM-VENTAS              PIC 99.
       77 WS-CONTADOR                PIC 99 VALUE ZEROS.
       77 WS-RECAUDACION             PIC 9(6).
 
 
       PROCEDURE DIVISION.
       BEGIN-OUTPUT.
           OPEN OUTPUT REG-VENDEDORES.
           DISPLAY "INGRESE DATOS SOLICITADOS".
           PERFORM INGRESO-DATOS-EMPLEADOS.
           PERFORM UNTIL WS-VENDEDORES EQUALS SPACES
               WRITE VENDEDORES FROM WS-VENDEDORES
               PERFORM INGRESO-DATOS-EMPLEADOS
           END-PERFORM.
 
           DISPLAY "INGRESE N DE EMPLEADO Y COBROS DE CADA VENTA:"
           PERFORM INGRESO-VENTAS WITH TEST AFTER
                            UNTIL WS-CONTADOR EQUALS WS-SUM-VENTAS
               MOVE WS-COBROS TO WS-TABLA-VENTAS(1)
           CLOSE  REG-VENDEDORES.
 
 
       BEGIN-REPORT.
           OPEN INPUT REG-VENDEDORES.
           READ REG-VENDEDORES AT END MOVE HIGH-VALUE TO VENDEDORES
           END-READ.
           PERFORM VARYING WS-TABLAS FROM 01 BY 1
                           UNTIL WS-TABLAS GREATER THAN 3
           IF WS-TABLA-EMPLEADO(1) = EMPLEADOS
               ADD WS-TABLA-COBRO(1) TO WS-RECAUDACION
               DISPLAY "RECAUDACION DEL EMPLEADO ",EMPLEADOS
                        "ES IGUAL A:"WS-RECAUDACION
           END-IF
           READ REG-VENDEDORES AT END MOVE HIGH-VALUE TO VENDEDORES
           END-READ
           END-PERFORM.
           CLOSE REG-VENDEDORES.
           STOP RUN.
 
       INGRESO-DATOS-EMPLEADOS.
           DISPLAY "EEE$$$$$V".
           ACCEPT WS-VENDEDORES.
           IF WS-VENDEDORES NOT EQUAL SPACES
               ADD WS-CANTIDAD-VENTAS TO WS-SUM-VENTAS
           END-IF.
 
       INGRESO-VENTAS.
           ADD 1 TO WS-CONTADOR.
           DISPLAY "VV$$$$$".
           ACCEPT WS-COBROS.

Asi es como voy pero al realizar la ejecucion al llegar a la linea 73 el compilador me tira este error

❞ libcob: PROG-PAGOS-F.cbl: 73: 'WS-TABLA-COBRO' not numeric: ' ' WARNING - Implicit CLOSE of REG-VENDEDORES ('REG-MAESTRO.DAT')

Ya la verdad me marea mucho
Creo que deberia plantear esto en otro posteo pero me aclaraste varias cosas que recurro a tu ayuda, gracias.

[JCantero]

@Marengo97, tienes que echarle un poco de esfuerzo y hacerlo mejor.

En lo que envias, nunca va a la linea 73.

Aqui:

       INGRESO-VENTAS.
           ADD 1 TO WS-CONTADOR.
           DISPLAY "VV$$$$$".
           ACCEPT WS-COBROS.

Aceptas VV$$$$$ cuando lo tienes definido como $$$$$VV

Creo que deberias aceptar VV por un lado y $$$$$ por otro. (ero eso es tu decision)

Otra cosa: haces estio

MOVE WS-COBROS TO WS-TABLA-VENTAS(1)

       01 WS-COBROS.
           05 WS-COBRO-VENTA         PIC 9(5).
           05 WS-NUM-EMPLEADO        PIC 99.
 
 
 
       01 WS-TABLAS.
           05 WS-TABLA-VENTAS OCCURS 3 TIMES.
               10 WS-TABLA-EMPLEADO   PIC 99.
               10 WS-TABLA-COBRO      PIC 9(5).

Machacas campos diferentes.

Cambia

  01 WS-COBROS.
           05 WS-COBRO-VENTA         PIC 9(5).
           05 WS-NUM-EMPLEADO        PIC 99.

por

  01 WS-COBROS.
           05 WS-NUM-EMPLEADO        PIC 99.
           05 WS-COBRO-VENTA         PIC 9(5).

y cuando te pierdas en el programa display y accepta campos para verificar el contenido.

por ejemplo

        display "ws-tabla-cobro(1)"
        accept ws-tabla-cobro(1) update
       

[Marengo97]

❞ @Marengo97, tienes que echarle un poco de esfuerzo y hacerlo mejor. En lo que envias, nunca va a la linea 73. Aqui:        INGRESO-VENTAS.            ADD 1 TO WS-CONTADOR.            DISPLAY "VV$$$$$".            ACCEPT WS-COBROS. Aceptas VV$$$$$ cuando lo tienes definido como $$$$$VV Creo que deberias aceptar VV por un lado y $$$$$ por otro. (ero eso es tu decision) Otra cosa: haces estio MOVE WS-COBROS TO WS-TABLA-VENTAS(1)        01 WS-COBROS.            05 WS-COBRO-VENTA         PIC 9(5).            05 WS-NUM-EMPLEADO        PIC 99.              01 WS-TABLAS.            05 WS-TABLA-VENTAS OCCURS 3 TIMES.                10 WS-TABLA-EMPLEADO   PIC 99.                10 WS-TABLA-COBRO      PIC 9(5). Machacas campos diferentes. Cambia   01 WS-COBROS.            05 WS-COBRO-VENTA         PIC 9(5).            05 WS-NUM-EMPLEADO        PIC 99. por   01 WS-COBROS.            05 WS-NUM-EMPLEADO        PIC 99.            05 WS-COBRO-VENTA         PIC 9(5). y cuando te pierdas en el programa display y accepta campos para verificar el contenido. por ejemplo         display "ws-tabla-cobro(1)"         accept ws-tabla-cobro(1) update

Gracias voy a ver que puedo hacer teniendo en cuenta tus correciones y te comento de los resultados.
Si,me di cuenta de que machaqué el codigo, se va notando que cada vez entiendo menos lo que pasa..falta mucha practica aún.

[JCantero]

@Marengo97, exacto.

En la programación hay que ser cuidadoso y preciso.

En cobol si no dispones de un debuger eficiente, hay que poner displays y accepts para ver el la situación de las variables.

Ten paciencia que vas por buen camino