Requiring the entire TSO environment to use its message processing subroutine seems like overkill to me if the program that needs the variable message processing is not already using a TSO environment.
I wonder if LE's CEEMSG can substitute fields in a message? I haven't investigated that service myself, but it may be worth a look. Peter -----Original Message----- From: IBM Mainframe Assembler List <[email protected]> On Behalf Of Seymour J Metz Sent: Tuesday, April 18, 2023 8:40 AM To: [email protected] Subject: Re: Automatic Variable Insertion Have you considerd using TSO service routinesm e.g., IKJEFF02? See <https://urldefense.com/v3/__https://www-40.ibm.com/servers/resourcelink/svc00100.nsf/pages/zOSV2R5sa320973/$file/ikjb700_v2r5.pdf__;!!Ebr-cpPeAnfNniQ8HSAI-g_K5b7VKg!KErM8cAQjkGTJhhY0BiVSOgFv5pE3ctkGC_BEW_ZAh3yfsbXiwXbsigkm-1rUc6ovfOHPOBe6DLyktncimJshg$ > ________________________________________ From: IBM Mainframe Assembler List <[email protected]> on behalf of [email protected] <[email protected]> Sent: Monday, April 17, 2023 6:44 PM To: [email protected] Subject: Automatic Variable Insertion Hello . I have many messages, where one or more variables need to be inserted into a WTO with MF=L For Example: MB$015 WTO 'MB$015 - Locating Subsystem .... ',MF=L MB$016 WTO 'MB$016 - SubSystem .... Not Found ',MF=L . I typically code something like this: MVC MB$015+32(04),SSINAME For Example: MB$015 WTO 'MB$015 - Locating Subsystem .... ',MF=L MB$016 WTO 'MB$016 - SubSystem .... Not Found ',MF=L . I'm looking to develope a macro which automatically inserts. one or more variables into a WTO without having any prior knowledge as to the offset into the WTO text ? . The Specific WTO MF=L would not be part of this macro but moreover a parameter passed to the macro along with the symbolic variables. FOR EXAMPLE: NEWWTO MB$015,P1=CSQ6 . In other words the Specific WTO MF=L (MB$015) is not part of the NEWWTO macro. The NEWWTO Macro should generate the proper instructions to insert several VARIABLES into a WTO. . The Macro expansion should know how to insert the value of &P1 (CSQ6) into the MB$015 WTO MF=L. . Any suggestions/recommendations as to how to accomplish this ... . Some Basic code samples would be appreciated. . Paul D'Angelo -- 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.
