FTN4,L C C *************************************************************** C * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS * C * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, * C * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT* C * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. * C *************************************************************** C C SOURCE PART NUMBER :92067-18398 C C RELOCATABLE PART NUMBER : 92067-16361 C C PROGRAMER(S) : J.M.N. C C C C ACMSN - ROUTINE TO BUILD USER'S MESSAGE FILE NAME C C CALLING SEQUENCE: CALL ACMSN(ID,MSNAM) C WHERE C ID = USER ID C MSNAM = 3-WD RETURN BUFFER FOR MSG NAME C C ACERRS: NONE C C SUBROUTINE ACMSN(ID,MSNAM) ,92067-16361 REV.1940 781226 DIMENSION MSNAM(3) C C CONVERT INTEGER ID TO ASCII AND INSERT "+M" C CALL ACITA(ID,MSNAM,3) MSNAM(1)=2H+M RETURN END