PROGRAM GETJBN C C N. A. Bourgeois, Jr. 12-Feb-88/. C C Get and display the current job's name. C LOGICAL*1 JOBNAM(14) C LINUM = ITSLIN () CALL GTJBNM (LINUM,JOBNAM) TYPE 10,(JOBNAM(I),I=1,12) 10 FORMAT (' The job name is: ',12A1,/) C CALL EXIT END