when I run my exec REXX the error appears:
1 +++ ?
IRX0013I Error running BRAS, line 1: Invalid character in program
see my program rexx BRAS:
/* REXX para mostrar o dia da semana que cai o natal. BY CLAUDIO MARCIO */
/***************************************************************/
/* Say 'Calculate Christmas day in year ?' */
Say 'Este programa informa em que dia da semana foi ou sera o Natal',
'em determinado ano, que ano quer saber ?'
pull year
do until answer \= "S"
if year = "" then year = right(date(),4)
dec25 = date("B",year"1225","S")//7
select
when dec25 = 0 then day = "Segunda-feira"
when dec25 = 1 then day = "Terca-feira"
when dec25 = 2 then day = "Quarta-feira"
when dec25 = 3 then day = "Quinta-feira"
when dec25 = 4 then day = "Sexta-feira"
when dec25 = 5 then day = "Sabado"
otherwise day = "Domingo"
end
if year < right(date(),4) then
say 'Em 'year', o natal foi 'day
else
say 'Em 'year', o natal sera 'day
say 'Deseja saber mais algum ano ? (s/n)'
pull answer
if answer = 'S' then
Say 'Vamos la entao, qual outro ano voce gostaria de saber!!'
else
do
say 'BYE! BYE!'
leave
end
pull year
end
exit
---------------------------------------------------------------------------------------
Very strange!!!!
Why runs in other dataset ??
in the dataset below, run ok..
VIEW ZOS.CONTEST.JCL ------------> other dataset
Command ===> Scroll ===>
PAGE
Name Prompt Size Created Changed ID
__ex_____ BRAS *RC=0 11 2007/09/19 2007/09/21 14:36:53 BABEYS
**End**
In the dataset below, not run, WHY??
I'm use the ex command in BRAS(member) of the my datset see;
VIEW BRATIME.TIME.CHRIST ---------------> my dataset
Command ===>
Name Prompt Size Created
___EX______ BRAS *Edited 34 2008/09/09 ---- -> member
member
**End**
regards
----- Original Message -----
From: "Hunkeler Peter (KIUK 3)" <[EMAIL PROTECTED]>
Newsgroups: bit.listserv.ibm-main
To: <[email protected]>
Sent: Friday, October 17, 2008 4:52 AM
Subject: Re: REXX error
I don't see neither an error nor REXX code? What is your problem?
Pleaes take your time to write sufficient information so others
are able to help instead of wasting time trying to guess what
you want.
--
Peter Hunkeler
CREDIT SUISSE
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
