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

Author Message
shreevamsi

Active User

Joined: 23 Feb 2006
Posts: 305

 Posted: Fri May 25, 2007 5:07 pm    Post subject: Compare a COMP-3 Value in a sort HI, I was struck up while comparing a comp-3 value from the input file and based on that value, i should write it in one of the output file. I have a comp-3 value @ 19th position of declaretion S9(9)v99. Now i need to check the value. If the value is less that 1000,000, i should be writing to one output file. Else into another. could anybody help me with the sort card?? ~Vamsi

Frank Yaeger

DFSORT Moderator

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

 Posted: Sun May 27, 2007 12:42 am    Post subject: S9(9)v99 COMP-3 is a 6-byte PD value with two decimal places (implied). Externally an example of the value might be +123456789.01 or -123456789.01. You say you want to compare it to 1000,000. It's not clear exactly what constant you mean by that. Do you mean +001000000.00 or something else?
shreevamsi

Active User

Joined: 23 Feb 2006
Posts: 305

 Posted: Mon May 28, 2007 6:06 pm    Post subject: Re: Compare a COMP-3 Value in a sort Hi Frank, I am expecting a positive value. +001000000.00. But what if the value is a negative which is less than -10000. Can't we compare the value including the sign?
Frank Yaeger

DFSORT Moderator

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

Posted: Mon May 28, 2007 9:59 pm    Post subject:

 Quote: If the value is less that 1000,000, i should be writing to one output file. Else into another

Here's a DFSORT job to do that:

 Code: //S1    EXEC  PGM=ICEMAN //SYSOUT    DD  SYSOUT=* //SORTIN DD DSN=...  input file //OUT1 DD DSN=...  output file1 (< +001000000.00) //OUT2 DD DSN=...  output file2 (>= +001000000.00) //SYSIN    DD    *   OPTION COPY   OUTFIL FNAMES=OUT1,INCLUDE=(19,6,PD,LT,+00100000000)   OUTFIL FNAMES=OUT2,SAVE /*

 Quote: But what if the value is a negative which is less than -10000. Can't we compare the value including the sign?

PD values are signed. You can use a negative constant in the INCLUDE statement (-n).

If you're not familiar with DFSORT and DFSORT's ICETOOL, I'd suggest reading through "z/OS DFSORT: Getting Started". It's an excellent tutorial, with lots of examples, that will show you how to use DFSORT, DFSORT's ICETOOL and DFSORT Symbols. You can access it online, along with all of the other DFSORT books, from:

www.ibm.com/servers/storage/support/software/sort/mvs/srtmpub.html
 All times are GMT + 6 Hours
 Page 1 of 1

Search our Forum:

 Topic Author Forum Replies Posted Similar Topics Sort numeric fields with trailing spaces sancraig16 SYNCSORT 7 Tue Apr 03, 2018 1:21 am Find & Replace string in CA-SORT mrgnndhmk CA Products 1 Fri Mar 30, 2018 12:58 am SORT 3 files,extract specific fields ... Kiransr DFSORT/ICETOOL 13 Fri Mar 23, 2018 10:54 am How to Generate JCL using Sort naveen katkuri DFSORT/ICETOOL 7 Tue Mar 13, 2018 3:50 pm Query to compare 2 values of 1 column... Poha Eater DB2 13 Fri Mar 09, 2018 10:45 am

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