View Full Version : Probleme mit Datumsformat in RPG
strickistracki
20-07-04, 16:47
Hallo Leute,
Ich habe in der extern beschriebenen PF ein Datumsfeld mit L (10 Stellen) deklariert.
Es gelingt mir nicht, dieses Feld aus RPG zu füllen, egal wie ich die Aufbereitung auch dort versuche reinzustellen - ich bekomme beim Ablauf permanent einen E/A Fehler.
Es wäre super, wenn mir jemand einen Tipp geben kann!
Vielen Dank
Das Datumsformat wird in der H-Bestimmung beschrieben oder als Erweiterung in der D-Bestimmung (das Standardformat sieht man ggf. in der Umwandlung).
h datfmt(*iso)
d myDate L [datfmt(*iso)]
c/free
myDate = '2004-07-21';
/end-free
In RPG (OPM) werden Datumsfelder nicht unterstützt !
strickistracki
20-07-04, 18:38
Das heisst: Ich kann mit einem Datumsfeld, was extern in einer DDS mit "L" beschrieben ist nur in ILE RPG etwas anfangen? Auch nicht wenn ich das RPG-Programm mit CVTOPT(*DATETIME) umwandle?
Grüße
Hallo,
doch, schon. Ist das Datumsformat z.B. *EUR, so wird das Feld im RPG III als 10-stellig alpahnumerisch gehandhabt. Allerdings muss penibel darauf geachtet werden, dass nur gültige Datumswerte bei einem WRITE oder UPDAT eingetragen werden. *BLANKS ist z.B. kein gültiger Wert, aber z.B. "01.01.0001". Mit "31.02.2004" wirst Du auch Pech haben.
D.h. ein CLEAR aufs Satzformat und dann ein WRITE ohne füllen der Datumsfelder => Pustekuchen. Auch wenn Du das Datumsfeld in einer Schlüsselliste hasst, muss z.B. bei einem SETLL das Schlüsselfeld mit einem gültigen Datumswert initialisiert sein, sonst rappelts im Karton.
Wir verwenden dazu z.B. für Dialogeingaben so ein selbstgestricktes Prüfprogramm, welches die semantische Korrektheit einer abzuspeichernden Eingabe prüft. Leere Satzformate initialisieren wir in Copy-Strecken mit einer Konstanten '01.01.0001' als "*LOVAL". Diese werden bei Dateierstellungen/-erweiterungen um Datumsfeldern dieser Art neu generiert, damit wir auch ja kein Datumsfeld vergessen.
Falls Du nicht weisst, welches Format das Datumsfeld überhaupt hat, dann probiere ein INZPFM auf die leere Datei mit TOTRCDS(1). Der stellt Dir einen initialisierten Satz mit dem aktuellen Datum für das Feld dort rein, sofern kein anderer Default-Wert für das Feld angegeben wurde. In diesem Format müssen dann auch die einzutragenden Daten sein.
Tja, und rechnen/vergleichen im RPG III und Datumsfeldern ist nicht, da Alphafelder, also Vergleiche durch Drehen ermöglichen oder am besten externes Programm konsultieren.
mfG Dufti
strickistracki
20-07-04, 19:40
Danke auch dir Dufti!
Werd ich mal probieren...
Eine Deklaration mit nur L ohne *EUR geht wohl dann nicht?
Oder stellt mir RPG dann auch ein 10-stellig alpahnumerisches Feld zur Verfügung, was ich z.B. mit 2004-07-20 füllen müsste? Das hatte ich nämlich schon probiert und ging nicht.
Grüße Strickistracki
Danke auch dir Dufti!
Werd ich mal probieren...
Eine Deklaration mit nur L ohne *EUR geht wohl dann nicht?
Oder stellt mir RPG dann auch ein 10-stellig alpahnumerisches Feld zur Verfügung, was ich z.B. mit 2004-07-20 füllen müsste? Das hatte ich nämlich schon probiert und ging nicht.
Grüße StrickistrackiOhne *EUR geht das sicher genauso, nur eben entsprechendes Format. Sollte jedenfalls. Ich bin mir fast sicher. Ich habs nicht ausprobiert, aber da Wette ich nen Kasten Bier drauf. Du hast sicher irgendwas vergessen. Setz nen Debugger vor den Satzupdate und schau Dir die Datumsfelder an. Da steht dann sicher noch was falsches drin.
Gruß, Dufti
strickistracki
21-07-04, 09:20
Vielen Dank, ich hatte ein Datumsfeld übersehen - jetzt funktioniert es wie beschrieben!
Grüße
Noch ein Hinweis:
In RPG hängt das Datumsformat zur Laufzeit vom JOB-Wert ab (in Deutschland meist *DMY). Änderst du das Jobformat, ändert sich auch die Darstellung des DATE-Feldes !
Es spielt dabei keine Rolle wie das Datumformat innerhalb der Datei definiert ist da beim Lesen bzw. Schreiben eine Umsetzung erfolgt.
In ILE-RPG hast du aber genaue Kontrolle über das Datum-Format !
Ich bin damit auch schon auf die Schnautze gefallen weil der Kunde für seine Amerikaner nun mal das Datumformat auf *MDY umstellt.
strickistracki
21-07-04, 10:42
Danke, werd ich hoffentlich dran denken, wenn ich mal vor diesem Problem stehe.
Grüße
Hallo zusammen!
1. Frage: Wo kann ich denn das Format 'L' zuweisen? Ist es nicht so, daß man 'D' oder 'T' in den Sourcebestimmungen definiert und dies erst beim Umwandeln zum Datenformat 'L' gemacht wird?
Und nun mein größeres Problem: Mir gelingt es nicht, ein Datumsfeld mit einem Literal zu vergleichen oder dem Datumsfeld ein Literal zuzuweisen, z.B.
H DatFmt(*Eur.)
D W1AUDT D DatFmt(*Eur.)
C Eval W1AUDT='30.10.2004'
Das meckert der Compiler wegen unterschiedlicher Formate an!
Erst über ein numerisches und ein Datums-Hilfsfeld
und unter Anwendung der Funktion %Date ist es mir gelungen,
mein Datum mit einem festen Wert zu vergleichen.
Geht das nicht auch einfacher?
Mit herzlichen Grüßen aus Hamburg
Werner
Hier sind die betreffenden Stellen aus der Umwandlungsliste
(es handelt sich um ein SQLRPGLE-Programm):
1. Versuch:
5722WDS V5R2M0 020719 RN IBM ILE RPG EX1WRK/LG0010R TLZ2 30.10.04 04:26
1 H DatFmt(*Eur.) DatEdiT(*DMY.)
DSPF
274=I *EUR.D 18 27 F2AUDT Auftragsdatum
983 C* Datumsprüfung: Auftragsdatum
984 C If F2AUDT <> *Loval
985 C and (F2AUDT < '01.01.1990' or
986 C F2AUDT > '31.12.2050')
987 C Eval M0MSGT = %Trim(M0MSGT) +
988 C ' * Auftragsdatum!'
989 C Eval *In81 = *On
990 C EndIf
*RNF7421 30 985 068200 Operanden sind mit der Art des Operators nicht kompatibel.
*RNF7421 30 986 068300 Operanden sind mit der Art des Operators nicht kompatibel.
2. Versuch:
1 H DatFmt(*Eur.) DatEdiT(*DMY.)
124 D W1MIEU D DatFmt(*Eur.)
125 D W1MXEU D DatFmt(*Eur.)
991 C* Datumsprüfung: Auftragsdatum
992 C Eval W1MIEU = '01.01.1990'
993 C Eval W1MXEU = '31.12.2050'
994 C If F2AUDT <> *Loval
995 C and (F2AUDT < W1MIEU or
996 C F2AUDT > W1MXEU)
997 C Eval M0MSGT = %Trim(M0MSGT) +
998 C ' * Auftragsdatum!'
999 C Eval *In81 = *On
1000 C EndIf
*RNF7416 30 992 068900 Die Arten der Operanden auf der rechten und linken Seite des Ausdrucks in der Operation EVAL stimmen nicht überein.
*RNF7416 30 993 069000 Die Arten der Operanden auf der rechten und linken Seite des Ausdrucks in der Operation EVAL stimmen nicht überein.
3. Versuch:
1 H DatFmt(*Eur.) DatEdiT(*DMY.)
122 D W1MIND 8 0 Inz(01011990)
123 D W1MAXD 8 0 Inz(31122049)
124 D W1MIEU D DatFmt(*Eur.)
125 D W1MXEU D DatFmt(*Eur.)
So klappt es:
1001 C* Datumsprüfung: Auftragsdatum
1002 C Eval W1MIEU = %Date(W1MIND:*Eur)
1003 C Eval W1MXEU = %Date(W1MAXD:*Eur)
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
1010 C EndIf
Das Datumsformat wird in der H-Bestimmung beschrieben oder als Erweiterung in der D-Bestimmung (das Standardformat sieht man ggf. in der Umwandlung).
h datfmt(*iso)
d myDate L [datfmt(*iso)]
c/free
myDate = '2004-07-21';
/end-free
In RPG (OPM) werden Datumsfelder nicht unterstützt !