MVSFORUMS.com

[cyberuser]

Hello,
i have a file with 200.000 recs, and after read it, i would like to remove the recs by a certain criteria. Could someone pls provide me a sample code how this can be acquired by use of REXX ?

the code below would drop all lines after list.100
and the desired would be : list.1 ... list.99 then list.101...

DO A=1 TO LIST.0
IF LIST.A = 100 THEN DROP LIST.A
END

is the use of STEM for this problem a good idea?

[acevedo]

a stem with 200000 items? IMHO are too much items... what about your region memory?

[Phantom]

cyberuser,

Using Stem for this case is not a good idea. Instead, you can read your input file record by record using DISKR until RC = 2 (End of file). You can then check your input record for any condition and drop it if required. Else write it to your output file.

The other best alternative, would be to use utilities like SORT / FILEAID to delete only those records that you do not want.

Please provide us with complete information about your input file like LRECL, RECFM and the Criteria on which you drop the record. Do you just want to delete record # 100 or is there any other drop criteria ?

Thanks,
Phantom