delete records using Filadaid or any other Utilities in JCL
Select messages from
 # through # FAQ
[/[Print]\]

MVSFORUMS.com -> Utilities
#1: delete records using Filadaid or any other Utilities in JCL Author: ldushkin,  PostPosted: Fri Sep 01, 2006 9:44 am
    —
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
#2:  Author: coolman, Location: US PostPosted: Fri Sep 01, 2006 9:53 am
    —
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
#3:  Author: kolusu, Location: San Jose PostPosted: Fri Sep 01, 2006 9:54 am
    —
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
#4:  Author: ldushkin,  PostPosted: Fri Sep 01, 2006 10:25 am
    —
Thank you all,
Yes this is output of spufi.

Thank you again
MVSFORUMS.com -> Utilities


output generated using printer-friendly topic mod. All times are GMT - 5 Hours

Page 1 of 1

Powered by phpBB © 2001, 2005 phpBB Group