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.