CA IDMS Reference 19.0

PDF
English

ZONED-TO-TRAILING

Returns a COBOL trailing sign numeric from a zoned numeric.
idmscu19
Returns a COBOL trailing sign numeric from a zoned numeric.
Syntax

 
►►──┬─ ZONED-TO-TRAILING ─┬── ( 
value
 ) ──────────────────────────────────────►◄
    └─ ZNTRAIL ───────────┘
 
Parameter
  • 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-