Discussion :

[hermellin]

Bonjour,

je me remet péniblement a RPG4 après 5 ans de pause

je developpe en v4r2 et voudrais un tablo(99,5) qui contiendrait :
tablo(1,1)= 01.01
tablo(1,2)= 01.02
..
tablo(1,5)= 01.05
..
tablo(99,5) = 99.05

j'ai fait ceci, après pas mal de difficultés

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dmot_typ          ds                  occurs(99)
D   typ                   1     25    dim(5)
 *
Dcta              ds
D a                       1      2  0
D p                       3      3    inz('.')
D b                       4      5  0
C     1             do        99            a
C     a             occur     mot_typ
C     1             do        5             b
C                   movea     cta           typ(b)
C                   enddo
C                   enddo

ca marche a priori, mais n'y a t il pas plus moderne (c du rpg3) ? avec Eval ?
a noter que je ne peux pas utiliser les mots clefs Qualified et Dim sur une DS avec ma version.

merci d'avance

[Mercure]

The Essential RPG IV Style Guide à l'époque de la V4R2. A lire pour se remettre dans le bain.


Mais, en ce qui concerne le tableau à 2 dimensions, j'ai bien peur que ça ne soit pas possible avec cette version. Au moins la V5R1 je pense, serait nécessaire.

Sinon, pour que ça fasse "moins RPG III", je ferais :

Code :

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

1
2
3
4
5
6
7
8
9
D mot_typ         ds                  occurs(99)
D   typ                         25a   dim(5)    

c                   for       a = 1 to 99   
c     a             occur     mot_typ       
c                   for       b = 1 to 5    
c                   eval      typ(b) = cta  
c                   endfor                  
c                   endfor

[K2R400]

LikeDS est-il supporté en V4R2 ?

Code :

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

1
2
3
D Year            DS               Dim(20) Qualified
D  Month                           LikeDS(Mdata) Dim(12)
C                 Eval      Year(Yr).Month(Mth).Revenue = MonthTotal

[hermellin]

Pour Mercure : le code est très proche du mien, je n'ai hélas pas la boucle FOR en v4r2 et j'en suis venu au "Movea" parce que l'Eval générait une erreur de compil.

pour K2R400 : j'essaierai likeDS ce soir mais a mon avis, mot clef inconnu.

merci a vous.

[jump400]

Bonjour,

QUALIFIED et LIKEDS (au niveau d'une DS) ne sont apparus qu'en V5R1 (qualification simple, à un niveau).
La qualification dite "complexe" (tableaux de DS, LIKEDS au niveau des sous-zones de DS, jusqu'à environ 100 niveaux de qualification) est apparue en V5R2.

Désolé

Les DS à occurences sont interessantes, mais souffrent d'un inconvénient majeur : une seule occurence est accessible à la fois. Il n'est pas possible de faire des mouvement (ou tests) entre éléments d'une occurence et une autre. Il faut passer par des variables intermédiaires.

[Mercure]

Peut-on savoir pourquoi tu développes en V4R2, un OS qui doit avoir quelques 10 ans d'âge ?

Je veux dire, est-ce une contrainte de ta boîte ou bien c'est parce qu'il se trouve que tu disposes d'un AS400 en V4R2 pour faire du développement personnel ?

[hermellin]

oui c cela Mercure, je developpe pour des projets persos (suis liberal) et mon mod 150 est en v4r2.
J'ai aussi un 9406-800 en v5r1 (chargé ILE), un autre en 9406-800 en v5r2 (mais chargé avec java only).

Bizarrement j'aime bien mon vieux mod 150 qui fait IPL en 17 minutes chrono et surtout fait pas le bruit de soufflerie des mod 800

a priori je n'ai besoin que d'acceder a une occurence de mon tablo 2d en meme temps, donc vais continuer avec cet OCCUR.
merci. (et aussi pour les precisions de version Jump400)