Portal | Manuals | 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: 10562
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: 2454
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: 6258
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: 2468
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: 10562
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 WSL-ADSL conversion in Webservice acc... eanupama DB2 0 Wed Jan 30, 2019 4:36 pm Regression testing of date format con... prino CLIST & REXX 0 Fri Jan 11, 2019 5:39 am Comparing Signed Packed decimal and p... Virendra Shambharkar SYNCSORT 2 Wed Nov 14, 2018 9:37 am RPG II Problem with unsigned Packed d... Andi1982 All Other Mainframe Topics 6 Tue Sep 11, 2018 6:11 pm Code char set conversion from IBM-420... thelefthandofdarkness IBM Tools 4 Thu Jul 26, 2018 3:03 pm

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