I have PD field of length s9(14)v99 I got it converted to numeric using the code
SORT FIELDS=COPY
OUTREC FIELDS=(1,558,
559,9,PD,EDIT=(TTTTTTTTTTTTTTTTS),SIGNS=(,,+,-),
568,33)
But instead of getting the values with decimal like 17688.54 I am getting like this
1768854
Please give suggestions on how to get the decimal points.
Sort to convert PD to numeric
Moderators: Frank Yaeger, Moderator Group
- Frank Yaeger
- Moderator
- Posts: 812
- Joined: Sat Feb 18, 2006 5:45 am
- Location: San Jose, CA
- Contact:
archup20,
You can use a DFSORT OUTREC statement like this:
You can use a DFSORT OUTREC statement like this:
Code: Select all
OUTREC FIELDS=(1,558,
559,9,PD,EDIT=(TTTTTTTTTTTTTTT.TTS),SIGNS=(,,+,-),
568,33)
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
Thanks DikDude and Frank. I got hte decimal point by using the below code
SORT FIELDS=COPY
OUTREC FIELDS=(1,558,
559,9,PD,EDIT=(sTTTTTTTTTTTTTT.TT),SIGNS=(,,+,-),
568,33)
But now I am getting too many leading zeroes and the negative signs are not visible.
Now 17688.54 comes like this 0000017688.54
I tried removing some leading T's but it is not working. Please suggest me on this.
SORT FIELDS=COPY
OUTREC FIELDS=(1,558,
559,9,PD,EDIT=(sTTTTTTTTTTTTTT.TT),SIGNS=(,,+,-),
568,33)
But now I am getting too many leading zeroes and the negative signs are not visible.
Now 17688.54 comes like this 0000017688.54
I tried removing some leading T's but it is not working. Please suggest me on this.
- Frank Yaeger
- Moderator
- Posts: 812
- Joined: Sat Feb 18, 2006 5:45 am
- Location: San Jose, CA
- Contact:
You switched EDIT from a trailing sign to a leading sign, but you didn't fix SIGNS. For a leading sign, you need SIGNS=(+,-). If you don't want leading zeros, then use I instead of T. So you want something like this:
This is all documented in the DFSORT books, so you can look it up and play with it until you get exactly what you want.
Code: Select all
559,9,PD,EDIT=(SIIIIIIIIIIIIIT.TT),SIGNS=(,,+,-),
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
FREE TUTORIALS
Tutorials
Free tutorials from mainframegurukul
- JCL Tutorial
Covers all important JCL concepts. - Cobol Tutorial
This tutorials covers all Cobol Topics from STRING to COMP-3. - DB2 Tutorial
DB2 Tutorial focuses on DB2 COBOL Programming. - SORT Tutorial
This Tutorial covers all important aspects of DFSORT with examples - CICS Tutorial
This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions
- Cobol Interview Questions
50+ Interview Questions - JCL Interview Questions
50+ Interview Questions - DB2 Interview Questions
100+ Interview Questions - CICS Interview Questions
70+ Interview Questions - VSAM Interview Questions
27 Interview Questions
Other References
Mainframe Tools and others
- XPEDITER Reference
Explains how we can debug a program - FILEAID Reference
Explains how to browse , edit and delete datasets - Change Man Reference
Quick Start tutorial on Changeman - Abend Reference
Important Abend codes explained - FaceBook Page
MainframeGurukul FaceBook Page - LinkedIn Page
MainframeGurkul Linkedin Page