Précédent   Forum du club des développeurs et IT Pro > Systèmes > Autres systèmes > AS/400
AS/400 Le Forum d'entraide sur IBM AS/400 - iSeries. RPG.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse
 
Outils de la discussion
Publicité
'
Vieux 08/10/2012, 13h44   #1
najj82
Invité de passage
 
Homme
Développeur informatique
Inscription : octobre 2012
Messages : 1
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : Congo-Brazzaville

Informations professionnelles :
Activité : Développeur informatique
Secteur : Service public

Informations forums :
Inscription : octobre 2012
Messages : 1
Points : 0
Points : 0
Par défaut programme extraction rpg

salut ye suis debutant en rpg mais je dois ecrire un pgm:

--extraire de facon sequentiel des infos d'un fichier externe
--alimenter ma zone que j inserer dans mon pf
-- faire une mise a jour dans le meme temps

svp les devanciers aidew moi

merci
najj82 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 08/10/2012, 14h01   #2
FORMULARY
Membre chevronné
 
Homme
Inscription : septembre 2008
Messages : 483
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations forums :
Inscription : septembre 2008
Messages : 483
Points : 660
Points : 660
Exemple :
Code :
1
2
3
4
5
6
7
8
9
     FFICHIER UP  E           K        DISK    
     IFORMAT      01                           
     C                     MOVE VAL1      ZONE1
     C           VAL1      IFEQ '01'
     C                     MOVE VAL2      ZONE2
     C                     END
     OFORMAT  D                                
     O                         ZONE1           
     O                         ZONE2
Ce programme lit le format FORMAT du fichier FICHIER
Il modifie ZONE1 avec Val1 et si Val1='01' ZONE2 avec Val2
Ce programme modifie TOUS les enregistrements lus.
Il faudra bien sûr que tu adaptes ton programme ...
FORMULARY est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse
Outils de la discussion

Navigation rapide


Fuseau horaire GMT +2. Il est actuellement 23h49.


 
 
 
 
Partenaires

Hébergement Web