PROGRAM GETUN C C N. A. Bourgeois, Jr. 23-Feb-88/. C C Get and display the current user's name, change it, and then restore C it. C INTEGER*2 STUNAM LOGICAL*1 NEWNAM(14),OLDNAM(14),USRNAM(14) C CALL GTUNAM (OLDNAM) TYPE 10,(OLDNAM(I),I=1,12) 10 FORMAT (' The user name is: ',12A1,/) CALL SCOPY ('NEW_TMP_NAME',NEWNAM) IERR = STUNAM (NEWNAM) IF (IERR .EQ. 0) STOP 'The job is not privileged' CALL GTUNAM (USRNAM) TYPE 10,(USRNAM(I),I=1,12) CALL STUNAM (OLDNAM) CALL GTUNAM (USRNAM) TYPE 10,(USRNAM(I),I=1,12) C CALL EXIT END