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 ?