Datum in Numerisches Feld

[Nino]

Hallo zusammen,

zunächst einmal wollte ich Danke sagen da mir schon einige Beiträge in diesem Forum weitergeholfen haben. Ich habe auch dieses mal die Suchfunktionen benutzt. Leider habe ich keine Ergebnis bekommen was mir wirklich weiter geholfen hat.

Ich habe folgendes Problem:

Ich muss auf einen Datei zugreifen die im Key ein Julianisches Datum hat. Das Feld allerdings ist nur als numerisches Feld definiert. (JJJJTTT)

Nun habe ich in meinen Programm womit ich den Zugriff ausführen will das Datum nur im Date Format. Diese in ein Julianisches Format zu bringen ist keine Problem. Doch anschliessend das in ein numerisches Feld zubekommen.

Ich hoffe ihr könnt mir weiterhelfen.

Vielen dank im Voraus und
mit freundlichen Grüßen,
Nino

[RobertMack]

Hallo,

auf Seite 202 ist ein Beispiel:
http://publib.boulder.ibm.com/iserie...s/c0925084.pdf

[Fuerchau]

%dec(%char(MyDate:*iso0):8:0)

[B.Hauser]

Hallo,

ich würde alles in ein echtes Datum konvertieren und das echte Datum vergleichen.

Konvertieren numerisches Julianisches Datum (JJJJTTT) in Echtes Datum
(MyJulNum ist 7P 0) definiert.

 /Free
   MyDate = %Date(MyJulNum: *LongJul);
 /End-Free 

Konvertieren echtes Datum in numerisches Julianisches Datum.

 /Free 
   MyJulNum = %Dec(MyDate: *LongJul);
 /End-Free 

Birgitta

[Nino]

Hallo,

ich habe solange mit dem %dec getestet doch nirgends gefunden das man auch einfach *longjul eingeben kann.

Vielen lieben Dank für die schnellen und zahlreichen Antworten.

Grüße, Nino