MVSFORUMS.com

krk123 · Beginner Joined: 03 Jun 2003 Posts: 58 Topics: 19

Hi,
I need to search for a number like 123 in all the programs in production. The program will have move statements like,

MOVE '123' TO WS-TEST-VAR.

I am trying to get all the programs that have 123. I tried with just 123 and I am getting all the line numbers, I tried with ''123''..its giving error.
Can somebody tell me a method to do this.

Regards,
KRK123

superk · Advanced Joined: 19 Dec 2002 Posts: 684 Topics: 5

How about using the extended search (3.15) and searching for '123' as a WORD?

krk123 · Beginner Joined: 03 Jun 2003 Posts: 58 Topics: 19

Hi SuperK,
I tried all the 3 possible combinations, i.e

1. 123,
2. '123' and
3. ''123'' - this its saying null string invalid.

with the first and second its picking the line numbers.

01230000
06612300

kolusu · Posted: Tue Mar 09, 2004 10:44 am Post subject:

krk123,

You can specify the start and end positions for the search. Assuming that you are searching cobol program, you can give the search criteria as 7: 72 bytes. By doing so you are excluding the line numbers.

Here is a sample JCl for searching 123 anywhere in the cobol source.

krk123 · Beginner Joined: 03 Jun 2003 Posts: 58 Topics: 19

Kool..I guess this gives the results I am looking for.

Kolusu and SuperK thanks a lot for your time and help.

Regards,
KRK123

superk · Advanced Joined: 19 Dec 2002 Posts: 684 Topics: 5

Kolusu, once again I find myself stumped as to how you were able to reach your conclusion concerning this inquiry.

In 22 years in the business, I have never seen a data construct (QSAM, PDS, PDS/E, VSAM, BDAM) that included line numbers within the data, except for the occasional Quikjob programs, that would require the search to be restricted to the specified columns as you indicated.

Is there a special source code maintenance facility that is generating these lines numbers (i.e. Panvalet or SCLM or Endeavor)?

kolusu · Posted: Wed Mar 10, 2004 9:39 am Post subject:

Superk,

I assumed that you are having a PDS which has cobol programs and for this pds I assumed that the profile is set to NUM ON STD COB. NUM ON STD COB maintains line numbers in cols 73-80 and expects valid sequence numbers in order. And the cobol code usually starts from col 8 thru 72.

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

superk · Advanced Joined: 19 Dec 2002 Posts: 684 Topics: 5

Interesting ....

Thanks for the info.

vini · Posted: Wed Mar 17, 2004 4:25 pm Post subject:

How do we search for a literal ?

I could have the following occurences of 123 in my code
01 WSH-NUM123 PIC 9(9)
MOVE '123' TO ...

However, if I wish to target only lines where it appears as a constant , is there a way ?

I changed the JCL to ..SRCHFOR ''123'' ..but it doesnt work.

Also is there a way to use Wildcards in JCL for DD names ?! If I want to search a PDS where member names are prefixed with ASX* for example.
Any thoughts or solutions ?

kolusu · Posted: Wed Mar 17, 2004 5:40 pm Post subject:

vini,

If you want to search for the constant , you can search it as word. Also you can limit your choice to a specific pds also

choose option 3.15

vini · Posted: Wed Mar 17, 2004 5:54 pm Post subject:

Thanks kolusu !!!

The 'S *' is really coool , how I despised using the Tab Very Happy

I believe though you did not mention , the same can be done through changing the JCL you provided in this post. I have not yet tried the option where it would ask me for the Job card and submit a JCL , I guess I could use the generated JCL thereafter.

kolusu · Posted: Wed Mar 17, 2004 5:57 pm Post subject:

Vini,

of course the same can be done with the JCL provided above only when you don't have the selection of members. If you look at the jcl generated with member selection,it will physically get all the member names matching the name pattern.

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

mf_user · Intermediate Joined: 01 Jun 2003 Posts: 372 Topics: 105

Hi,

If you want to search for '123' (including quotes) you can use the below batch job.