{
{    This procedure will select initiation candidates strictly on a
{  priority basis across all classes.
{
{  JMP$PRIORITY(NODE, CLASS, NONE_LEFT)
{
{  NODE: (output) Specifies the job id.
{
{  CLASS: (output) gives the job class found.
{
{  NONE_LEFT: (output) A boolean telling if any more jobs available to examine.
{
