@Marengo97, tienes que echarle un poco de esfuerzo y hacerlo mejor.
En lo que envias, nunca va a la linea 73.
Aqui:
Código COBOL:
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
Código COBOL:
MOVE WS-COBROS TO WS-TABLA-VENTAS(1)
Código COBOL:
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
Código COBOL:
01 WS-COBROS.
05 WS-COBRO-VENTA PIC 9(5).
05 WS-NUM-EMPLEADO PIC 99.
por
Código COBOL:
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
Código COBOL:
display "ws-tabla-cobro(1)"
accept ws-tabla-cobro(1) update