Letzter Zugriff auf IFS-Objekte

[JonnyBrazil]

Hallo

ich brauche ein RPG-Programm das von gewissen Dateien aus dem IFS das Datum des letzten Zugriffs ermittelt.

Dazu habe ich das folgende Programm geschrieben:


H DFTACTGRP(*NO) BNDDIR( 'QC2LE' )
D* -----------------------------------------------------
D* Prototype for API procedures
D* -----------------------------------------------------
Dlstat PR 10I 0 EXTPROC('lstat')
D * VALUE
D * VALUE
D StatDS DS 128
D st_mode 10U 0
D st_ino 10U 0
D st_nlink 5U 0
D reserved1 2A
D st_uid 10U 0
D st_gid 10U 0
D st_size 10U 0
D st_atime 10U 0
D st_mtime 10U 0
D st_ctime 10U 0
D st_dev 10U 0
D st_blksize 10I 0
D st_allocsize 10I 0
D st_objtype 10A
D reserved2 2A
D st_codepage 5U 0
D st_reserved1 62A
D st_ino_gen_id 10U 0

D EntryName S 50 inz('mm.txt')
D DirName S 100 inz('/tmp')
D EntryPath S 256
D ReturnInt S 10I 0

C EVAL EntryPath = %trim(DirName) + '/'
C + %trimr(EntryName) + x'00'
C EVAL ReturnInt = lstat(%addr(EntryPath)
C : %addr(StatDS))



und soweit klappt das ja, aber nun steht im Feld st_atime die Zeit in Sekunden seit irgendwann und diese in Datum und Zeit des letzten Zugriffs umwandeln gelingt mir nicht.

Danke für jede Hilfe

[kuempi von stein]

Hello,

Unixzeit - Wikipedia (http://de.wikipedia.org/wiki/Unixzeit)
?

k.

Nachtrag:
schau auch mal hier retrieve ifs document data - Code400 -The Support Alternative (http://www.code400.com/forum/showthread.php?t=1216&highlight=unixtime)

[JonnyBrazil]

Danke, das war genau was ich gebraucht habe. Funktioniert super.

[Fuerchau]

Dabei sollte dir allerdings auffallen, dass die gelieferte Zeit GMT ist !

Deine Zeitzone wird hierbei nicht berücksichtigt.
Besser wäre die Verwendung der C-Funktion localtime(), die die Zeitzone berücksichtigt.

Ggf. kannst du natürlich auch selber den Systemwert QUTCOFFSET draufrechnen.

Beim Speichern von Zeiten im IFS wird nämlich QUTCOFFSET abgezogen !