Interested to Buy Any Domain ? << Click Here >> for more details...
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
- 27357 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 |
what r the types of job control statements?
how to override PROC? please give answer in details. Please mention how to write it in JCL. Thanks in advance.
How are datasets concatenated?
What is a GDG? Why do we go for a GDG ? utility used to create GDG?
Suppose there are 2 Input files Infile-1 and Infile-2. Both the Files contain Employee Records. You need to compare both the files and Write the Common Records in third file named Outfile. How can we do this using File-Aid?
What is the exact difference between PRTY and DPRTY
how to split a file
how to resolve the soc4 error?
Passing a variable parm from JCL to a cobol/db2 program
How can we increment subscript and index?
How do you override a specific DDNAME/SYSIN in PROC from a JCL?
How do you access a file that had a disposition of KEEP?
COBOL 
