$BASICTYPE "P"
* SET CTLGTB PTR
UDTHOME=GETENV("UDTHOME")
CTLGTB=UDTHOME:"\sys\CTLGTB"
D_CTLGTB=UDTHOME:"\sys\D_CTLGTB"
*
PTR="F":@AM:CTLGTB:@AM:D_CTLGTB
OPEN "VOC" TO B ELSE STOP 201,"VOC"
WRITE PTR ON B,"CTLGTB"
