Here is a copy of the OWNNAME EXEC that's been mentioned here recently.
 
Thanks to Marty Hoag for his updates and for getting me a copy since I
didn't have access to the original.
 
John/
----------
/*********************************************************************/
/* BY John Voigt   <SYSBJAV@CORNELLC>                                */
/*                                                                   */
/* Copyright 1987, 1992  @ by John Voigt  All rights reserved        */
/*                                                                   */
/* This program and it's associated files are the property of        */
/* John Voigt.  They may be freely distributed without permission of */
/* the author provided that this notice remains intact.              */
/*                                                                   */
/* This software is provided on a 'as is' basis.  No warranty,       */
/* expressed or implied, is made by Tulane University, Cornell       */
/* University or John Voigt.                                         */
/*                                                                   */
/* Use this code at your own risk.                                   */
/*********************************************************************/
/* OWNNAME EXEC...   Allow files to keep own name on disk
 
   From John Voigt (was TCSSERVE EXEC).  09/02/87
   Update 09/03/87 mgh Add DEL1 code to handle deletes
       (a Delete is a PUT with no data).   Marty Hoag
 
   OWNNAME is an exit that can be specified in the FILEID file
to allow files to be stored under their own names.
 
   The  filelist FILEID file should be initialized with the OWNNAME exec
in the 2nd line as shown in the following two examples:
1
*DEFAULT* L2 OWNNAME
   or
1
*DEFAULT* O2/409 OWNNAME
 
   No warranty is expressed or implied by the authors.
 
*/
arg ,line
 
parse var line what who fn ft flist fm '*'line
 
select
   when what='GET1' then return 0
   when what='GET2' then return 0
   when what='PUT2' then return 0
   when what='PUT1' | what='DEL1' then do
      if left(line,1)='/' then parse var line 2 '/' line
      parse var line fn ft .
      return fn ft fm
   end /* put1 */
   otherwise return 0
end /*select*/
exit 0