can someone suggest any alternate way?
ASSIGN/COUNT=0 ASSIGN/NUM_OF_DIM=93 ASSIGN/MMPROF1=0 ASSIGN/MMPROF2=0 ASSIGN/MAX_DIM=0 ASSIGN/MIN_DIM=0 ASSIGN/MAX_PROF=0 ASSIGN/MIN_PROF=0 DO/ ASSIGN/COUNT=COUNT+1 ASSIGN/ID="LOC"+COUNT ASSIGN/MMPROF1[COUNT]=ID.D.MEAS ASSIGN/MMPROF2[COUNT]=MMPROF1[COUNT] UNTIL/COUNT==NUM_OF_DIM ASSIGN/MAX_DIM=MAXINDEX(MMPROF2) ASSIGN/MIN_DIM=MININDEX(MMPROF2) ASSIGN/MAX_PROF=MMPROF2[MAX_DIM] ASSIGN/MIN_PROF=MMPROF2[MIN_DIM] F1 =GENERIC/POINT,DEPENDENT,CARTESIAN,$ NOM/XYZ,<1,0,0>,$ MEAS/XYZ,<MAX_PROF,0,0>,$ NOM/IJK,<0,0,1>,$ MEAS/IJK,<0,0,1> DIM LOC94= LOCATION OF POINT F1 UNITS=IN ,$ GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=BOTH HALF ANGLE=NO AX NOMINAL +TOL -TOL MEAS DEV OUTTOL X 1.0000 0.0200 0.0200 1.0000 0.0000 0.0000 --#-- END OF DIMENSION LOC94 F2 =GENERIC/POINT,DEPENDENT,CARTESIAN,$ NOM/XYZ,<1,0,0>,$ MEAS/XYZ,<MIN_PROF,0,0>,$ NOM/IJK,<0,0,1>,$ MEAS/IJK,<0,0,1> DIM LOC95= LOCATION OF POINT F2 UNITS=IN ,$ GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=BOTH HALF ANGLE=NO AX NOMINAL +TOL -TOL MEAS DEV OUTTOL X 1.0000 0.0200 0.0200 1.0000 0.0000 0.0000 --#-- END OF DIMENSION LOC95