TRAILING-TO-ZONED

Purpose

Returns a zoned numeric from a COBOL trailing sign numeric.

Syntax

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

Parameters

value

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

Value can be:

The name of a user-defined variable data field in trailing sign format
A user-supplied numeric literal

Example

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

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