Datum in V5R3

[lieser]

Hallo Forum,

ich rechne mit Datum und Eurer Hilfe.
Folgendes passiert:
an irgendeiner Stelle fällt eine Datumsroutine auf die Nase.
Beim erneuten Aufruf des Programms im Debugger kommt
gleich zu Anfang ein Abbruch RNQ0100,
und zwar merkwürdigerweise hier
// -----------------------------------------------------------
D CEEUTCO PR ExtProc('CEEUTCO')
D hours 10I 0
D minutes 10I 0
D seconds 8F
//
D hours_utc s 10I 0
D mins_utc s 10I 0
D secs_utc s 8F
D utcoffset s 10I 0
D UnixUrknall s z inz(z'1970-01-01-00.00.00.0
...
callp(e) CEEUTCO(hours_utc: mins_utc: secs_utc);
if %error;
utcoffset = 0;
else;
utcoffset = secs_utc;
endif;

Kann es sein dass i5/OS mir meine Verfehlungen bis zum Ende aller Tage vorwirft?

Gruss
WL

[Fuerchau]

Da scheint irgendwer einen RCLACTGRP unterwegs zu machen, da kann es schon mal zu Pointerverlusten kommen.

Was treibst du da eigentlich so besonderes, was mit den Standard RPG-Befehlen TIME, ADDDUR / SUBDUR bzw. den entsprechenden %-Funktionen nicht auch geht ?

Ach ja übrigens: der UTC-Offset steht im Systemwert QUTCOFFSET und wird bei der TIME-Funktion nicht berücksichtigt, da die AS immer nur mit Localtime arbeitet.

[lieser]

ich mache diese Verrenkungen, um die zuletzt geänderte Datei
in einem IFS-Verzeichnis zu bestimmen, aus der dann Updates
gemacht werden

Gruss
WL

[Fuerchau]

Dann verwende doch lieber die C-Routinen wie localtime()
http://publib.boulder.ibm.com/iserie....htm#HDRLOCALT

[B.Hauser]

Hallo Forum,

ich rechne mit Datum und Eurer Hilfe.
Folgendes passiert:
an irgendeiner Stelle fällt eine Datumsroutine auf die Nase.
Beim erneuten Aufruf des Programms im Debugger kommt
gleich zu Anfang ein Abbruch RNQ0100,
und zwar merkwürdigerweise hier
// -----------------------------------------------------------
D CEEUTCO PR ExtProc('CEEUTCO')
D hours 10I 0
D minutes 10I 0
D seconds 8F
//
D hours_utc s 10I 0
D mins_utc s 10I 0
D secs_utc s 8F
D utcoffset s 10I 0
D UnixUrknall s z inz(z'1970-01-01-00.00.00.0
...
callp(e) CEEUTCO(hours_utc: mins_utc: secs_utc);
if %error;
utcoffset = 0;
else;
utcoffset = secs_utc;
endif;

Kann es sein dass i5/OS mir meine Verfehlungen bis zum Ende aller Tage vorwirft?

Gruss
WL

Hallo,

laut API-Beschreibung ist der 4.Parameter Omissible und nicht optional, d.h. er muss übergeben werden.
*OMIT ist als Übergabe-Wert zulässig.

RNQ0100 bedeutet:
Länge oder Anfangs-Position liegt ausserhalb des gültigen Bereichs für die Zeichenfolge Operation.
Der Abbruch erfolgt bei der Aktivierung, da die Parameter nicht übereinstimmen.

Der Prototyp und Aufruf müssten wie folgt abgeändert werden:

D CEEUTCO         PR                  extproc('CEEUTCO') 
D  ParOffHours                  10I 0                    
D  ParOffMinutes                10I 0                    
D  ParOffSeconds                 8F                      
D  ParFeedBack                  12A   options(*Omit)     
                                                         
D  OffHours       S             10I 0                    
D  OffMinutes     S             10I 0                    
D  OffSeconds     S              8F
 *---------------------------------------------------
 /Free                                                   
   CeeUTCO(OffHours: OffMinutes: OffSeconds: *OMIT);
   *InLR = *On;  
 /End-Free 

Dieses Beispiel läuft unter V5R2M0 ohne Probleme

Birgitta

[lieser]

Das war's

vielen Dank !!!!

Gruss
WL