DST Helper

["Haase, Justin C." <justin.haase@xxxxxxxxxxxx>]

Here are the commands I'm using to help me stay out and party longer on
Saturday night on the last weekend of this month and NOT receive any
phone calls.  

As long as Outlook doesn't totally screw-up the formatting you should be
able to paste these beauties right in to a QCMD screen depending on your
timezone and choice of replication software.  YMMV, but it'll save you
some time if you have systems that don't automatically do it for you.
Test it if you have a test LPAR!  Don't blame me if it doesn't work on
your box, but I've been using these for a long time and just got done
putting them on 15 systems.  Make sure they're SAVE(*NO) or you'll
relive that hour over and over and over and over.  ;)  Mountain or
Pacific people, you can modify 3 or 4 to do what you need - I don't have
any machines in those zones.

1 - if using IBM's SupportLine SNTP client
ADDJOBSCDE JOB(DST_ENDNTP) CMD(ENDSBS SBS(QZRDSNTP) OPTION(*IMMED))
FRQ(*ONCE) SCDDATE('10/29/2006') SCDTIME('01:50:00')
TEXT('DST: End Time Sync')

2 - if using Mimix with no RJ
ADDJOBSCDE JOB(DST_MMX1) CMD(MIMIX/ENDDG DGDFN(*ALL)) FRQ(*ONCE)        
SCDDATE('10/29/2006') SCDTIME('01:55:00') TEXT('DST: End Mimix')

2a - if using Mimix with RJ
ADDJOBSCDE JOB(DST_MMX1) CMD(MIMIX/ENDDG DGDFN(*ALL) ENDRJLNK(*YES)) 
FRQ(*ONCE) SCDDATE('10/29/2006') SCDTIME('01:55:00')                 
TEXT('DST: End Mimix')       

3 - systems on eastern time currently -0400
ADDJOBSCDE JOB(DST_UTC) CMD(CHGSYSVAL SYSVAL(QUTCOFFSET) VALUE('-0500'))
FRQ(*ONCE) SCDDATE('10/29/2006') SCDTIME('01:58:55')     
TEXT('DST: Change UTC Offset Eastern')   

4 - systems on central time currently -0500
ADDJOBSCDE JOB(DST_UTC) CMD(CHGSYSVAL SYSVAL(QUTCOFFSET) VALUE('-0600'))
FRQ(*ONCE) SCDDATE('10/29/2006') SCDTIME('01:58:55')     
TEXT('DST: Change UTC Offset Central')   

5 - systems in London UK currently +0100
ADDJOBSCDE JOB(DST_UTC) CMD(CHGSYSVAL SYSVAL(QUTCOFFSET) VALUE('-0000'))

FRQ(*ONCE) SCDDATE('10/29/2006') SCDTIME('01:58:55')

TEXT('DST: Change UTC Offset UK GMT BST')


6 - all systems
ADDJOBSCDE JOB(DST_HOUR) CMD(CHGSYSVAL SYSVAL(QHOUR) VALUE('00'))
FRQ(*ONCE) SCDDATE('10/29/2006') SCDTIME('01:59:00')     
TEXT('DST: Change Hour')         

7 - start Mimix (no matter if RJ or not)
ADDJOBSCDE JOB(DST_MMX2) CMD(MIMIX/STRDG DGDFN(*ALL)) FRQ(*ONCE)        
SCDDATE('10/29/2006') SCDTIME('03:00:00') TEXT('DST: Start Mimix')      

--
Justin C. Haase - iSeries System Engineer
IBM Certified Systems Expert - System i
Kingland Systems Corporation


CONFIDENTIALITY NOTICE:  This e-mail communication, including attachments, is 
covered by the Electronic Communications Privacy Act, 18 U.S.C. 2510-2521, is 
confidential, and may be legally privileged.  If you are not the intended 
recipient or believe you received this communication in error, please reply to 
the sender indicating that fact and delete the copy you received.  In addition, 
retention, dissemination, distribution, copying, or otherwise use of the 
information contained in this communication is strictly prohibited.  Thank you.