I need to see what other variables I need to change within a program
for vraibles I have changed within copylibs for a set of cobol programs.
I can handle finding all the given copylibs within a program. If none
of the copylibs I have made changes for, then I can get the next program. But
if I find copylib(s) with changes I have made, now I need to know, what other
variables within a given program may need to be changed(ie, I have in most
instances increased the size of the variable(s) from 1 to 12 characters
depending on what I need).
The programs are not huge( at this point the largest is 3400 lines and
is about 273k in size). So I was initially putting my changes together like
this:
hash key; {copylib}{variablename}.
Example:
{FN000R2}{FB-NOPOD-KEY}
{FN000R2}{FB-NOPOD-NUMBER}
{FN000R2}{FB-NOPOD-FBNO}
Per program, I could have one or more sets of copylibs to check against.
What is an approach to take? In Cobol, I would searh the data after
the start of Procedure Division. So do I split on white space? Would I keep a
length on all variables I am searching for and if not one of the lengths, I
know I don't need to check. Do I suck it all into an array and search against
the array?
Any insights on approach would be greatly appreciated.
I have done hash, but at this point, I have not done anything else. I
am unsure how to proceed or approach this problem. I don't want to go through
all these programs by hand, but want to see how I can handle from a perl
perspective.
Any questions and/or problems, please let me know.
Thanks!
Wags ;)
*******************************************************
This message contains information that is confidential
and proprietary to FedEx Freight or its affiliates.
It is intended only for the recipient named and for
the express purpose(s) described therein.
Any other use is prohibited.
*******************************************************
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
