nntp2http.com
Posting
Suche
Optionen
Hilfe & Kontakt

Re: date

Von: MarcoF (marco@mr-srl.it) [Profil]
Datum: 03.07.2008 16:59
Message-ID: <4fa8aba3-d801-492f-9e72-842e8562ab0b@x35g2000hsb.googlegroups.com>
Newsgroup: it.comp.as400
On 3 Lug, 14:20, "neroni.it" <claudioner...@gmail.com> wrote:
> Questa si compila e non dà errore in esecuzione perché *iso è
il
> formato della data in input AAAAMMGG.
>
>    timestamp = %date(aaaammgg:*iso) + %time(hhmmss);
>
> On 3 Lug, 12:42, MarcoF <ma...@mr-srl.it> wrote:
>
>
>
> > On 3 Lug, 11:36, "neroni.it" <claudioner...@gmail.com> wrote:
>
> > > 6  /free
> > > 7   timestamp = %Timestamp(%date(aaaammgg:*ymd) + %time(hhmmss));
> > > 8  /end-free
>
> > >  Id msg  Sv Numero Seq.    Testo messaggio
> > > *RNF0538 20      7 000600  Il primo parametro per
%TIMESTAMP 
non è
> > > valido.
>
> > > On 3 Lug, 10:46, Mauro Romeo <mau_...@yahoo.it> wrote:
>
> > > > neroni.it ha scritto:
>
> > > > > 1&H DECEDIT('0,')
> > > > > DATEDIT(*DMY/)
> > > > > 2 D timestamp       s
> > > > > z
> > > > > 3 C     *entry
> > > > > plist
> > > > > 4 C                
  parm           
         aaaammgg          8
> > > > > 0
> > > > > 5 C                
  parm           
         hhmmss            6
> > > > > 0
> > > > > 6  /
> > > > > free
> > > > > 7   timestamp = %Timestamp(%date(aaaammgg:*ymd0) +
> > > > > %time(hhmmss));
> > > > > 8  /end-
> > > > > free
> > > > > 9 C                
  seton
> > > > > lr----
>
> > > > >  Id msg  Sv Numero Seq.    Testo
> > > > > messaggio
> > > > > *RNF7514 20      7 000600  Carattere di
separazione data,
ora o
> > > > > registrazione data/ora
> > > > >                  
         '0' non co
nsentito con voce numerica
> > > > > AAAAMMGG.
> > > > > *RNF0538 20      7 000600  Il primo
parametro per %TIMEST
AMP non è
> > > > > valido.
>
> > > > >                  
     S o m m a r i o 
  m e s s a g g i
> > > > > o
> > > > >  Id msg  Sv Numero Testo
> > > > > messaggio
> > > > > *RNF0538 20      1 Il primo parametro per
%TIMESTAMP non 
è
> > > > > valido.
> > > > > *RNF7514 20      1 Con una voce numerica non
è ammesso un
Separatore
> > > > > data o
>
> > > > > orario.
> > > > >      * * * * *   F I N E   S O M M A R
I O   M E S S 
A G G I O   * * *
> > > > > * *
>
> > > > > On 2 Lug, 18:58, Mauro Romeo <mau_...@yahoo.it> wrote:
>
> > > > >> neroni.it ha scritto:
>
> > > > >>> Non riesco a farlo funzionare.
>
> > > > >>> On 2 Lug, 17:13, Mauro Romeo <mau_...@yahoo.it>
wrote:
>
> > > > >>>> neo ha scritto:> ho un campo numerico che
contiene una data in
formato  AAAAMMGG e un
>
> > > > >>>>> altro campo numerico che contiene l'ora HHMMGG
> > > > >>>>> come posso convertire in timestamp ?
>
> > > > >>>> Dtimestamp        S  
            Z
> > > > >>>>  / free
> > > > >>>>     timestamp =
%Timestamp(%date(data:*ymd0) + %time(ora
rio));
>
> > > > >>>> Mauro Romeo
>
> > > > >> Cosa ti dice?- Nascondi testo citato
>
> > > > >> - Mostra testo citato
>
> > > > Prova a togliere lo 0 da *ymd.
> > > > Mauro Romeo- Nascondi testo citato
>
> > > > - Mostra testo citato- Nascondi testo citato
>
> > > - Mostra testo citato
>
> > Prova così:
>
> > timestamp = %date(aaaammgg:*ymd) + %time(hhmmss);
>
> > HTH
> > MarcoF- Nascondi testo citato
>
> > - Mostra testo citato- Nascondi testo citato
>
> - Mostra testo citato

Spesso si usano routine o s'inventarno calcoli strani quando è tutto
così a portata di mano:

d r               s              1
d timestamp       s               z
/free
timestamp = %date() + %time();
timestamp += %minutes(35);
dsply (%char(timestamp)) ' ' r;
timestamp += %hours(-3);
dsply (%char(timestamp)) ' ' r;
timestamp += %days(2);
timestamp -= %hours(3);
dsply (%char(timestamp)) ' ' r;
*inlr = *on;
return;

Ciao
MarcoF

[ Auf dieses Posting antworten ]

Antworten