I was able to use the String command successfully with the replacement.
Thanks for the direction, Michael!
Thank you and best regards,
Billy Ashton
------ Original Message ------
From "Schmitt, Michael" <[email protected]>
To [email protected]
Date 5/22/2023 3:49:29 PM
Subject Re: Using COBOL COPY/REPLACING in display literals?
Copy FRED Replacing ==:CC:== By ==COMND==
':CC:' By 'COMND'
Move Spaces To w-in-:CC:-grp
Move '*****' To w-in-:CC:(1)
Move w-set-max To w-in-:CC:-ct
String 'Global Default Set for '
':CC'
into w-sysin-msg
-----Original Message-----
From: IBM Mainframe Discussion List <[email protected]> On Behalf Of
Farley, Peter
Sent: Monday, May 22, 2023 2:43 PM
To: [email protected]
Subject: Re: Using COBOL COPY/REPLACING in display literals?
Billy,
I do not believe it is possible to use COPY REPLACING to replace text inside a
literal. I haven't the time ATM to research the relevant manual citation, but
I believe the answer is that REPLACING is a COBOL WORD-based search-and-replace
rather than a simple string search-and-replace, and a literal is a single
COBOL-word token.
With sufficient quoting you may be able to replace an entire (probably only
relatively short in practical terms) literal string, but I am not even sure
that can be done.
I'll look up the manual reference (if there is one, and there may not be) later
if I can find the time. Or maybe Tom Ross can pick up on your question and
provide a more complete answer than mine.
Another solution could be a string-based pre-processing step before a compile
that does those literal replacements for you instead of asking the compiler to
do it, but that has its own complexities (like wrapping literals with
replacements that expand the literal beyond column 72).
Peter
-----Original Message-----
From: IBM Mainframe Discussion List <[email protected]> On Behalf Of
Billy Ashton
Sent: Monday, May 22, 2023 3:21 PM
To: [email protected]
Subject: Using COBOL COPY/REPLACING in display literals?
Hi guys and gals, I have an odd one that someone asked and I could not come up
with an answer.
In a COBOL program, using a COPY REPLACING directive, I can see the replacement
of COBOL procedure statements fine, but when the tag is inside of a literal
used for a DISPLAY, it is not replaced.
Is this something that can't be done, or is there some special syntax for it?
For example, my copy member (FRED) has this (plus a lot more):
If sysin-dflt
Move Spaces To w-in-:CC:-grp
Move '*****' To w-in-:CC:(1)
Move w-set-max To w-in-:CC:-ct
Move 'Global Default set for :CC:' To w-sysin-msg Else ...
So if I say
Copy FRED Replacing ==:CC:== By ==COMND==
I get this:
If sysin-dflt
Move Spaces To w-in-COMND-grp
Move '*****' To w-in-COMND(1)
Move w-set-max To w-in-COMND-ct
Move 'Global Default set for :CC:' To w-sysin-msg Else ...
I have looked through the manuals and done my Google diligence, but saw nothing
about replacements (or lack of) in Procedure Division literals.
Does anyone have a good answer here? Can my programmer do this or not, and if
so, how?
Thank you and best regards,
Billy Ashton
--
This message and any attachments are intended only for the use of the addressee
and may contain information that is privileged and confidential. If the reader
of the message is not the intended recipient or an authorized representative of
the intended recipient, you are hereby notified that any dissemination of this
communication is strictly prohibited. If you have received this communication
in error, please notify us immediately by e-mail and delete the message and any
attachments from your system.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
