DIALOG (DIALOG TITLE "User Dialog" WIDTH 454 HEIGHT 345 ) (BUTTONSET TITLE "&OK;&Cancel" AT 370 12 DEFAULT 1 ) (TEXT TITLE "Select Table" AT 24 76 ) (ITEM TITLE "f" TO "t_table" AT 120 72 WIDTH 234 HEIGHT 245 )

OPEN %t_table%

DIALOG (DIALOG TITLE "User Dialog" WIDTH 503 HEIGHT 457 ) (BUTTONSET TITLE "&OK;&Cancel" AT 370 12 DEFAULT 1 ) (TEXT TITLE "Select Field:" AT 24 88 ) (ITEM TITLE "CND" TO "v_field" AT 108 84 WIDTH 297 HEIGHT 343 )

v_cntr = LEN(%v_field%)
v_cnt = 1
v_comp_value=blank(v_cntr)

IF FTYPE("%v_field%")="C" DEFINE FIELD F_testfield COMP SUB(v_field,1,v_cntr)
IF FTYPE("%v_field%")="D" DEFINE FIELD F_testfield COMP SUB(DATE(v_field),1,v_cntr)
IF FTYPE("%v_field%")="N" DEFINE FIELD F_testfield COMP STRING(v_field,v_cntr)

GROUP
LOOP
IF MAP(SUB(v_field,v_cnt,1),"9") ASSIGN v_comp_value = v_comp_value +"9"
IF MAP(SUB(v_field,v_cnt,1),"X") ASSIGN v_comp_value = v_comp_value +"X"
IF NOT (SUB(v_field,v_cnt,1),"9") AND NOT MAP(SUB(v_field,v_cnt,1),"X") ASSIGN ASSIGN v_comp_value = v_comp_value +"_"
v_cnt = v_cnt +1
END
EXTRACT FIELDS %v_comp_value% as "F_FieldMap" ALL TO Temp1
v_cnt = 1
v_comp_value = blank(v_cntr)
END