########################
$ACTION
Case ACTION
When "REMP_ADRBPA" : Gosub REMP
Endcase
Return
#--------------------------------------------------
# For populate specific fields [M]Xzone
# from field [M]zone(NOL)
#-----------------------------------------
$REMP
If dim([M]XZTEST)>0
[M]XZTEST = [M]ZTEST(NOL)
Endif