Citación del post de
JCantero
|
❞
@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
|
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.