Search a string and delete.

Srinivasarangam · New User Joined: 01 Jun 2010 Posts: 39 Location: India

Hi all,

I am trying to search a string inside a member of PDS and once it found I want to delete that line using REXX.

I am planning to read this member first to find the line numbers where this string sits in the member by scaning the member line by line and than delete those lines. Please let me know is I am going in correct direction or any other better way is there to achieve the same.

I don't have any sample code. If anyone of you have the sample, request you to share the same.

Thanks in advance,
Venkat,

Pandora-Box · Posted: Thu May 24, 2012 10:40 pm

If this was a requirement just to be ment in REXX ??

SORT is much better and easier to write by using

dbzTHEdinosauer · Posted: Thu May 24, 2012 10:43 pm

why not,
during the manual edit session,
on command line:
x all 'your string'
delete all x
save.

Srinivasarangam · New User Joined: 01 Jun 2010 Posts: 39 Location: India

Hey thank you ].

Here I am developing a tool which deletes the string inside members of PDS. In the front end user just enters some string and we need to delete all lines which is having this string.. this is the requirement.

i try to take your suggestions and try code in the same way.

dbzTHEdinosauer · Posted: Thu May 24, 2012 11:10 pm

don.leahy · Posted: Thu May 24, 2012 11:12 pm

My advice would be to set up an ISPF edit macro that performs the sequence of commands that Dick suggested. Then you can run the macro for each member of the PDS. Easy enough to do and has been discussed many times on this forum.

Pandora-Box · Posted: Thu May 24, 2012 11:15 pm

Front end mean ISPF panels?

Srinivasarangam · New User Joined: 01 Jun 2010 Posts: 39 Location: India

Yes. ISPF panels.

Dick/Don,

I think whatever description i have given above is less. Sorry for the confusion. The tool will perform adding new members, updating some of email address, deleting the email address ,,,.. and many more other things. The email id given in panel may or may not be there in member. If it is there at that time we need to delete that. Updating email address with a new email address is working fine for me. I am trying to code for delete, but i am not getting idea how to achieve that. So request you all help me suggest some ideas achieve that.

Thanks,
Venkat

Pandora-Box · Posted: Thu May 24, 2012 11:45 pm

What have you tried till now ??

And did you try what others have told ?

please try them and get back with what you have tried

Srinivasarangam · New User Joined: 01 Jun 2010 Posts: 39 Location: India

sure. I will try tommrow in my morning time and get back with whatever i tried....

dick scherrer · Posted: Thu May 24, 2012 11:58 pm

Hello,

Possibly your "delete" routine could be your "update" code (that is already working) changed to NOT write out a new record to the output?

Not writing will effectively delete the record (providing a newmember IS being created).

Srinivasarangam · New User Joined: 01 Jun 2010 Posts: 39 Location: India

/* REXX */
ADDRESS ISPEXEC "EDIT DATASET('T310753.IIRS.data1') MACRO(MYMACRO)"

MYMACRO:
ADDRESS ISREDIT "X ALL '*' 7 7 "
ADDRESS ISREDIT "DELETE ALL X"
EXIT

I am trying this code for test purpose to delete all records with '*' in 7 th column in dataset 'T310753.IIRS.data1' .. but i am getting message saying MACRO not found.
Is I need to keep macro in seperate dataset ?

dbzTHEdinosauer · Posted: Fri May 25, 2012 1:16 pm

add this to MYMACRO

ADDRESS ISREDIT MACRO

do spend some time with the manuals.

Srinivasarangam · New User Joined: 01 Jun 2010 Posts: 39 Location: India

please give some link more information about isredit

Pandora-Box · Posted: Fri May 25, 2012 2:14 pm

On top of the page you see IBM MANUALS link click there and it will lead to manual page and get ISPF Edit and Edit Macros

Srinivasarangam · New User Joined: 01 Jun 2010 Posts: 39 Location: India

dbzTHEdinosauer · Posted: Fri May 25, 2012 4:00 pm

Srinivasarangam · New User Joined: 01 Jun 2010 Posts: 39 Location: India

nothing is working with me.... could you please tell someother approch.

Nic Clouston · Posted: Fri May 25, 2012 6:11 pm

Give up, go home and on Monday start looking for a job outside of IT as you seem to have no related skills re finding things out, understanding or asking questions or giving information when asking questions.

daveporcelan · Posted: Fri May 25, 2012 6:27 pm

I thought you said you were looking in a 'member of a pds'.

The file you are editing is not a pds.

Also, so you understand, MYMACRO must be a separate member in your REXXLIB pds.

If you do not want to follow Nic's advice, search this forum for the many examples of invoking an edit macro from a rexx exec.

Also search for LMMLIST to see how to list members of a pds and write to a file. Or look in the manual.

Then use you brain, and say to yourself:
1) I can list the members of a pds and write to a file
2) I can read the file one record at a time using a do loop, or I can read them all into the stack and pull them one at a time in the do loop.
3) for each record (member name) I can invoke my edit macro which I have put in a separate member of my rexxlib.
4) I better not forget to put "ISREDIT END" at the end of my edit macro or it will just hang

This is not a very difficult thing to do, it just requires some effort.

If you put in the effort, and show that here on the forum, then the experts are more willing to help.

Srinivasarangam · New User Joined: 01 Jun 2010 Posts: 39 Location: India

hey nic,

don't under estimate someone so easily and start passing comments....

i got the solution....

i have acheived that as below

dbzTHEdinosauer · Posted: Fri May 25, 2012 6:32 pm

not to belabor a point:

daveporcelan · Posted: Fri May 25, 2012 6:34 pm

Good Job. Not how I would do it, but if you say it works, then great.

You probably want to move "EXECIO * DISKW INDF (FINIS STEM A." outside of your DO I = loop however.

You are writing ALL the lines of your A. stem every time instead of just once at the end.

Nic Clouston · Posted: Fri May 25, 2012 8:10 pm

Well, I may have been a bit harsh but not too much and obviously I am not particularly serious but you did say "nothing is working with me". with that amount of information how can we help you with your problem which, if you got it fixed, could well provide you with something that you can use as a foundation for future efforts? If you need to get more exposure to Rexx you can download free rexx interpreters for your pc and practice there. You would then only need to learn the bits that are specific to z/OS and ISPF e.g. EXECIO instead of the ANSI standard I/O routines.

Pedro · Posted: Fri May 25, 2012 9:25 pm

Maybe I am not interpreting it correctly, but