  L /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  *  *<  *                %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\=  *                %% \___________________________________%% \ >  *                %% |                                   %%  \?  *                %% |               CHFDAT              %%   \ @  *                %% |          chfdate.c  c2004         %%    \@  *                %% |            Lyle W. West           %%    |@  *                %% |                                   %%    |@  *                %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%    |@  *                \                                        \   |@  *                 \                                        \  |@  *                  \                                        \ |@  *                   \________________________________________\|  *  *  *?  *  Copyright (C) 2003, 2004 Lyle W. West, All Rights Reserved. J  *  Permission is granted to copy and use this program so long as [1] thisH  *  copyright notice is preserved, and [2] no financial gain is involvedH  *  in copying the program.  This program may not be sold as "shareware"G  *  or "public domain" software without the express, written permission   *  of the author.  *8  *  Application which permits a suitably priv'ed user to:  *  modify primary file date and time stamps (and revisionE  *  number). This application was written utilizing information from, J  *  but not limited to, VMS IO Users Manual, various DSN example articles,!  *  and Joe Meadows FILE utility.   *  *L  *  CHFDAT has been designed as a system management tool and is not intendedJ  *  to be accessed by general users. As described below, certain privs areI  *  required to succesfully execute CHFDAT. Additionally, if the image is J  *  located where global access is available, it is prudent for the sysmgr   *  to have trusted users enter:  *,  *      DEFINE /JOB /EXEC SECURE_LNM ENABLED  *I  *  prior to attempting execution. Note that this information is not doc- H  *  umented elsewhere. This is a poor mans substitute for an identifier.F  *  See the source code (search for '#ifdef SECURE'). Note also, this I  *  must be defined as an executive mode logical. There may be some users I  *  with the ability to determine the need for this logical to be defined N  *  on the JOB table, but not mecessarily be able to define it with EXEC priv.  *H  *  It will also be necessary to build CHFDAT with the SECURE attributesK  *  enabled. This is done for you automatically with the following command:   *    *      $ @BUILD SECURE [DEBUG]   *M  *  Previous versions of CHFDAT required user to set default to the directory N  *  to which changes were to be performed. This restriction no longer applies.  *J  *  CHFDAT has been a very good addtion to my toolset, but if you chose toN  *  use it, I strongly encourage you to use the security functions by default.  *J  *  Online help is available after the foreign symbol is defined; from DCL  *  simply enter:   *  *      CHFDAT /HELP  *  *  Usage Examples:   *B  *      $ chfdate CHFDAT_CLD.OBJ /revd="20-FEB-2002 20:02:20.02" -)  *      _$ /cre="20-FEB-2002 20:02:20.02"   *C  *      Target: DKA100:[LWW.SOURCE.TOOLS.LWW.CHFDAT]CHFDAT_CLD.OBJ; L  *       Creation Date: 15-MAR-2002 02:16:04      --->  20-FEB-2002 20:02:20P  *       Revision Date: 15-MAR-2002 02:16:04 (1)  --->  20-FEB-2002 20:02:20 (1)  *  *  -- or --  *      9  *      $ chfdate *.obj /revd="20-feb-2002 20:02:20.02" - )  *      _$ /cre="20-feb-2002 20:02:20.02"   *?  *      Target: DKA100:[LWW.SOURCE.TOOLS.LWW.CHFDAT.WORK]*.OBJ;   *      CHFDAT.OBJ;5L  *       Creation Date: 15-MAR-2002 23:45:30      --->  20-FEB-2002 20:02:20P  *       Revision Date: 15-MAR-2002 23:45:39 (1)  --->  20-FEB-2002 20:02:20 (1)  *      CHFDAT_CLD.OBJ;4L  *       Creation Date: 20-FEB-2002 20:02:20      --->  20-FEB-2002 20:02:20P  *       Revision Date: 20-FEB-2002 20:02:20 (1)  --->  20-FEB-2002 20:02:20 (1)  *      SUPPORT.OBJ;2 L  *       Creation Date: 15-MAR-2002 13:20:27      --->  20-FEB-2002 20:02:20P  *       Revision Date: 15-MAR-2002 13:20:34 (1)  --->  20-FEB-2002 20:02:20 (1)  *      	  *      $   *@  *  This application must be relinked if the current VMS version+  *  is upgraded to version 7.3-2 or higher.   *M  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */   