e.g. orginial code
Code: Select all
par = ELPAR('Department',Dept,1);
Add a loop before this code, dynamically get position for parent of each department, which is stored in par_pos
Code: Select all
par_pos = 0;
par_i = 1;
par_size = DIMSIZ('Department');
WHILE (par_i <= par_size);
par_name = ELPAR('Department',Dept,par_i);
IF( (par_name @<> '') & (ELISANC('Department','Right Root Element',par_name) = 1));
par_size = 0;
par_pos = par_i;
ENDIF;
par_i = par_i + 1;
END;
par = ELPAR('Department',Dept,par_pos);
