Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
Shivashankar,
Assuming you want to check a PD field for a particular value, the general format for the DFSORT control statements would be:
Code:
OPTION COPY
OMIT COND=(p,m,PD,op,value)
p is the starting position of the PD field. m is the length of the PD field. op is the comparison operator (EQ, NE, LT, LE, GT, GE) and value is a decimal number (n, +n, -n). So for example, if you wanted to OMIT records with a 2-byte PD value in positions 21-22 equal to +12, you would use:
Code:
OPTION COPY
OMIT COND=(21,2,PD,EQ,+12)
If you need more specific help, explain in more detail what you want to do.
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:
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
Since it's a VB file, the first field in the file starts at position 5 after the RDW. PIC S9(03) COMP-3 is a 2-byte PD value. So use 5 for p and 2 for m in the OMIT statement as shown in my previous post.