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