Содержание

AS/400: Системная дата и время

Показать системное время

DSPSYSVAL SYSVAL(QTIME)
Показать системное значение      

Системное значение . . :   QTIME                          
Описание . . . . . . . :   Время                          


Время  . . . . . . . . :   17:58:37   ЧЧ:MM:СС

Изменить системное время

CHGSYSVAL SYSVAL(QTIME) VALUE('HHMMSS')
HHчасы
MMминуты
SSсекунды

Другие переменные:

QTIME, QHOUR, QMINUTE, QSECOND

:!: Изменение системного времени вызывает ошибку при печати этикеток из программ УЧЕТ ПРОДУКЦИИ

Нужно менять системное время когда эти программы не работают или перезагружать программы сразу после изменения системного времени.

Показать системную дату

DSPSYSVAL SYSVAL(QDATE) 

Показать системное значение  

Системное значение . . :   QDATE                      
Описание . . . . . . . :   Системная дата             
                                                 

Дата . . . . . . . . . :   02.11.04   ДД.MM.ГГ

Другие переменные:

QDAYOFWEEK, QDATE, QDAY, QMONTH, QYEAR

Показать разность между текущим врем. и врем. по Гринвичу

DSPSYSVAL SYSVAL(QUTCOFFSET)
Показать системное значение                        

Системное значение . . :   QUTCOFFSET                                       
Описание . . . . . . . :   Разность между текущим врем. и врем. по Гринвичу 
                                                                           
Смещение . . . . . . . :   +03:00     От -24:00 до +24:00

Изменить разность между текущим врем. и врем. по Гринвичу

WRKSYSVAL SYSVAL(QUTCOFFSET)

Переход на летнее/зимнее время

1. Изменить разность между текущим врем. и врем. по Гринвичу

На за летнее время: 

CHGSYSVAL SYSVAL(QUTCOFFSET) VALUE('+0400')

На зимнее время: 

CHGSYSVAL SYSVAL(QUTCOFFSET) VALUE('+0300')

2. Изменить системное время

,