View previous topic :: View next topic
|
Author |
Message |
shreevamsi
Active User
Joined: 23 Feb 2006 Posts: 305 Location: Hyderabad,India
|
|
|
|
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 |
|
Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
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? |
|
Back to top |
|
|
shreevamsi
Active User
Joined: 23 Feb 2006 Posts: 305 Location: Hyderabad,India
|
|
|
|
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? |
|
Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
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:
Use [URL] BBCode for External Links |
|
Back to top |
|
|
|