i dont know if anybody take interest but this resolved my problem:
procedure Split_Global begin
variable texa;
variable texb;
variable texc;
variable tex01:=-1;
variable tex02:=-1;
variable tex03:=-1;
variable tex04:=-1;
variable tex05:=-1;
variable...