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