Discussion :

[fxleo]

bonjour,


je viens d'écrire ce petit programme pour tester le RPG mais je ne connais pas l'instruction permettant de le clore .
Auriez vous la solution?
Merci.

0001.00 C* PREMIER PROGRAMME D'APPRENTISSAGE
0002.00 C Z-ADD1000 COMPTE 50
0003.00 C COMPTE DOWLT2000
0004.00 C COMPTE ADD 1 COMPTE
0005.00 C END
0006.00 C EXSR AFFICH
0007.00 C AFFICH BEGSR
0008.00 C COMPTE DSPLY COMPTE
0009.00 C ENDSR

[BBert]

Salut,

Je ne suis pas sur de comprendre ce que tu entend par clore...
As tu un message d'erreur ?

Tu peux déjà essayer de finir par "seton lr"

[fxleo]

il plante à la compilation :

LE PROGRAMME PEUT BOUCLER. AUCUN MOYEN TROUVE POUR TERMINER

Je pense que cela vient du fait que le programme n'a pas de tag de fin .
Merci pour l'info, je test

[fxleo]

ca marche mais ca marche pas car il y ad'autres problèmes.
En résumé merci c'est ce que je cherchais

[K2R400]

Salut,

Juste une chose.
Si tu dois t'investir sur le RPG, essaye plutôt la syntaxe FREE :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
d Compte          s              5  0 inz(1000)                   
 /free                                                            
                                                                  
      Dow compte < 2000;                                          
          Compte +=1;                                             
      EndDo;                                                      
      Exsr Affiche;                                               
     *inlr = *on;                                                 
  //------------------------------------------------------------- 
  // Sous-routine                                                 
  //------------------------------------------------------------- 
  Begsr Affiche;                                                  
     Dsply ('Résultat : ' + %char(Compte));                       
  Endsr;

[BBert]

Cool, content d'avoir pu t'aider..

K2R400, pour la syntaxe free, je suis assez d'accord avec toi, mais je vois que chez pas mal de client le free est pas toléré...

Perso j'aimerais bien en faire plus souvent

[fxleo]

j'ai oublié de préciser que je fais du RPG 3
Merci pour les réponses

[DevDX]

Salut,

Ton pgm attend
seton LR

Bonne journée.