Registres numériques
Le module de transformation utilise dix registres numériques (N@0 à N@9) pré-déclarés comme des entiers numériques longs (Long Windows, binaire de 4 AS/400 IBMi).
Ces entiers peuvent contenir une valeur allant de -2 114 000 à 2 114 000.
Ils sont indispensables pour extraire le contenu d'un champ de manière dynamique.
/* Find all occurrences in buffer I.DESCRIPTION
/* with the character à to replace it with @.
N@0 = 0
BEGIN_SCAN:
SCAN I.LIBELLE WITH 'à' POS N@0 IFNOTFOUND END_SCAN
I.LIBELLE(N@0:1) = '@'
GoTo BEGIN_SCAN
END_SCAN: