How to empty a member in a PDS
Posted: Mon Jan 23, 2012 8:16 pm
Hi
I want to erase the content of a member in a PDS. Now, I use the following:
Is there a better way to do this ?
I want to erase the content of a member in a PDS. Now, I use the following:
AAD0 SORT
*
SORTIN FILE NAME=JORE0001,MODE=I
SORTOUT FILE NAME=JORE0002,MODE=O
*
SYSIN DATA *
SORT FIELDS=COPY
OMIT COND=ALL
DATAEND
*
SYSOUT REPORT SYSOUT=*
SYSPRINT REPORT SYSOUT=*
*
SORTIN FILE NAME=JORE0001,MODE=I
SORTOUT FILE NAME=JORE0002,MODE=O
*
SYSIN DATA *
SORT FIELDS=COPY
OMIT COND=ALL
DATAEND
*
SYSOUT REPORT SYSOUT=*
SYSPRINT REPORT SYSOUT=*
Is there a better way to do this ?