Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter
Débutant AS400 : RPG IV
Bonjour,
Etant actuellement alternant dans une boîte possédant un as400, je suis amené à développer des applications/programmes en RPG cependant j'ai vraiment beaucoup de mal et je n'arrive pas à me faire aux concepts du RPG...
Je travailles actuellement sur un projet mais je bloque totalement, savez-vous comment je peux m'améliorer ? y a t-il des personnes en mesure de me venir en aide ?
Merci d'avance pour vos réponses !! (;
Bonjour,
Sans aucune connaissance du RPG, çà n'est pas évident.
Surtout si c'est du vieux RPG (II, III, ou même IV en mode à l'ancienne). Dans ce cas c'est même difficile pour des habitués comme moi, car la lisibilité n'était pas le point fort de ces outils.
Il y a des concepts à connaître, en particulier le cycle, très puissant quand on sait l'utiliser, mais qui n'est plus trop d'actualité en programmation moderne. S'ils ne l'utilisent pas, tant mieux pour toi.
Il faut avoir quelques connaissances de base sur l'OS, l'environnement de travail, la BD.
Après les livres (dispos en PDF) fournis par IBM comme l'ILE_RPG_Reference (suivi du n° de version), seront un précieux atout pour ce qui est du code lui-même. Tu y trouveras beaucoup de choses.
Maintenant, prendre un alternant sur un langage qu'il ne connait pas du tout, c'est un peu chaud.
Ils n'ont pas moyen de te faire suivre une formation, même rapide ?
Sur les forums on pourra toujours t'aider, mais on ne pourra pas être derrière toi non plus.
Oui je l'utilise beaucoup l'ILE RPG REFERENCE FILE mais il y'a pleins de choses que je ne comprends pas, je trouve que c'est super différent des autres langages...Envoyé par m4k-Hurrican
Bonjour,
Sans aucune connaissance du RPG, çà n'est pas évident.
Surtout si c'est du vieux RPG (II, III, ou même IV en mode à l'ancienne). Dans ce cas c'est même difficile pour des habitués comme moi, car la lisibilité n'était pas le point fort de ces outils.
Il y a des concepts à connaître, en particulier le cycle, très puissant quand on sait l'utiliser, mais qui n'est plus trop d'actualité en programmation moderne. S'ils ne l'utilisent pas, tant mieux pour toi.
Il faut avoir quelques connaissances de base sur l'OS, l'environnement de travail, la BD.
Après les livres (dispos en PDF) fournis par IBM comme l'ILE_RPG_Reference (suivi du n° de version), seront un précieux atout pour ce qui est du code lui-même. Tu y trouveras beaucoup de choses.
Maintenant, prendre un alternant sur un langage qu'il ne connait pas du tout, c'est un peu chaud.
Ils n'ont pas moyen de te faire suivre une formation, même rapide ?
Sur les forums on pourra toujours t'aider, mais on ne pourra pas être derrière toi non plus.
Et pour être honnête je ne sais pas par où commencer, j'ai l'impression de me noyer dedans. Pour ce qui est d'une formation je suis quasi sûr que c'est impossible d'autant plus que c'est un contrat d'un an je les vois mal payer la formation plusieurs milliers d'euros ...
Je m'en doute bien, vous n'êtes pas des formateurs après tout (enfin je suppose) mais si quelqu'un pouvait me guider ce serait top
Çà n'est pas si différent que çà.
Dans le RPG, il faut savoir que tu as une structure immuable, au niveau du source.
A la base le RPG était conçu pour des machines qu'on appelait des tabulatrices.
On insérait des cartes perforées, qui indiquait le traitement à exécuter.
Dans le RPG on a donc classé le code de la même manière. Ce fonctionnement par cartes a été conservé, même s'il a beaucoup évolué.
Les cartes avaient elle même des structures en colonnes, et çà a été reproduit dans le RPG.
On commence par la carte H (comme Header), qui définit les paramètres principaux du programmes.
Puis les cartes F (File), dans lesquelles ont défini les fichiers, leur type (écran, imprimante, disque, spécial, ...), le type d'accès (Entrée/Sortie), si il y a une clé d'accès, si le fichier est défini en interne ou externe, etc...
Ensuite tu avais les cartes E pour les tableaux, qui normalement ont été remplacées par des cartes D bien plus polyvalentes.
Les cartes D (Data) justement, permettent de définir des données.
Les cartes I (Input), si tu as des fichiers définis en interne, ou si tu veux renommer des champs.
Les cartes C (Calculation), avec le code d'exécution.
Puis les cartes O (Output), avec les sorties.
Aujourd'hui, avec le RPG moderne, il n'y a plus de structures en colonnes, tout est en "free". Seul l'ordre des lignes a été conservé (Définition programme, fichiers, données, code).
Si tu utilises SQL, même la partie fichier peut disparaitre.
Mais avant tout, il faut avoir quelques infos :
- Sur quelles versions travailles tu ? (OS / RPG)
- Dois tu créer de nouveaux modules / programmes ou maintenir un existant ?
- Si tu dois maintenir de l'existant, dans quel format est-il (RPG II, III, IV, free ou non) ?
COURS RPG
Bonjour,
Il y a pas mal de cours gratuits et en français sur le site de VOLUBIS.
Je t'invite à y jeter un coup d'oeil.
Pour ce qui est de l'aide, soumet ton problème et on pourra sans doute y réponse.
Larry57
Un éditeur US spécialisé sur l'IBM i et ses ouvrages sur le RPG :
https://www.mc-store.com/collections/programming
Désolé de la réponse tardive je n'avais pas accès au forum depuis un ordinateur, oui je développe en free, et je dois développer un programme en free.
Il doit permettre de saisir des Interventions sur des tickets d'incidents => sur un écran on aurait un menu de "sélection", "création", "suppression" d'interventions.
En gros ce que j'appelle une "intervention" c'est un sorte de compte rendu de réponse à un ticket d'incident, ce compte rendu il serait à remplir via différents champs numérique et alphanumériques .
Vous comprenez l'idée? (dites moi ce qui n'est pas clair, je peux essayer de vous illustrer ça en créant des fichier "DSPF" je pense...)
Oui j'ai regardé les cours de volubis mais je n'arrive pas à appliquer tout ça aux tâches que je dois faire : (je te remets ce que je souhaite faire comme programme en dessous)
~~~~~~~~~~
Je dois développer un programme en free.
Il doit permettre de saisir des Interventions sur des tickets d'incidents => sur un écran on aurait un menu de "sélection", "création", "suppression" d'interventions.
En gros ce que j'appelle une "intervention" c'est un sorte de compte rendu de réponse à un ticket d'incident, ce compte rendu il serait à remplir via différents champs numérique et alphanumériques .
Vous comprenez l'idée? (dites moi ce qui n'est pas clair, je peux essayer de vous illustrer ça en créant des fichier "DSPF" je pense...
~~~~~~~~~~
Ce genre de programme est normalement relativement aisé à écrire en RPG free, même si le résultat final en ergonomie utilisateur est plus que moyen.
Bon, je passerai sur le fait que nombreux sont ceux (comme nous) qui ont abandonné les "écrans verts".
On a encore des programmes qui les utilisent et qu'on maintient, mais tout ce qui est nouveau est sur interface graphique (Web ou VB.net dans notre cas).
Dans ton cas, il faut que tu crées ton fichier écran (et donc ses différents formats), avec les outils qui vont bien, et ensuite dans le RPG, tu lis et écris les différents formats (ordre EXFMT).
La subtilité dans les échanges avec un fichier Workstation (écran donc), ce sont les zones "spéciales", comme les indicateurs, et les touches de fonction.
Suis les modèles existants, pour garder toujours la même méthodologie, afin de faciliter la maintenance.
J'avoue que moi j'ai souvent fait l'inverse, étant donné que c'est moi qui doit tout maintenir, j'ai toujours avancé vers plus de modernité quand je le pouvais. Et c'est un des reproches qu'on peut faire à mon ERP, on a 3 interfaces différentes selon les modules (écrans verts, Web, VB.net). Mais petit à petit je migre tout vers VB.net.
Le RPG me sert pourtant toujours, j'ai un grand nombre de procédures SQL qui sont des modules ou programmes de service en RPG.
Si simple que ça? je suis en train d'essayer de faire les écrans dont je pense avoir besoin, j'aimerai avoir mon menu puis lorsque je veux créer ou modifier une intervention je veux changer de page, tu comprends?
Qu'entends tu par Workstation et EXFMT?
oui au niveau de mes dspf j'essaie de rester fidèle à ceux déjà existant !
Workstation c'est le type de fichier déclaré dans ton RPG.
Il faut voir que les E/S écran ou imprimante, sont gérées (et c'est parfaitement logique), comme des fichiers. Workstation pour les écrans, Printer pour les imprimantes.
Tu écris donc sur l'écran (Sortie, ordre Write), et tu le lis (Entrée, ordre Read).
L'ordre EXFMT fait les deux en une seule opération, ce qui est pratique dans la plupart des cas.
Tu crées les formats dans ton DSPF, le 1er étant ton choix d'option, ton deuxième l'écran de saisie.
Éventuellement, si tu veux que tout soit sur le même écran lors de l'affichage, tu utilises le mot-clé OVERLAY dans ton DDS sur ton 2ème format pour qu'il n'écrase pas le 1er.
Ensuite tu codes ton RPG de manière propre, avec des boucles qui répondent aux touches de fonction pressées.
Note :
Personnellement, je n'utilise plus depuis longtemps les indicateurs de touches de fonction (*inKA, *inKB, etc...) ou les indicateurs liés par DDS (*in01 lié à CF01 par exemple).
Je trouve çà d'une absence de lisibilité totale pour les indicateurs *inK* , et source d'erreurs pour les indicateurs liés (déjà que 99 çà fait peu parfois, si on en exclu 24 çà empire les choses).
Qui plus est, certaines touches sont difficiles à récupérer (est-ce vraiment la touche entrée qui a été pressée ? etc...)
J'utilise donc la DataStructure du fichier écran. J'ai un membre source que j'incorpore au code avec un simple /COPY et comme çà je peux gérer mes touches de fonction de manière bien plus lisible, du genre :
Au cas où çà intéresse voilà le source à importer (moi je l'ai appelé DSPF_DS) :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
2
Code : Sélectionner tout - Visualiser dans une fenêtre à part
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
C'est vrai que ta manière de faire est un peu plus parlante, mais concrètement c'est quoi une data structure, parce que j'ai l'impression que cela permet juste de déclarer des variables non?
Ensuite si je comprends bien tu développes tout ton code dans ton " DoW SDA_Key <> $F3;" afin de ne t'arrêter que si l'utilisateur presses F3?
J'utilises effectivement l'overlay pour superposer mes format, mais comment puis je faire pour passer d'un écran à un autre après avoir sélectionné une option?
Quand tu fais ton EXFMT l'écran choisi est affiché, et le système attend que l'utilisateur appuies sur une touche de fonction, sur Entrée, une autre touche spécifique (PageUp/Down, etc...), ou que l'utilisateur ait fini de remplir un champ qui possède le mot-clé CHECK(ER) ou AUTO(RA), qui va rendre le contrôle au programme.
Si tu veux juste choisir une option en permettant à l'utilisateur d'entrer un chiffre qui affiche alors automatiquement le 2ème écran (en admettant que tes options se limitent à un chiffre de 0 à 9), tu peux définir un champ I/O de 1 position numérique, avec CHECK(ER).
Associe aussi le mot CHANGE(xx) où xx est un indicateur qui sera *ON si la zone a été changée, *OFF dans le cas contraire.
Il ne te reste plus qu'à gérer tes boucles normalement.
Un EXFMT pour afficher l'écran de choix, l'EXFMT de l'écran de saisie si l'utilisateur n'a pas demandé à sortir et si la zone de choix a changé, et le tour est joué.
Pour les Data Structures, comme leur nom l'indique ce sont des structures de données.
Elles regroupent des variables à la manière d'un enregistrement. D'ailleurs certaines peuvent justement être définies avec le mot clé LikeRec qui permet de copier la structure d'un enregistrement de fichier.
Je vois, je comprends mieux je te remercie j'ai pu faire mes écrans et les lier par un petit programme, mais je suis un peu bloqué pour coder les fonctionnalités F6 créer, '2' modifier, et '4' supprimer, j'ai pensé à passer par une subroutine (SR) mais je ne vois vraiment pas comment agir sur un seul enregistrement du fichier physique...
Facile
Bonjour,
Pour la gestion des écrans, je fait plutôt comme ça :
Après, pour les touches de fonction :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
2
3
4
5
6
7
8
9
Larry57
Code : Sélectionner tout - Visualiser dans une fenêtre à part
2
3
4
5
6
7
8
9
10
11
Salut Larry,
quel serait le contenu de tes sr init, ecran1, trt_ajout et Autre_chose???
et aussi à quoi correspond wecran?
Un exemple minimale de programme.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57FMON_ECRAN CF E WORKSTN SFILE(WECRAN1S:C1_RRN) D CLE S 10a INZ('MA_valeur') DWECRAN s 2A inz('01') D MA_TABLE e ds extname('MA_TABLE') *--------------------------------------------------------------------* * Traitement principal * *--------------------------------------------------------------------* Dow not *inlr; Select; when wecran = '01'; exsr init; when wecran = '02'; exsr ecran1; when wecran = '03'; exsr init1; when wecran = '04'; exsr ecran2; Endsl; Enddo; *--------------------------------------------------------------------* * Gestion initialisation * *--------------------------------------------------------------------* C init Begsr EXEC SQL select * into :ma_table from ma_table where macle = :cle; wecran ='02'; C Endsr *--------------------------------------------------------------------* * Gestion écran 1 * *--------------------------------------------------------------------* C ecran1 Begsr // ça, c'est pour la gestion des messages d'erreur. pgmq = '*'; *IN55 = *ON; WRITE MSGCTL; exfmt WECRAN01; select; when *in12; *inlr = *on; when *in09; exsr trt_ajout; Other; Endsl; C Endsr pour les messages, il existe un api de gestion, tu trouveras les sources sur le net. RemoveMessage(Rmv_PgmQue:Rmv_StkCnt:Rmv_MsgKey:Rmv_Remove:Error_Code); SndPgmMsg(message: 'USRMSG *LIBL':%trim(MsgTxt):%Len(MsgTxt):'*INFO': '*':*Zero:MsgKey:*Zero);
Je vois merci à toi, qu'en penses tu toi mon cher m4k-Hurrican?
Il y a quelqu'un?
Pas grand chose à répondre.
Chacun à sa manière de faire.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Répondre avec citation
Partager