Hi
The variables mentioned are not available before 6.0,
so you may be interested in the following command file
which I call TIMENOW. This returns the current date and
time in the format "yyyymmddhhmiss", and takes account
of the problem Barry raised.
Rgds,
Tad.
USER DEFINED COMMAND FILE: TIMENOW
PARM t=TSTAMP
#
# RETURNS A TIMESTAMP STRING IN THE FORMAT CCYYMMDDHHMISS
# IN THE VARIABLE SPECIFIED BY THE PARAMETER t (default=TSTAMP)
#
print !hpfile;end=0
#
# Get ' date&time date&time ' of last access to this cmd file
#
setvar !t rht("00000![finfo(hpfile,'intaccessed')]" ,8) &
+rht("00000![finfo(hpfile,'intaccesstime')]",6) &
+rht("00000![finfo(hpfile,'intaccessed')]" ,8) &
+rht("00000![finfo(hpfile,'intaccesstime')]",6)
#
# If dates are different, use the second date & time
#
if lft(!t,8)<>str(!t,15,8)
setvar !t rht(!t,14)
else
setvar !t lft(!t,14)
endif
RETURN
Internet
From: [log in to unmask] on 10/07/2000 19:04 GMT
Pour : HP3000-L
cc :
ccc: Tad BOCHAN
Objet : Re: [HP3000-L] Number base conversion
Barry,
These are indeed good suggestions, unfortunately I don't have those HP variables
available. Are they from a version of MPE/iX other than 5.5pp7?
Luckily, this job only gets run between noon and 18h00; so I don't think we will
have a problem.
>>> Barry Lake <[log in to unmask]> 07/10/00 02:12PM >>>
<snip>
If, by chance, you were to run your command file (or JCL) at 23:59:59, your
first few SETVAR statements might get "today's" date, but then the next few
could get "tomorrow's" time.
Instead, you could actually gather all this information in a single call:
:setvar time_stamp hpyyyymmdd + hphhmmssmmm
<snip>
___________________________________________________________
This message and any attachments (the "message") are intended solely for
the addressees and are confidential. If you receive this message in error,
please delete it and immediately notify the sender.
Any use not in accord with its purpose, any dissemination or disclosure,
either whole or partial, is prohibited except formal approval.
The internet can not guarantee the integrity of this message. BNP PARIBAS
(and its subsidiaries) shall (will) not therefore be liable for the message
if modified.
--------------------------------------------------
Ce message et toutes les pieces jointes (ci-apres le "message") sont
etablis a l'intention exclusive de ses destinataires et sint confidentiels.
Si vous recevez ce message par erreur, merci de le detruire et d'en avertir
immediatement l'expediteur.
Toute utilisation de ce message non conforme a sa destination, toute
diffusion ou toute publication, totale ou partielle, est interdite, sauf
autorisation expresse.
L'internet ne permettant pas d'assurer l'integrite de ce message, BNP
PARIBAS (et ses filiales) decline(nt) toute responsabilite au titre de ce
message, dans l'hypothese ou il aurait ete modifie.
___________________________________________________________
|
