ADELIA |
|
|
|
|
(I/B) |
|
|
|
|
Paragraphe d'utilisation
Tous
Syntaxe
TRAITER_PROC NomProcédure
Description
Cet ordre appelle une procédure dont le nom NomProcédure est précisé derrière l'ordre.
Il faut que la procédure soit définie dans le modèle ; voir les ordres DEBUT_PROCEDURE et FIN_PROCEDURE.
Important : en génération RPG, l'utilisation du mot réservé *PSSR est autorisée (TRAITER_PROC *PSSR).
Il s'agit de la routine de gestion des erreurs programme détectées à l'exécution ; voir les brochures IBM correspondantes pour plus de précisions sur l'utilisation du sous-programme *PSSR.
Par exemple
SI ARTICLE EXISTE
VALEUR_TABLE = CODE_TAXE
TRAITER_PROC CLPRIX
SINON
VALEUR_TABLE = '000'
TRAITER_PROC CLPRIX
FIN
TRAITER_PROC FINPGM
*
DEBUT_PROCEDURE CLPRIX
CLE_TABLE = 'TAXE'
LIRE FICHIER_TABLE
PRIX_TOTAL = ( PRIX_ART * QTE - REMISE ) * TAUX_TAXE
FIN_PROCEDURE
*
DEBUT_PROCEDURE FINPGM
LIRE STATISTIQ
STAT_TOTAL = W_TOTAL
METTRE_A_JOUR STATISTIQ
FIN_PROCEDURE
Voir aussi la liste des ordres L4G par thème