Les entreprises, la concurrence et l’Europe

/*----------------------------------------------------------------------------*/

/* 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)

...