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