Available Languages: reporting, Maintain
The ITOZ function converts a number in numeric format to zoned-decimal format. Although a request cannot process zoned numbers, it can write zoned fields to an extract file for use by an external program.
ITOZ(length, in_value, output)
Is the length of in_value in bytes. The maximum number of bytes is 15. The last byte includes the sign.
Is the number to be converted, or the field that contains the number. The number is truncated to an integer before it is converted.
Is the name of the field that contains the result, or the format of the output value enclosed in single quotation marks.
The following request creates an extract file containing employee IDs and salaries in zoned format for a COBOL program:
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
The resulting extract file is:
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