IF FILED(‘F1’)=’F1’ *--field exist ELSE *-- not exist ENDIF>hi all,
>use qcombined1 excl >ALTER table qcombined1 ADD COLUMN mnt c(17) > >&&if qcombined1.f1 found()&& f1 isfield name >scan >replace mnt WITH f1 > > >IF f1=SPACE(17) >APPEND fields name as(no,name,f1,f2........at new record > >if field.f2 found() > >replace mnt WITH f2 > >IF f2=SPACE(17) >APPEND fields name as(no,name,f1,f2........at new record > >if field.f3 found() >replace mnt with f3 >. >. >. >. >. >if field.f56 found() >replace mnt with f56 > >endif >endif >endif >ENDSCAN > >>thanks