Portal | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref

Author Message
dbzTHEdinosauer

Global Moderator

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

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

baichunli2010

New User

Joined: 26 Aug 2010
Posts: 3
Location: China

 Posted: Thu Sep 02, 2010 7:11 pm    Post subject: what did you mean ?
enrico-sorichetti

Senior Member

Joined: 14 Mar 2007
Posts: 10701
Location: italy

Posted: Thu Sep 02, 2010 7:30 pm    Post subject: Reply to: Zoned Decimal Conversion

 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
mnnarayankar

New User

Joined: 21 Jan 2008
Posts: 24
Location: bangalore

 Posted: Mon Dec 06, 2010 1:03 pm    Post subject: 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
Arun Raj

Moderator

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

 Posted: Mon Dec 06, 2010 1:42 pm    Post subject: 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 )
Anuj Dhawan

Senior Member

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

 Posted: Mon Dec 06, 2010 4:21 pm    Post subject: 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. .
PeterHolland

Global Moderator

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

 Posted: Mon Dec 06, 2010 4:36 pm    Post subject: Knowing Dick he will find something terrible for the commenter.
enrico-sorichetti

Senior Member

Joined: 14 Mar 2007
Posts: 10701
Location: italy

Posted: Mon Dec 06, 2010 9:07 pm    Post subject: Reply to: Zoned Decimal Conversion

 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 ?
 All times are GMT + 6 Hours
 Page 1 of 1

Search our Forum:

 Topic Author Forum Replies Posted Similar Topics EBCDIC to ASCII conversion help t_bt2 All Other Mainframe Topics 1 Wed Sep 23, 2020 6:34 pm To convert numeric to Packed Decimal vinu78 DFSORT/ICETOOL 9 Fri Jul 31, 2020 7:14 pm Convert a packed decimal value to zon... Dinesh Mani DB2 6 Mon Mar 16, 2020 6:02 pm Identifying Packed Decimal data in a ... sojivarkey TSO/ISPF 4 Sat Dec 07, 2019 5:36 am Reading the CSV data in COBOL and mov... wik123 COBOL Programming 4 Tue Dec 03, 2019 5:13 pm

 © 2003-2020 IBM MAINFRAME Software Support Division
 Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us