MVSFORUMS.com

dsonsamuel · Beginner Joined: 25 Mar 2004 Posts: 26 Topics: 16

Hi all,
I have 2 versions of a progm in 2 different datasets.Is there any way to find the new line number if i give an old line number as the input.For example, If I enter 1098,then I must get the new line number which corresponds to 1098 in the old pgm.I think I can use REXX for this.Can u suggest a logic for the same....If I can use anyother utility pls suggest.

Thanks,
Davidson.

kolusu · Posted: Thu Apr 22, 2004 5:39 am Post subject:

dsonsamuel,

Did your try 3.13 aka SuperC utility?

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

dsonsamuel · Beginner Joined: 25 Mar 2004 Posts: 26 Topics: 16

It gives only the lines that are inserted or deleted.But I want to find the new displacement of a line (that was not changed in the old file).

dsonsamuel · Beginner Joined: 25 Mar 2004 Posts: 26 Topics: 16

Ex:

Old pgm
----------
1 AAAA
2 BBBB
3 CCCC
4 DDDD
5 EEEEE
New pgm
------------
1 AAAA
2 CCCC (LINE 2 DELETED)
3 GGGG (NEW LINE INSERTED)
4 DDDD
5 EEEEE

If i give 3 as input,the output should be 2.(Because line 3 has now bcom line 2)
If I give 4 as input, the output should be 4.

Likewise I have to find certain line numbers and their displacements in a pgm which has 90000 lines.(Note: the line number need not be an affected line.Ex: content of line 3 is not changed but its location is changed)

Hope its clear now!!!!

ofer71 · Posted: Fri Apr 23, 2004 6:47 am Post subject:

You can use REXX & SUPERC together for this purpose.

Step 1: Supply REXX with the line number from the old file, and let it read only this line useing EXECIO. Keep the result line in variable.
Step 2: Generate SYSIN cards for SUPERC SEARCH on the new file, where the search argument is the saved variable from previous step.

If you need a working example, just let me know and I write one for you.

O.
________
M275 engine

coolman · Posted: Fri Apr 23, 2004 11:18 am Post subject:

What should be the o/p if 2 is the i/p
________
Rolls-Royce Motor Cars

ofer71 · Posted: Fri Apr 23, 2004 11:10 pm Post subject:

Probably "0" or "Not Found"
________
vaporizers

dsonsamuel · Beginner Joined: 25 Mar 2004 Posts: 26 Topics: 16

Hi,
Sorry yaar for the late response. Thanks for the info. Can u pls send me the a working example. Thanks in advance.

(A problem with the above solution that I foresee is what will happen if the line that we specify as input has got multiple occurance in the program!!!)
Pls suggest....
Dson.

ofer71 · Posted: Wed Apr 28, 2004 12:33 am Post subject:

Here is my solution.

First, create the following REXX, and name it LOOK4:

dsonsamuel · Beginner Joined: 25 Mar 2004 Posts: 26 Topics: 16

Thanks a lot for the code.