Thread View: bit.listserv.tsorexx
6 messages
6 total messages
Started by Thom Stone
Thu, 11 Apr 2013 00:03
job watch
Author: Thom Stone
Date: Thu, 11 Apr 2013 00:03
Date: Thu, 11 Apr 2013 00:03
20 lines
1698 bytes
1698 bytes
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:stonethom@mchsi.com ---------------------------------------------------------------------- For TSO-REXX subscribe / signoff / archive access instructions, send email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX
Re: DATE QUESTION
Author: Roberto Halais
Date: Fri, 12 Apr 2013 18:46
Date: Fri, 12 Apr 2013 18:46
39 lines
2952 bytes
2952 bytes
say translate('abcd/ef/gh',date('S'),'abcdefgh')
On Thu, Apr 11, 2013 at 8:02 PM, Paul Gilmartin <PaulGBoulder@aim.com>wrote:
> 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
>
> ----------------------------------------------------------------------
> For TSO-REXX subscribe / signoff / archive access instructions,
> send email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX
>
--
"Men will never be free until the last king is strangled with the entrails
of the last priest." Denis Diderot
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX
Re: DATE QUESTION
Author: Shaughnessy, Mike
Date: Tue, 16 Apr 2013 15:51
Date: Tue, 16 Apr 2013 15:51
110 lines
4675 bytes
4675 bytes
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.Shaughnessy@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-REXX@vm.marist.edu] On Behalf
Of Roberto Halais
Sent: Friday, April 12, 2013 1:46 PM
To: TSO-REXX@vm.marist.edu
Subject: Re: [TSO-REXX] DATE QUESTION
say translate('abcd/ef/gh',date('S'),'abcdefgh')
On Thu, Apr 11, 2013 at 8:02 PM, Paul Gilmartin
<PaulGBoulder@aim.com>wrote:
> 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
>
> ----------------------------------------------------------------------
> For TSO-REXX subscribe / signoff / archive access instructions,
> send email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX
>
--
"Men will never be free until the last king is strangled with the
entrails
of the last priest." Denis Diderot
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX
Re: DATE QUESTION
Author: Grinsell, Don
Date: Tue, 16 Apr 2013 16:06
Date: Tue, 16 Apr 2013 16:06
114 lines
5589 bytes
5589 bytes
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
dgrinsell@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-REXX@VM.MARIST.EDU] On Behalf Of Shaughnessy, Mike
Sent: Tuesday, 16 April 2013 09:51
To: TSO-REXX@VM.MARIST.EDU
Subject: Re: [TSO-REXX] DATE QUESTION
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.Shaughnessy@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-REXX@vm.marist.edu] On Behalf Of Roberto Halais
Sent: Friday, April 12, 2013 1:46 PM
To: TSO-REXX@vm.marist.edu
Subject: Re: [TSO-REXX] DATE QUESTION
say translate('abcd/ef/gh',date('S'),'abcdefgh')
On Thu, Apr 11, 2013 at 8:02 PM, Paul Gilmartin
<PaulGBoulder@aim.com>wrote:
> 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
>
> ----------------------------------------------------------------------
> For TSO-REXX subscribe / signoff / archive access instructions, send
> email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX
>
--
"Men will never be free until the last king is strangled with the entrails of the last priest." Denis Diderot
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions, send email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions, send email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX
Re: DATE QUESTION
Author: Kopischke, David G.
Date: Tue, 16 Apr 2013 16:29
Date: Tue, 16 Apr 2013 16:29
136 lines
6754 bytes
6754 bytes
Shot in the dark;
Try a strict comparison:
IF TODAY == COMPARE
That might give you a further clue...
-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-REXX@VM.MARIST.EDU] On Behalf Of Grinsell, Don
Sent: Tuesday, April 16, 2013 10:06 AM
To: TSO-REXX@VM.MARIST.EDU
Subject: Re: [TSO-REXX] DATE QUESTION [ External ]
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
dgrinsell@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-REXX@VM.MARIST.EDU] On Behalf Of Shaughnessy, Mike
Sent: Tuesday, 16 April 2013 09:51
To: TSO-REXX@VM.MARIST.EDU
Subject: Re: [TSO-REXX] DATE QUESTION
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.Shaughnessy@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-REXX@vm.marist.edu] On Behalf Of Roberto Halais
Sent: Friday, April 12, 2013 1:46 PM
To: TSO-REXX@vm.marist.edu
Subject: Re: [TSO-REXX] DATE QUESTION
say translate('abcd/ef/gh',date('S'),'abcdefgh')
On Thu, Apr 11, 2013 at 8:02 PM, Paul Gilmartin
<PaulGBoulder@aim.com>wrote:
> 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
>
> ----------------------------------------------------------------------
> For TSO-REXX subscribe / signoff / archive access instructions, send
> email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX
>
--
"Men will never be free until the last king is strangled with the entrails of the last priest." Denis Diderot
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions, send email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions, send email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions, send email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX
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.
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX
Re: DATE QUESTION
Author: Grinsell, Don
Date: Tue, 16 Apr 2013 16:48
Date: Tue, 16 Apr 2013 16:48
126 lines
6242 bytes
6242 bytes
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
dgrinsell@mt.gov
"Money is not freedom. A frontal lobotomy - that's freedom."
~ James Lapine
-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-REXX@VM.MARIST.EDU] On Behalf Of Shaughnessy, Mike
Sent: Tuesday, 16 April 2013 09:51
To: TSO-REXX@VM.MARIST.EDU
Subject: Re: [TSO-REXX] DATE QUESTION
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.Shaughnessy@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-REXX@vm.marist.edu] On Behalf Of Roberto Halais
Sent: Friday, April 12, 2013 1:46 PM
To: TSO-REXX@vm.marist.edu
Subject: Re: [TSO-REXX] DATE QUESTION
say translate('abcd/ef/gh',date('S'),'abcdefgh')
On Thu, Apr 11, 2013 at 8:02 PM, Paul Gilmartin
<PaulGBoulder@aim.com>wrote:
> 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
>
> ----------------------------------------------------------------------
> For TSO-REXX subscribe / signoff / archive access instructions, send
> email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX
>
--
"Men will never be free until the last king is strangled with the entrails of the last priest." Denis Diderot
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions, send email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions, send email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads