troubleshooting Question

Need a Regular Expression.

Avatar of jdg3
jdg3 asked on
Regular ExpressionsPerlAlgorithmsCOBOL
6 Comments3 Solutions941 ViewsLast Modified:
I have thousands of COBOL Copybooks where I need to make modifications to various number of PICS.  I am looking for a regular expression that will replace the following '9' to an 'X'  


From:

~PIC~9(N).

to

~PIC~X(N).


where the '~' is a VARIABLE number of spaces, and where 'N' is a VARIABLE number of digits. The period '.' at the end of the line is required on the line.  The parentheses '( )' are also required as part of the PIC line.

Finally,  I do not want to modify any PIC 9's that are COMP or COMP3.  For instance, the following is not a candidate for modification:

~PIC~9(7)~COMP3.

I am new to regular expressions, and do not know how to handle the parentheses and periods, inasmuch as they are actually part of the expression.  The type of regular expression can be Perl or Unix.

Thanks in advance.
ASKER CERTIFIED SOLUTION
mjcoyne

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Log in to continue reading
Become an EE member today7-DAY FREE TRIAL
Members can start a 7-Day Free trial then enjoy unlimited access to the platform for $9.99/mo
View membership options
Unlock 3 Answers and 6 Comments.
or
Learn why we charge membership fees
We get it - no one likes a content blocker. Take one extra minute and find out why we block content.
See how we're fighting big data
The Value of Experts Exchange in My Daily IT Life

Experts Exchange (EE) has become my company's go-to resource to get answers. I've used EE to make decisions, solve problems and even save customers. OutagesIO has been a challenging project and... Keep reading >>

Mike

Owner of Outages.IO
Phoenix, Arizona, United States
Member Since 2016
Join a full scale community that combines the best parts of other tools into one platform.
Unlock 3 Answers and 6 Comments.
View membership options
“All of life is about relationships, and EE has made a virtual community a real community. It lifts everyone's boat.”
William Peck

Member since 2004