|
View previous topic :: View next topic
|
| Author |
Message |
amitkumar_sindhi
New User
Joined: 20 May 2005
Posts: 8
|
|
|
|
I have in input file, a variable with numeric edited format, using sort i want that the same variable is copied to output file, but , instead of numeric edited the format should be COMP-3.In pointers to this regard would be really helpful.
Regards,
Amit |
|
| Back to top |
|
 |
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
Here's a link to a general discussion about doing numeric conversion with DFSORT:
www.ibm.com/servers/storage/support/software/sort/mvs/beyond_sorting/online/srtmboft.html#ocv
If you need something more specific, you have to supply more details.
COMP-3 is PD format. I don't know what you mean by "numeric edited format" so you need to show me an example of what the "numeric edited format" looks like before I can show you how to do what you want with DFSORT. Also, what length do you want for the COMP-3 (PD) output field?And what is the RECFM and LRECL of your input file? |
|
| Back to top |
|
|
amitkumar_sindhi
New User
Joined: 20 May 2005
Posts: 8
|
|
|
|
Numeric edited field format is zzzz9.9999-(suppose vendor cost in input file)
Output file vendor cost format: PD 5.0(length 11)
Output file format: FB
LRECL: 100 |
|
| Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
I'm not familiar with some of your notations (zzzz? PD 5.0?).
If the input field is in the format ddddd.dddd and you want the output field as an 11-byte PD value, you can use this INREC statement:
| Code: |
INREC FIELDS=(...,p,10,UFF,TO=PD,LENGTH=11,...)
|
where p is the starting position of the input field and ... indicates the other fields before and after the field to be converted.
You'll need z/OS DFSORT V1R5 PTF UQ95214 or DFSORT R14 PTF UQ95213 (Dec, 2004) in order to use DFSORT's new UFF format which handles the decimal point in the input field automatically. If you have DFSORT, but you don't have the Dec, 2004 PTF, ask your System Programmer to install it (it's free). For complete details on all of the new DFSORT and ICETOOL functions available with the Dec, 2004 PTF, see:
Use [URL] BBCode for External Links |
|
| Back to top |
|
|
|
|
