MVSFORUMS.com

sridevi · Beginner Joined: 10 May 2003 Posts: 6 Topics: 3

Hi,

I have a file and I need to search for a particular string in a file. If the search is successful then I want to get the line number where the string
was located. Then I want to delete all the records from that line number.How can I do this .Please guide me.I want to achieve this
without a sequntial read.

Thanks,
Sridevi

Cogito-Ergo-Sum · Posted: Sat May 10, 2003 3:15 am Post subject:

sridevi,
What if the string is found in mulitple records? You want to delete all the records after the last record? Or, something else?
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.

ofer71 · Posted: Sun May 11, 2003 12:42 am Post subject:

The best solution I can think of, is something like this Edit-Macro:

semigeezer · Posted: Sun May 11, 2003 2:57 am Post subject:

OK... I'm feeling picky Smile

:

sridevi · Beginner Joined: 10 May 2003 Posts: 6 Topics: 3

Hi ,

Thanks for your information . Edit macro is not working for a file having large amount of data.While using a macro for huge file , I am getting the message "browse subsituted " for a file.Please is there is anyother way to achieve this.

One more question is it possible to delete a record using EXECIO command? Please guide me.

Thanks,
Sridevi

sridevi · Beginner Joined: 10 May 2003 Posts: 6 Topics: 3

Hi,

Is there any way to set "end of file "condition for a file using
EXECIO.

Assume that there are 1 to 10 records in a sequential file.
and I want to set EOF at 6 th record.Is it possible to do this using EXECIO.

Thanks,
Sridevi

Mike · Posted: Mon May 12, 2003 10:46 pm Post subject:

You can use EXECIO to read a speciific number of records e.g.

"EXECIO n DISKR ddname (STEM input."

where n is the number of lines to be read, ddname is the ddname that the file is allocated to and input. the stem into which the data is placed. You can then traverse input.1-input.n. e.g.

Do i = 1 to n
Say input.i
End

Subsequent EXECIO's continue from the next record not already read. Not exactly setting EOF, but then again there is only one real EOF. It still achieves what I think you are trying to achieve.
_________________
Regards,
Mike.

ofer71 · Posted: Mon May 12, 2003 11:18 pm Post subject:

With EXECIO, after the ddname, you can specify the starting record to read from.
________
Suzuki FXR150 specifications

sridevi · Beginner Joined: 10 May 2003 Posts: 6 Topics: 3

Hi all,

Thanks for ur information . Since my input file so huge , its difficult to load into stem.So as you said I thought of using EXECIO with skip command..so that it will skip some of the records.. Then start processing from the next record till end of file.

"EXECIO 1 DISKRU INDD1 1300 " (LIFO"
PULL LINE
PUSH '**********'
"EXECIO 1 DISKW INDD1"

Here I am skipping first 1299 record read .Start reading from 1300 record onwards. But here instead of deleting the records from 1300 , I am just making ********** to the records . Then again in sort I am omiting this ********(unwanted records) ...Is it possible to delete a record thru EXECIO.

Thanks,
Sridevi

coolman · Posted: Tue May 20, 2003 3:45 am Post subject:

Sridevi,

Here is a SORT solution.It will be definitely faster than the other solutions. If you have SYNCSORT, then change the program name to SYNCTOOL.

Cogito-Ergo-Sum · Posted: Tue May 20, 2003 11:00 am Post subject:

Oops, Coolman !

You missed out couple of things.

The first statement is a COPY statement for IN. Since, you do not have a TO coded in the COPY statement, DFSORT will expect a DD name as CPY1OUT. This is missing. So, the job would abend with MAXCC 16.

Secondly, CTL2CNTL is pointing to a dataset with DISP=(,PASS) i.e. DISP=( NEW,PASS). It must point to it with DISP=(SHR,PASS) with the VOL, REF as well (as it is a temp dataset).
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.

kolusu · Posted: Tue May 20, 2003 5:10 pm Post subject:

cogito,

coolman did not miss any thing. Take a closer look at the the following statement
OUTFIL FNAMES=CTL2CNTL,INCLUDE=(1,80,SS,EQ,C'@FDF 718'),

By coding like that coolman is creating a dynamic control card on the fly which he is using for the second copy statement.

Since the control card is being created dynamically, the disp=(,pass) is translated as disp=(new,pass,delete). Since there are no steps following this step which would receive the control card , the dataset will be deleted at the end of copy step.

Coolman did have a flaw. He did not allocate OUT2 dataset.I guess he meant OUT1.His toolin copy stmt refers to OUT2 , but in the JCL he had OUT1 allocated.

Cogito try running coolman's solution and see if it abends as you stated.

kolusu

Cogito-Ergo-Sum · Posted: Tue May 20, 2003 10:44 pm Post subject:

Sorry Coolman. My mistake. Sad

_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.