Hi Guyz,
My requirement is to empty out a PS file but not to delete.
How would I do that. Is there any Utility. If any other
way, plz answer. Thanks.
- 9 Answers
- 26056 Views
- iGate, Lehman Brothers, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / mithun suresh
Pushpa, I created a PS with FBA and put some recs in and
ran the same above JCL. To me it worked. Have u checked
what error u r getting. Try the below stuff with SORT util.
//STEP01 EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=USERID.DATASET,DISP=SHR
//SORTOUT DD DSN=USERID.DATASET,DISP=SHR
//SYSIN DD *
SORT FIELDS=COPY,STOPAFT=0
| Is This Answer Correct ? | 15 Yes | 1 No |
Answer / bill cecchini
Use the dataset itself to get the required DCB attributes.
//STEP01 EXEC PGM=IEBGENER
//SYSUT1 DD DUMMY,DCB=USERID.DATASET
//SYSUT2 DD DSN=USERID.DATASET,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
| Is This Answer Correct ? | 6 Yes | 1 No |
Answer / mithun suresh
Hi, try this out
Option 1: Use IEBGENER Utility
//DELJOB JOB ..........
//STEP01 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT1 DD *
//SYSUT2 DD DSN=USERID.DATASET,DISP=SHR
| Is This Answer Correct ? | 9 Yes | 6 No |
Answer / ram g
it will work with iebgener also ..create a dummy file with
fba format and use in your utility jcl
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / abhilash
Why are you wasting your time and CPU time ... just open
the file in edit mode and type D99999 before first
record ... it will empty the file.. Cheers..
Plz dont waste CPU time....
| Is This Answer Correct ? | 8 Yes | 8 No |
Answer / anand
//NUAEA62T JOB ,'DAILY REPORTS',
// MSGLEVEL=(1,1),MSGCLASS=Q,
// CLASS=D,NOTIFY=&SYSUID
//STEP1 EXEC PGM=IEBGENER
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD *
//SYSUT2 DD DSN=Test,DISP=SHR
/*
| Is This Answer Correct ? | 0 Yes | 1 No |
Answer / pushpa
Yes we can do it by using the IEBGENER utility.
I have a question here By using the IEBGENER Utility I was
able to do this only for PS with RECFM =VB , but its not
working for PS with RECFM = FBA.
Is there any specific reason for this.
Please Clarify.
| Is This Answer Correct ? | 0 Yes | 2 No |
Try This :
//JOBCARD
//STEP1 EXEC PGM=IEFRBR14
//DD1 DD DSN=FILE1,DISP=(MOD,DELETE,DELETE)
May need to code DCB and SPACE parameter.
//DD2 DD DSN=FILE1,DISP=(NEW,CATLG,CATLG)
MUST need to code DCB and SPACE parameter.
//
Ply respond with YES or NO.
Thanks
Garry
| Is This Answer Correct ? | 0 Yes | 3 No |
Answer / sachin borase
//JOBNAME
//S1 EXEC PGM=IEFRBR14
//DD1 DD DSN=FILE1,DISP=(NEW,CATLG,DELETE)
//S2 EXEC PGM=SORT
//SORTIN DD DSN=FILE1
//SORTOUT DD DSN=FILE2,DISP=OLD
//SYSIN DD *
SORT FIELDS=COPY
/*
| Is This Answer Correct ? | 0 Yes | 6 No |
hi,i have joined in mainframe course recently. ihave a doubt ragarding restart parameter.what is d use of it. and what is d syntax for it. any one give me d answer pls.
i want to see the jobs in skeleton queue in diff region. (eg. 7 regions are running means , i want to see all the jobs in 7 regions which are in skel queue using 1 command)
What is a GDG? How is it referenced? How is it defined? What is a MODELDSCB?
How do you overcome this limitation ?
i have a base gdg consisting of 12 versions like jan to dec. i need to concatante this gdg to another gdg which have version 1 or to the base gdg itself can anyone give me the code pls ?
i created one base gdg with lrecl = 100 , now i need to create versions with different lrecl =150,200 can it be possible to create like tht ?
what is the difference between perform varying and perform
what is the COND=EVEN ? Can anyone give me an example to explain the usage.
Can we delete the data using IEFBR14 , IEBGENER??
what is the Difference between SYSIN and PARM ?
What is NOTCAT ?
Can we browse or edit the GDG dataset if it is a tape entry?
COBOL 
