MVSFORUMS.com

[sub]

Hi,
I have VB file. The length of that file is 150. There is a field in that file starting at position 12 which is S9(9) comp-3. I need to exclude only the records with the value '345' starting at position 3 of this comp-3 field.

Sample i/p:
----------------12--------- <---column position
ABCDEFGHIJK11345111
AB1DEFGHIJK22123232 <--- expected in output
AB2DEFGHIJK22345222
AB3DEFGHIJK33345333
AB4DEFGHIJK33045333 <--- expected in output

Expected o/p:
AB1DEFGHIJK22123232
AB4DEFGHIJK33045333

Is there a way to do this one using SORT? Can someone please help.
Thanks.

[Frank Yaeger]

An S9(9) COMP-3 field is a 5-byte PD field in DFSORT terms so the PD value 11345111 would look like this in hex:

011345111C

Is that what your value looks like? If not, then you need to show us in hex what it does look like.

If that is what your value looks like, then I think you are saying you are looking for 345 as the 4th-6th digits of the PD value. So you'd want to check if positions 17-18 have x345 (since your input is VB, the first 4 bytes have the RDW and the first data byte starts in position 5). You could use a DFSORT job like the following to get what you asked for: