Time-Feld in einer PF-Datei

[Fuerchau]

Die SEQONLY-Meldungen kann man ignorieren, da dies nur als Hinweis gedacht ist.
Dateien, die für OUTPUT geöffent werden, werden von COBOL (und auch RPG) intern geblockt.
Auf Grund der genannten Bedingungen ist aber eine Blockung nicht möglich sondern satzweises Schreiben erforderlich.

Eine PF/LF mit Schlüssel sollte nie per EXTEND geöffnet werden, sondern ganz normal mit I-O.
EXTEND ist nur für tatsächlich sequentielle Dateien erforderlich !
Hinzufügen von Sätzen geht dann mit WRITE ... INVALID ...

Das Problem des Zeitfeldes hängt nicht an einer PF oder LF.

Wichtig ist einzig und allein, dass der Compiler bereits ein Zeitfeld erkennen muss (DATETIME!), da sonst die I-O's nicht korrekt verarbeitet werden.
Die Zeit "00:00:00" gilt zwar bei RPG als *LOVAL, ist aber eine gültige Zeit.

Du musst also im WDSC irgendwo dafür sorgen, dass als Compiler-Option DATETIME akzeptiert wird.

Ggf. mag ja nur der Editor diese "Process"-Anweisung nicht (SEU tut das).
Laut COBOL-Handbuch akzeptiert der Compiler auf jeden Fall diese Anweisung.

Beispiel für meinen Trigger:
process apost nostdtrunc norange datetime
varchar timestamp cvttodate
IDENTIFICATION DIVISION.
Program-Id. FUETRGAPC.
************************************************** ***
* Allgemeiner Trigger für APC-Dateien
************************************************** ***
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.

SOURCE-COMPUTER. IBM-AS400.
OBJECT-COMPUTER. IBM-AS400.

[Pikachu]

Also "00:00:00" geht hier unter V5R4 nicht, aber "00.00.00" wird ohne Probleme angenommen.

[Fuerchau]

Das hängt dann wieder vom Timeformat ab.
COBOL ist da bei der Syntax mal wieder etwas komplizierter als RPG:

Im SPECIAL-NAMES gibts Definitionen für
format of date is '.....'
format of time is '.....'

als auch auf Stufenebene

05 mydate format date '....'
05 mytime format time '....'

Die Defaults sind in beiden Fällen *ISO:

Datum: YYYY-MM-DD
Zeit: HH.MM.SS

Für die Formate sind (ähnlich RPG) beliebige Kombinationen möglich.
Man kann dadurch eben für die interne Darstellung ISO und für die externe Darstellung PRTF/DSPF usw. Euro anwenden:

05 MYEURTIME FORMAT TIME '%H:%M:%S'.

Und siehe da, es klappt auch mit dem ":".

Näheres hierzu im COBOL-Programmierhandbuch.

[puddschini]

Kollege Pikachu,
auch Dir wieder herzlichen Dank, nur zur Info: v5r3 ist hier beim Kunden im Einsatz.

Kollege Fuerchau,
time-Problem gelöst, die Fehlermeldungen sind auch weg, jetzt muß nur noch der Write-Befehl funktionieren, dann hätte ich es.
Herzlichen Dank erneut an Dich.

Ja, die AS400-Welt ist doch anders als der liebe gute Host.

puddschini

[Fuerchau]

Nun ja, bei der AS/400 steckt die DB2/400 dahinter, und da wird gegen Datentype geprüft.
Auf einem Host gibts meistens VSAM, eher selten die DB2.