En RPG (depuis la V2 R1.0), lorsque des DO ou des IF sont imbriqués , il est possible de demander au compilateur de présenter la liste de compilation de façon décalée (dans les spécifs C) pour améliorer la lisibilité du programme. C'est l' INDENTATION . Cette demande se fait en renseignant le paramètre INDENT de la commande CRTRPGPGM . Après avoir saisi l'option 14 dans PDM ou l'option 3 du menu Programmeur faites F4 pour obtenir l'invite de la commande CRTRPGPGM puis F10 pour afficher les autres paramètres . Apparaît alors le paramètre INDENT . Par défaut ,il n'y a pas d'indentation (*NONE) Il vous suffit de saisir un caractère (ou plusieurs) qui sera utilisé pour l'indentation . |
EXEMPLE : INDENT = '!' +....1....+....2....+..< 28 - 32 >..+....4....+....5....+....6. C DATDEP IFEQ 0 C !EXCPT SOR1 C !DO 5 C !!ADD 1 CNT C !END C !ADD 1 TOT1 40 C !ADD SALBRU CUM1 102 C ELSE C !EXCPT SOR2 C !ADD 1 TOT2 40 C ENDIF |
EXEMPLE : INDENT = '! ' +....1....+....2....+..< 28 - 32 >..+....4....+....5....+....6. C DATDEP IFEQ 0 C ! EXCPT SOR1 C ! DO 5 C ! ! ADD 1 CNT C ! END C ! ADD 1 TOT1 40 C ! ADD SALBRU CUM1 102 C ELSE C ! EXCPT SOR2 C ! ADD 1 TOT2 40 C ENDIF |
EXEMPLE : INDENT = '>> ' +....1....+....2....+..< 28 - 32 >..+....4....+....5....+....6. C DATDEP IFEQ 0 C >> EXCPT SOR1 C >> DO 5 C >> >> ADD 1 CNT C >> END C >> ADD 1 TOT1 40 C >> ADD SALBRU CUM1 102 C ELSE C >> EXCPT SOR2 C >> ADD 1 TOT2 40 C ENDIF TOUT AUTRE CARACTERE TOUTE AUTRE CHAINE DE CARACTERES (entre quotes) EST UTILISABLE. 18 niveaux possibles , au delà "+" pour marquer le dépassement. |