ofer71
Global Moderator
Joined: 27 Dec 2005
Posts: 2358
Location: Israel
|
|
|
|
Try this:
Create a REXX edit-macro, and call it 'DEL6'. Here is the code:
| Code: |
/* REXX */
ADDRESS ISREDIT "MACRO PROCESS"
ADDRESS ISREDIT "(LASTL) = LINENUM .ZLAST"
LASTL6 = LASTL - 6
ADDRESS ISREDIT "DELETE "LASTL6 LASTL
ADDRESS ISREDIT "END"
EXIT |
Run the following REXX to invoke the DEL6 macro against each member of the PDS.
| Code: |
/* REXX */
ARG PDS .
PDS = STRIP(PDS,"B","'")
X = OUTTRAP("LIBMEM.") /* Trap output of TSO */
ADDRESS TSO "LISTDS '"PDS"' M"
X = OUTTRAP("OFF")
DO I = 7 TO LIBMEM.0
LIBMEM.I = STRIP(LIBMEM.I) /* Member name */
ADDRESS ISPEXEC "EDIT DATASET ('"PDS"("LIBMEM.I")') MACRO (DEL6)"
SAY I RC LIBMEM.I
END
EXIT
|
O. |
|
