The following example is from the 4C debugger program sys.dbg.fld.
It is the aspefld PCL.
It is used in order to display the real program name along with
the asprog name on the screen.
if (sys.is_prog(asprog) == 0) {
sys.err_msg("No Such Program:",asprog);
sys.exit_field(sys.cur_field);
}
progname = sys.get_progname(asprog);