par Jef Sutherland - Mis en ligne le 19/01/2005 - Publié en Mars 2004
Ce court programme RPG montre combien il est facile d'ouvrir, de lire, d'écrire
et de fermer des fichiers sur l'IFS
Quand nous travaillons avec l'iSeries et son système de fichiers intégré (IFS, integrated
file system), qui nous permet d'intégrer facilement la plate-forme à d'autres
systèmes et qui héberge les fichiers et graphiques stream, reconnaissons que nous
sommes gâtés. Vous pouvez utiliser l'IFS comme un lecteur de réseau ou comme un
autre lecteur personnel pour vos fichiers PC. De plus, vous pouvez stocker des tableurs,
des lettres et des fichiers graphiques sur l'IFS aussi simplement que sur le
disque dur du PC ...Et, même si l'espace disque de l'iSeries n'est pas aussi bon marché
que les disques durs du PC, l'IFS offre un moyen commode, fiable et centralisé
de sauvegarder et de maintenir les fichiers PC.
Autre avantage de placer les données du PC sur l'IFS : vos programmes RPG peuvent
accéder aux fichiers. Dans cet article, nous allons voir comment utiliser un programme
RPG pour accéder à des fichiers texte ASCII stockés sur le système de fichiers
racine de l'IFS.
Accéder aux fichiers de données à partir de l’IFS en RPG
L’exemple suivant illustre combien
il est facile à vos programmes RPG
d’accéder aux fichiers IFS. Votre société
vend de l’équipement médical
par le canal d’un distributeur. Chaque
jour, vous fournissez à celui-ci des devis
avec des niveaux de stock. Le distributeur
envoie alors au service ventes
un courrier électronique auquel est
rattaché un fichier texte contenant les
numéros d’articles. Le service ventes
stocke le fichier texte dans l’IFS de la
manière suivante :
Fichier d’entrée: QUOTEIN.DAT
0038743
0038234
0143838
0373281
1848378
4382983
En tant que développeur, vous devez
créer un programme RPG qui lit le
fichier de données dans l’IFS et prépare
dans celui-ci un fichier de sortie
qui contient l’information de prix et de stock suivante :
Fichier de sortie: QUOTE OUT.CSV
0038743,1099.00,5
0038234,2217.00,6
0143838,3000.00,2
0373281,2500.00,8
1848378,1989.00,3
4382983,2300.00,1
Toutes les informations de prix et
de stock se trouvent dans DB2/400 sur
l’iSeries. Si le distributeur envoie plus
d’un fichier texte dans une même journée,
l’information est ajoutée au fichier
de sortie dans l’IFS. Le fichier de
sortie est ensuite renvoyé par courrier
électronique au distributeur en fin de
la journée. Pendant la nuit, le fichier de
sortie est enlevé de l’IFS.
Téléchargez gratuitement cette ressource
TOP 5 Modernisation & Sécurité des Postes Clients
Pour aider les entreprises à allier les restrictions liées à la crise et la nécessaire modernisation de leurs outils pour gagner en réactivité, souplesse et sécurité, DIB-France lance une nouvelle offre « Cloud-In-One » combinant simplement IaaS et DaaS dans le Cloud, de façon augmentée.
