MVSFORUMS.com

[vak255]

Hi,

I have a file with 500 records out of which i have to filter out the records with VALUES of 'QW111' at 117 position, 'AS' at 949, and 'X' at 954.

In fileaid, I have given that as,

[kolusu]

vak255,

Try this

[code:1:6f1dade9b5]
//STEP0100 EXEC PGM=FILEAID
//SYSPRINT DD SYSOUT=*
//DD01 DD DSN=your input dsn,
// DISP=SHR
//DD01O DD SYSOUT=*
//SYSIN DD *
$$DD01 DROP IF=(117,EQ,C
_________________
Kolusu
www.linkedin.com/in/kolusu

[vak255]

Thanks Master. Sure I will try and will let you know.

[vak255]

Kolusu, Its not working. I am getting all the 500 records in the output file.

File Attrb:
DCB Attributes: Dsorg: PS Recfm= VB Lrecl= 2004 Blksize= 27998

[vak255]

I have to filter only the 'QW111' records with 'AS' at 949, and 'X' at 954.

QW111 is at 117.

[vak255]

to make it clear,for ex...

INPUT:
-----------QW111-----------------------AS---X--------
-----------QW111-----------------------AS---T--------
-----------QW134-----------------------SA---T--------
-----------QW133-----------------------SA---T--------

OUTPUT SHOULD BE:

-----------QW111-----------------------AS---T--------
-----------QW134-----------------------SA---T--------
-----------QW133-----------------------SA---T--------

[kolusu]

vak255,

Your input file is VB,that explains why the records are not dropped.For VB files you need to take into account the RDW. For VB files your actual data starts from 5 instead of 1. So change your control cards to the following.

[code:1:5b07c22c8c]
//SYSIN DD *
$$DD01 DROP IF=(121,EQ,C
_________________
Kolusu
www.linkedin.com/in/kolusu

[vak255]

Thanks, its working.
I tried with that before some how i missed something. so it was ot working at that time,

Ure realy great,
Thanks,