Aller au contenu

Les codes opération RPG III (RPG/400), testés

79 codes opération du RPG III expliqués en français, colonne par colonne : facteur 1, facteur 2, zone résultat, indicateurs. Chacun avec des exemples compilés par CRTRPGPGM et exécutés sur IBM i 7.5, le résultat réellement obtenu, le piège à connaître et l'équivalent en RPG ILE pour moderniser. Le RPG d'aujourd'hui a ses rubriques : instructions et fonctions full free.

Lecture de fichiers

CHAIN Lire un enregistrement par sa clé
FORCE Imposer le fichier lu au prochain cycle
KLIST Définir une clé composée de plusieurs zones
READ Lire l'enregistrement suivant
READE Lire l'enregistrement suivant s'il a la même clé
READP Lire l'enregistrement précédent
REDPE Lire l'enregistrement précédent s'il a la même clé
SETGT Se positionner après une clé, sans lire
SETLL Se positionner avant une clé, sans lire

Écriture et contrôle des fichiers

CLOSE Fermer un fichier ou tous les fichiers
COMIT Valider les mises à jour d'une transaction
DELET Supprimer un enregistrement
EXCPT Écrire les lignes d'exception de la spécification O
FEOD Forcer la fin de données d'un fichier
IN Lire une zone de données
OPEN Ouvrir un fichier à l'ordre du programme
OUT Écrire une zone de données
ROLBK Annuler les mises à jour d'une transaction
UNLCK Libérer un enregistrement ou une zone de données
UPDAT Réécrire l'enregistrement qui vient d'être lu
WRITE Ajouter un enregistrement dans un fichier

Structures de contrôle

CASxx Appeler un sous-programme selon une comparaison
DO Répéter un groupe un nombre de fois
DOUxx Répéter un groupe jusqu'à ce qu'une condition soit vraie
DOWxx Répéter un groupe tant qu'une condition est vraie
END Fermer un groupe IF, DO, DOW, DOU, SELEC ou CAS
IFxx Exécuter un bloc si une comparaison est vraie
ITER Passer au tour suivant d'une boucle
LEAVE Sortir d'une boucle
SELEC Choisir un bloc parmi plusieurs cas

Indicateurs et branchements

CABxx Comparer et brancher
COMP Comparer deux valeurs
GOTO Brancher vers une étiquette (GOTO et TAG)
SETOF Éteindre des indicateurs
SETON Allumer des indicateurs

Sous-programmes et appels

BEGSR Définir un sous-programme (BEGSR et ENDSR)
CALL Appeler un programme
DEBUG Tracer une zone et les indicateurs
DSPLY Afficher un message
DUMP Imprimer l'état du programme
EXSR Appeler un sous-programme
FREE Libérer un programme appelé
PARM Décrire un paramètre
PLIST Définir une liste de paramètres (dont *ENTRY)
RETRN Rendre la main à l'appelant
SHTDN Savoir si l'arrêt du système est demandé

Calculs

ADD Additionner
DIV Diviser
MULT Multiplier
MVR Récupérer le reste d'une division
SQRT Racine carrée
SUB Soustraire
XFOOT Totaliser un tableau
Z-ADD Mettre à zéro et ajouter
Z-SUB Mettre à zéro et soustraire

Transferts de données

CLEAR Remettre à blanc ou à zéro
MHHZO Copier la zone d'un caractère
MOVE Transférer en alignant à droite
MOVEA Transférer entre zones et tableaux
MOVEL Transférer en alignant à gauche
RESET Rendre la valeur d'initialisation
TIME Obtenir l'heure et la date du jour

Chaînes de caractères

CAT Concaténer deux zones
CHECK Vérifier les caractères d'une zone
CHEKR Vérifier une zone de droite à gauche
SCAN Chercher une chaîne dans une zone
SUBST Extraire une partie de chaîne
XLATE Remplacer des caractères

Tableaux, structures et bits

BITOF Éteindre des bits d'un octet
BITON Allumer des bits d'un octet
DEFN Définir une zone par modèle ou relier une zone de données
LOKUP Chercher une valeur dans un tableau
OCUR Choisir l'occurrence d'une structure de données
SORTA Trier un tableau
TESTB Tester l'état de bits d'un octet
TESTN Tester si une zone alphanumérique est numérique
TESTZ Tester la zone du premier caractère

Écrans (5250)

EXFMT Afficher un écran et attendre la réponse
READC Lire les lignes modifiées d'un sous-fichier