14. Utiliser des données entières au lieu de %BIN (V5R3).

Les données entières sont souvent utiles en présentation numérique compressée, peut-être pour passer des paramètres à des API et autres programmes. Mais, jusqu’à la V5R3, CL ne supportait pas directement les entiers. Pour contourner cette déficience, si l’on voulait utiliser un champ binaire en CL, il fallait utiliser la fonction

*BINARY pour convertir des champs caractères de 2 ou 4 octets en numérique :

Dcl &Char *Char 4 Value(X’0000′)
Dcl &Num *Dec (10 0) Chgvar &Num (%Binary(&Char) + 1)

Maintenant, vous pouvez déclarer directement les variables comme entiers – TYPE(*INT) – ou entiers non signés – TYPE(*UINT) avec une longueur de 2 ou 4 octets (4 octets par défaut). Ensuite, vous pouvez traiter directement ces variables :

Dcl &Num *Uint 4 Value(0)
Chgvar &Num (&Num + 1)