IF COND(&FIELDNAMES) THEN(DO) /* Fieldnames */ĭSPFFD FILE(&FROMLIB/&FROMFILE) OUTPUT(*OUTFILE) + IF COND(&FIELDNAMES) THEN(CHGVAR VAR(&MBROPT) +ĮLSE CMD(CHGVAR VAR(&MBROPT) VALUE(*REPLACE)) * CRTCLPGM PGM(XXX/CPYTOXLS) SRCFILE(XXX/QCLSRC) */ĬPYTOXLS: PGM PARM(&FILE &FROMMBR &TOFILE &TODIR +ĭCLF FILE(QSYS/QADSPFFD) /* File field reference +ĭCL VAR(&NOT_FIRST) TYPE(*LGL) LEN(1) VALUE('0')ĭCL VAR(&COMMA) TYPE(*CHAR) LEN(1) VALUE(',')ĭCL VAR(&DBLQUOTE) TYPE(*CHAR) LEN(1) VALUE('"') +ĬHGVAR VAR(&FROMFILE) VALUE(%SST(&FILE 1 10))ĬHGVAR VAR(&FROMLIB) VALUE(%SST(&FILE 11 10))ĬHGVAR VAR(&TOSTMF) VALUE(&TODIR *TCAT '/' *CAT + * you give the filename the extension ".CSV" */ * values), which can directly be imported in EXCEL if */ * The file will be copied to CSV format (comma separated */ SPCVAL((*CURLIB) (*LIBL)) PROMPT('Library')
PARM KWD(ALIAS) TYPE(*LGL) DFT(*YES) SPCVAL((*YES +įILENAME: QUAL TYPE(*NAME) LEN(10) MIN(1) PARM KWD(FIELDNAMES) TYPE(*LGL) DFT(*YES) + PARM KWD(MBR) TYPE(*NAME) LEN(10) DFT(*FIRST) +ĭFT('/mydir') CASE(*MIXED) PROMPT('To IFS + PARM KWD(FILE) TYPE(FILENAME) PROMPT('File name') * CRTCMD CMD(XXX/CPYTOXLS) PGM(XXX/CPYTOXLS) + */ĬPYTOXLS: CMD PROMPT('Copy to EXCEL format') RE: AS/400 CPYTOIMPF Help Needed HitechUser (Programmer) 21 Feb 05 17:31 If you need more advice concerning this problem, mail me. " STMFCODPAG("+codepage+") RCDDLM(*CRLF) FLDDLM(' ') DECPNT(*COMMA)" You can obtain it from ĭef file400_to_csv2(bibliothek,datei400,ifsdir,csvname='datei400',codepage='1250'):Īufruf = "CPYTOIMPF FROMFILE("+bibliothek+"/"+datei400+")"+\ I don't know if you know Python for iSeries? It's great tool.
I wrote the native python function first, but I had problems with encoding (I use characters from Codepage 1250) so at end I used better CPYTOIMPF. Here is the necessary Python function, which use CPYTOIMPF command. The objekt File400 has method fieldList, that extract the field names from database. I solved this problem using Python for iSeries. You can solve the header row problem best with any programming language.
0 kommentar(er)
