RE: Daylight Savings Time CLP

["Carel Teijgeler" <coteijgeler@xxxxxxxxx>]

Jan,

Remove the # in the DCL statement

Regards,
Carel Teijgeler

*********** REPLY SEPARATOR  ***********

On 4-4-03 at 22:58 Jan Rockstedt wrote:

>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   *
>* * * * 
>
>_______________________________________________
>This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
>To post a message email: MIDRANGE-L@xxxxxxxxxxxx
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/mailman/listinfo/midrange-l
>or email: MIDRANGE-L-request@xxxxxxxxxxxx
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/midrange-l.