Wer es billig haben will
CPYTOIMPF FROMFILE(QTEMP/eingabe) TOSTMF(PCDATEI) +
MBROPT(*REPLACE) STMFCCSID(1208) +
RCDDLM(*LF) DTAFMT(*DLM) STRDLM('') +
FLDDLM(';') NUMFLDPAD(*BLANK) +
DECPNT(*COMMA) ADDCOLNAM(*SQL)
Dann aus dem ifs holen und EXEC wandelt dann csv in XLSX um