ITONUM : Convertir un Entier binaire de taille importante au format double précision

La fonction ITONUM convertit un entier binaire de taille importante dans une source de données non-FOCUS à un format double précision.

Certains langages de programmation et systèmes de stockage de données utilisent des formats entier binaire de taille importante. Toutefois, les entiers binaires de taille importante (supérieurs à 4 octets) ne sont pas pris en charge par le fichier maître et doivent donc être convertis au format double précision.

Vous devez indiquer combien d'octets le plus à droite du champ d'entrée sont importants. Cela a pour résultat un champ double précision à 8 octets.

Syntaxe : Convertir un grand entier binaire au format décimal double précision

ITONUM(maxbytes, infield, output)

où :

maxbytes

Numérique

est le nombre maximum d'octets dans les 8 octets binaires de champ d'entrée qui ont d'importantes données numériques, y compris le signe binaire. Voici les valeurs valables :

5 indique les 3 octets à l'extrême gauche sont ignorés.

6 indique les 2 octets à l'extrême gauche sont ignorés.

7 indique l'octet à l'extrême gauche est ignorés.

infield

est le champ qui contient le nombre binaire. Les formats USAGE et ACTUAL du champ doivent être A8 tous les deux.

output

Point-flottant double précision (Dn)

est le champ qui contient le résultat, ou le format de la valeur de sortie entre guillemets simples. Le format doit être Dn.

Haut de page

Exemple : Convertir un entier binaire de taille importante au format double précision

Supposez que le nombre binaire dans un fichier externe est au format COBOL suivant :

PIC 9(8)V9(4) COMP

Elle est définie dans le fichier maître EUROCAR comme un champ nommé BINARYFLD. Ses formats de champs sont USAGE=A8 et ACTUAL=A8, puisque sa longueur est supérieure à 4 octets.

La requête suivante convertit le champ en format double précision :

DEFINE FILE EUROCAR
MYFLD/D14 = ITONUM(6, BINARYFLD, MYFLD);
END
TABLE FILE EUROCAR
PRINT MYFLD BY CAR
END