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.
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 statement can be used to send data to another mvs jes3 node?
How can i execute 5th step without executing first 4 steps?
File1 has 100 records and file2 has 200 records i want to copy 50 records which r in both file into file3
i have a jcl in which 4 & 5 step creates a new generation. 4th step output is as input for the 6th step & 5th step output is used as input in the 7th step. How they are refered as in the 6th & 7th steps? If the job abends in 6th step then how the 5th step output is refered in 7th step?
Is CPU time assigned to a JOB and JOBSTEP BOTH, by default ?
What is Automatic Restart ? EXEC PGM = PROG1, RD = R (Is it the Restart of a JOBSTEP or Restarting the execution of the program?) Do we Restart it or it automatically Restarts executing again and again ? Then when it will finish executing ? or After Abending, when we submit it again, then it is Restarted from the Last successful Checkpoint ? If some JOBSTEP is abending, what is the benifit to Restart it, WILL IT NOT ABEND AGAIN if you don't change the LOGIC ?
What statement marks the beginning of a job step; assigns a name to the step; identifies the program or catalogued or in-stream procedure to be executed in the step?
suppose i have 10 job steps and i want to execute only step 6.How to write?
Can we use DISP=SHR in output file in JCL
Name the parameters which can be used to limit the number of records written to a sysout dataset?
what is use of dcb parameter in dd statement?
I want to join to input files and write the matching fields on to an output file but i dont want the output file a sorted one