hi *all,

ich hab's ein bischen fester verdrahtet und lasse den job auch nur 2 mal im jahr gezielt laufen mit parameter, siehe beschreibung, hier das cl:

100 /************************************************** ******************/
200 /* */
300 /* ZEITUMSCL */ 04.03.03
400 /* */ 27.04.01
500 /* 04.03.2003, KARIN VOGELMANN */ 04.03.03
600 /* */ 27.04.01
700 /* ZEITUMSTELLUNG WINTER -> SOMMER UND SOMMER -> WINTER */ 04.03.03
800 /* */ 27.04.01
900 /* "SPRING FORWARD, FALL BACK" */ 04.03.03
1000 /* */ 04.03.03
1100 /* W = AUF WINTERZEIT UMSTELLEN, VON 3 AUF 2 UHR, OFFSET +01:00 */ 04.03.03
1200 /* S = AUF SOMMERZEIT UMSTELLEN, VON 2 AUF 3 UHR, OFFSET +02:00 */ 04.03.03
1300 /* */ 04.03.03
1400 /* ACHTUNG BEI WINTERZEIT: ES MUß DIE DATA-AREA "WINTERZEIT" AUF */ 04.03.03
1500 /* WERT 'J' STEHEN, SONST KEINE UMSTELLUNG */ 04.03.03
1600 /* DIE DATA-AREA WIRD EINMAL IM JAHR MANUELL AUF 'J' GESETZT!!! */ 04.03.03
1700 /* */ 04.03.03
1800 /************************************************** ******************/
1900 27.04.01
2000 PGM PARM(&WS) 04.03.03
2100 27.04.01
2200 DCL VAR(&WS) TYPE(*CHAR) LEN(1) 04.03.03
2300 DCL VAR(&DTAWINTER) TYPE(*CHAR) LEN(1) 04.03.03
2400 27.04.01
2500 /* DATENBEREICH AUSLESEN, DAMIT WINTERZEIT NICHT LOOPT */ 04.03.03
2600 RTVDTAARA DTAARA(MUSKUND/WINTERZEIT (1 1)) + 04.03.03
2700 RTNVAR(&DTAWINTER) 04.03.03
2800 04.03.03
2900 /* SOMMERZEIT EINSTELLEN */ 04.03.03
3000 IF COND(&WS = 'S') THEN(DO) 04.03.03
3100 DLYJOB RSMTIME(020000) 04.03.03
3200 CHGSYSVAL SYSVAL(QTIME) VALUE(030000) 04.03.03
3300 CHGSYSVAL SYSVAL(QUTCOFFSET) VALUE('+02:00') 04.03.03
3400 ENDDO 04.03.03
3500 04.03.03
3600 /* WINTERZEIT EINSTELLEN UND LOOP-FALLE UMGEHEN!!! */ 04.03.03
3700 IF COND(&WS = 'W') THEN(DO) 04.03.03
3800 IF COND(&DTAWINTER = 'J') THEN(DO) 04.03.03
3900 DLYJOB RSMTIME(030000) 04.03.03
4000 CHGSYSVAL SYSVAL(QTIME) VALUE(020000) 04.03.03
4100 CHGSYSVAL SYSVAL(QUTCOFFSET) VALUE('+01:00') 04.03.03
4200 CHGDTAARA DTAARA(MUSKUND/WINTERZEIT (1 1)) VALUE('N') 04.03.03
4300 ENDDO 04.03.03
4400 ENDDO 04.03.03
4500 04.03.03
4600 ENDE: ENDPGM 27.07.00
* * * E N D E D E R Q U E L L E * * *