Robin,
I did start the discussion.
See email from 10/20/20, 4:06 PM (EST) with the subject: "Another Macro
question"
The fact that Steve changed the subject, rightly so, when he posted a
macro sample that addressed the original thread, does not mean that the
discussion started then.
As I said, you are missing the original information that started the
discussion.
And, a simple search for any recent posts by me would have quickly
validated my statement that I had started the discussion.
Tony Thigpen
Robin Vowels wrote on 10/24/20 1:32 AM:
----- Original Message ----- From: "Tony Thigpen" <t...@vse2pdf.com>
To: <ASSEMBLER-LIST@LISTSERV.UGA.EDU>
Sent: Saturday, October 24, 2020 1:55 AM
Subject: Re: Reversed string macro
Robin,
The discussion (which I started)
The "discussion" was started by Steve Smith (also confirmed from the
below letter).
is about using a macro to reverse data in the assembly so that it can
later be used by a MVCIN to set an eyecatcher.
Using MVCIN was not mentioned as a purpose.
Your "purpose" seems pointless, anyway.
You have apparently not read all the posts.
Tony Thigpen
robi...@dodo.com.au wrote on 10/23/20 10:18 AM:
On 2020-10-23 23:06, Seymour J Metz wrote:
MVCIN is not a BIF in HLASM.
MVCIN is an instruction.
Don't confuse what is available at run
time with what is available at assembly time.
Is there an RFE for a REVERSE BIF in HLASM? Is there a PL/I compile
time REVERSE function?
________________________________________
From: IBM Mainframe Assembler List [ASSEMBLER-LIST@LISTSERV.UGA.EDU]
on behalf of robi...@dodo.com.au [robi...@dodo.com.au]
Sent: Friday, October 23, 2020 12:57 AM
To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
Subject: Re: Reversed string macro
Have you tried MVCIN ?
Em qui, 22 de out de 2020 18:08, Steve Smith <sasd...@gmail.com>
escreveu:
Submitted for your consideration...
MACRO
&LABEL #REVSTR &STR
&ISTR SETC DEQUOTE('&STR')
&L SETA DCLEN('&ISTR')
.*
&A SETA &L
.LOOP AIF (&A LT 1).DONE
&OSTR SETC '&OSTR'.'&ISTR'(&A,1)
&A SETA &A-1
AGO .LOOP
.*
.DONE ANOP
DC C'&OSTR'
&LABEL EQU *-1,&L
MEND
E.G.:
3161 *
3162 #TAG #REVSTR 'IKJTCB'
3163+ DC C'BCTJKI'
3164+#TAG EQU *-1,6
3165 #DOG #REVSTR 'The quick brown fox jumped over the lazy dog.'
3166+ DC C'.god yzal eht revo depmuj xof nworb kciuq ehT'
3167+#DOG EQU *-1,45
---
This email has been checked for viruses by Avast antivirus software.
https://www.avast.com/antivirus
