x

ITOZ(length, in_value, output)

onde:

comprimento

Inteiro

É o comprimento do in_value em bytes. O número máximo de bytes é 15. O último byte inclui o sinal.

in_value

Numérico

É o número a ser convertido ou o campo que contém a data. O número é truncado para um número inteiro antes de ele ser convertido.

saída

Alfanumérico

É o nome do campo que contém o resultado ou o formato do valor de saída posto entre aspas simples.

Topo da página

Exemplo: Como Coverter um Número para o Formato Zonado

A solicitação a seguir cria um arquivo de extração que contém os IDs e salários dos funcionários no formato zoneado para um programa COBOL:

DEFINE FILE EMPLOYEE
ZONE_SAL/A8 = ITOZ(8, CURR_SAL, ZONE_SAL);
END

TABLE FILE EMPLOYEE
PRINT CURR_SAL ZONE_SAL BY EMP_ID
ON TABLE SAVE AS SALARIES
END

O arquivo de extração resultante é:

NUMBER OF RECORDS IN TABLE= 12 LINES= 12 
 
ALPHANUMERIC  RECORD  NAMED  SALARIES 
FIELDNAME                          ALIAS         FORMAT        LENGTH 
EMP_ID                             EID           A9              9 
CURR_SAL                           CSAL          D12.2M         12 
ZONE_SAL                                         A8              8 
TOTAL                                                           29