Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 6970
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: 10364
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: 2285
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: 2443
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: 10364
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 Conversion of UTF-8 to EBCDIC muralikrishnan_new COBOL Programming 1 Tue Nov 21, 2017 5:33 pm
No new posts Mainframe Blocks to Tracks conversion upendrasri JCL & VSAM 1 Sat Nov 18, 2017 10:52 am
No new posts Extend the decimal values in DIVISION Balaryan DFSORT/ICETOOL 3 Thu Oct 05, 2017 4:05 pm
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

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us