-
-
Wozu die Sommerzeitumstellung von Hand machen? Unter V5R4 gibt's dafür WRKTIMZON und WRKSYSVAL QTIMZON. Die Zeitzone für Deutschland ist QP0100CET4.
-
Leider haben wir noch Maschinen die auf V5R3 und niedrigerem Stand sind.
Deswegen soll ich dies Prog erstellen damit nicht 2x im Jahr alle von Hand umgestellt werden müssen.
AS400-Newbie... :))
-
In CLP hast du da schlechte Karten, hier hilft schon eher ein SQLRPGLE, mit SQL und WEEKDAY kannst du den Wochentag z.B. für den 31.3. eines Jahres ermitteln und das Datum berechnen.
Allerdings ist das manuelle ändern der SCD-Job's 2 mal pro Jahr doch erheblich einfacher .
-
Wenn das Systemdatum innerhalb der letzten 7 Tage von März oder Oktober liegt und der Systemwert QDAYOWEEK auf Sonntag steht, dann.......
-
Dazu müsste aber ggf. jedes CLP (da gibts ggf. mehrere) angepasst werden.
Alternativ kann man ja auch ein "Master-CLP" jeden Sonntag laufen lassen. Dieses braucht nur den Monat abzufragen und wenn es der letzte Sonntag im März/Oktober ist, das gewünschte original CLP aufrufen. Ansonsten beendet es sich sofort wieder.
-
Danke euch für eure zahlreichen Antworten!
Gibt es dann da keine Möglichkeit, dass ich über eine "Schleife" den letzten Sonntag im März des Folgejahres bzw den letzten Sonntag im Oktober errechnen lassen kann dies dann in den Scheduljob eintrage??
Leider hab ich RPG noch keinerlei Kenntnisse...
Ich bekomme einfach nicht die Logik zusammen wie ich dieses Datum abfragen/berechnen kann.
Es ist zum Mäuse melken!
AS400-Newbie... :))
-
Mit CLP definitiv nicht möglich.
Was kannst du ausser CLP denn noch ?
Wie wärs mit REXX oder COBOL ?
-
In COBOL hab ich ein bisschen Erfahrung...
AS400-Newbie... :))
-
Hier mal ein CL was täglich oder eben jeden Sonntag im SCD laufen soll/kann.
PHP-Code:
PGM DCL VAR(&MONAT) TYPE(*CHAR) LEN(2) DCL VAR(&DATUM) TYPE(*CHAR) LEN(6) DCL VAR(&WOTAG) TYPE(*CHAR) LEN(4) DCL VAR(&TAG) TYPE(*CHAR) LEN(2) DCL VAR(&TAG_NUM) TYPE(*DEC) LEN(2 0) RTVJOBA DATE(&DATUM) DAYOFWEEK(&WOTAG) CHGVAR VAR(&MONAT) VALUE(%SST(&DATUM 3 2)) CHGVAR VAR(&TAG ) VALUE(%SST(&DATUM 1 2)) CHGVAR VAR(&TAG_NUM) VALUE(&TAG) IF COND(&WOTAG *NE '*SUN') THEN(GOTO CMDLBL(ENDE)) IF COND(&MONAT *EQ '03') THEN(GOTO CMDLBL(MAERZ)) IF COND(&MONAT *EQ '10') THEN(GOTO CMDLBL(OKTOBER)) GOTO CMDLBL(ENDE) MAERZ: IF COND(&TAG_NUM > 24) THEN(DO) CALL PGM(CL_MAERZ) ENDDO GOTO CMDLBL(ENDE) OKTOBER: IF COND(&TAG_NUM > 24) THEN(DO) CALL PGM(CL_OKTOBER) ENDDO GOTO CMDLBL(ENDE) ENDE: ENDPGM
Nicht schön und nur teilweise getestet. Ist aber vielleicht ein denkanstoß.
Gruß
Ronald
Last edited by malzusrex; 30-10-10 at 06:43.
Grund: Wenn man den Sonntag will, sollte macn auch Sonntag und nicht den Samstag abfragen ;-)
-
Erstelle ein SQLCBL-Programm.
Das Datum muss in ISO-Format (JJJJ-MM-TT) oder EUR-Format (TT.MM.JJJJ)
übergeben werden
77 MYDATE PIC X(10).
PROCEDURE DIVISION USING MYDATE.
EXEC SQL
SET OPTION COMMIT=*NONE
END-EXEC
EXEC SQL
SET :MYDATE = DATE(:MYDATE) - (DAYOFWEEK(DATE(:MYDATE)) - 1) DAYS
END-EXEC
GOBACK
Wenn du nun z.B. den 31.03.2011 übergibst erhältst du den 27.03.2011 zurück.
-
Lösung...
Hallo zusammen!
Jetz muss ich nochmal schreiben bzgl. diesem Thema mit der Zeitumstellung und CL.
Ich habe es mit einem CLLE, meinem Ausbilder und dieser folgenden Seite als Lösungsansatz hinbekommen.
IBM servers - Time on a AS400 server
Viele Grüße und Danke nochmal für eure zahlreichen Antworten!
AS400-Newbie... :))
Similar Threads
-
By Sony in forum IBM i Hauptforum
Antworten: 27
Letzter Beitrag: 20-07-09, 21:48
-
By schatte in forum NEWSboard Programmierung
Antworten: 19
Letzter Beitrag: 10-01-07, 11:32
-
By heini in forum IBM i Hauptforum
Antworten: 3
Letzter Beitrag: 30-09-06, 10:10
-
By jjagi in forum IBM i Hauptforum
Antworten: 6
Letzter Beitrag: 07-07-06, 08:29
-
By bo1 in forum IBM i Hauptforum
Antworten: 3
Letzter Beitrag: 23-06-06, 15:00
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks