RTVMBR + FTP [Résolu]

[teikin]

Bonjour a tous

Voila je suis novice en AS400, je voudrais récupérer le nombre d'enregistrement et la date de modification d'un membre dans l'AS400 puis transférer le résultat sur un PC

PGM DCL &NBRRCD TYPE(*DEC) LEN(10 0)
DCL &CHGDATE TYPE(*CHAR) LEN(13)

RTVMBRD FILE(MYLIB/MYFILE) NBRCURRCD(&NBRCURRCD) +
CHGDATE(&CHGDATE)

ENDPGM

Merci

[pwrdwnsys]

Bonjour.

tout dépend du format du résultat que tu veux obtenir sur ton PC.
Si tu veux avoir simplement un aperçu visuel de cette information, System i Navigator te le fournit très bien (Base de données/schéma/table/clic droit et "Description").
Si tu veux des informations "à traiter" sur ton PC, il faut utiliser la commande DSPFD TYPE(*MBRLIST) en sortie fichier (OUTPUT(*OUTFILE), puis transférer ce fichier sur ton PC (FTP ou iSeries Access...).

[teikin]

Bonjour

Merci Beaucoup a toi pour ta réponse

La commande DSPPF est vraiment ce que j'avais besoin.

Le (OUTPUT(*OUTFILE) ne ma pas donné les informations que je voulais
Donc j'ai utilisé La sotie *PRINT afin de générer un spool
que je récupère pour envoi vers le PC

Voici le code:
Création du spool avec les informations du Fichiers

PGM PARM(&FILE &BIBL)
DCL VAR(&FILE) TYPE(*CHAR) LEN(10)
DCL VAR(&BIBL) TYPE(*CHAR) LEN(10)

DSPFD FILE(&BIBL/&FILE) TYPE(*MBRLIST) +
OUTPUT(*PRINT)

CPYSPLF FILE(QPDSPFD) TOFILE(MYLIB/MYFILE) +
SPLNBR(*LAST) CTLCHAR(*NONE)

ENDPGM

il reste plus qu'a envoyer par FTP le Fichier spool (MYLIB/MYFILE)

Merci encore