COM**********************************************************
COM Author: JGP
COM Date: 7/25/08
COM Purpose:  This script will provide a map for a fields.
COM**********************************************************

DIALOG (DIALOG TITLE "Field to test" WIDTH 459 HEIGHT 159 ) (BUTTONSET TITLE "&OK;&Cancel" AT 372 48 DEFAULT 1 ) (ITEM TITLE "C" TO "v_field" AT 144 48 WIDTH 216 ) (TEXT TITLE "Select Character Field to Profile" AT 24 52 WIDTH 103 HEIGHT 36 )

Extract %v_field% to Temp_file open

v_field_len = len(%v_field%)

v_map = "map_1"+BLANKS(32000)
v_ctr = 1

GROUP IF RECNO() = 1 
  LOOP while v_ctr < v_field_len
    v_map = ALL(v_map) +"+offset(map_1,"+ ALL(STRING(v_ctr,2))+ ")"
    v_ctr = v_ctr + 1
  END
END

Define field map_1 computed

" " if match(ASCII(%v_field%), 32 ,9)
"9" if between(%v_field%,'0','9')
"X" if between(%v_field%,'A','Z')
"x" if between(%v_field%,'a','z')
"?"

define field map_Result computed %v_map%


sum on map_Result to %v_field%_map presort