|
midrange.com
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 *
* * * *
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
