PROGRAM GETPRI C C N. A. Bourgeois, Jr. 22-Feb-88/. C C Get and display the priority of the current job. C INTEGER*2 IPRI(2) C LINUM = ITSLIN () CALL JOBPRI (LINUM,IPRI) TYPE *,'The job priority is:',IPRI(1) TYPE * C CALL EXIT END