RE: Daylight Savings Time CLP

["Jan Rockstedt" <jan.rockstedt@xxxxxxxxxxxxxxxxx>]

 Hi again !

I get this error's when i complie.

//Jan

                    DAYSAVTIM:   PGM
 3400-              DCL        &MONTH  *CHAR  2     
 3500-              DCL        &DAY    *CHAR  2     
 3600-              DCL        &HOUR   *CHAR  2     
 3700-              DCL        &HOUR#  *DEC   (2 0) 
 3800-              DCL        &UTCOFFSET  *CHAR  5

 3900-              DCL        &UTCOFFSET# *DEC  (5 0)

 * CPD0018 30  String '&UTCOFFSET' contains a character that is not
valid.   
 4000-

 4100-              RTVSYSVAL  QMONTH  &MONTH

 4200-              RTVSYSVAL  QDAY    &DAY

 4300-              RTVSYSVAL  QHOUR   &HOUR

 4400-              RTVSYSVAL  QUTCOFFSET &UTCOFFSET

 4500-

 4600-              CHGVAR     &HOUR#  &HOUR

 * CPD0018 30  String '&HOUR#  &H' contains a character that is not
valid.   
 4700-              CHGVAR     &UTCOFFSET#  &UTCOFFSET

 * CPD0018 30  String '&UTCOFFSET' contains a character that is not
valid.   
 4800-

 4900-              IF         (&MONTH = '04' *AND &DAY < '15') THEN(DO)

 5000-               CHGVAR     &HOUR#  (&HOUR# +1)

 CPD0018 30  String '&HOUR#  (&' contains a character that is not valid.

 CPD0018 30  String '&HOUR# +1)' contains a character that is not valid.

 5100-               CHGVAR     &UTCOFFSET#  (&UTCOFFSET# +100)

 CPD0018 30  String '&UTCOFFSET' contains a character that is not valid.

 CPD0018 30  String '&UTCOFFSET' contains a character that is not valid.

 5200-              ENDDO

 5300-

 5400-              IF         (&MONTH = '10' *AND &DAY > '15') THEN(DO)

 5500-               CHGVAR     &HOUR#  (&HOUR# -1)

 CPD0018 30  String '&HOUR#  (&' contains a character that is not valid.

 CPD0018 30  String '&HOUR# -1)' contains a character that is not valid.

 5600-               CHGVAR     &UTCOFFSET#  (&UTCOFFSET# -100)

 CPD0018 30  String '&UTCOFFSET' contains a character that is not valid.

 CPD0018 30  String '&UTCOFFSET' contains a character that is not valid.

 5700-              ENDDO

 5800-

 5900-              IF         ((&MONTH = '04' *AND &DAY < '15') *OR +

 6000                           (&MONTH = '10' *AND &DAY > '15'))
THEN(DO)
 6100-               CHGVAR     &HOUR   &HOUR#

CPD0018 30  String '&HOUR#    ' contains a character that is not valid.

 6200-               CHGSYSVAL  QHOUR   &HOUR

 6300-               IF         (&UTCOFFSET# > 2400) +

 6400                              CHGVAR &UTCOFFSET# (&UTCOFFSET# -
2400)  
CPD0018 30  String '&UTCOFFSET' contains a character that is not valid.

CPD0018 30  String '&UTCOFFSET' contains a character that is not valid.

CPD0018 30  String '&UTCOFFSET' contains a character that is not valid.

 6500-               IF         (&UTCOFFSET# < -2400) +

 6600                              CHGVAR &UTCOFFSET# (&UTCOFFSET# +
2400)  
* CPD0018 30  String '&UTCOFFSET' contains a character that is not
valid.        
* CPD0018 30  String '&UTCOFFSET' contains a character that is not
valid.        
* CPD0018 30  String '&UTCOFFSET' contains a character that is not
valid.        
 6700-               IF         ((&UTCOFFSET# < -45) & (&UTCOFFSET# >
-100)) + 
 6800                              CHGVAR &UTCOFFSET# (&UTCOFFSET# + 40)

* CPD0018 30  String '&UTCOFFSET' contains a character that is not
valid.        
* CPD0018 30  String '&UTCOFFSET' contains a character that is not
valid.        
* CPD0018 30  String '&UTCOFFSET' contains a character that is not
valid.        
* CPD0018 30  String '&UTCOFFSET' contains a character that is not
valid.        
 6900-               IF         ((&UTCOFFSET# > 45) & (&UTCOFFSET# <
100)) +   
 7000                              CHGVAR &UTCOFFSET# (&UTCOFFSET# - 40)

* CPD0018 30  String '&UTCOFFSET' contains a character that is not
valid.        
* CPD0018 30  String '&UTCOFFSET' contains a character that is not
valid.        
* CPD0018 30  String '&UTCOFFSET' contains a character that is not
valid.        
* CPD0018 30  String '&UTCOFFSET' contains a character that is not
valid.        
 7100-               CHGVAR     &UTCOFFSET &UTCOFFSET#

* CPD0018 30  String '&UTCOFFSET' contains a character that is not
valid.        
 7200-               IF         (&UTCOFFSET# >= 0) THEN(CHGVAR +

 7300                              &UTCOFFSET ('+' *CAT %SST(&UTCOFFSET
2 4))) 
* CPD0018 30  String '&UTCOFFSET' contains a character that is not
valid.        
 7400-               CHGSYSVAL  QUTCOFFSET &UTCOFFSET

 7500-              ENDDO

 7600-

 7700-              ENDPGM

                               * * * * *   E N D   O F   S O U R C E   *
* * * *