.ENABLE SUBSTITUTION
.ASK COMP COMPILE XMTTST PROGRAM
.ASK BUILD BUILD XMTTST
.IFF BUILD .GOTO 2
.ASKS RSXLIB DISC AND UIC FOR RSXLIB [DEFAULT SY:[1,1]]
.IF RSXLIB EQ "" .SETS RSXLIB "SY:[1,1]"
.ASKS CDLIB DISC AND UIC FOR CDPACK LIBRARY [DEFAULT SY:[1,1]]
.IF CDLIB EQ "" .SETS CDLIB "SY:[1,1]"
.2:
.IFF COMP .GOTO 10
F4P XMTTST,XMTTST/-SP=XMTTST
.10:
.50:
.IFF BUILD .GOTO 99
.OPEN XMTTST.TKB
.ENABLE DATA
XMTTST/FP,XMTTST/-SP=XMTTST,'CDLIB'CDPACK/LB          
'RSXLIB'RSXLIB/LB
LB:[1,1]F4POTS/LB
/
ASG=CD:2
ASG=TI:5
TASK=...RCV
//
.DISABLE DATA
.CLOSE XMTTST.TKB
TKB @XMTTST.TKB
PIP XMTTST.TKB;*/DE
.99:
.EXIT
