PROGRAM GETJBN C C N. A. Bourgeois, Jr. 12-Feb-88/17-May-89. C C Get and display the current job's line number, name, and C primary and parent process numbers. C INTEGER*2 IBUF(2) LOGICAL*1 JOBNAM(14) C LINUM = ITSLIN () TYPE *,'The current job number is: ',LINUM C CALL GTJBNM (LINUM,JOBNAM) TYPE 10,(JOBNAM(I),I=1,12) 10 FORMAT (' The job name is: ',12A1) C CALL IPRPAN (LINUM,IBUF) TYPE *,'The primary process number is: ',IBUF(1) TYPE *,'The parent process number is: ',IBUF(2) TYPE * C CALL EXIT END