> MVCIN is an instruction. Whoosh!
The macro generates an inverted DC; it does not generate code to invert text during execution. MVCIN, like any z instyruction, is irrelevant. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Assembler List [[email protected]] on behalf of [email protected] [[email protected]] Sent: Friday, October 23, 2020 10:18 AM To: [email protected] Subject: Re: Reversed string macro 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
