/*----------------------------------------------------------------------------*/ /* Serge GOMES Import XLS €*/ /*----------------------------------------------------------------------------*/ /*‚Fichier de destination XLSFIC (doit exister avec zones concordantes ŕ xls)€*/ /*‚Fichier source pour les erreurs QTEMP/WERROR €*/ /*----------------------------------------------------------------------------*/ /*‚ &FICH 255A Fichier source €*/ /*‚ &LNG 5A Longueur BUFFER + nbZone + 813 pour fichier err € */ /*‚ &RET 2A blank si ok €*/ /*----------------------------------------------------------------------------*/ PGM PARM(&FICH &LNG &RET) DCL VAR(&FICH) TYPE(*CHAR) LEN(255) DCL VAR(&LNG) TYPE(*CHAR) LEN(5) DCL VAR(&RET) TYPE(*CHAR) LEN(2) DCL VAR(&WN5) TYPE(*CHAR) LEN(5) DCL VAR(&WCUSR) TYPE(*CHAR) LEN(10) DCL VAR(&WMSG) TYPE(*CHAR) LEN(300) CHGVAR VAR(&RET) VALUE(' ') RTVJOBA USER(&WCUSR) /*šExtraction longuer buffer + nb zone +813 €*/ CHGVAR VAR(&WN5) VALUE(&LNG) DLTF FILE(QTEMP/WERROR) MONMSG MSGID(CPF0000) CRTSRCPF FILE(QTEMP/WERROR) RCDLEN(&WN5) TEXT('Source + pour erreur CPYFRMIMPF') MONMSG MSGID(CPF0000) CPYFRMIMPF FROMSTMF(&FICH) TOFILE(XLSFIC *FIRST) + MBROPT(*REPLACE) FROMCCSID(850) + RCDDLM(*CRLF) DTAFMT(*DLM) STRDLM(*NONE) + RMVBLANK(*NONE) FLDDLM(*TAB) + DECPNT(*COMMA) FROMRCD(4) + ERRRCDFILE(QTEMP/WERROR ERR1) + ERRRCDOPT(*REPLACE) RPLNULLVAL(*FLDDFT) MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(ERR)) GOTO CMDLBL(FIN) /*‚========================= TRAITEMENT DES ERREURS ==================== */ ERR: CHGVAR VAR(&RET) VALUE('ER') CHGVAR VAR(&WMSG) VALUE(' Erreur pendant + l''importation du fichier ') MONMSG MSGID(CPF0000) SNDMSG MSG(&WMSG) TOUSR(&WCUSR) GOTO CMDLBL(FIN) FIN: ENDPGM