.OPEN FDTPRE.MAC
.DATA RSX11M=0
.CLOSE
MAC FDT=FDTPRE,FDT
MAC VFDT=VFDT,FDTPRE,FDT
F4P TRACE=TRACE/NOTR
MAC GTLIN=GTLIN
MAC GETPUT=GETPUT
.OPEN TRCLNK.CMD
.DATA TRACE/FP/CP=TRACE,GTLIN,GETPUT
.DATA /
.DATA TASK=...FDT
.DATA ASG=TI:3,SY:1:2:4
.DATA SUPLIB=FCSFSL:SV
.DATA MAXBUF=256
.DATA //
.CLOSE
TKB @TRCLNK
PIP TRCLNK.CMD;0/DE
INS LB:TRACE