TPCDIR/CP/FP=TPCDIR,GETPUT / TASK=...TPD ASG=TI:5 SUPLIB=FCSFSL:SV ;ABOVE FOR RSX11M+ ONLY...REPLACE WITH SYSRES, OR FCSRES FOR ;IAS OR RSX11M IF PRESENT. MAXBUF=550 //