Probleme mit Datumsformat in RPG

[WeKaSys]

Danke vielmals, Birgitta!

1. Es ist also das dem Literal vorangestellte D, das den Unterschied ausmacht.

2. Jetzt muß ich doch auch einmal PHP testen, aber wie verhindere ich, daß die Leerzeichen aus meinem mit Ctrl-V eingefügten Code komprimiert werden, und warum mischt er mir die Farben so durcheinander ?

   1 H DatFmt(*Eur.) DatEdiT(*DMY.)
Eingabebestimmungen
DSPF
 274=I *EUR.D 18 27 F2AUDT Auftragsdatum
 124 D W1MIEU D DatFmt(*Eur.) Inz(D'01.01.1990')
 125 D W1MXEU D DatFmt(*Eur.) Inz(D'31.12.2049')
1001 C* Datumsprüfung: Auftragsdatum
1004 C If F2AUDT <> *Loval
1005 C and (F2AUDT < W1MIEU or
1006 C F2AUDT > W1MXEU)
1007 C Eval M0MSGT = %Trim(M0MSGT) +
1008 C ' * Auftragsdatum!'
1009 C Eval *In81 = *On
1000 C EndIf 

Beste Grüße
Werner.

[malzusrex]

hmm, ich muss das thema noch einmal auf nehmen.

ich habe eine Datei mit SQL erstellt. Diese beinhaltet ein Datumsfeld.

Create Table LARS/EHStammdaten   (
....
"EINDATUM" for Column EHS1BEL    date     not Null,
.... 

In einem RPG-Proggi wird diese Datei aus einer anderen befüllt. In dieser ist das Datum 8stellig num angelegt und das Datum steht in der Form JJJJMMTT darin.

Wie bekomme ich nun diese Feld elegant in das Datumsfeld ??

Gruß Ronald

[Fuerchau]

mydate = %date(yydate:*CYMD0);

[malzusrex]

hm, konnte ich so nicht wandeln. nur mit einem %EditC

Eval      EHS1BEL   = %Date(%EditC(kd1bel:'X'):*CYMD0 ) 

nun bekomme ich einen Datums-/Zeitmarkenfehler.
im feld kd1bel steht 19900520

[Fuerchau]

Dann mach es mit %editw:
EHS1BEL = %Date(%EditW(kd1bel:'0____-__-__'):*ISO)

[Fuerchau]

So klappt es:

d TestNum s 8 0 inz(19900522)
d TestDate s d

c/free
TestDate = %date(TestNum);
return;
/end-free

Der 2. Parameter von %date gibt das Ziel- und nicht das Quellformat an !!