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

Zoned Decimal Conversion


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

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Sun May 03, 2009 4:55 pm
Reply with quote

The following is a small table which shows the NUMBER
that the LETTER represents when a Zoned Decimal is displayed without an edit mask.
example. 90m is -904
The letters are the same Upper and lower case.
0 {
1 A
2 B
3 C
4 D
5 E
6 F
7 G
8 H
9 I
-0 }
-1 J
-2 K
-3 L
-4 M
-5 N
-6 O
-7 P
-8 Q
-9 R
Back to top
View user's profile Send private message
baichunli2010

New User


Joined: 26 Aug 2010
Posts: 3
Location: China

PostPosted: Thu Sep 02, 2010 7:11 pm
Reply with quote

what did you mean ?
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Thu Sep 02, 2010 7:30 pm
Reply with quote

Quote:
VSE,390,ZOS,CICS,VSAM,JCL,COBOL,DB2,AIX


strange that with such an amazing skill set You never heard of zoned decimal

maybe it would be a good idea to start reading and meditating on the Pop ( Principles of OPerations )
for example ( not the latest, but enough for the Zoned Decimal concepts )
publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DZ9AR004/CCONTENTS?SHELF=EZ2HW125&DN=SA22-7201-04&DT=19970613131822
Back to top
View user's profile Send private message
mnnarayankar

New User


Joined: 21 Jan 2008
Posts: 23
Location: bangalore

PostPosted: Mon Dec 06, 2010 1:03 pm
Reply with quote

Hi dbzTHEdinosauer,

I am not sure what are you looking for. If you want to show the value of last character by separating the '-' or some special character then you can defined them as.

The above table issue can be resolved by us SIGN clause used in COBOL

you can use below syntax -

SIGN IS (LEADING) SEPARATE CHARACTER(TRAILING)

The default is SING IS TRAILING WITH NO SEPARATE CHARACTER

It is applicable only when the picture clause contain 'S' and 'S' does not take any space. It is stored with last digit.

Supose Number is = -125
Trailing Size(Defalut) = 12N
Leading sign = J25
Leading separate = -125.

Whenever you use 'S' in your picture clause the above your mentioned table come in picture. The above is the appropriate method to split last character.

Thanks & Regards,
Mohan Nagnath Narayankar icon_biggrin.gif
Back to top
View user's profile Send private message
Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2481
Location: @my desk

PostPosted: Mon Dec 06, 2010 1:42 pm
Reply with quote

mnnarayankar,

You have joined way back in 2008. I am surprised still you are unable to distinguish between a "question" and a "useful information". (Also that you are not familiar with dbz icon_lol.gif )
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Mon Dec 06, 2010 4:21 pm
Reply with quote

And at least look at the date-of-the-post, why to answer in a year old thread..

So Dick, what do you want - state clearly. icon_lol.gif.
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen

PostPosted: Mon Dec 06, 2010 4:36 pm
Reply with quote

Knowing Dick he will find something terrible for the commenter.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Mon Dec 06, 2010 9:07 pm
Reply with quote

Quote:
I am not sure what are you looking for.
Dick has no need to look for anything.
He was just trying to avoid the beginner question ...
I have a <thing> when I print it it comes out as ...12345} what does that mean ?
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 Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
No new posts 10 byte RBA conversion DB2 2
No new posts 10 byte RBA conversion -non applicati... JCL & VSAM 1
No new posts file manager is doing string conversion IBM Tools 3
No new posts Need Help with Packed Decimal Signs DFSORT/ICETOOL 4
Search our Forums:

Back to Top