This works, it's just a bit more complex that I would have liked....
mvc devtple,devtpl copy to dynamic area
DEVTYPE ddname1,(devtarea,l'devtarea),xtiot=YES,mf=(E,devtple)
lr r5,r15, save rc
. . fixed area . .
ddname1 dc cl8'SYSPRINT'
devtpl DEVTYPE MF=L,infolist=devtilst
devtpll equ *-devtpl
devtilst DEVTYPE info=DEVTYPE
. . dynamic area . .
devtple ds xl(devtpll)
devtarea ds cl20
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
