rpg-ile-expert

RPG ILE Expert - IBM i Development

Skill de reference pour le developpement RPG ILE moderne sur IBM i. Base sur les travaux de Jean-Christophe Borg (Formateur expert Notos) et Sylvain Aktepe (IBM Champion 2025).

Instructions

Etape 1 : Identifier le type de besoin

Analyser la demande et classifier :

Type de besoin	Reference a lire EN PREMIER	Exemple de script
Appeler une API REST	references/webservices.md	scripts/crud_api_example.sqlrpgle
Requetes SQL embarquees	references/sql-embedded.md	—
Tableaux, tri, recherche, agregation	references/algorithmes.md	scripts/agregation_par_categorie.rpgle
Syntaxe RPG moderne / full free	references/rpg-full-free.md	scripts/asyntaxfre.rpgle
Ecrans 5250 et sous-fichiers (SFL)	references/ecrans-sfl.md	scripts/jcborg-example/
Creer PF / LF / DSPF	references/fichiers-dds.md	scripts/jcborg-example/
Validation IBAN	references/algorithmes.md	scripts/calcul_cle_iban.rpgle

Etape 2 : Lire les references AVANT de coder

CRITICAL: Toujours lire le guide de reference correspondant AVANT de generer du code. Si le besoin couvre plusieurs domaines (ex: ecran SFL + module externe), lire TOUS les guides concernes.

Fichiers de reference disponibles :

• references/rpg-full-free.md — Syntaxe RPG full free, dcl-f, dcl-s, dcl-ds, prototypes, BIF
• references/sql-embedded.md — Curseurs, EXEC SQL, fetch, insert/update/delete
• references/webservices.md — QSYS2.HTTP_GET/POST, JSON_TABLE, parsing JSON
• references/algorithmes.md — dim(*auto), %list, sorta, %lookup, agregation, IBAN
• references/ecrans-sfl.md — DSPF, SFL, SFLCTL, pagination, READC, fenetres, system(), QCMDEXC
• references/fichiers-dds.md — PF, LF, DDS DSPF, compilation

Etape 3 : Appliquer les regles critiques

Regles OBLIGATOIRES dans tout code genere :

1. **FREE en premiere ligne — Jamais de format fixe ou /free
2. ctl-opt obligatoire — Au minimum dftactgrp(*no) actgrp(*caller)
3. Nommage explicite — compteurLignes plutot que i, wNomClient plutot que w1
4. const sur les parametres non modifies — Systematiquement
5. Pas d'indicateurs numeriques — Utiliser ind avec noms explicites via renommage pointeur
6. Commenter en francais — // Calcul du montant TTC
7. Terminer avec *inlr = *on — Pour liberer les ressources
8. SQL : verifier SQLSTATE/SQLCODE — Apres chaque operation SQL
9. dcl-ds pour likeds() — JAMAIS dcl-s avec likeds (erreur RNF3438)
10. setll uniquement sur fichier keyed — Sinon close/open pour repositionner
11. SFLDSP en logique positive — 32 SFLDSP dans le DSPF, PAS N32 SFLDSP
12. Pas d'accents dans les DDS — Uniquement ASCII dans les constantes DSPF
13. CA/CF uniquement au niveau format avec INDARA — Pas au niveau fichier (CPD7597)
14. system('?...') pour commandes interactives — QCMDEXC ne supporte pas le prompting ?
15. Tester SflEnd avant ROLLUP — Eviter pagination infinie
16. Variable pageStart pour SRRN — Ne pas coder SRRN = 1 en dur

Etape 4 : Valider avant de fournir le code

Checklist de qualite :

• **FREE en premiere ligne
• ctl-opt avec les options appropriees
• dcl-ds (pas dcl-s) pour tout likeds() ou likerec()
• setll utilise UNIQUEMENT sur fichiers keyed — sinon close/open
• Variables declarees avec types appropries
• Gestion d'erreurs SQL (verification SQLSTATE apres chaque EXEC SQL)
• *inlr = *on en fin de programme
• Code commente, SANS accents dans les DDS
• Pour les SFL : SFLDSP en logique POSITIVE (32 pas N32), pageStart pour SRRN, test SflEnd avant ROLLUP
• Pour les SFL : touches CA au niveau format uniquement si INDARA
• Pour commandes interactives : system('?...') au lieu de QCMDEXC
• Pour modules externes : BNDDIR cree avec module AVANT CRTBNDRPG
• Pour webservices : gestion du code HTTP retour, parsing JSON robuste

Exemples

Exemple 1 : Creer un programme qui appelle une API REST

Utilisateur dit : "Je veux appeler une API REST qui retourne des produits en JSON"

Actions :

1. Lire references/webservices.md pour les patterns HTTP_GET et JSON_TABLE
2. Consulter scripts/crud_api_example.sqlrpgle pour un exemple complet
3. Generer un programme SQLRPGLE avec appel QSYS2.HTTP_GET, parsing JSON, gestion erreurs
4. Fournir les instructions de compilation : CRTSQLRPGI OBJ(MABIB/MONPGM) SRCFILE(MABIB/QSOURCES) COMMIT(*NONE) DBGVIEW(*SOURCE)

Resultat : Programme SQLRPGLE compilable qui consomme l'API et traite la reponse JSON.

Exemple 2 : Creer un ecran avec sous-fichier pagine

Utilisateur dit : "Je veux un ecran de gestion d'objets avec sous-fichier"

Actions :

1. Lire references/ecrans-sfl.md pour les patterns SFL/SFLCTL et les regles critiques
2. Lire references/fichiers-dds.md pour la creation du DSPF
3. Consulter scripts/jcborg-example/ pour l'exemple complet
4. Generer dans cet ORDRE :
   • Le DSPF avec SFL (32 SFLDSP logique positive, touches CA au niveau format, pas d'accents)
   • Le programme RPG avec pagination (pageStart variable, test SflEnd avant ROLLUP)
   • Le module externe si couleurs/fonctions partagees (dcl-ds pour retour likeds)
5. Fournir les commandes de compilation dans l'ordre : CRTDSPF, CRTRPGMOD (module), CRTBNDDIR, ADDBNDDIRE, CRTBNDRPG
6. Pour les options interactives (CRTDUPOBJ, RNMOBJ, CHGOBJD) : utiliser system('?...') pas QCMDEXC

Resultat : Application 5250 complete avec liste paginee, couleurs, et actions sur les enregistrements.

Exemple 3 : Algorithme de traitement de donnees

Utilisateur dit : "Je dois trier et agreger des donnees par categorie"

Actions :

1. Lire references/algorithmes.md pour dim(*auto), sorta, agregation
2. Consulter scripts/agregation_par_categorie.rpgle pour l'exemple
3. Generer un programme RPG utilisant tableaux dynamiques, tri sorta, agregation
4. Fournir le code avec CRTBNDRPG et DBGVIEW(*SOURCE)

Resultat : Programme RPG performant avec traitement des donnees en memoire.

Troubleshooting

RNF3438/RNF3601 - likeds sur dcl-s

Cause : dcl-s wVar likeds(maDS) — likeds est interdit sur dcl-s. Solution : Utiliser dcl-ds wVar likeds(maDS). Regle : dcl-s = variable simple, dcl-ds = structure.

RNF7055 - setll sur fichier non-keyed

Cause : setll *loval MONFMT sur un fichier sans mot-cle keyed (ex: sortie DSPOBJD, OUTFILE). Solution : Fermer et rouvrir le fichier (close puis open). Voir references/ecrans-sfl.md section "Fichier non-keyed".

RNF7023 - Mot-cle non admis

Cause : BIF ou syntaxe non supportee par la version IBM i. Solution : Verifier version avec DSPDTAARA DTAARA(QSS1MRI). %list, %range, for-each necessitent IBM i 7.4+.

CPD7597 - Doublon touche fonction DSPF

Cause : CA03/CA12 declare au niveau fichier ET format avec INDARA. Solution : Avec INDARA, declarer les touches UNIQUEMENT au niveau format (record level).

CPD7482/CPD7484 - Caracteres invalides DDS

Cause : Accents (e, e, a, c) dans les constantes DSPF. Solution : Pas d'accents dans les DDS. Ecrire Bibliotheque pas Bibliothèque.

SFL vide malgre donnees chargees

Cause : N32 SFLDSP (logique negative) alors que RPG met *in32 = *on (logique positive). Solution : Utiliser 32 SFLDSP (logique POSITIVE). Convention : 32=SFLDSP, N31=SFLDSPCTL, 31=SFLCLR, 90=SFLEND.

Pagination infinie (ROLLUP sans fin)

Cause 1 : SRRN = 1 code en dur avant chaque exfmt. Cause 2 : Pas de test SflEnd avant ROLLUP. Solution : Variable pageStart + if not SflEnd avant pagination. Voir references/ecrans-sfl.md.

Erreur de liage - Module externe non trouve

Cause : CRTBNDRPG avec bnddir('MONDIR') mais BNDDIR inexistant ou module absent. Solution : Ordre : 1. CRTRPGMOD 2. CRTBNDDIR 3. ADDBNDDIRE 4. CRTBNDRPG

Commande interactive silencieuse (QCMDEXC)

Cause : QCMDEXC ne supporte pas le prefixe ? pour le prompting. Commandes CRTDUPOBJ, RNMOBJ, CHGOBJD echouent silencieusement. Solution : Utiliser system() C (bnddir QC2LE) avec prefixe ?. Voir references/ecrans-sfl.md.

SQL0204 - QSYS2.HTTP_GET non trouve

Cause : Fonctions HTTP QSYS2 non disponibles. Solution : Verifier PTF installees. Contacter admin IBM i.

SQL0501 - Curseur non ouvert

Cause : FETCH sur curseur non ouvert ou deja ferme. Solution : Verifier sequence DECLARE, OPEN, FETCH, CLOSE. Voir references/sql-embedded.md.

Prerequis IBM i

• IBM i 7.3 ou superieur (verifier avec DSPDTAARA DTAARA(QSS1MRI))
• IBM i 7.4+ recommande pour BIF modernes (%list, %range, select/when-in)
• Fonctionnalites QSYS2.HTTP_* activees pour les webservices
• Compilateurs : CRTSQLRPGI pour SQLRPGLE, CRTRPGMOD + CRTPGM ou CRTBNDRPG pour RPG pur

Performance Notes

• CRITICAL: Toujours lire les references AVANT de generer du code
• Qualite et conformite aux standards IBM i > rapidite de reponse
• Ne pas sauter les etapes de validation (checklist ci-dessus)
• Pour les programmes complexes (SFL + module + API), proceder etape par etape
• Verifier chaque piege connu (dcl-ds vs dcl-s, setll keyed, N32 vs 32, accents, QCMDEXC vs system)