MVSFORUMS.com

Nork1 · Beginner Joined: 22 Jan 2004 Posts: 4 Topics: 2

Hi,

I wish to use an edit macro to look through 5000 PDS members and delete 2 lines of JCL:

//STEP010 EXEC PGM=PROG1,PARM='xxxx'
//SYSPRINT DD SYSOUT=*

If the PROG1 line is found, I need to delete the next line, however all I seem to be able to come up with is a macro that deletes the first occurrence of 'SYSPRINT' or the first line of JCL regardless of whether the PROG1 line exists or not.

My edit macro is something along the lines of:

X ALL
F 'PROG1' FIRST
F 'SYSPRINT' NEXT
DEL NX ALL

My question is what is the syntax to check for the existence of PROG1 then, if found, delete the following line?

Any assistance will be much appreciated. Thanks.

Mervyn · Posted: Sun Jan 25, 2004 7:24 am Post subject:

Nork1,

This is one way, off the top of my head:

ofer71 · Posted: Sun Jan 25, 2004 1:28 pm Post subject:

Another solution:

Nork1 · Beginner Joined: 22 Jan 2004 Posts: 4 Topics: 2

Mervyn, ofer71...

thanks for your quick responses, you've helped me achieve what I set out to do. I'll spend tomorrow with my nose in a manual!

Thanks again.

Mervyn · Posted: Sun Jan 25, 2004 3:10 pm Post subject:

You're welcome, Nork1.

I've added the 'do' and 'end' in my post. Rolling Eyes

_________________
The day you stop learning the dinosaur becomes extinct