Code: Select all
ok = selcase(oper_folder_dict,"") where operf_cd = opr_code;
if ok = 1 then
errmsg("This code %s has already been used. !!PLEASE REENTER AND CHANGE !!",$);
REENTER;
endif;
opr_code is the field that I use to capture the operator code in this application. 3 alpha char
I have tested using codes that are in the external file but ok is always 0. Am I coding this correctly. I would like to use this one external dictionary to check several things.
Neville