Ooh, that is slick.

-----Original Message-----
From: IBM Mainframe Assembler List <ASSEMBLER-LIST@LISTSERV.UGA.EDU> On Behalf 
Of Ed Jaffe
Sent: Thursday, May 26, 2022 4:36 PM
To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Subject: Re: Generating a TR field

On 5/26/2022 2:23 PM, Schmitt, Michael wrote:
> I want to replace all '*' with a space in a field. That's a TR instruction, 
> right? But when I search through our 40 years of assembler code, I see no 
> uses of TR for such a purpose.
>
> I thinking this is because of difficulty in building the TR table. We'd need 
> to have 256 bytes where every byte's value in in ascending sequence: 00 01 02 
> 03 04 05 06 07 08 09 0A etc, right? Except for the byte at offset x'5C', 
> which would have the value x'40'.
>
> Is there a slick way or a macro to build the TR table? Or do people just code 
> a TRT loop instead, since it is easier to build a TRT table?
What you want should be trivial:

|TABLE DC  256AL1(*-TABLE)
|      ORG TABLE+C'*'
|      DC  CL1' '
|      ORG ,

--
Phoenix Software International
Edward E. Jaffe
Chief Technology Officer
831 Parkview Drive North
El Segundo, CA 90245
https://clicktime.symantec.com/34nkAJv9vEbU9Adab4NCjkQ7VN?u=https%3A%2F%2Fwww.phoenixsoftware.com%2F


--------------------------------------------------------------------------------
This e-mail message, including any attachments, appended messages and the
information contained therein, is for the sole use of the intended
recipient(s). If you are not an intended recipient or have otherwise
received this email message in error, any use, dissemination, distribution,
review, storage or copying of this e-mail message and the information
contained therein is strictly prohibited. If you are not an intended
recipient, please contact the sender by reply e-mail and destroy all copies
of this email message and do not otherwise utilize or retain this email
message or any or all of the information contained therein. Although this
email message and any attachments or appended messages are believed to be
free of any virus or other defect that might affect any computer system into
which it is received and opened, it is the responsibility of the recipient
to ensure that it is virus free and no responsibility is accepted by the
sender for any loss or damage arising in any way from its opening or use.



Reply via email to