SUBROUTINE FILE(FNAM) CCC CCC Set up the mailfile file name CCC C**************************************************************************** C INTEGER*2 FNAME(4),FNAM(4) ! SYSTEM MAIL FILE (RAD50) C C**************************************************************************** CCC CCC CHANGE THIS FILE DESCRIPTOR IF MAIL FILE IS NOT 'SY:MAIL.XXX' CCC REMEMBER THAT USERS MUST HAVE READ/WRITE ACCESS TO THIS CCC FILE ('ACCESS SY:MAIL.XXX') CCC CCC DATA FNAME/3Rddn,3Rfil,3Rnam,3Rext/ ddn:filnam.ext C DATA FNAME/3RSY ,3RMAI,3RL ,3RXXX/ C C**************************************************************************** CCC C DO 10 J=1,4 FNAM(J)=FNAME(J) 10 CONTINUE RETURN END