1           if fm_trace_mode then call trace(3, proc_name, code) ;                          /*print_err_code.incl.pl1*/