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.