MAC TRANS=TRANS
.OPEN TRANS.TKB
.DATA TRANS/-CP/PR:0=TRANS
.DATA /
.DATA ASG=TI:1
.DATA ASG=NL:2
.DATA TASK=TRANS
.DATA PRI=65
.DATA MAXBUF=0
.DATA FMTBUF=0
.DATA //
.CLOSE
TKB @TRANS.TKB
PIP TRANS.TKB;*/DE