How to remove space in edited picture clause

lanand_hps · New User Joined: 05 Dec 2007 Posts: 82 Location: chennai

hi,
I have a variable declared as
01 WS-VAR1 PIC -$$$,$$$,$$9.99. (15 characters)

if i move 1.25 to this variable, it is dispayed as
-(9 spaces)$1.25

I want to remove the space between - and $ for all values.
I dont want to have - at the end.
Please comment.

Harsh Saxena · New User Joined: 10 Jul 2007 Posts: 2 Location: Pune

move the variable WS-VAR1 to a temp variable of same size

Eg : WS-VAR2 pic x(15)

Unstring WS-VAR2 delimited by all spaces into WS-TEMP1, WS-TEMP2.

Now WS-TEMP1 carries all the spaces and WS-TEMP2 carries the actual data.

Move WS-TEMP2 TO WS-FINAL(being WS-
FINAL a destination field).

Robert Sample · Posted: Wed Nov 05, 2008 6:15 pm

In COBOL, the $ and the - can be floating insertion characters. However, they both cannot be floating insertion characters in the same PICTURE clause. Use PIC $$$$,$$$,$$9.99 and then use reference modification to insert the minus sign where you want it.

dick scherrer · Posted: Wed Nov 05, 2008 9:05 pm

Hello,

If you are willing to show the minus (-) on the right, this will do what you want:

Terry Heinze · Posted: Thu Nov 06, 2008 11:21 am

Dick's example is usually the preferred method of displaying a signed currency amount. Is it a business requirement to "not show the - at the end"?

Escapa · Posted: Fri Nov 07, 2008 3:22 pm

For this you need bit of coding

dbzTHEdinosauer · Posted: Fri Nov 07, 2008 4:14 pm

Working-Storage