Scan a file for a string & update a counter on finding.

Ruchi Mittal · New User Joined: 15 Oct 2007 Posts: 1 Location: Bangalore

I've a file where I need to scan an area (from col x to col y, which is the entire record) looking for "M=?" for each record and then perform certain para based on ? value.

eg.

dick scherrer · Posted: Tue Oct 16, 2007 11:30 pm

Hello,

You can do what you want using reference modification.

Define a variable that will be the displacement into the data area (i.e. 77 DSPL PIC 999 COMP-3 VALUE ZEROS.).

Set up a loop that moves the starting position (x) to dspl,
compares the current position to 'M=" (i.e. IF DATAAREA(DSPL:2) = 'M='),
and increments DSPL until end-of-data is reached (y - 2) or 'M=' is found.

If 'M=' is found, use the byte after the "=". If 'M=' is not found, do whatever is appropriate.