The following example is from the 4C debugger program sys.dbg.fld.
It is the aspefld PCL.
It is used in order to verify that <asprog> exists before
trying to display the fields in <asprog>.
if (sys.is_prog(asprog) == 0) {
sys.err_msg("No Such Program:",asprog);
sys.exit_field(sys.cur_field);
}
progname = sys.get_progname(asprog);