Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Zoned Decimal Conversion

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
dbzTHEdinosauer

Global Moderator


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

PostPosted: Sun May 03, 2009 4:55 pm    Post subject: Zoned Decimal Conversion
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    Post subject:
Reply with quote

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

Global Moderator


Joined: 14 Mar 2007
Posts: 10256
Location: italy

PostPosted: Thu Sep 02, 2010 7:30 pm    Post subject: Reply to: Zoned Decimal Conversion
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 )
http://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: 24
Location: bangalore

PostPosted: Mon Dec 06, 2010 1:03 pm    Post subject:
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: 2275
Location: @my desk

PostPosted: Mon Dec 06, 2010 1:42 pm    Post subject:
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

Senior Member


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

PostPosted: Mon Dec 06, 2010 4:21 pm    Post subject:
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: 2433
Location: Netherlands, Amstelveen

PostPosted: Mon Dec 06, 2010 4:36 pm    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10256
Location: italy

PostPosted: Mon Dec 06, 2010 9:07 pm    Post subject: Reply to: Zoned Decimal Conversion
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    IBMMAINFRAMES.com Support Forums -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Joinkeys with decimal scdinesh DFSORT/ICETOOL 3 Fri Feb 10, 2017 4:46 am
No new posts Converting decimal to numeric using I... Balaryan DFSORT/ICETOOL 4 Thu Feb 02, 2017 11:27 pm
No new posts File Aid to File Manager conversion murali3955 IBM Tools 4 Thu Nov 24, 2016 3:41 pm
No new posts Conversion of a VB file to FB. isssal DFSORT/ICETOOL 1 Mon Oct 31, 2016 10:23 pm
No new posts Comparing Decimal and CHAR columns rakesh17684 DB2 7 Thu Oct 20, 2016 2:33 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us