(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 :yoquese:, 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:bien:

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 ¡¡
:bien:

[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 ¡¡
:bien:

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 :fuma:
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
:astro: