Packed decimal to Alphanumeric

kris_madras · New User Joined: 04 Jul 2005 Posts: 31

Hi,
I have input feed in the form pic s9(7)v9(2) comp-3.
I need to move this input to output variable X(9).
Also need to remove leading zeroes in the decimal portion.
Please suggest.

Input -1: 1234.00
Output expected : xxx123400 (x is space)

Input -2: 0.58
Output expected : xxxxxxx58 (x is space)

Input -3: 2345.67
Output expected : xxx234567 (x is space)

Input 4-: 0.00
Output expected : xxxxxxxxx (x is space)

Thanks

Pandora-Box · Posted: Wed May 05, 2021 1:51 am

Hi

What have you tried please?

Also what do you expect if your input is less than zero?

Can you also double check if 0.00 is input you need output as spaces?

sergeyken · Posted: Wed May 05, 2021 9:36 pm

FYI:

COBOL Programming Guide

COBOL Language Reference