View previous topic :: View next topic |
Author |
Message |
ldushkin Beginner
Joined: 05 Apr 2006 Posts: 56 Topics: 20
|
Posted: Fri Sep 01, 2006 9:44 am Post subject: delete records using Filadaid or any other Utilities in JCL |
|
|
Hi,
Can we delete records using Filadaid or any other Utilities in JCL
ex
input file
Code: |
---------+---------+---------+---------+---------+
COUNT RQST_STUS_CD RQST_STUS_DESC
---------+---------+---------+---------+---------+
6520 3 SUCCESSFUL
2844 4 REJECTED
|
output file
Code: |
6520 3 SUCCESSFUL
2844 4 REJECTED
|
thank you for your help |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
coolman Intermediate
Joined: 03 Jan 2003 Posts: 283 Topics: 27 Location: US
|
Posted: Fri Sep 01, 2006 9:53 am Post subject: |
|
|
Try this untested job
Code: |
//STEP010 EXEC PGM=FILEAID
//DD01 DD *
---------+---------+---------+---------+---------+
COUNT RQST_STUS_CD RQST_STUS_DESC
---------+---------+---------+---------+---------+
6520 3 SUCCESSFUL
2844 4 REJECTED
//DD01O DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
$$DD01 DROP IF=(1,EQ,C'-------'),
ORIF=(1,EQ,C'COUNT')
/*
//
|
________
genetically modified food
Last edited by coolman on Sat Feb 05, 2011 1:52 am; edited 1 time in total |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
kolusu Site Admin
![Site Admin Site Admin](images/ranks/adminpic.jpg)
Joined: 26 Nov 2002 Posts: 12367 Topics: 75 Location: San Jose
|
Posted: Fri Sep 01, 2006 9:54 am Post subject: |
|
|
ldushkin,
If your header appers only once then you can use the option skiprec from sort and skip the titles as shown below. However I am guessing that it is the output of spufi then you have the headers for every page. So in that case I suggest that you use DSNTIAUL (unload utility) which will not write out the headers.
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
---------+---------+---------+---------+---------+
COUNT RQST_STUS_CD RQST_STUS_DESC
---------+---------+---------+---------+---------+
6520 3 SUCCESSFUL
2844 4 REJECTED
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OPTION SKIPREC=3
/*
|
Hope this helps...
Cheers
Kolusu _________________ Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
www.linkedin.com/in/kolusu |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
ldushkin Beginner
Joined: 05 Apr 2006 Posts: 56 Topics: 20
|
Posted: Fri Sep 01, 2006 10:25 am Post subject: |
|
|
Thank you all,
Yes this is output of spufi.
Thank you again |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
|
|