Setting the time on an as400

[angels1]

I am new to as400 and this weekend daylight starts hoe do I set the time on the 400 or is it automatic

 

[hologram]

It is NOT automatic.

We use the following CL-program (Submit it in batch)
[ You have to check whether QDATE is in the format DDMMJJ on your system, if you want to use this pgm. ]
If you want to do it manually, you can use
WRKSYSVAL QHOUR
and change the value from 3 to 2. [Or you change it tomorrow morning substract 1 from the hour. ]

PS : Do not change it between 00:00:00 and 01:00:00

SEU==> SETWINTER
FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
*************** Beginning of data *************************************
001.00 PGM
002.00 DCL VAR(&DATE) TYPE(*CHAR) LEN(6)
003.00 DCL VAR(&DATUM) TYPE(*CHAR) LEN(6) VALUE('261003')
004.00 TAG010:
005.00 DLYJOB RSMTIME(030000)
006.00 RTVSYSVAL SYSVAL(QDATE) RTNVAR(&DATE)
007.00 IF COND(&DATE *NE &DATUM) THEN(DO)
008.00 GOTO CMDLBL(TAG010)
009.00 ENDDO
010.00
011.00 CHGSYSVAL SYSVAL(QHOUR) VALUE('02')
012.00
013.00 RETURN
014.00 ENDPGM
****************** End of data ****************************************

 

[jmd0252]

do a wrksysval *all ,,, there is a value called Qhour,,, you can change it, and hurray,,,the time is changed..

 

[angels1]

thanks very much

 

[jrjuiliano]

Hmmm, good suggestions, but I just do:

CHGSYSVAL SYSVAL(QTIME) VALUE('123456') where 123456 are the numbers in military time.

Is there a benefit to doing one way or the other? Submitting as a batch job notwithstanding?

J.R.