Fichiers d’horodatage

Q : Comment puis-je placer
un tampon horodateur
dynamiquement à  la fin du
nom de fichier quand je fais
FTP de l’iSeries vers un
lecteur du réseau ?

R : Le client FTP iSeries ne possède pas
de fonctions intégrées pour créer des
fichiers de tampons horodateurs en
utilisant une combinaison de RPGLE et
de FTP batch. Cependant, vous pouvez
écrire votre propre solution pour créer
des fichiers de tampons horodateurs
sur le système cible. Pour cela, vous devez
d’abord créer un programme CLP
chargé d’appeler un programme RPG
LE qui créera dynamiquement un
script batch FTP. Quand le programme
RPGLE crée le script FTP, le programme
peut extraire la date et l’heure
courantes de l’iSeries et les utiliser
pour créer le fichier de sortie sur le lecteur
du réseau. Une fois le script FTP
créé, le programme CLP peut appeler
FTP en traitement batch pour procéder
au transfert de fichier. La figure 1A
montre un exemple de programme
CLP nommé FTPTimStpC qui remplit
ces fonctions.

Ce programme CLP crée d’abord
dans QTEMP le fichier FTPSrc qui contiendra le script d’entrée FTP et des listings de sortie FTP.
Après quoi, il procède à  un écrasement pour le fichier
FTPSrc, afin d’être sûr que le programme FTPTimStp utilisera
le fichier présent dans la bibliothèque QTEMP. Après
s’être exécuté, le programme FTPTimStp utilise un nom de
fichier de tampons horodateurs pour créer le script d’entrée
FTP nécessaire pour envoyer le fichier. Les deux écrasements
suivants redirigent les fichiers d’entrée et de sortie FTP
iSeries vers le fichier FTPSrc, après quoi FTP est appelé.
Comme la commande FTP iSeries a besoin d’un nom de
système, la valeur Loopback est utilisée. A noter que le nom
d’hôte distant réel est fourni dans le script FTP. Une fois le
transfert effectué, les remplacements et le fichier de travail
sont supprimés. La figure 1B montre le code source pour le
programme RPGLE FTPTimStp.
Le programme FTPTimStp crée le script FTP dans le fichier
nommé FTPSrc. Il ouvre d’abord le fichier FTPSrc pour
la mise à  jour, puis deux structures de données sont créées
pour extraire la date et l’heure du système. Ensuite, les suites
d’instructions Eval et Write construisent
le script FTP et envoient sa sortie
au fichier FTPSrc. Les premières
valeurs Dummy et Close écrites dans
le script FTP ferment la connexion
Loopback. Puis, la sous-commande
Open ouvre une connexion FTP vers le
système cible et la sous-commande
User authentifie la connexion. La souscommande
NameFmt 1 ordonne à  FTP d’utiliser les conventions
de nom IFS iSeries. Ensuite, l’API QWCCVTDT extrait la
date et l’heure iSeries.
L’instruction Eval suivante écrit la sous-commande Put
dans le fichier script FTP. Ici, il est important de noter que la
sous-commande Put renomme le fichier qui est envoyé. Le
nouveau nom de fichier est créé en utilisant les valeurs date
et heure du système. Une fonction SubSt élimine la portion
Mois/Jour/Heure/Minute/Seconde de l’heure courante dans
le format MMJJHHMMSS, qui est ensuite ajoutée à  l’extension
de fichier .dat. Les lignes suivantes ferment la connexion
et arrêtent FTP.
Pour que cette solution fonctionne dans votre environnement,
vous devrez changer les valeurs utilisées dans les
sous-commandes Open, User et Put. La figure 1C montre un
exemple du script de sortie FTP produit par le programme
FTPTimStp.