IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Code numeric format to display both '+' and '-' signs ?


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Time2Live

New User


Joined: 27 Apr 2005
Posts: 43
Location: United States

PostPosted: Wed Nov 21, 2018 10:20 pm
Reply with quote

Hi All,
I was wondering if you could tell me if it is possible to define a numeric field that will display a number with Both the '+' and '-' sign on the left side of the number.

It is easy to define to get the minus sign with s9999 and -9999, but I want to force the positive sign to display also without having to 'move +' it into a position.
Would like to display +1234 as well as -1234.

Thank you for your advise!
Back to top
View user's profile Send private message
RahulG31

Active User


Joined: 20 Dec 2014
Posts: 446
Location: USA

PostPosted: Wed Nov 21, 2018 10:54 pm
Reply with quote

Use SIGN LEADING SEPARATE

.
Back to top
View user's profile Send private message
Time2Live

New User


Joined: 27 Apr 2005
Posts: 43
Location: United States

PostPosted: Thu Nov 22, 2018 3:40 am
Reply with quote

Thank you RahulG31. I shall look that up. icon_cool.gif
Back to top
View user's profile Send private message
Phrzby Phil

Senior Member


Joined: 31 Oct 2006
Posts: 1042
Location: Richmond, Virginia

PostPosted: Thu Nov 22, 2018 6:35 am
Reply with quote

It's been a long time, but I think SIGN LEADING SEPARATE refers to internal representation of zoned decimal, not an edit format.

Don't you just use the edit format with a "+" at the left end rather than a "-" (the latter forcing a "-" for negative and blank o.w.)?
Back to top
View user's profile Send private message
sergeyken

Senior Member


Joined: 29 Apr 2008
Posts: 2019
Location: USA

PostPosted: Thu Nov 22, 2018 8:13 pm
Reply with quote

Phrzby Phil wrote:
It's been a long time, but I think SIGN LEADING SEPARATE refers to internal representation of zoned decimal, not an edit format.

Don't you just use the edit format with a "+" at the left end rather than a "-" (the latter forcing a "-" for negative and blank o.w.)?

PIC +...... forces any sign, both '+' and '-' to be explicitly displayed. This is the simplest way to achieve this goal.
Back to top
View user's profile Send private message
Chetan Kumar

New User


Joined: 03 Dec 2012
Posts: 46
Location: India

PostPosted: Thu Nov 22, 2018 11:39 pm
Reply with quote

You can simple use ZZZZZZ.99- edit picture clause. This will display + if positive or - if negative.
Back to top
View user's profile Send private message
Time2Live

New User


Joined: 27 Apr 2005
Posts: 43
Location: United States

PostPosted: Fri Nov 23, 2018 12:58 am
Reply with quote

Thank you Very Much people! I learned a lot from you all. icon_biggrin.gif
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK

PostPosted: Fri Nov 23, 2018 3:26 am
Reply with quote

All this, plus floating signs, are in the manual under the PICTURE topic. It includes examples. Why did you not look in the manual in the first place? A quick look-up in the contents and index would have got you the information.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts Issues Converting From ZD to Signed N... DFSORT/ICETOOL 4
No new posts Populate last day of the Month in MMD... SYNCSORT 2
No new posts Modifying Date Format Using DFSORT DFSORT/ICETOOL 9
No new posts run rexx code with jcl CLIST & REXX 15
No new posts Compile rexx code with jcl CLIST & REXX 6
Search our Forums:

Back to Top