Le langage RPG -Report Program Generator, ou Générateur d'Application- a été créé pour la génération simple de programmes d'édition, sur des cartes perforées de 80 caractères. Il a considérablement évolué. Certains programmes RPG écrits il y a une vingtaine d'années continuent de tourner, avec de multiples adaptations et inclusion de mises à jour an 2000 et euro par des développeurs souvent multiples et sans rapport avec les concepteurs d'origine.
Le look n'a rien à voir avec les langages graphiques, mais certains programmes tournent et font tourner des entreprises depuis quelques années sans qu'un développeur n'ait eu à s'y replonger.
Sa dernière déclinaison, RPG LE, n'est pas abordée dans ce document.
L'utilitaire de conversion CVTRPGSRC convertit RPG en RPG LE,
qui en est une version relookée et enrichie.
RPG LE supporte la gestion de de types supplémentaires,
en particulier les formats dates et longueurs variables,
permet une gestion améliorée d'inclusions SQL,
et passe par une phase d'édition de lien permettant en particulier
de générer des modules utilisables comme procédures stockées
pour des applications clientes.
Un développeur RPG moyen n'a aucune difficulté à passer au RPG LE, mais pour les applications usuelles le petit supplément de complexité n'est pas compensé par une plus grande facilité d'utilisation.
Le cycle GAP prend en partie en charge les notions de lecture en concordance et de rupture. En programmation structurée, l'intérêt en est limité, pour une certaine complexité de mise en oeuvre.
Ce qui suit décrit l'architecture d'un programme RPG et sa structure.
La carte H décrit des options pour le programme.
FMT H .....H........1..CDYI....S..............1.F...............................Pgm-id ''''''' H /J
Séquences de tri pour LOKUP et SORTA, rarement spécifié.
Nom du programme. Il s'agit d'une survivance de S36 et ce champ doit être laissé à blanc.
Les cartes F apparaissent comme des plus hermétiques. En pratique, elles décrivent en 2 lignes ce qui peut demander plusieurs pages COBOL, et quelques variantes simples seulement sont utilisées.
Formats F et FX: fichiers à description interne et externe
FMT F .....FFilenameIPEAF....RlenLK1AIOvKlocEDevice+......KExit++Entry+A....U1........
''''''' FCLIENTW IF F 256 6AI 1 DISK
FMT FX .....FFilenameIPEAF........L..I........Device+......KExit++Entry+A....U1........
''''''' FCLIENT UF E K DISK A
Nom valide de moins de 8 caractères
Taille d'enregistrement entre 1 et 9999.
Pour les informations de continuation K, options de continuation
SAUF IGNORE,
PLIST,RENAME et SFILE qui ont besoin
d'un nom à gauche du K. Par tradition, les informations de continuation
sont plutôt spécifiées dans les lignes de continuation.
Pour un fichier SPECIAL, nom du programme utilisateur.
nom rattaché à l'option pour une de continuation K
*PSSR
*NOIND doit être indiqué.
Description de tables et tableaux
Invite E: description de tables et tableauxFMT E .....E....FromfileTofile++Name++N/rN/tbLenPDSArrnamLenPDSComments+++++++++...... ''''''' E CMD 1 3 80 Qsysprt
si le tableau est chargé depuis un fichier, nom du fichier d'adresses, du fichier tableau ou du fichier de table
Indiquez un nom de fichier d'entrée ou de mise à jour, ou bien le nom d'un fichier de sortie ou combiné, mais laissez la zone à blanc si la table ou le tableau n'est pas écrit à la fin du programme.
nom de la table ou du tableau, un nom sur 3 caractères est recommandé
à blanc si le tableau est chargé par spécification d'entrée ou de traitement, ou nombre de postes de table ou de tableau de chaque enregistrement ou ligne d'entrée.
nombre de postes de la table, 1 à 9999. Les très grandes tables ne sont pas possibles.
taille de chaque poste, de 1 à 256. Les grandes tailles ne sont pas possibles, utiliser alors des DS à occurences multiples.
Type des postes de table
à blanc pour poste alpha, nombre entre 0 et 9 pour poste numérique
Séquence pour tri
seconde table associée, avec le même nombre de postes
court mais nécessaire
Carte L: spécification de saut
FMT L .....LFilename066Fl060Ol........................................................ ''''''' LQSYSPRT 66FL 60OL
nom du fichier PRINTER
nombre de lignes par page
spécifier FL si le nombre de lignes par pages est indiqué
numéro de ligne de 2 à 112 à qui déclanche la mise en fonction de l'indicateur fin de page (overflow)
spécifier OL si le rang de la ligne fin de page est indiqué
Invite pour carte I
FMT I .....IFilenameSqNORiPos1NCCPos2NCCPos3NCC....................................... ''''''' ICLIENT NS 01
nom du fichier d'entrée décrit
NS par convention-
indicateur mis en fonction quand un enregistrement correspondant aux critères est lu
Valeurs et positions des caractères permettant d'identifier le format. Ces champs doivent en général être laissés à blanc pour le dernier format décrit afin de pouvoir lire tous les types d'enregistrement du fichier.
N si à omettreC pour caractère, Z pour hors texte,
D pour numérique. Les valeurs Z et D ne sont paratiquement jamais utilisées
FMT IX .....IRcdname+....In............................................................ ''''''' IFCLIENT
nom du format d'enregistrement externe
indicateur mis en fonction à la lecture de l'enregistrement. Voir carte I.
Définition interne d'un champ de fichier Invite pour carte J
FMT J .....I....................................PFromTo++DFldnmeL1M1FrPlMnZr.......... ''''''' I 1 6 CODCLI
Type du champ
position de début de la zone dans l'enregistrement, 1-9999
position de fin de la zone dans l'enregistrement, 1-9999
nom de structure de données, de zone, de tableau, de poste indicé de tableau,
ou PAGE , PAGE1-PAGE7, *IN ou *INxx
indicateur positionné si la zone contient une valeur positive
FMT JX .....I..............Ext-field+......................Field+L1M1..PlMnZr.......... ''''''' I CLCCLI X1CCLIL1
nom externe de la zone à renommer
nom de la zone, ou nom interne si la zone est renommée
indicateur positionné si la zone contient une valeur positive
FMT DS .....IDsname....NODsExt-file++.............OccrLen+............................. ''''''' I DS
laisser à blanc ou spécifier un nom pour la structure de données
LDA également nommée ZCU à blanc si la zone de données est à description interne, ou nom de fichier externe dont la description est utilisée.
FMT SS .....I..............Ext-field+............PFromTo++DField+...................... ''''''' I 1 120TIMHR
nom externe de la zone à renommer
position de début et de fin de la zone dans la structure de données, 1-9999
nom de la zone, ou nom interne si la zone est renommée
Description de zone avec initialisation
Format SV: zone en entrée avec initialisationFMT SV .....I.I............Init-value++++++++++++PFromTo++DField+...................... ''''''' I I '000000' 1 6 CLCCLI
Nombre ou valeur alphabétique entre apostrophes
position de début de la zone dans l'enregistrement, 1-9999
position de fin de la zone dans l'enregistrement, 1-9999
nom de zone ou nom de substitution pour description externe
format N: définition de constante
FMT N .....I..............Namedconstant+++++++++C.........Fldnme...................... ''''''' I 'O' C OUI
valeur de la constante
C pour définition de constante
nom de la constante
FMT C CLON01N02N03Factor1+++OpcdeFactor2+++ResultLenDHHILoEqComments+++++++...... ''''''' C TRT01 BEGSR
condition de traitement selon niveau de totalisation, en cycle GAP
AND OR de conditiontraitement sous condition
01-24
zone ou constante nécessaire à une opération
nom de la constante
seconde zone ou constante nécessaire à une opération
zone résultat d'une opération
longueur de la zone résultat
positionnement d'indicateurs, la signification dépend de la fonction.
la place est limitée mais des commentaires judicieusement choisis facilitent la compréhension.
FMT O .....OName++++DFBASbSaN01N02N03Excnam........................................... ''''''' OQSYSPRT E 01 H1
Nom du fichier de sortie. Peut être omis pour les formats suivant le premier défini.
EXCPT
PRINTERblanc, ou valeur 1-3 pour saut de ligne avant ou après l'impression
sortie sous condition
01-24
identifiant pour sorties exceptionnelles
FMT OD .....OName++++DADD....N01N02N03Excnam........................................... ''''''' OFCLIENT DADD
Nom du fichier de sortie. Peut être omis pour les formats suivant le premier défini.
EXCPT
sortie sous condition
identifiant pour sorties exceptionnelles
FMT P .....O................N01N02N03Field+YBEnd+PConstant/editword+++++++++.......... ''''''' O 21 S1SEQ 7 ' 0. '
sortie sous condition
nom de zone ou de constante programme
constante, constante nommée, ou mot d'édition
La programmation structurée organise un programme en un pavé principal standardisé appelant d'autres pavés, également standardisés dans la plupart des cas.
En RPG, toutes les variables sont globales au programme et les interférences de mises à jour très délicates à diagnostiquer.
Un pavé bien structuré
* LECTURE DU FICHIER FPRX27B)
GOTO)
La production rapide de programmes de qualité est possible par écriture directe des pavés les plus standards (contrôles, remplissage d'écrans et de fichiers, affichages,...) -ce qui donne le temps de s'imprégner des fonctions du programme-, puis assemblage final. La maîtrise d'un squelette et d'un découpage standard permet de différer certains choix critiques de dynamique générale jusqu'au moment où ce que doit faire ce programme a été intégré, ce qui est rarement le cas au début de son écriture.
Chaque pavé est autonome mais partage toutes ses données avec les autres.
Tout branchement par GOTO d'un pavé à un autre est impossible.
C*ON01N02N03Factor1+++OpcdeFactor2+++ResultLenDHHILoEqComments+++++++......
C* Pavé de traitement
C TRT01 BEGSR
C* Appel d'un autre pavé
C EXSR TRT02
C*...
C ENDSR
Appel exclusif d'un traitement parmi plusieurs.
Aucune autre instruction ne peut être intercalée avant le END.
C*ON01N02N03Factor1+++OpcdeFactor2+++ResultLenDHHILoEqComments+++++++......
C* Traitement des écrans
C ECRAN CASEQ01 TRT01
C ECRAN CASEQ02 TRT02
C ECRAN CASEQ03 TRT03
C CAS TRTFIN
C ENDCS
Les parenthèses n'existent pas (en RPG LE, si).
Des règles de précédence sont définies pour combiner OR et AND.
En cas de doute quant à leur application, ne les utilisez pas.
C*ON01N02N03Factor1+++OpcdeFactor2+++ResultLenDHHILoEqComments+++++++......
C* Si...
C A IFEQ B Egalité
C A ORNE C Différent
C A ORGE D Supérieur ou =
C* Sinon...
C ELSE
C A IFGT E Supérieur
C A ANDLEF Inférieur ou =
C A ANDLTH Inférieur
C*
C ENDIF
C ENDIF
Différentes variantes de boucles sont disponibles,
conditionnelles ou associées à un compteur.
DOU (jusqu'à ce que) existe également,
mais est peu utilisé.
C*ON01N02N03Factor1+++OpcdeFactor2+++ResultLenDHHILoEqComments+++++++......
C* Boucle Conditionnelle
C W1FIN DOWNE'1'
C* Itération simple
C DO 5
C* Itération avec compteur
C DO 7 J 50
C* Passage direct à l'itération suivante
C J IFEQ 3
C ITER
C ENDIF
C* Sortie forcée de boucle
C W1FIN IFEQ '1'
C LEAVE
C ENDIF
C ENDDO
C* Itération avec bornes et pas
C 0 DO 9 K 50
C*...
C ENDDO3 Incrément de 3
C*
C ENDDO 5 fois
C ENDDO W1FIN
Sélection de cas exclusifs, avec bloc de traitement courts ne nécessitant pas ou pas tous un pavé séparé.
Appel de pavé exclusif
C*ON01N02N03Factor1+++OpcdeFactor2+++ResultLenDHHILoEqComments+++++++......
C* Traitement de l'écran détail (écran 2)
C SELEC
C* F3=Exit
C *IN03 WHEQ '1'
C Z-ADD99 ECRAN
C* F12=Retour au premier écran
C *IN12 WHEQ '1'
C Z-ADD01 ECRAN
C* Controle de l'écran en cours
C OTHER
C EXSR CTR02
C*
C ENDSL
Utilisation strictement prohibée.
Branchements
C*ON01N02N03Factor1+++OpcdeFactor2+++ResultLenDHHILoEqComments+++++++......
C* Pour info seulement
C GOTO DESTX
C DESTX TAG
C A CABEQB DESTX
La plupart des bonnes normes RPG se ressemblent.
Certains points relèvent de la religion, comme le droit d'utiliser
des LEAVE ou la façon de gérer les message d'erreurs
-internes ou externes au programme-.
Les normes décrites ici illustrent des directions utiles, pas des impératifs.
Les indicateurs ne doivent pas être utilisés comme des booléens, mais remplacés pour cet usage par des flags alpha d'un caractère dotés d'un nom significatif. Il est très difficile de mémoriser l'usage d'un indicateur et l'utilisation doit être aussi proche que possible de l'affectation, hors attributs d'écran pour lesquels il n'existe pas d'alternative.
DSPATR(PC RI) doit être gérée
en parallèle avec des protections de saisie par DSPATR(PR)
ERREUR.
Les champs peuvent être nommés sur 4 caractères et préfixés par
2 caractères. Les champs liés peuvent être définis en dur
ou par référence à des champs existants (*LIKE DEFN CLCCLI W1CCLI).
La réflexion et la correction des erreurs prennent du temps en programmation,
pas la frappe automatique. Il est tentant d'utiliser les MOVE
implicites plutôt que de créer des zones de travail intermédiaires,
mais ce choix se révèle presque toujours pénalisant au bout du compte.
Préfixes de noms de champs:
Quelques noms courants:
'0' ou '1'
Ce programme ne vise pas le réalisme mais découpe les traitements en pavé standard dont d'organisation est applicable à la très grande majorité des intéractifs dans une logique de "Blitz Programming".
Une approche non standardisée gérant l'enchainement de plusieurs écrans successifs dans un même pavé selon un mode normalement prévu comme séquenciel est vivement déconseillée. Des ruptures de séquence sont presque toujours à rajouter à postériori, et le traitement devient très rapidement incompréhensible.
Il peut par exemple paraître ridicule de rajouter un pavé de type
TRT0x pour un simple écran de confirmation sans aucune donnée,
mais l'approche
Se reporter au modèle de source de l'écran pour description des DDS associées.
H*------------------------------------------------------------
H* GESCOM: Gestion de commandes normalisée
H* 01/93 PL Version 0
H* 09/01 PL Refonte
H*
H* Patrick LARREYA, 1993-2001
H*------------------------------------------------------------
FGESCOMFMCF E WORKSTN
F KINFDS ECRDS
F RN1 KSFILE F1S
FCLIENT IF E K DISK
FCOMDET UF E K DISK A
FQSYSPRT O F 132 PRINTER
F KINFDS PRTDS
E CMD 1 2 80 Qsysprt
E MSG 1 2 75 Messages d'erreur
I* INFDS: zone de données pour informations écran
I* - Position du curseur
I* - Rang de la première ligne sous fichier visible à l'écran
IECRDS DS
I B 370 3710POSCUR
I B 378 3790RNTOP
I* PRTDS: zone de données pour informations imprimante
I* - numéro de la dernière ligne imprimée
IECRDS DS
I B 367 3680PRNLIG
I* PGMDS: zone de données pour informations programme
I* - nom du programme
I* - statut (gestion des erreurs)
I* - nom de l'écran
I* - nom de l'utilisateur
I* - nombre de paramètres reçus
IPGMDS DS
I 1 10 PGMNAM
I 11 150PGMSTS
I 244 253 WS
I 254 263 USER
I B 37 390PARMS
I* Date système
I DS
I 1 120TIMHR
I 1 60H1TIME
I 7 120H1DATE
I* Constantes
I 12 C C1LPAG
C*============================================================
C* Paramètres d'appel et de retour
C *ENTRY PLIST
C PARM P0CRET 2 Code retour
C PARM P0CCLI 6 Client
C PARM P0NUCO 6 Numéro de commande
C* Prise en compte d'un nombre de paramètres variables
C MOVE ' ' P1CRET 2
C ENDIF
C PARMS IFGE 2
C MOVE P0CCLI F1CCLI
C ENDIF
C PARMS IFGE 3
C MOVE P0NUCO F1NUCO
C ENDIF
C* Définition des clés
C K0COM KLIST
C KFLD CMCCLI
C KFLD CMNUCO
C* Préparation du premier écran
C* Une zone contenant des 0 est préparée pour réinitialisation des indicateurs
C Z-ADD12 C1SIZE 50
C MOVE *ALL'0' CLRIND 40
C MOVE '0' ERREUR 1
C Z-ADD1 ECRAN 20
C MOVE '0' ERREUR 1
1<--C EXSR INI01
C CALL 'SFLCLR'
C* Boucle d'affichage sur les écrans
1{ C ECRAN DOWNE99
C TIME TIMHR
2<--C ECRAN CASEQ01 TRT01
4<--C ECRAN CASEQ02 TRT02
2} C ENDCS
1} C ENDDO
C* Fin de traitement, renvoi du code retour
C PARMS IFGE 1
C MOVE P1CRET P0CRET
C ENDIF
C SETON LR
C*============================================================
C INI01 BEGSR
C*============================================================
C* Initialisation de l'écran de sélection
C*
C* Définitions ...
C EXSR SET01
C*
C ENDSR
C*============================================================
C SET01 BEGSR
C*============================================================
C* Chargement de la commande
C*
C* Définitions
C Z-ADD0 RN1 50
C* Nettoyage de la liste
C MOVE '0' S1CHGD 1
C SETOF 3233 SFLDSP+CTL
C SETON 34 SFLCLR
C WRITEF1C Controle sous fichier
C SETOF 34
C Z-ADD0 TRN1 50 Nombre Total Lignes
C MOVE '0' C1END 1 Fin de liste
C K0COM SETLLCOMDET
IFC C*ON01N02N03Factor1+++OpcdeFactor2+++ResultLenDHHILoEqComments+++++++......
C* Remplissage de la liste des articles commandés
5<--C EXSR ROL01 REmplit un écran
C Z-ADD1 RNB1 pour SFLRCDNBR
C*
C ENDSR
C*============================================================
C ROL01 BEGSR
C*============================================================
C* Remplissage d'une page (ou de tout si lal liste est petite)
C DO C1LPAG
C*-----------------------------------
C K0COM READECOMDET 97
C *IN97 IFEQ '1'
C MOVE '1' C1END
C LEAVE
C ENDIF
C* Si un filtrage en lecture est nécessaire, le faire ici par un code
C* comme W1PRIS IFNE '1' ITER, et gérer un compteur de boucle explicite
C*
C* Valorisation des zones de la liste, sans oublier les indicateurs
C* Si des valeurs particulières doivent être conservées,
C* utiliser des champs cachés.
C SETOF 31
C MOVEA'00000' *IN,51
C MOVE ' ' S1SEL
C MOVE CMCART S1CART
C Z-ADDCMQTAR S1QTAR
C MOVE CMCOMT S1COMT
C* écriture de la ligne.
C ADD 1 C1TRN
C Z-ADDC1TRN RN1
C WRITEF1S
C*-----------------------------------
C ENDDO
IFC C*ON01N02N03Factor1+++OpcdeFactor2+++ResultLenDHHILoEqComments+++++++......
C* Rendre la dernière ligne nouvellement chargée visible
C Z-ADDC1TRN RNB1
C*
C ENDSR
C*======================================================================
2---C TRT01 BEGSR
C* Position de curseur gérée par défaut (indicateurs) si erreur
1{ C ERREUR IFEQ '1'
C Z-ADD0 C1LIN
C Z-ADD0 C1COL
1} C END
C* Affichage de l'écran
C WRITEF1
C WRITEMSGC Messages
C SETON 33 SflDspCtl
1{ C C1TRN IFNE 0
C SETON 32 SflDsp
1| C ELSE
C SETOF 32
1} C END
C MOVE C1END *IN35 SflEnd
C WRITEF1C
C READ F1C 97(si qque chose à lire)
C READ F1 97
C Z-ADDD1RRN1 C1TOP 50 Top of screen
C Z-ADDC1TOP RNB1 Sflrcdnbr
C D1CURS DIV 256 C1LIN
C MVR C1COL
C* Remise à blanc des informations d'erreur
C MOVEACLRIND *IN,40
C CALL 'SFLCLR'
C MOVE '0' ERREUR 1
C* F3=Exit, F12=Retour
1{ C SELEC
1| C *IN03 WHEQ '1'
C Z-ADD99 ECRAN
C MOVE '03' P1CRET 2
1| C *IN12 WHEQ '1'
C Z-ADD99 ECRAN
C MOVE '12' P1CRET
C* F4=Invite
1| C *IN04 WHEQ '1'
C EXSR INV01
C* Rechargement de l'écran si le client ou la commande ont changé
1| C F1CCLI WHNE R1CCLI
C F1NCOM ORNE R1NCOM
3<--C EXSR SET01
C* F10=Impression
1| C *IN10 WHEQ '1'
C EXSR PRT01
C* F6=Nouvel article, vers écran suivant
1| C *IN06 WHEQ '1'
C Z-ADD02 ECRAN
C* Contrôle des options de liste sinon
C C1TRN WHNE 0
C EXSR CTR01S
C*
1} C ENDSL
C*
C ENDSR
C*======================================================================
2---C INV01 BEGSR
C*
C SELEC
C* Recherche client
C F1ZONC WHEQ 'F1CCLI'
C CALL 'LSTCLI'
C PARM P2CCLI 6
C PARM ' ' P2CRET 2
C P2CRET IFEQ ' ' Sortie Normale
C MOVE P2CCLI F1CCLI
C ENDIF
C* Pas de recherche sur le champ
C OTHER
C MOVELMSG,3 MSGDTA P
C EXSR SFLMSG
C ENDSL
C*
C ENDSR
C*======================================================================
2---C PRT01 BEGSR
C* préparation de l'impression
C CALL 'QCMDEXC'
C PARM CMD,1 W1CMD 80
C PARM 80 CMDLEN 155
C OPEN QSYSPRT
C EXCPTH1
C* charger totalement la liste écran
C C1END DOWEQ'0'
C EXSR ROL01
C ENDDO
C* L'imprimer
C DO C1TRN RN1
C RN1 CHAINF1S
C OA EXCPTH1
C EXCPTD1
C ENDDO
C* Afficher la liste imprimée
C CLOSEQSYSPRT
C CALL 'QCMDEXC'
C PARM CMD,2 W1CMD 80
C PARM 80 CMDLEN 155
C*
C ENDSR
C*======================================================================
2---C SFLMSG BEGSR
C* Envoi de message d'erreur
C CALL 'PGMMSG'
C PARM 'CPF9897' MSGID 7
C PARM 'QCPFMSG' MSGF 10
C PARM '*LIBL ' MSGFL 10
C PARM MSGDTA256
C PARM '*SAME' QREL 10
C PARM PGMNAM PGMQ 10
C PARM '*INFO' MSGTYP 10
C*
C ENDSR
C*======================================================================
** CMD Affichage direct de la commande prête à l'impression
OVRPRTF QSYSPRT USRDTA('Commande') LPI(8) CPI(15) PAGESIZE(88 90) OVRFLW(80) PAGRTT(0)
DSPSPLF QSYSPRT * *LAST
** MSG Messages d'erreur
Le client n'a pas été trouvé 1
Commande non trouvée
Recherche non disponible pour ce champ 2
Ce programme se limite au lancement de la commande SNDPGMMSG,
dont la forme est différente pour un message d'attente
(Relation *EXT, type *STATUS)
et pour les autres types (*INFO ou autres)
en relation avec un programme particulier
PGM (&msgid &msgf &msglib &msgdta &rel &pgmq &msgtyp)
/* Envoi de tout type de message vers file d'attente programme */
DCL &ERR *CHAR 1 VALUE('0')
DCL &MSGID *CHAR 7
DCL &MSGF *CHAR 10
DCL &MSGLIB *CHAR 10
DCL &MSGDTA *CHAR 256
dcl &rel *char 10
dcl &pgmq *char 10
dcl &msgtyp *char 10
MONMSG CPF0000 EXEC(GOTO FINFIN)
if (&rel = '*EXT') do
SNDPGMMSG MSGID(&MSGID) MSGF(&MSGF) MSGDTA(&MSGDTA) +
TOPGMQ(*EXT) MSGTYPE(&MSGTYP)
enddo
else do
SNDPGMMSG MSGID(&MSGID) MSGF(&MSGF) MSGDTA(&MSGDTA) +
TOPGMQ(&REL (&PGMQ)) MSGTYPE(&msgTYP)
enddo
goto finfin
ERREUR: IF (&ERR = '1') GOTO FINFIN
CHGVAR &ERR '1'
RCVMSG MSGTYPE(*LAST) MSGDTA(&MSGDTA) MSGID(&MSGID) +
MSGF(&MSGF) MSGFLIB(&MSGLIB)
SNDPGMMSG MSGID(&MSGID) MSGF(&MSGLIB/&MSGF) +
MSGDTA(&MSGDTA) MSGTYPE(*ESCAPE)
FINFIN: ENDPGM
Simple habillage de la commande RMVMSG
PGM
/* Nettoie la PGMQ de l'appelant des ses anciens messages */
RMVMSG PGMQ(*PRV) CLEAR(*OLD)
ENDPGM
Le positionnement par défaut du curseur convient dans de nombreux cas, en particulier pour la gestion des erreurs. Parfois, une gestion explicite est meilleure, avec dans la très grande majorité des cas conservation de la dernière position connue, alors que la gestion par défaut ramène le curseur sur le premier champ en saisie de l'écran si aucun positionnement par indicateur n'est spécifié.
SFLRCDNBR qui spécifie la ligne qui doit
apparaître à l'écran (mais pas sa position). Une valeur invalide
provoque une erreur d'unité non récupérable.
RTNCSRLOC renvoie le nom du champ sur lequel se situe
le curseur, pas sa position.
Le nom de champ est utilisable directement pour les pavés de recherche.
F1LIN compris entre 10 et 19:RN1 ligne curseur = RNTOP + F1LIN - 10
| Quand ? | Curseur: | Gestion CSRLOC |
Sous fichier: | Gestion SFLRCDNBR |
|---|---|---|---|---|
| Initialisation ou Rollup | Utiliser le positionnement par défaut | F1LIN et F1COL à 0 | Afficher la dernière page écrite | TRN1 dans SFLRCDNBR - RNB1 |
| Cas standard: réaffichage sans erreur | Laisser le curseur sur sa position | Utiliser l'INFDS pour F1LIN et F1COL | Afficher la page courante | Utiliser l'INFDS pour RNB1 |
| Erreur détectée | Utiliser le positionnement par défaut | F1LIN et F1COL à 0 | Afficher la première ligne en erreur | READC et RN1 dans RNB1 à la première erreur |
Les indicateurs sont des booléens dotés de nomns standard sur 2 caractères. Historiquement, ils constituaient la seul moyen de gérer un branchement conditionnel.
Ces indicateurs permettent la gestion d'erreurs et de comparaisons ansi que le conditionnement d'attributs écran.
01 à 99
sont à la disposition du programmeur, et la normalisation de leur usage
est fortement recommandée.
U1 à U8 sont spécifiques à
un travail dans sa globalité, et peuvent être positionnés par un programme
RPG, CL ou autre et lus par un autre programme.
H1 à H9 sont des indicateurs
d'arrêt pour gestion des erreurs au sain de chaînes de traitement.
RT est un indicateur de retour
Les indicateurs de commande KA à KN
et KP à KY identifient la touche de commande
ou de fonction utilisée au moment ou un écran rend la main à un programme.
Dans les DDS écran, les touches de commande et de fonction sont rattachées
aux touches F1 à F24.
. . . . ! . . . . 1 . . . . ! . . . . 2 . . . . 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 A B C D E F G H I J K L M N P Q R S T U V W X Y
CFxx rend la main au programme
et lui transmet les données d'entrée de l'écran
CAxx rend la main au programme
sans lui transmettre les buffres d'entrée.
CA04(04) associe l'indicateur banalisé 04
à la touche de fonction F4.
Les indicateurs d'overflow (débordement) sont positionnés quand une ligne est écrite au delà de la ligne maximum spécifiée, inférieur à la taille de la page. Des lignes peuvent encore être écrites, pour terminer un pavé par exemple, et un saut de page doit être éffectué par le programme.
Les indicateurs de fin ce page OA à OG
et OV sont utilisés pour les sorties imprimantes à
descriptions internes,
et les indicateurs banalisés 01 à 99
sont utilisés pour les sorties imprimantes à description externe.
La lecture en concordance consiste à synchroniser la lecture de deux ou plusieurs fichiers en fonction de valeurs de clé communes. Un fichier doit être défini comme primaire, et le ou les autre fichiers comme secondaires.
La gestion des ruptures consiste à réaliser des traitements d'entête et de totalisation lors de changement de valeurs de clé en lecture séquentielle de fichier.
Concordance et ruptures sont des concepts distincts mais souvent gérés ensembles.
M1 à M9 gèrent les niveaux
de concordance, MR permet de savoir si la concordance
est effective.
L1 à L9 gèrent les niveaux
de rupture et conditionnent l'exécution des traitements
entête, en partie gauche des cartes C, et total, dans les colonnes
qui suivent (N01N02N03).
LR indique que tous les fichiers ont été
lus intégralement et que le programme doit se terminer.
Si cet indicateur (ou RT) n'est pas positionné,
l'exécution reprend au début des cartes C quand la dernière ligne de traitement
est atteinte.
Par défaut, un programme RPG ouvre les fichiers lors de son initialisation
et les referme quand il est quitté, si l'indicateur LR est en fonction.
Lors d'une sortie par RETRN avec LR hors fonction,
les fichiers restent ouverts.
Pour des raisons historiques, RPG se déroule séquentiellement et l'exécution
reprend au début du code si la dernière ligne est atteinte sans que les
indicateurs LR ou RT ne soient positionnés.
Si un fichier primaire a été défini, il est lu à chaque passage et LR
est positionné en fin de fichier.
Les indicateurs système U1 à U8 positionnés avant le
lancement du programme conditionnent dans les cartes F
l'ouverture et la fermeture automatique des fichiers.
L'indication de condition UC désactive l'ouverture et la fermeture
automatique, et le fichier spécifié doit être ouvert explicitement
par OPEN et fermé par CLOSE.
Les opérations RPGLE sont un peu plus nombreuses qu'en RPG, et les descripteurs optionnels accompagnent le code opération.
Liste des codes opération
Descripteurs:
La gestion en concordance (matching )consiste à lire en parallèle deux ou plusieurs fichiers triés selon des clés composées et communes.
La gestion des ruptures consiste à réaliser des traitements spécifiques avant et après un changement de valeur sur un élément de clé composée. Les traitements avant rupture sont des traitements d'entête et les traitements après rupture des traitements totaux
Concordance et rupture sont souvent -mais pas toujours- associés, et obéissent à une logique commune.
Le cycle GAP automatise partiellement le matching et les ruptures mais ne couvre pas tous les cas. Une approche manuelle est souvent plus simple.
Soit une édition rapprochant des objectifs de vente par région et secteur et des ventes réelles.
clé courante est définie pour chacun des fichiers à traiter,
et initialisée avec une valeur plus basse que toute valeur
pouvant être atteinte (*LOVAL)
*HIVAL pour comparaison
avec les autres clés, et le flag de fin de fichier positionné à '1'
ITER
LEAVE
Cette approche n'est pas simple et en général ne peut pas être simplifiée. Il est indispensable de ne pas la rendre plus complexe que nécessaire.
Source de programme avec matching et ruptures... A faire ...