You could also use the following command file, which
returns the date and time as a 14-digit string in the
format  YYYYMMDDHHMMSS .

TSTAMP :-

print !hpfile;end=0
setvar tstamp  rht("0000![finfo(hpfile,'intaccessed')]"  ,8)   &
              +rht("0000![finfo(hpfile,'intaccesstime')]",6)








Jeff mentioned an atomic(ity) trapdoor in...

>> SETVAR DATE,"!HPMONTH/!HPDATE/!HPYEAR"

and suggested an upcoming solution for 6.0 users...

>Or, in 6.0 Express 1, you will be able to reference the new HPYYYYMMDD
>variable and be guaranteed the all parts of the year-month-date are
>consistent.

For the short term you might also pick up a small utility that
returns YYYYMMDDHHMMSS to a CI var, so you can easily substring
whatever portion you need (watch out to have your TZ setting ok,
as it uses COBOL's $CONTROL POST85 FUNCTION CURRENT-DATE). Find
it on Jazz where Glenn Koster's MYSECOND contribution lives.

:) Lars








-----------------------------------------------------------------------------
This message is confidential; its contents do not constitute a
commitment by Paribas except where provided for in a written agreement
between you and Paribas. Any unauthorised disclosure, use or
dissemination, either whole or partial, is prohibited. If you are not
the intended recipient of the message, please notify the sender
immediately.

Ce message est confidentiel ; son contenu ne représente en aucun cas un
engagement de la part de Paribas sous réserve de tout accord conclu par
écrit entre vous et Paribas. Toute publication, utilisation ou
diffusion, même partielle, doit être autorisée préalablement. Si vous
n'êtes pas destinataire de ce message, merci d'en avertir immédiatement
l'expéditeur.