Como sacar una tabla a un CSV, desde comandos de AS400

Para sacar una tabla en formato CSV, desde la AS400, sin tener que ejecutar ningún programa, se puede realizar usando comandos propios de la AS400 y existen dos formas que nos permiten este proceso. Aquí explico uno de ellos, que tiene mayor efectividad.

Para el ejemplo, se sacara el archivo SEFTTAOS a un archivo CSV y se lo enviara al PATH: \LBAFTP\EMISION\LBA\SEND

Lo primero que se hace es crear un archivo temporal en la biblioteca QTEMP que se utilizara para este proceso

En la linea de comandos se coloca lo siguiente :

CRTPF FILE(QTEMP/GRFWTAOS) RCDLEN(500) SIZE(*NOMAX)

Luego se realiza la copia y se arma el archivo temporal separado por ';' cada columna.

CPYTOIMPF FROMFILE(*LIBL/SEFTTAOS) TOFILE(QTEMP/GRFWTAOS) MBROPT(*REPLACE) FROMCCSID(*FILE) FLDDLM(';') DCMPNT(*COMMA) ADDCOLNAM(*SQL)

(La opción ADDCOLNAM es la que nos agrega el nombre de las columnas).

Por ultimo se realiza la transferencia del archivo

MTSFTPCMD ARCSRC(ANBGFTP/QFTPSRC) SYSTEM(NT_FT4) OBJ(QTEMP/GRFWTAOS) PTHDES('\LBAFTP\EMISION\LBA\SEND\SEFTTAOS.CSV')

Listo. Esto deja el archivo CSV en la ruta de destino.