IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Scan and write records


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
brahmanandarm

New User


Joined: 15 Jun 2009
Posts: 28
Location: bangalore

PostPosted: Fri Feb 26, 2010 7:18 pm
Reply with quote

Hi All,
I have a requirement.
I have a an FB file of lenght 80 with followign records


EREWJ505 --------- STRING(S) FOUND ----------------
QEWQJ506 --------- STRING(S) FOUND ----------------
GEREJ098 --------- STRING(S) FOUND ----------------
114 DISCARD FROM TABLE QBCE.DKALALAL
QWEWJ099 --------- STRING(S) FOUND ----------------
118 DISCARD FROM TABLE AERE.TDFASDSA
228 DISCARD FROM TABLE AERE.TREEQWER
QEEQJ03M --------- STRING(S) FOUND ----------------
113 ASSE.DAEREA6 A
EQELJAA0 --------- STRING(S) FOUND ----------------
EEREJAA9 --------- STRING(S) FOUND ----------------
QWELJADA --------- STRING(S) FOUND ----------------
136 -TERM UTIL(FDAEE1.AERWQWEA)



I would need the output as

GEREJ098 --------- STRING(S) FOUND ----------------
114 DISCARD FROM TABLE QBCE.DKALALAL
QWEWJ099 --------- STRING(S) FOUND ----------------
118 DISCARD FROM TABLE AERE.TDFASDSA
228 DISCARD FROM TABLE AERE.TREEQWER
QEEQJ03M --------- STRING(S) FOUND ----------------
113 ASSE.DAEREA6 A
QWELJADA --------- STRING(S) FOUND ----------------
136 -TERM UTIL(FDAEE1.AERWQWEA)


i.e. i need to discard records where there
ABCDJ121 --------- STRING(S) FOUND ----------------
EFGHJ502 --------- STRING(S) FOUND ----------------
REWWJ503 --------- STRING(S) FOUND ----------------
REWWJ504 --------- STRING(S) FOUND ----------------
EREWJ505 --------- STRING(S) FOUND ----------------
QEWQJ506 --------- STRING(S) FOUND ----------------
EQELJAA0 --------- STRING(S) FOUND ----------------
EEREJAA9 --------- STRING(S) FOUND ----------------
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Fri Feb 26, 2010 9:29 pm
Reply with quote

Hello,

In addition to data examples, you need to post "the rules" for processing. . .

You also need to re-check the sample data. . . How can "ABCDJ121 --------- STRING(S) FOUND ---------------- " be "discarded" when it is not in the input file?
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA

PostPosted: Fri Feb 26, 2010 10:05 pm
Reply with quote

brahmanandarm,

It's not clear what you want to do. Please explain the "rules" for getting from input to output. Do you actually have two input files? Or just one?
Do you want to match records between the two files? Or do you want to remove records in the one file that have 'STRING(S) FOUND" not followed by another record, or what? We can't help you until you explain clearly what you're trying to do.

Also, what is the RECFM and LRECL of the input file(s). What is the starting position, length and format of each relevant field?
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts Write line by line from two files DFSORT/ICETOOL 7
No new posts Compare only first records of the fil... SYNCSORT 7
No new posts Pulling a fixed number of records fro... DB2 2
No new posts Join multiple records using splice DFSORT/ICETOOL 5
No new posts EZT program to build a flat file with... All Other Mainframe Topics 9
Search our Forums:

Back to Top