You can use DATE() to do that.
Ex.:
xmdate = x
Hi Claudio.
You can use DATE() to do that.
Ex.:
xmdate = xmyear'1225' /*where xmyear is year in four digit format*/
xmwday = DATE('W', xmdate, 'S')
Regards
Alexandre
----- Mensagem original ----
De: Claudio Marcio <[EMAIL PROTECTED]>
Para: IBM-MAIN@BAMA.UA.EDU
Enviadas: Quarta-feira, 24 de Setembro de 2008 1:21:21
Assunto: REXX EXEC
Hi,
I need make one REXX exec to enter with one year the return the day
christmas of week.
ex: year 1978
day of th week - monday
year 2000
day of the week - saturday
how meke in REXX language?
regards
----- Original Message -----
From: "Paul Gilmartin" <[EMAIL PROTECTED]>
Newsgroups: bit.listserv.ibm-main
To: <IBM-MAIN@BAMA.UA.EDU>
Sent: Monday, September 22, 2008 7:00 PM
Subject: Re: Calling Assembler module from REXX
> On Mon, 22 Sep 2008 16:38:38 -0500, Dave Day wrote:
>
>>Suggestions:
>>
>>1)make the assembler routine re-entrant. Successive LOADS will up the use
>>count, but not actually bring in a new module.
>>
>>2)pass the called routine a parm that says this is a successive call, not
>>the 1st.
>>
>>3)if you can't do #2 above, take a look at NAME/TOKEN services.
>>
>>4)if you can't do #3 above, create another load module that is not
>>re-entrant. Just a csect that is all 0's. Have the 1st routine search
>>the
>>CDE chain for the non re-entrant one. Set indicators in the non
>>re-entrant
>>dummy 0's load module that tells the other one what the status of things
>>are.
>>
> All good ideas. For a variant of #2 with some influence from #4,
> let the Rexx routine supply the working storage for the called
> routine, initialized before the first call. See the use of
> "ChainingVector" in SYS1.SAMPLIB(CSFTEST) for an example of the
> Rexx side of this technique.
>
> But none of these deal with the deficiency that Rexx LINKPGM/ATTCHPGM
> will LOAD and DELETE even a REFReshable load module for each
> invocation. This causes unwelcome overhead for large numbers
> of invocations. So, perhaps:
>
> 5) Put the routine in LPA if permitted.
>
> Would there perhaps be Rexx interfaces to LOAD and DELETE
> on CBTTAPE (or similar) so the routine could be LOADed and
> DELETed only once?
>
> Would TSO-REXX supply better advice?
>
> -- gil
>
> ----------------------------------------------------------------------
> 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
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
----------------------------------------------------------------------
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
