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 [[email protected]]
on behalf of [email protected] [[email protected]]
Sent: Friday, October 23, 2020 12:57 AM
To: [email protected]
Subject: Re: Reversed string macro
Have you tried MVCIN ?
Em qui, 22 de out de 2020 18:08, Steve Smith <[email protected]>
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
