MVCIN is not a BIF in HLASM. 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? -- 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 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
