|
View previous topic :: View next topic
|
| Author |
Message |
sprikitik
New User
Joined: 29 Jan 2007
Posts: 61
Location: Makati City, Philippines
|
|
|
|
Hi,
Anybody has na idea on how to search for hard coded db2 timestamp in cobol source? Aside from manually going through all the prgrams.
I have 100 cobol programs and I wanted to check if there are hard coded timestamps in the programs.
Thanks! |
|
| Back to top |
|
 |
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
| I'm not sure I understand you, but have you a product with which you can search a PDS/some other source library? If so, is that any use to you? |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10888
Location: italy
|
|
|
|
it looks to me more an issue of pattern searching
since the timestamp <value> is unpredictable...
noo way with common searching tools , need to be creative  |
|
| Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
It the "timestamp" has been coded to cover the last decade-or-so it would start '20 or "20.
It can sometimes be "tricky" to get the correct number of quotes/apostrophes for such a case, and you may well get false hits (fewer if all the hard-coding is for 2010 onwards) but it will be "obvious" on the output what is a timestamp and what isn't.
If you are doing Greater than or Less than with the timestamp, you may well have a low-order part of the literal you could use to search for with even better results. Or both of them on the same line.
I can be wildly wrong, as I don't really know what you are talking about :-) |
|
| Back to top |
|
|
xknight
Active User
Joined: 22 Jan 2008
Posts: 117
Location: Liberty city
|
|
|
|
Hello,
| Quote: |
| I have 100 cobol programs and I wanted to check if there are hard coded timestamps in the programs. |
As suggested by enrico and bill, alteast parital values should be known to you to perform the search.
In your source PDS,
try giving the command
to find the programs used the current year & current month.
Likewise, Modify on your need(might require to know the year,month) & do the search . |
|
| Back to top |
|
|
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008
Posts: 2501
Location: Atlanta, Georgia, USA
|
|
|
|
In a COBOL Load Module, there is a date/time stamp which conforms to what is returned by the WHEN-COMPILED function.
You can visually find this within the first X'100' bytes of a given Load Module, by browsing the targeted loadlib using ISPF 3.4. |
|
| Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
| don't forget the copybooks |
|
| Back to top |
|
|
GuyC
Senior Member
Joined: 11 Aug 2009
Posts: 1281
Location: Belgium
|
|
|
|
within edit you can use following command to locate timestamps
| Code: |
| find p'####$##$##$##$##$##' |
You could write a rexx that opens each member in edit, does above find and reports the returncode. |
|
| Back to top |
|
|
don.leahy
Active Member
Joined: 06 Jul 2010
Posts: 765
Location: Whitby, ON, Canada
|
|
|
|
| GuyC wrote: |
within edit you can use following command to locate timestamps
| Code: |
| find p'####$##$##$##$##$##' |
You could write a rexx that opens each member in edit, does above find and reports the returncode. |
Good one! One of my pet ISPF peeves is that the SRCHFOR command doesn't support picture strings. If it did, then you wouldn't have to write a rexx. |
|
| Back to top |
|
|
Marso
REXX Moderator
Joined: 13 Mar 2006
Posts: 1353
Location: Israel
|
|
|
|
Mabuhay, sprikitik !
I tried using ISRSUPC with the following statements:
| Code: |
SRCHFOR '-'
SRCHFORC '-',+3
SRCHFORC '-',+3
SRCHFORC '.',+3
SRCHFORC '.',+3 |
It found the timestamps I scattered in my test pds.
Note: I didn't do extensive tests, there may be some false alerts too. |
|
| Back to top |
|
|
sprikitik
New User
Joined: 29 Jan 2007
Posts: 61
Location: Makati City, Philippines
|
|
|
|
| Marso wrote: |
Mabuhay, sprikitik !
I tried using ISRSUPC with the following statements:
| Code: |
SRCHFOR '-'
SRCHFORC '-',+3
SRCHFORC '-',+3
SRCHFORC '.',+3
SRCHFORC '.',+3 |
It found the timestamps I scattered in my test pds.
Note: I didn't do extensive tests, there may be some false alerts too. |
Hey, SalamaT!
It worked! |
|
| Back to top |
|
|
sprikitik
New User
Joined: 29 Jan 2007
Posts: 61
Location: Makati City, Philippines
|
|
|
|
| Thanks for all the replies! I appreciate it very much! |
|
| Back to top |
|
|
|
|
