Assigns the name of an HDS object to a message token KPG1_HMSG
This routine has no STATUS argument and does not perform normal error checking. If it should fail, then no value will be assigned to the message token and this will be apparent in the final message.
This routine makes assumptions about the form of a VMS file name.