ZONED-TO-TRAILING

Purpose

Returns a COBOL trailing sign numeric from a zoned numeric.

Syntax

►►──┬─ ZONED-TO-TRAILING ─┬── ( value ) ──────────────────────────────────────►◄
    └─ ZNTRAIL ───────────┘

Parameters

value

Specifies the zoned numeric value on which the zoned to trailing function is performed.

Value is the name of a user-defined variable data field in zoned numeric format.

Example

In the following example, the zoned to trailing function is used to convert the value of MYNUMBER to a COBOL trailing sign numeric:

Initial value:
    MYNUMBER:   123 negative (hex 'F1F2D3')
Statement:
    MOVE ZNTRAIL(MYNUMBER) TO WK-PART-CODE.
Returned value:
    WK-PART-CODE:   123-