View previous topic :: View next topic
|
Author |
Message |
mars
New User
Joined: 25 Aug 2005 Posts: 5 Location: chennai
|
|
|
|
How to delete the contents alone from a PS without deleting the dataset?
Pls help me |
|
Back to top |
|
|
iknow
Active User
Joined: 22 Aug 2005 Posts: 411 Location: Colarado, US
|
|
|
|
Hi,
I am not sure whether this is what you are referring to.
To delete everything from a member through one line command, you can use DEL NX ALL.
I doubt my solution is wrong.
Please correct me if I am wrong. |
|
Back to top |
|
|
mak_tcs
New User
Joined: 23 Nov 2005 Posts: 69 Location: Minneapolis, MN USA
|
|
|
|
Hi,
Just copy a dummy file to the Sequential file.. Any other way, please suggest..
Code: |
//COPY0P12 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DUMMY
//SYSUT2 DD DSN=HLQ.SEQ.DATA.SET,DISP=SHR |
Hope this will help.
Thanks,
Mani |
|
Back to top |
|
|
suganthyprabha
New User
Joined: 28 Jul 2005 Posts: 58
|
|
|
|
Hi friend,
U can try this also. This job deletes the contents of SORTIN Dataset,and copies into outfile.
Code: |
//JOBA JOB (U,0001),'aaa',CLASS=0,MSGCLASS=X,MSGLEVEL=(1,1),
// NOTIFY=&SYSUID
//S1 EXEC PGM=ICEMAN
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=A.B.PS1,DISP=SHR
//SORTOUT DD DSN=A.B.PS2,DISP=(NEW,CATLG),
// SPACE=(TRK,(2,2)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//SYSIN DD *
OPTION COPY
OMIT COND=ALL
/* |
Thanks and Regards,
Suganthy. |
|
Back to top |
|
|
|