Crear Rutina que exporte archivos DAT a TXT?

[JCantero]

Te adjunto fichero modificado.

[JCantero]

Fichero subido

[JCantero]

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......

[luisbago]

runcobol.exe idx2cvs 211.idx;cosa.txt
2 options no valid

runcobol.exe idx2cv
COBOL data reference error 104 at line 106 in idx2cvs
106    000013              IF  CMD-LENGTH = 0

runcobol.exe idx2cvs '211.idx;cosa.txt'
' options no valid

compilado
rmcobol 6.07 y rmcobol 7.00.02

no ejecuta el programa

[JCantero]

@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)

runcobol.exe idx2cvs a=' 211.idx; cosa.txt'

[luisbago]

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)

[JCantero]

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

- En una sentencia string ...... no puedes poner campos computacionales, lo he movido a un campo de edicion

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

       * Si tienes este campo numerico 
          01 NSS PIC 9(11) COMP-3.
 
       * defines uno de edicion en working
          01 nss-e  pic z(11).
 
       * en la procedure division
                move nss to nss-e.
 
       * y haces uso de nss-e en vez de nss 

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