John,
Since you are using the SET X function, you probably have a COBX type file. Assuming all the files you want to change have the same tag "prevtag", you can use the following:
CT "prevtag" "NewTag" all
Other syntax can be used that would better apply to your context.
Thanks...François
-----Original Message-----
From: HP-3000 Systems Discussion <[log in to unmask]> On Behalf Of Johnson, Tracy
Sent: Thursday, December 3, 2020 2:11 PM
To: [log in to unmask]
Subject: Re: [HP3000-L] [EXT]: [HP3000-L] [EXT]: Changing COBOL Comment Tags in QEDIT
Caution: This email originates from outside of Fresche | Attention: Ce message provient de l'extérieur de Fresche
CHANGE column [/column] [(window)] "string" [rangelist]
(Q=no display, J=verify)
(Default: rangelist = *)
I don't know the window part, I presume it can be safely omitted.
-----Original Message-----
From: HP-3000 Systems Discussion <[log in to unmask]> On Behalf Of John Hohn
Sent: Thursday, December 3, 2020 2:02 PM
To: [log in to unmask]
Subject: [EXT]: [HP3000-L] [EXT]: Changing COBOL Comment Tags in QEDIT
The following message was sent from an external e-mail address. Be cautious when clicking on links, opening attachments or providing sensitive information.
________________________________
External Email
External Email
Can anyone tell me how to change the comment tags in a cobol (columns 73-80) in QEDIT? That is, I made a bunch of changes with a <SET X="mytag"> but, without re-touching all the changed lines, I need to change the tag on all my changes.
Used to do this all the time, but it's been quite awhile...
-John Hohn
Comp Three Inc.
[https://ci3.googleusercontent.com/proxy/MMRbBM0f50CbNJBbt4OPyJzVGLBhu_RXRxgWvop5jsJ47k7Wd1BDUwhj5snNKDfeBlKVQEQos0vtVMmlED3EfVKbt_CeVIgYvSweY5I0RFYtt1oRAMnXHa4KFCDfWRkc=s0-d-e1-ft#https://docs.google.com/uc?id=0B2jyqmyLtmGtMEIxNGxuUmRtWnc&export=download]
1585 The Alameda
San Jose, CA 95126
(408) 560-0141
www.compthree.com<http://www.compthree.com>
This message is not from a UTC.EDU address. Caution should be used in clicking links and downloading attachments from unknown senders or unexpected email.
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
Confidentiality Warning/Avertissement de confidentialité:
This message is intended only for the named recipients. This message may contain information that is privileged or confidential. If you are not the named recipient, its employee or its agent, please notify us immediately and permanently destroy this message and any copies you may have. Ce message est destiné uniquement aux destinataires dûment nommés. Il peut contenir de l'information privilégiée ou confidentielle. Si vous n'êtes pas le destinataire dûment nommé, son employé ou son mandataire, veuillez nous aviser sans tarder et supprimer ce message ainsi que toute copie qui peut en avoir été faite.
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|