I hava a little macro that allowing STRING insertion into a WTO message.
It is part of an old IEFACTRT exit.
(CODEX, CONSTX, DATAX are just LOCTR that switch between the 'code csect', a loctr of constants
and adata dsect)
NOTIFY '%1...... %2...... ENDED CC=%3...', ---
SMF30JBN,SMF30STM,CONDITION_CODE+1
Have fun, sorry for the variale font.
/P
MACRO
&LABEL NOTIFY &MESSAGE
LCLC &M,&REF,&INDEX
LCLA &I,&J,&L,&K
&M SETC '&MESSAGE'(2,K'&MESSAGE-2)
&INDEX SETC '&SYSNDX'
&REF SETC 'MESC&SYSNDX'
&LABEL DS 0H
PUSH PRINT
PRINT NOGEN
CONSTX ,
&REF WTO 'IEFACTRT &M',MF=L
AIF (N'&SYSLIST GT 1).PARMS
CODEX ,
&LABEL WTO MF=(E,&REF)
POP PRINT
MEXIT
.PARMS ANOP
$L&INDEX EQUN *-&REF
DATAX ,
DS 0F
$D&SYSNDX WTO 'IEFACTRT &M',MF=L
CODEX ,
LA R1,&REF
MVC $D&SYSNDX.($L&SYSNDX),0(R1)
&J SETA 1
.PLOOP ANOP
&L SETA K'&M-1
&I SETA 1
.FLOOP AIF ('&M'(&I,2) EQ '%&J').FOUND
&I SETA &I+1
AIF (&I LT &L).FLOOP
.NEXT ANOP
&J SETA &J+1
AIF (&J LT N'&SYSLIST).PLOOP
WTO MF=(E,$D&SYSNDX)
POP PRINT
MEXIT
.FOUND ANOP
&K SETA &I+2
.KLOOP AIF (&K GT &L+1).MOVE
AIF ('&M'(&K,1) NE '.').MOVE
&K SETA &K+1
AGO .KLOOP
.MOVE ANOP
&K SETA &I-&K
MVC $D&SYSNDX+12+&I.(&K),&SYSLIST(&J+1)
AGO .NEXT
MEND
