MVSFORUMS.com

vijay · Beginner Joined: 09 May 2003 Posts: 131 Topics: 64

Hi ,
I need help with formatting a numeric value using cobol only.

Input: -123456789.10
Output1 : -$123,456,789.10
Output2 : -123 456 789,10$ (comma from output1 is replaced with blanks and '.' is converted to ',' and dollar sign is moved to end)

Is there an easy way to do output2 using picture clauses or should I use program logic ?

Vijay

Anuj Dhawan · Posted: Tue Jul 20, 2010 6:24 am Post subject:

For Output1, you can use eidted-picture-clauses and a direct MOVE should work. Have a look here for examples: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/handheld/Connected/BOOKS/igy3lr10/5.3.11.9.1?

for output2 there are couple of ways - have a variable of kind which has a FILLER after every three numerical values and last FILLER with a valuse as "$" - and MOVE the value to this variable and display that. You might also choose reference-modifications.
_________________
Regards,
Anuj

kolusu · Posted: Tue Jul 20, 2010 10:42 am Post subject:

vijay,

Unless this is a trick question isn't it a simple numeric edit?

Untested code.

vijay · Beginner Joined: 09 May 2003 Posts: 131 Topics: 64

Thanks Kolusu.

I also do not want any zeroes or spaces after the $ sign and the first digit.Anyways , I used reference modifications and it worked.

Thanks,
Vijay

kolusu · Posted: Tue Jul 20, 2010 6:08 pm Post subject:

Anuj Dhawan · Posted: Wed Jul 21, 2010 3:54 am Post subject:

May be you'd like to post the final solution for the benefit of others.
_________________
Regards,
Anuj