I need a JCL to delete the last 6 lines of all the members i

[osurendhra]

I need a JCL to delete the last 6 lines of all the members in a PDS.

The PDS is having almost 900 members and we need to delete the last 6 lines from all the members.

Take example PDS Name: TXSB.CAD.JCLLIB
_________________
If you want to interact directly call 9885580591

[hemanthg]

Hi,

you can use IEBCOPY to place the contents of PDS into a flat file.

Once done, you can use any of the following.

a. Write a COBOL program to read the flat file and remove the unwanted lines.
b. Write a REXX routine to remove the unwanted lines.

After the above you can convert the flat file into PDS using IEBCOPY

Let me know if you need more details.

[MrSpock]

I'm at a loss for a solution that doesn't involve going through each member and editing it, one member at a time. A program that edits each member with an ISPF Edit Macro would seem to be the best fit here.

[Anuj Dhawan]

This topic is just 4 years old...
_________________
Anuj


//MYWALLET EXEC PGM=SPOUSE
//SYSIN DD DSN=MYWALLET.ALL,DISP=SHR
//SYSOUT DD DUMMY