Come: |
Lingue disponibili: reporting, Maintain
La funzione ITONUM converte un grande numero in una origine dati non FOCUS in un formato di precisione doppia.
Alcune lingue di programmazione e alcuni sistemi di memorizzazione dati non-FOCUS usano formati di valori interi binari di grandi dimensioni. Tuttavia, i valori interi binari di grandi dimensioni (lunghi più di 4 byte) non sono supportati nel file principale, quindi richiedono la conversione nel formato a precisione-doppia.
È necessario specificare quanti byte all'estrema destra nel campo d'immissione sono significativi. Il risultato è un campo a precisione-doppia di 8 byte.
ITONUM(maxbytes, infield, output)
dove:
Numerico
Numero massimo di byte nel campo di immissione da 8 byte con dati numerici significativi, incluso il segno binario. I valori validi sono:
5 ignora i 3 byte sull'estrema sinistra.
6 ignora i 2 byte sull'estrema sinistra.
7 ignora il byte sull'estrema sinistra.
A8
Campo che contiene il numero binario. I formati USAGE e ACTUAL del campo devono essere A8.
Virgola mobile precisione doppia (Dn)
Nome del campo che contiene il risultato o il formato del valore di emissione racchiuso tra virgolette singole. Il formato deve essere Dn.
Supporre che un numero binario in un file esterno presenti il seguente formato COBOL:
PIC 9(8)V9(4) COMP
Tale funzione è definita nel file principale EUROCAR come campo chiamato BINARYFLD. I formati campo della funzione sono USAGE=A8 e ACTUAL=A8, poiché la sua lunghezza è maggiore di 4 byte.
La seguente richiesta converte il campo in formato precisione doppia:
DEFINE FILE EUROCAR
MYFLD/D14 = ITONUM(6, BINARYFLD, MYFLD);
END
TABLE FILE EUROCAR
PRINT MYFLD BY CAR
END
| WebFOCUS |