Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Delete a set of records based on the flag

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
akumaras

New User


Joined: 06 Jul 2012
Posts: 10
Location: india

PostPosted: Fri Jun 21, 2013 2:40 am    Post subject: Delete a set of records based on the flag
Reply with quote

Hi,

I have a file with the records as below starting from column 1
Code:
BEGINXYZ123456789                     x
123455667899999089
2345556576JAFDSJAA
END                                          E
BEGINABC345RTYYYS                     x
4564779QWER080090
7867ASDJDF98U9U99
END

Here 1 record means it will be from BEGIN to END. I am setting up a flag x for the lines that starts with BEG from column 1 to column 3.
Now when ever there is flag X and E in End then i need to remove the complete record and write from next record that is next begin.

Could you please tell me how to solve this?

Code'd
Back to top
View user's profile Send private message

Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7314

PostPosted: Fri Jun 21, 2013 3:01 am    Post subject: Reply to: Delete a set of records based on the flag
Reply with quote

Please use the Code tags to preserve spacing of data.

Please run this, and paste the full sysout, in the Code tags.

Code:
//LEVEL EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN DD *
CAN BE ANYTHING
/*
//SORTOUT DD DUMMY
//SYSIN   DD   *
  OPTION COPY
/*


LRECL and RECFM of you file. Position of you x and E values.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Extract the records with a PD field's... sudhakar84 DFSORT/ICETOOL 11 Mon Apr 02, 2018 7:26 pm
No new posts Merge 2 records sancraig16 SYNCSORT 19 Tue Mar 27, 2018 8:17 pm
No new posts Query to compare 2 values of 1 column... Poha Eater DB2 13 Fri Mar 09, 2018 10:45 am
No new posts Copy set of records based on condition krish.deepu SYNCSORT 2 Thu Mar 08, 2018 11:39 am
No new posts add sequence number for duplicate rec... SRUTHI DRAVIDAMANI COBOL Programming 11 Thu Feb 22, 2018 5:37 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us