Te adjunto fichero modificado.

Fichero subido

Te envio fichero modificado sin errores ni warnings.


Cosas modificadas:

- Los warning no tienen importancia pero te lo he solucionado.

• te faltaban palabras reservadas en las deraclaratives,
• te faltaba la seccion inicial,
• te faltaba un nombre de parrafo inicial
• haces displays de campos tipos comp-3 y hay que usar la palabra reservada convert o movelos a variables de edicion.

- En una sentencia string ...... no puedes poner campos computacionales, lo he movido a un campo de edicion
- tenias varios comentarios. Si no usas directivas de compilacion los comentarios deben de empezar con un * en la columna 7 o posicionar el comentario a partir de la columana 73.

Bueno, ahi lo tienes pruebalo y ya nos dices......

compilado
rmcobol 6.07 y rmcobol 7.00.02

no ejecuta el programa

@luisbago, si lo ejecuta y te da una excepción de opción no válida.

Tienes que indicar al runtime que le envias parametros externos.

Prueba de esta forma: (respetando los espacios en blanco)

Gracias, funciono con unos arreglos.

Después paso lo siguiente:

Un campo declarado en el FD "NSS PIC 9(11) COMP-3." marca el siguiente error 0147: E Data item with DISPLAY usage expected

hay varios registros declarados como comp-3, comp y comp-6, como se convierte a texto para colocarlo en el archivo declarado como *.txt (cosa.txt)

@luisbago, ya te lo dije cuando te envié el .cbl arreglado.

Tienes que moverlo a un campo de edición y adjuntar ese campo.


El anterior campo de edición te deja un string con espacios en blanco a la izquierda(_________123) si lo quieres así (000000000123) pon pic 9(11) en vez de pic z(11). Tambien te puede interesar pic z(10)9