.ENABLE SUBSTITUTION
.ASK COMP COMPILE RCVTST PROGRAM
.ASK BUILD BUILD RCVTST
.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 RCVTST,RCVTST/-SP=RCVTST
.10:
.50:
.IFF BUILD .GOTO 99
.OPEN RCVTST.TKB
.ENABLE DATA
RCVTST/FP,RCVTST/-SP=RCVTST,'CDLIB'CDPACK/LB
'RSXLIB'RSXLIB/LB
LB:[1,1]F4POTS/LB
/
ASG=CD:2
ASG=TI:5
TASK=...RCV
//
.DISABLE DATA
.CLOSE RCVTST.TKB
TKB @RCVTST.TKB
PIP RCVTST.TKB;*/DE
.99:
.EXIT
