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

Author Message
Rupa.P.V
Warnings : 1

New User

Joined: 04 Jul 2006
Posts: 30

 Posted: Mon Jul 31, 2006 12:31 pm    Post subject: Zoned and Fixed point format.... Can anyone explain me wat is zoned decimal and fixed point format?? And how can we convert Zoned decimal to Fixed decimal format using DFSORT ?? Please provide syntax and example for clear understanding.. Thanks in advance

chanda.debasish

New User

Joined: 19 Sep 2005
Posts: 9

Posted: Mon Jul 31, 2006 4:29 pm    Post subject:

Zoned decimal (ZD) is equivalent to PIC S9(n) and fixed point format(FI) is equivalent to PIC S9(n) COMP.
ZD TO FI conversion can be done in the following way -

 Code: OUTREC FIELDS=(1,4,ZD,TO=FI)   SORT FIELDS=COPY

For example if the input file content is
0001
then output file will contain binary equivalent of 0001.
Frank Yaeger

DFSORT Moderator

Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

 Posted: Sat Aug 05, 2006 10:10 pm    Post subject: For more information on the various DFSORT formats you can use, see "Appendix C" of "z/OS DFSORT Application Programming Guide". You can access all of the DFSORT books from: http://www.ibm.com/servers/storage/support/software/sort/mvs/srtmpub.html For more information on converting numeric formats, see "Reformatting Features" in "DFSORT: Beyond Sorting" at: http://www.ibm.com/servers/storage/support/software/sort/mvs/beyond_sorting/
 All times are GMT + 6 Hours
 Page 1 of 1

Search our Forum:

 Topic Author Forum Replies Posted Similar Topics Unloading DB2 table in CSV format alo... grvtomar COBOL Programming 7 Sun Jan 28, 2018 2:05 am Sum the fields in particular format f... sharana64 DFSORT/ICETOOL 9 Fri Jan 05, 2018 1:11 am Format Last Record differently from r... Learncoholic DFSORT/ICETOOL 5 Tue Oct 24, 2017 12:01 pm Format issues using XMITIP MSGDD ssdjp1 CLIST & REXX 5 Mon Oct 23, 2017 8:47 pm Fetch Previous month & year in MM... girishb2 DFSORT/ICETOOL 3 Thu Sep 21, 2017 9:54 pm

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