Voici un petit script qui vous permet de convertir vos fichiers bases de données en CSV dans l'ifs de votre as400 ; vous n'avez plus ensuite qu'à les récupérer par FTP ou partage.

Ci-joint le script de convertion d'un fichier :

/*----------------------------------------------------------------------*/
/* convertir un fichier BD en csv full compatible excel   */
/*----------------------------------------------------------------------*/

PGM PARM(&FIC &LIB &REPERT)
 /*DECLARATION VARIABLEs */
DCL &FIC *CHAR 10
DCL &LIB *CHAR 10
DCL &REPERT *CHAR 30 
DCL &REPFIC *CHAR 50
 /* CREATION D'UNE COPY DE FICHIER AU FORMAT CSV */
/*----------------------------------------------------------------------*/
/* Test existnce du fichier source             */
/*----------------------------------------------------------------------*/
             CHKOBJ     OBJ(&LIB/&FIC) OBJTYPE(*FILE)
             MONMSG     MSGID(CPF9801) EXEC(DO)
             SNDMSG     MSG('Fichier inexistant' *BCAT &FIC) +
                          TOUSR(*REQUESTER)
             GOTO FIN
             ENDDO
/*----------------------------------------------------------------------*/
/* Test existence du fichier cible     */
/*----------------------------------------------------------------------*/
             CHGVAR     VAR(&REPFIC) VALUE(&REPERT *TCAT '/' *TCAT +
                          &FIC *TCAT '.CSV')
                          RMVLNK &REPFIC
                          MONMSG CPFA0A9
/*----------------------------------------------------------------------*/
/* format compatible windows      */
/*----------------------------------------------------------------------*/
             CPYTOIMPF  FROMFILE(&LIB/&FIC) TOSTMF(&REPERT *TCAT +
                          '/' *TCAT &FIC *TCAT '.CSV') +
                          STMFCODPAG(819) RCDDLM(*CRLF) +
                          STRDLM(*NONE) RMVBLANK(*BOTH) FLDDLM(';')
 FIN:
ENDPGM