Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Numeric Edited to Comp-3

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
amitkumar_sindhi

New User


Joined: 20 May 2005
Posts: 8

PostPosted: Sat May 28, 2005 4:58 pm    Post subject: Numeric Edited to Comp-3
Reply with quote

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
View user's profile Send private message

Frank Yaeger

DFSORT Moderator


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

PostPosted: Sat May 28, 2005 9:44 pm    Post subject:
Reply with quote

Here's a link to a general discussion about doing numeric conversion with DFSORT:

http://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
View user's profile Send private message
amitkumar_sindhi

New User


Joined: 20 May 2005
Posts: 8

PostPosted: Sun May 29, 2005 9:14 am    Post subject: Re: Numeric Edited to Comp-3
Reply with quote

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
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


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

PostPosted: Sun May 29, 2005 8:31 pm    Post subject:
Reply with quote

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:

www.ibm.com/servers/storage/support/software/sort/mvs/pdug/
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Validate if a Value from the file is ... balacsv2 COBOL Programming 8 Mon Jun 19, 2017 11:52 pm
No new posts Validate date and numeric fields and ... Rick Silvers DFSORT/ICETOOL 6 Thu May 11, 2017 6:51 pm
No new posts Converting decimal to numeric using I... Balaryan DFSORT/ICETOOL 4 Thu Feb 02, 2017 11:27 pm
No new posts Sort records based on numeric field. Alks SYNCSORT 2 Wed Oct 19, 2016 10:14 pm
No new posts Protection Exception while move 0 to ... Kevin Vaz CICS 10 Tue Oct 18, 2016 4:19 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us