job watch

[Thom Stone]

I see a job for a Rexx / Netview programmer posted at deere.com. Same job
is posted at some other sites. indeed.com, etc.

Search REXX
Zip 61265 if you are interested.



Thanks,
Thom Stone
mailto:ston...@mchsi.com






----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX

[Shaughnessy, Mike]

NOW = DATE('ORDERED') generates NOW = 13/04/11
TODAY = DATE('STANDARD') generates TODAY = 20130411

Is there a REXX command that generates 2013/04/11 without manipulation?


Thanks!

There are 10 kind of people in the world, those that understand binary
and those that don't.

Mike Shaughnessy
Programmer/Analyst
PCE Paragon Solutions
7501 South Memorial Parkway
Suite 102
Huntsville, Alabama 35803
Desk Phone 256-690-5254
Cell Phone 256-929-3333
Fax Number 256-690-5277
email: Mike.Sha...@foxconn.com


P Please consider your environmental responsibility before printing this
email. If you must print it, please recycle!

[Brenton, Ren]

No native command, but this should work:

xx = Insert('/',Insert('/',Date('S'),4),7)

Ren

The information contained in this message is proprietary and/or confidential. If you are not the intended recipient, please: (i) delete the message and all copies; (ii) do not disclose, distribute or use the message in any manner; and (iii) notify the sender immediately. In addition, please be aware that any message addressed to our domain is subject to archiving and review by persons other than the intended recipient. Thank you.

[Höglund Lars]

Example that works here

3 *-* x = left(date('s'),2) !! date('o')
>>> "2013/04/11"
4 *-* a=TRANSLATE('year-mn-dt',DATE('S'),'yearmndt')
>>> "2013-04-11"
5 *-* a=TRANSLATE('mn/dt/year',DATE('S'),'yearmndt')
>>> "04/11/2013"

//Lasse

-----Ursprungligt meddelande-----
Fr�n: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] F�r Shaughnessy, Mike
Skickat: den 11 april 2013 18:48
Till: TSO-...@VM.MARIST.EDU
�mne: [TSO-REXX] DATE QUESTION

[Dave Salt]

You don't need to use REXX; variable SYS4DATE contains today's date in the format you want.

Dave Salt

SimpList(tm) - try it; you'll get it!

http://www.mackinney.com/products/program-development/simplist.html


> Date: Thu, 11 Apr 2013 11:44:10 -0500
> From: Mike.Sha...@FOXCONN.COM
> Subject: DATE QUESTION
> To: TSO-...@VM.MARIST.EDU

[Lizette Koehler]

Dave

Does that work on all platforms where REXX can run? Is is it specific to z/ is?

Lizette


-----Original Message-----
>From: Dave Salt <ds...@HOTMAIL.COM>
>Sent: Apr 11, 2013 10:23 AM


>To: TSO-...@VM.MARIST.EDU
>Subject: Re: [TSO-REXX] DATE QUESTION

[Jeff Byrum]

As far as I can tell, SYS4DATE is only available in CLISTs, but not in REXX. Am I missing something?

[Steve Comstock]

On 4/11/2013 2:26 PM, Jeff Byrum wrote:
> As far as I can tell, SYS4DATE is only available in CLISTs, but not in REXX. Am I missing something?
>

You're right.

However, you can access the date in the format you
want in pieces, such as


today = mvsvar(yr4)"/"mvsvar(mon)"/"mvsvar(day)

or some of the other suggested approaches

Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

303-355-2752
http://www.trainersfriend.com

* To get a good Return on your Investment, first make an investment!
+ Training your people is an excellent investment

* Try our tool for calculating your Return On Investment
for training dollars at
http://www.trainersfriend.com/ROI/roi.html

[Glenn Knickerbocker]

On 4/11/2013 12:47 PM, Shaughnessy, Mike wrote:
> Is there a REXX command that generates 2013/04/11 without manipulation?

If you use the compiler, it has a more recent Rexx level and you can use
DATE('S',,,'/'). Otherwise, the TRANSLATE trick that Lars posted is
what IBM's documentation recommends.

You might consider using '-' rather than '/', since it's the standard
separator for ISO 8601 format dates.

�R

[Paul Gilmartin]

On 2013-04-11, at 16:37, Glenn Knickerbocker wrote:

> On 4/11/2013 12:47 PM, Shaughnessy, Mike wrote:
>> Is there a REXX command that generates 2013/04/11 without manipulation?
>
> If you use the compiler, it has a more recent Rexx level and you can use
> DATE('S',,,'/'). Otherwise, the TRANSLATE trick that Lars posted is
> what IBM's documentation recommends.
>
> You might consider using '-' rather than '/', since it's the standard
> separator for ISO 8601 format dates.
>

Yeah, right. And metric units.

http://xkcd.com/1179/

(But I subscribe to it, and use it where I can.)

-- gil

[Roberto Halais]

say translate('abcd/ef/gh',date('S'),'abcdefgh')

--
"Men will never be free until the last king is strangled with the entrails
of the last priest." Denis Diderot

[Shaughnessy, Mike]

I'm doing a compare on the ZLM4DATE of a PDS and if it is equal to
today's date, I would write it. As I loop through the PDS I display each
line with a SAY and the ZLM4DATE correctly shows the date of that
members last update.
But I also do a SAY display of the ZLM4DATE and it shows a different
date altogether. I can't figure my problem. My code is below. Below
that is the output of the 3 SAY's.

TODAY = DATE('STANDARD')

TODAY = INSERT('/',INSERT('/',DATE('S'),4),7)
DO I = 1 TO 20
COMPARE = ZLM4DATE
SAY 'COMPARE = 'COMPARE
SAY 'TODAY = 'TODAY
IF TODAY = COMPARE
THEN SAY MEMLIST.I
END


COMPARE = 2013/04/11
TODAY = 2013/04/15
AAAAAAA 2010/10/22 2010/12/20 16:19:12 01 01 SYSMAS1
COMPARE = 2013/04/11
TODAY = 2013/04/15
AAAAAAAU 2012/03/29 2012/03/29 12:47:07 01 00 SCLM
COMPARE = 2013/04/11
TODAY = 2013/04/15
AAAAAAG 2010/10/22 2010/10/22 10:59:55 01 00 SCLM

Thanks!

There are 10 kind of people in the world, those that understand binary
and those that don't.

Mike Shaughnessy
Programmer/Analyst
PCE Paragon Solutions
7501 South Memorial Parkway
Suite 102
Huntsville, Alabama 35803
Desk Phone 256-690-5254
Cell Phone 256-929-3333
Fax Number 256-690-5277
email: Mike.Sha...@foxconn.com


P Please consider your environmental responsibility before printing this
email. If you must print it, please recycle!





-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@vm.marist.edu] On Behalf

Of Roberto Halais
Sent: Friday, April 12, 2013 1:46 PM
To: TSO-...@vm.marist.edu
Subject: Re: [TSO-REXX] DATE QUESTION

[Grinsell, Don]

ZLM4DATE appears to remain constant. I don't see where you refresh ZLM4DATE for each new row so it likely has some residual value from the portion of your code that you didn't include.

--

Donald Grinsell
State of Montana
406-444-2983
dgri...@mt.gov

"Any clod can have the facts, but having opinions is an art."
~ Charles McCabe, San Francisco Chronicle

-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf Of Shaughnessy, Mike

[Kopischke, David G.]

Shot in the dark;

Try a strict comparison:

IF TODAY == COMPARE

That might give you a further clue...

This e-mail transmission may contain information that is proprietary, privileged and/or confidential and is intended exclusively for the person(s) to whom it is addressed. Any use, copying, retention or disclosure by any person other than the intended recipient or the intended recipient's designees is strictly prohibited. If you are not the intended recipient or their designee, please notify the sender immediately by return e-mail and delete all copies. OppenheimerFunds may, at its sole discretion, monitor, review, retain and/or disclose the content of all email communications.

[Grinsell, Don]

Mike,

Assuming you've already done the LMINIT and LMOPEN I think you need to issue LMMLIST within your loop and then extract the updated ZLM4DATE value:

"LMMLIST DATAID("DataID") OPTION(LIST) MEMBER(MEMBR) STATS(YES)"
If rc <> 0 Then leave

When you invoke LMMLIST for the first time with the LIST option, the
MEMBER variable determines the starting position within the member list.
To position at the beginning, set the MEMBER variable to blanks. If the
requested member is not found, the next member in the member list is
returned. The member list is sorted by member name. Repeated invocation of
LMMLIST provides access to each member name in the member list.

--

Donald Grinsell
State of Montana
406-444-2983
dgri...@mt.gov

"Money is not freedom. A frontal lobotomy - that's freedom."
~ James Lapine

-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf Of Shaughnessy, Mike
Sent: Tuesday, 16 April 2013 09:51
To: TSO-...@VM.MARIST.EDU