Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Re: DATE QUESTION
36 views
Skip to first unread message
Phil Smith III
Apr 17, 2013, 7:26:58 AM4/17/13
to
Shaughnessy, Mike wrote:
>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.
If it isn't clear what you think is wrong here: you say "a different date
altogether". Different from what?
But from the output, it doesn't seem that you're running the code you think
you are anyway: the output (below) suggests that the comparison is matching,
yet the displayed values clearly aren't. I also ran this (forcing ZLM4DATE
to the 2013/04/11 value) and, as expected, got no MEMLIST.I output.
The first line of your code doesn't do anything, btw -- you reset TODAY in
the next line anyway.
>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
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX
>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.
If it isn't clear what you think is wrong here: you say "a different date
altogether". Different from what?
But from the output, it doesn't seem that you're running the code you think
you are anyway: the output (below) suggests that the comparison is matching,
yet the displayed values clearly aren't. I also ran this (forcing ZLM4DATE
to the 2013/04/11 value) and, as expected, got no MEMLIST.I output.
The first line of your code doesn't do anything, btw -- you reset TODAY in
the next line anyway.
>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
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX
Shaughnessy, Mike
Apr 17, 2013, 10:46:09 AM4/17/13
to
Thanks Phil,
From the advice from Ren Brenton, I learned and am using
TODAY = Insert('/',Insert('/',Date('S'),4),7), but you state
that my first line of code doesn't do anything:
>TODAY = DATE('STANDARD')
>TODAY = INSERT('/',INSERT('/',DATE('S'),4),7)
I ran several tests and sure enough, you are right. I was just thinking
that if I did not use the standard line, how would it know it was not
ordered? But it works for ordered, standard or by itself.
As far as my comment about the dates being different, from the below
displayed
output, the highlight red dates are both ZLM4DATE and should have been
the
same, but weren't. Anyway, somehow I have it fixed now. Thanks to all
for the
help.
>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!
From the advice from Ren Brenton, I learned and am using
TODAY = Insert('/',Insert('/',Date('S'),4),7), but you state
that my first line of code doesn't do anything:
>TODAY = DATE('STANDARD')
>TODAY = INSERT('/',INSERT('/',DATE('S'),4),7)
that if I did not use the standard line, how would it know it was not
ordered? But it works for ordered, standard or by itself.
As far as my comment about the dates being different, from the below
displayed
output, the highlight red dates are both ZLM4DATE and should have been
the
same, but weren't. Anyway, somehow I have it fixed now. Thanks to all
for the
help.
>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
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!
Shaughnessy, Mike
Apr 17, 2013, 5:20:33 PM4/17/13
to
I have code that looks as such:
TODAY = DATE('BASE') generates 734974
YESTERDAY = TODAY - 1 generates 734973
Then I do some compares, then have to display the dates in a report.
For the TODAY date, I use
TODAY = INSERT('/',INSERT('/',DATE('S'),4),7) which generates 2013/04/17
which is the format I want it to be displayed in. But I can't find how
to change YESTERDAY's date to that format. When I use the command
YESTERDAY = INSERT('/',INSERT('/',DATE('S'),4),7 it changes the
yesterday
date to today's date. Thanks for any suggestions.
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 Phil Smith III
Sent: Wednesday, April 17, 2013 6:27 AM
To: TSO-...@vm.marist.edu
Subject: Re: [TSO-REXX] DATE QUESTION
TODAY = DATE('BASE') generates 734974
YESTERDAY = TODAY - 1 generates 734973
Then I do some compares, then have to display the dates in a report.
For the TODAY date, I use
TODAY = INSERT('/',INSERT('/',DATE('S'),4),7) which generates 2013/04/17
which is the format I want it to be displayed in. But I can't find how
to change YESTERDAY's date to that format. When I use the command
YESTERDAY = INSERT('/',INSERT('/',DATE('S'),4),7 it changes the
yesterday
date to today's date. Thanks for any suggestions.
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 Phil Smith III
Sent: Wednesday, April 17, 2013 6:27 AM
To: TSO-...@vm.marist.edu
Subject: Re: [TSO-REXX] DATE QUESTION
Vitonis, Tony
Apr 17, 2013, 5:22:17 PM4/17/13
to
I'm seeing:
TODAY = INSERT('/',INSERT('/',DATE('S'),4),7)
TODAY = INSERT('/',INSERT('/',DATE('S'),4),7)
YESTERDAY = INSERT('/',INSERT('/',DATE('S'),4),7
They're identical except for the lack of a final parenthesis in the latter expression (presumably a typo). Why would the results be different?
Grinsell, Don
Apr 17, 2013, 5:26:47 PM4/17/13
to
YESTERDAY = INSERT('/',INSERT('/',DATE('S')-1,4),7)
--
Donald Grinsell
State of Montana
406-444-2983
dgri...@mt.gov
"There are only two lasting bequests we can hope to give our children. One of these is roots, the other wings."
~ Hodding Carter
-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf Of Shaughnessy, Mike
--
Donald Grinsell
State of Montana
406-444-2983
dgri...@mt.gov
"There are only two lasting bequests we can hope to give our children. One of these is roots, the other wings."
~ Hodding Carter
-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf Of Shaughnessy, Mike
Kopischke, David G.
Apr 17, 2013, 5:27:41 PM4/17/13
to
He's trying to convert the date representation 734974 back to CCYY/MM/DD. I don't know of any way to do that.
I'm also not sure that this representation is really a day count. I haven't looked it up, but I'm skeptical.
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.
I'm also not sure that this representation is really a day count. I haven't looked it up, but I'm skeptical.
Grinsell, Don
Apr 17, 2013, 5:33:38 PM4/17/13
to
YDAY = DATE('B')-1
YESTERDAY = INSERT('/',INSERT('/',DATE('S',YDAY,'B'),4),7)
The DATE function uses S as the output format and B as the input format of YDAY.
You could also use the following but it's a little harder to follow:
YESTERDAY = INSERT('/',INSERT('/',DATE('S',DATE('B')-1,'B'),4),7)
"Sed quis custodiet ipsos custodes"
(Who will watch the watchers?)
~ Juvenal, Sixth Satire, 1st century AD
YESTERDAY = INSERT('/',INSERT('/',DATE('S',YDAY,'B'),4),7)
The DATE function uses S as the output format and B as the input format of YDAY.
You could also use the following but it's a little harder to follow:
YESTERDAY = INSERT('/',INSERT('/',DATE('S',DATE('B')-1,'B'),4),7)
"Sed quis custodiet ipsos custodes"
(Who will watch the watchers?)
~ Juvenal, Sixth Satire, 1st century AD
Shaughnessy, Mike
Apr 17, 2013, 5:34:34 PM4/17/13
to
Thanks Don,
I used YESTERDAY = INSERT('/',INSERT('/',DATE('S')-1,4),7)
and it worked. Thanks to everyone.
I used YESTERDAY = INSERT('/',INSERT('/',DATE('S')-1,4),7)
and it worked. Thanks to everyone.
Styles, Andy , SMS - Scheduling and SCM Infrastructure Support
Apr 17, 2013, 5:37:31 PM4/17/13
to
I do this sort of thing all the time, but with TRANSLATE (and before anyone leaps on me, these are code snippets, not a whole program :-) :
LeadHours = 48 * 60 /* actually LeadMinutes :-) */
/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
| Convert incoming dates from DD/MM/YYYY to YYYYMMDD |
+ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
MinStDate = Translate('56783412',RF.StrtDate,'12/34/5678')
MinEnDate = Translate('56783412',RF.EndDate,'12/34/5678')
/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
| Extract hours and minutes from start and end times |
+ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
Parse Var RF.StrtTime MinStHH ':' MinStMM
Parse Var RF.EndTime MinEnHH ':' MinEnMM
/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
| Calculate start and end times in minutes since midnight |
+ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
MinStTime = MinStHH * 60 + MinStMM
MinEnTime = MinEnHH * 60 + MinEnMM
/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
| WindowStart = TaskStartDate + TaskStartTime - Lead time |
| WindowEnd = TaskEndDate in minutes + end time |
+ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
WindowStart = Date('B',MinStDate,'S') * 1440 + MinStTime - LeadHours
WindowEnd = Date('B',MinEnDate,'S') * 1440 + MinEnTime
--
Andy Styles
Lloyds TSB Bank plc. Registered Office: 25 Gresham Street, London EC2V 7HN. Registered in England and Wales, number 2065. Telephone: 020 7626 1500.
Bank of Scotland plc. Registered Office: The Mound, Edinburgh EH1 1YZ. Registered in Scotland, number 327000. Telephone: 020 7626 1500.
Lloyds TSB Scotland plc. Registered Office: Henry Duncan House, 120 George Street, Edinburgh EH2 4LH. Registered in Scotland, number 95237. Telephone: 0131 225 4555.
Cheltenham & Gloucester plc. Registered Office: Barnett Way, Gloucester GL4 3RL. Registered in England and Wales, number 2299428. Telephone: 01452 372372.
Lloyds TSB Bank plc, Lloyds TSB Scotland plc, Bank of Scotland plc and Cheltenham & Gloucester plc are authorised and regulated by the Financial Services Authority.
Halifax is a division of Bank of Scotland plc. Cheltenham & Gloucester Savings is a division of Lloyds TSB Bank plc.
HBOS plc. Registered Office: The Mound, Edinburgh EH1 1YZ. Registered in Scotland, number 218813. Telephone: 020 7626 1500.
Lloyds Banking Group plc. Registered Office: The Mound, Edinburgh EH1 1YZ. Registered in Scotland, number 95000. Telephone: 0131 225 4555
This e-mail (including any attachments) is private and confidential and may contain privileged material. If you have received this e-mail in error, please notify the sender and delete it (including any attachments) immediately. You must not copy, distribute, disclose or use any of the information in it or any attachments.
Telephone calls may be monitored or recorded.
LeadHours = 48 * 60 /* actually LeadMinutes :-) */
/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
| Convert incoming dates from DD/MM/YYYY to YYYYMMDD |
+ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
MinStDate = Translate('56783412',RF.StrtDate,'12/34/5678')
MinEnDate = Translate('56783412',RF.EndDate,'12/34/5678')
/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
| Extract hours and minutes from start and end times |
+ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
Parse Var RF.StrtTime MinStHH ':' MinStMM
Parse Var RF.EndTime MinEnHH ':' MinEnMM
/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
| Calculate start and end times in minutes since midnight |
+ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
MinStTime = MinStHH * 60 + MinStMM
MinEnTime = MinEnHH * 60 + MinEnMM
/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
| WindowStart = TaskStartDate + TaskStartTime - Lead time |
| WindowEnd = TaskEndDate in minutes + end time |
+ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
WindowStart = Date('B',MinStDate,'S') * 1440 + MinStTime - LeadHours
WindowEnd = Date('B',MinEnDate,'S') * 1440 + MinEnTime
--
Andy Styles
Bank of Scotland plc. Registered Office: The Mound, Edinburgh EH1 1YZ. Registered in Scotland, number 327000. Telephone: 020 7626 1500.
Lloyds TSB Scotland plc. Registered Office: Henry Duncan House, 120 George Street, Edinburgh EH2 4LH. Registered in Scotland, number 95237. Telephone: 0131 225 4555.
Cheltenham & Gloucester plc. Registered Office: Barnett Way, Gloucester GL4 3RL. Registered in England and Wales, number 2299428. Telephone: 01452 372372.
Lloyds TSB Bank plc, Lloyds TSB Scotland plc, Bank of Scotland plc and Cheltenham & Gloucester plc are authorised and regulated by the Financial Services Authority.
Halifax is a division of Bank of Scotland plc. Cheltenham & Gloucester Savings is a division of Lloyds TSB Bank plc.
HBOS plc. Registered Office: The Mound, Edinburgh EH1 1YZ. Registered in Scotland, number 218813. Telephone: 020 7626 1500.
Lloyds Banking Group plc. Registered Office: The Mound, Edinburgh EH1 1YZ. Registered in Scotland, number 95000. Telephone: 0131 225 4555
This e-mail (including any attachments) is private and confidential and may contain privileged material. If you have received this e-mail in error, please notify the sender and delete it (including any attachments) immediately. You must not copy, distribute, disclose or use any of the information in it or any attachments.
Telephone calls may be monitored or recorded.
Grinsell, Don
Apr 17, 2013, 5:38:28 PM4/17/13
to
Mike,
My first response is in error. It will work in the middle of a month but if you think about it it won't work on the 1st day of a month. I caught the error after I hit send. You should really use the following if you want it all on one line:
YESTERDAY = INSERT('/',INSERT('/',DATE('S',DATE('B')-1,'B'),4),7)
"No one should negotiate their dreams. Dreams must be free to fly high. No government, no legislature, has a right to limit your dreams. You should never agree to surrender your dreams."
~ Jesse Jackson
My first response is in error. It will work in the middle of a month but if you think about it it won't work on the 1st day of a month. I caught the error after I hit send. You should really use the following if you want it all on one line:
YESTERDAY = INSERT('/',INSERT('/',DATE('S',DATE('B')-1,'B'),4),7)
~ Jesse Jackson
Styles, Andy , SMS - Scheduling and SCM Infrastructure Support
Apr 17, 2013, 5:40:18 PM4/17/13
to
Incidentally, the manual states:
Note: The base date of 1 January 0001 is determined by
extending the current Gregorian calendar backward (365
days each year, with an extra day every year that is
divisible by 4 except century years that are not
divisible by 400). It does not take into account any
errors in the calendar system that created the Gregorian
calendar originally.
Andy Styles
Endevor Technical Specialist | zSCM | Service Delivery
2S81 Emerald House | 25 Lavington Street | London | SE1 0NA
Network: 7430 3374 | Office: 020 7922 3374 | email: Andy....@LloydsBanking.com
zSCM Sharepoint http://teamspace.intranet.group/sites/Endevor/
-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf Of Kopischke, David G.
Sent: 17 April 2013 22:27
Note: The base date of 1 January 0001 is determined by
extending the current Gregorian calendar backward (365
days each year, with an extra day every year that is
divisible by 4 except century years that are not
divisible by 400). It does not take into account any
errors in the calendar system that created the Gregorian
calendar originally.
Andy Styles
Endevor Technical Specialist | zSCM | Service Delivery
2S81 Emerald House | 25 Lavington Street | London | SE1 0NA
Network: 7430 3374 | Office: 020 7922 3374 | email: Andy....@LloydsBanking.com
zSCM Sharepoint http://teamspace.intranet.group/sites/Endevor/
-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf Of Kopischke, David G.
Sent: 17 April 2013 22:27
Lloyds TSB Bank plc. Registered Office: 25 Gresham Street, London EC2V 7HN. Registered in England and Wales, number 2065. Telephone: 020 7626 1500.
Bank of Scotland plc. Registered Office: The Mound, Edinburgh EH1 1YZ. Registered in Scotland, number 327000. Telephone: 020 7626 1500.
Lloyds TSB Scotland plc. Registered Office: Henry Duncan House, 120 George Street, Edinburgh EH2 4LH. Registered in Scotland, number 95237. Telephone: 0131 225 4555.
Cheltenham & Gloucester plc. Registered Office: Barnett Way, Gloucester GL4 3RL. Registered in England and Wales, number 2299428. Telephone: 01452 372372.
Lloyds TSB Bank plc, Lloyds TSB Scotland plc, Bank of Scotland plc and Cheltenham & Gloucester plc are authorised and regulated by the Financial Services Authority.
Halifax is a division of Bank of Scotland plc. Cheltenham & Gloucester Savings is a division of Lloyds TSB Bank plc.
HBOS plc. Registered Office: The Mound, Edinburgh EH1 1YZ. Registered in Scotland, number 218813. Telephone: 020 7626 1500.
Lloyds Banking Group plc. Registered Office: The Mound, Edinburgh EH1 1YZ. Registered in Scotland, number 95000. Telephone: 0131 225 4555
This e-mail (including any attachments) is private and confidential and may contain privileged material. If you have received this e-mail in error, please notify the sender and delete it (including any attachments) immediately. You must not copy, distribute, disclose or use any of the information in it or any attachments.
Telephone calls may be monitored or recorded.
Bank of Scotland plc. Registered Office: The Mound, Edinburgh EH1 1YZ. Registered in Scotland, number 327000. Telephone: 020 7626 1500.
Lloyds TSB Scotland plc. Registered Office: Henry Duncan House, 120 George Street, Edinburgh EH2 4LH. Registered in Scotland, number 95237. Telephone: 0131 225 4555.
Cheltenham & Gloucester plc. Registered Office: Barnett Way, Gloucester GL4 3RL. Registered in England and Wales, number 2299428. Telephone: 01452 372372.
Lloyds TSB Bank plc, Lloyds TSB Scotland plc, Bank of Scotland plc and Cheltenham & Gloucester plc are authorised and regulated by the Financial Services Authority.
Halifax is a division of Bank of Scotland plc. Cheltenham & Gloucester Savings is a division of Lloyds TSB Bank plc.
HBOS plc. Registered Office: The Mound, Edinburgh EH1 1YZ. Registered in Scotland, number 218813. Telephone: 020 7626 1500.
Lloyds Banking Group plc. Registered Office: The Mound, Edinburgh EH1 1YZ. Registered in Scotland, number 95000. Telephone: 0131 225 4555
This e-mail (including any attachments) is private and confidential and may contain privileged material. If you have received this e-mail in error, please notify the sender and delete it (including any attachments) immediately. You must not copy, distribute, disclose or use any of the information in it or any attachments.
Telephone calls may be monitored or recorded.
Grinsell, Don
Apr 17, 2013, 5:56:54 PM4/17/13
to
I was looking at yesterday's responses and I think I like the Translate version a little better. One less set of parens to deal with:
YESTERDAY = TRANSLATE('ABCD/EF/GH',DATE('S',DATE('B')-1,'B'),'ABCDEFGH')
"We can't solve problems by using the same kind of thinking we used when we created them."
~ Albert Einstein
YESTERDAY = TRANSLATE('ABCD/EF/GH',DATE('S',DATE('B')-1,'B'),'ABCDEFGH')
YESTERDAY = INSERT('/',INSERT('/',DATE('S',DATE('B')-1,'B'),4),7)
Enjoy.
"We can't solve problems by using the same kind of thinking we used when we created them."
~ Albert Einstein
Shaughnessy, Mike
Apr 18, 2013, 3:47:29 PM4/18/13
to
I have been testing my REXX explicitly since I don't know JCL very well.
My command 'EX 'SYSMAS1.SPF.REXX(REXXJCL)' works well and I am learning
more about REXX. But now I need to process this REXX in batch mode, so
guess what, I need to use a JCL job. It seems to me to process a REXX in
batch mode is a little different than our normal batch process's here,
especially since we don't have any REXX batch processes. From a book,
I found a few examples, and finally choose the below:
//SYSMAS1J JOB (1800),Z10,CLASS=A,NOTIFY=SYSMAS1,MSGCLASS=X,REGION=64M
//JSTEP010 EXEC PGM=IKJEFT01,
// PARM='REXXJCL'
//SYSEXEC DD DSN=SYSMAS1.SPF.REXX,
// DISP=SHR
//ISPPLIB DD DISP=SHR,DSN=ISP.SISPPENU
//ISPMLIB DD DISP=SHR,DSN=ISP.SISPMENU
//ISPTLIB DD DISP=SHR,DSN=ISP.SISPTENU
//ISPSLIB DD DISP=SHR,DSN=ISP.SISPSENU
//SYSTSPRT DD DSN=SYSMAS1.SPF.SYSOUT1,
// DISP=(NEW,CATLG,CATLG),
// UNIT=SYSDA,SPACE=(TRK,(200,20),RLSE),
// DCB=(RECFM=FBA,LRECL=121,BLKSIZE=0)
//SYSTSIN DD DUMMY
//*
//
When I process this job, JSTEP010 receives an RC 8 and the data set
produced
'SYSMAS1.SPF.SYSOUT1' contains:
********************************* Top of Data
*****************************
8 *-* ISPEXEC "LMINIT DATAID(DATID) DATASET('"PDSNAME"') ENQ(SHR)"
+++ RC(-3) +++
ERROR INITIALIZING PDS SYSMAS1.SPF.JCL RC=-3
READY
END
******************************** Bottom of Data
***************************
Any suggestions would be very much appreciated.
My command 'EX 'SYSMAS1.SPF.REXX(REXXJCL)' works well and I am learning
more about REXX. But now I need to process this REXX in batch mode, so
guess what, I need to use a JCL job. It seems to me to process a REXX in
batch mode is a little different than our normal batch process's here,
especially since we don't have any REXX batch processes. From a book,
I found a few examples, and finally choose the below:
//SYSMAS1J JOB (1800),Z10,CLASS=A,NOTIFY=SYSMAS1,MSGCLASS=X,REGION=64M
//JSTEP010 EXEC PGM=IKJEFT01,
// PARM='REXXJCL'
//SYSEXEC DD DSN=SYSMAS1.SPF.REXX,
// DISP=SHR
//ISPPLIB DD DISP=SHR,DSN=ISP.SISPPENU
//ISPMLIB DD DISP=SHR,DSN=ISP.SISPMENU
//ISPTLIB DD DISP=SHR,DSN=ISP.SISPTENU
//ISPSLIB DD DISP=SHR,DSN=ISP.SISPSENU
//SYSTSPRT DD DSN=SYSMAS1.SPF.SYSOUT1,
// DISP=(NEW,CATLG,CATLG),
// UNIT=SYSDA,SPACE=(TRK,(200,20),RLSE),
// DCB=(RECFM=FBA,LRECL=121,BLKSIZE=0)
//SYSTSIN DD DUMMY
//*
//
When I process this job, JSTEP010 receives an RC 8 and the data set
produced
'SYSMAS1.SPF.SYSOUT1' contains:
********************************* Top of Data
*****************************
8 *-* ISPEXEC "LMINIT DATAID(DATID) DATASET('"PDSNAME"') ENQ(SHR)"
+++ RC(-3) +++
ERROR INITIALIZING PDS SYSMAS1.SPF.JCL RC=-3
READY
END
******************************** Bottom of Data
***************************
Any suggestions would be very much appreciated.
Dave Salt
Apr 18, 2013, 4:53:40 PM4/18/13
to
Yo need to start ISPF and tell it to call your REXX program. Here's the JCL I use to call a REXX program named ADDTEST2:
//ISPF EXEC PGM=IKJEFT01,REGION=2048K,DYNAMNBR=25
//SYSPROC DD DSN=ADX01.CLIST,DISP=SHR
//SYSEXEC DD DSN=ADX01.TEST.SYSEXEC,DISP=SHR
//ISPPLIB DD DSN=ISP.SISPPENU,DISP=SHR
//ISPSLIB DD DSN=ISP.SISPSENU,DISP=SHR
//ISPMLIB DD DSN=ISP.SISPMENU,DISP=SHR
//ISPTLIB DD DDNAME=ISPTABL
// DD DSN=ISP.SISPTENU,DISP=SHR
//ISPTABL DD LIKE=ISP.SISPTENU,UNIT=VIO
//ISPPROF DD LIKE=ISP.SISPTENU,UNIT=VIO
//ISPLOG DD SYSOUT=*,RECFM=VA,LRECL=125
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//SYSHELP DD DSN=SYS1.HELP,DISP=SHR
//SYSTSIN DD *
ISPSTART CMD(ADDTEST2)
/*
//
Dave Salt
SimpList(tm) - try it; you'll get it!
http://www.mackinney.com/products/program-development/simplist.html
> Date: Thu, 18 Apr 2013 14:37:27 -0500
> From: Mike.Sha...@FOXCONN.COM
> Subject: Re: DATE QUESTION
> To: TSO-...@VM.MARIST.EDU
//ISPF EXEC PGM=IKJEFT01,REGION=2048K,DYNAMNBR=25
//SYSPROC DD DSN=ADX01.CLIST,DISP=SHR
//SYSEXEC DD DSN=ADX01.TEST.SYSEXEC,DISP=SHR
//ISPPLIB DD DSN=ISP.SISPPENU,DISP=SHR
//ISPSLIB DD DSN=ISP.SISPSENU,DISP=SHR
//ISPMLIB DD DSN=ISP.SISPMENU,DISP=SHR
//ISPTLIB DD DDNAME=ISPTABL
// DD DSN=ISP.SISPTENU,DISP=SHR
//ISPTABL DD LIKE=ISP.SISPTENU,UNIT=VIO
//ISPPROF DD LIKE=ISP.SISPTENU,UNIT=VIO
//ISPLOG DD SYSOUT=*,RECFM=VA,LRECL=125
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//SYSHELP DD DSN=SYS1.HELP,DISP=SHR
//SYSTSIN DD *
ISPSTART CMD(ADDTEST2)
/*
//
Dave Salt
SimpList(tm) - try it; you'll get it!
http://www.mackinney.com/products/program-development/simplist.html
> Date: Thu, 18 Apr 2013 14:37:27 -0500
> From: Mike.Sha...@FOXCONN.COM
> Subject: Re: DATE QUESTION
> To: TSO-...@VM.MARIST.EDU
Shaughnessy, Mike
Apr 18, 2013, 5:03:31 PM4/18/13
to
Thanks Dave,
That worked good.
That worked good.
Shaughnessy, Mike
Apr 19, 2013, 5:34:00 PM4/19/13
to
Thanks to all the helpers, my working code is as such followed by its
output:
TODAY = INSERT('/',INSERT('/',DATE('S'),4),7)
DO
IF MTIME > '08:00:00' THEN
SAY 'JCLLIB MEMBER' MEMBR 'WAS CHANGED YESTERDAY,',
ZLM4DATE' AT 'MTIME 'BY 'ZLUSER
ELSE NOP
END
ELSE
IF ZLM4DATE = TODAY THEN
DO
IF MTIME > '08:00:00' THEN
SAY 'JCLLIB MEMBER' MEMBR 'WAS CHANGED TODAY,',
ZLM4DATE' AT 'MTIME 'BY 'ZLUSER
ELSE NOP
END
END
JCLLIB MEMBER BATCHREX WAS CHANGED YESTERDAY, 2013/04/18 AT 08:43:56 BY
SYSMAS1
JCLLIB MEMBER SCANJCLL WAS CHANGED YESTERDAY, 2013/04/18 AT 11:00:12 BY
SYSMAS1
JCLLIB MEMBER WXXXX WAS CHANGED YESTERDAY, 2013/04/18 AT 08:44:02 BY
SYSMAS1
JCLLIB MEMBER AAAAAAA WAS CHANGED TODAY, 2013/04/19 AT 10:02:49 BY
SYSMAS1
JCLLIB MEMBER AAAAAAAU WAS CHANGED TODAY, 2013/04/19 AT 10:03:10 BY
SYSMAS1
Now my hope is to be able to e-mail this output to my 3 bosses each
morning so they can
see everything changed in production for the last 24 hours. My question
is, how do I send
this output to the syslog where we have an application that can do the
e-mailing?
Or does anyone suggest another method of e-mailing this information? I'm
sure there
are better ways of tracking changes, but I did this myself in a learning
mode.
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
output:
TODAY = INSERT('/',INSERT('/',DATE('S'),4),7)
YESTERDAY = INSERT('/',INSERT('/',DATE('S',DATE('B')-1,'B'),4),7)
IF ZLM4DATE = YESTERDAY THEN
DO
IF MTIME > '08:00:00' THEN
SAY 'JCLLIB MEMBER' MEMBR 'WAS CHANGED YESTERDAY,',
ZLM4DATE' AT 'MTIME 'BY 'ZLUSER
ELSE NOP
END
ELSE
IF ZLM4DATE = TODAY THEN
DO
IF MTIME > '08:00:00' THEN
SAY 'JCLLIB MEMBER' MEMBR 'WAS CHANGED TODAY,',
ZLM4DATE' AT 'MTIME 'BY 'ZLUSER
ELSE NOP
END
END
JCLLIB MEMBER BATCHREX WAS CHANGED YESTERDAY, 2013/04/18 AT 08:43:56 BY
SYSMAS1
JCLLIB MEMBER SCANJCLL WAS CHANGED YESTERDAY, 2013/04/18 AT 11:00:12 BY
SYSMAS1
JCLLIB MEMBER WXXXX WAS CHANGED YESTERDAY, 2013/04/18 AT 08:44:02 BY
SYSMAS1
JCLLIB MEMBER AAAAAAA WAS CHANGED TODAY, 2013/04/19 AT 10:02:49 BY
SYSMAS1
JCLLIB MEMBER AAAAAAAU WAS CHANGED TODAY, 2013/04/19 AT 10:03:10 BY
SYSMAS1
Now my hope is to be able to e-mail this output to my 3 bosses each
morning so they can
see everything changed in production for the last 24 hours. My question
is, how do I send
this output to the syslog where we have an application that can do the
e-mailing?
Or does anyone suggest another method of e-mailing this information? I'm
sure there
are better ways of tracking changes, but I did this myself in a learning
mode.
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
Shaughnessy, Mike
Apr 22, 2013, 5:43:32 PM4/22/13
to
Thanks David,
I tried using the JCL you suggested, but got confused. I did find
another
method and I think I have that working. But I have another issue now.
My first step is my REXX program that calculates if a JCL has been
changed
by comparing the ZLM4DATE's. If the date has been changed, I want to
execute
the e-mail step and that is working good. But if there has been no JCL
change, I want to bypass the e-mail step. I'm not sure how to do this.
I have read about COND codes and I'm not sure if the REXX program can
be used to change a COND code depending on date checks? Thanks for any
advice.
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 Kopischke, David G.
Sent: Friday, April 19, 2013 5:32 PM
To: TSO-...@vm.marist.edu
Subject: Re: [TSO-REXX] DATE QUESTION
Just GENER your E-Mail headers and output to SMTP:
//STEP01 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT1 DD *
HELO
<-- Your hostname
MAIL FROM: <Your.EMai...@YourDomain.com>
RCPT TO: <Your.First...@YourDomain.com>
RCPT TO: <Your.Secon...@YourDomain.com>
DATA
TO: <Your.First...@YourDomain.com>
TO: <Your.Secon...@YourDomain.com>
FROM: <Your.EMai...@YourDomain.com>
SUBJECT:
<-- Your Subject Line
TEXT LINE 1:
<-- Use this if you want
TEXT LINE 2: Daily E-Mail Test
free-form text in the
TEXT LINE 3:
body of the E-Mail
/*
//*
// DD DSN=Your.Report.File,DISP=SHR
// DD *
.
QUIT
/*
//*
//SYSUT2 DD SYSOUT=(A,SMTP)
//*
Sometimes blank lines make a difference in the stream. Try it and see
if it works for you.
https://urldefense.proofpoint.com/v1/url?u=http://www.mackinney.com/prod
ucts/program-development/simplist.html&k=mvPnVVmC0%2F3H3tszdtNkSw%3D%3D%
0A&r=APaKYN3UIGPbwIYL%2BALtq9rAza0jfcCgQ42PyqlXUPs%3D%0A&m=k6A42Z%2Fk5PB
KDDnOMq7PckShRW7AdzqRu0v1eYCu%2F30%3D%0A&s=f012d3dfc085dfe8a5548122285b3
2c45f48012ba11e78f35f068f012266ec00
I tried using the JCL you suggested, but got confused. I did find
another
method and I think I have that working. But I have another issue now.
My first step is my REXX program that calculates if a JCL has been
changed
by comparing the ZLM4DATE's. If the date has been changed, I want to
execute
the e-mail step and that is working good. But if there has been no JCL
change, I want to bypass the e-mail step. I'm not sure how to do this.
I have read about COND codes and I'm not sure if the REXX program can
be used to change a COND code depending on date checks? Thanks for any
advice.
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 Kopischke, David G.
Sent: Friday, April 19, 2013 5:32 PM
To: TSO-...@vm.marist.edu
Subject: Re: [TSO-REXX] DATE QUESTION
//STEP01 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT1 DD *
HELO
<-- Your hostname
MAIL FROM: <Your.EMai...@YourDomain.com>
RCPT TO: <Your.First...@YourDomain.com>
RCPT TO: <Your.Secon...@YourDomain.com>
DATA
TO: <Your.First...@YourDomain.com>
TO: <Your.Secon...@YourDomain.com>
FROM: <Your.EMai...@YourDomain.com>
SUBJECT:
<-- Your Subject Line
TEXT LINE 1:
<-- Use this if you want
TEXT LINE 2: Daily E-Mail Test
free-form text in the
TEXT LINE 3:
body of the E-Mail
/*
//*
// DD DSN=Your.Report.File,DISP=SHR
// DD *
.
QUIT
/*
//*
//SYSUT2 DD SYSOUT=(A,SMTP)
//*
Sometimes blank lines make a difference in the stream. Try it and see
if it works for you.
ucts/program-development/simplist.html&k=mvPnVVmC0%2F3H3tszdtNkSw%3D%3D%
0A&r=APaKYN3UIGPbwIYL%2BALtq9rAza0jfcCgQ42PyqlXUPs%3D%0A&m=k6A42Z%2Fk5PB
KDDnOMq7PckShRW7AdzqRu0v1eYCu%2F30%3D%0A&s=f012d3dfc085dfe8a5548122285b3
2c45f48012ba11e78f35f068f012266ec00
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.
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.
Kopischke, David G.
Apr 22, 2013, 6:10:32 PM4/22/13
to
Mike,
I do the same kind of thing with my code. If there are errors found, I do an EXIT 4. Then in my GENER JCL step, I use COND=(0,EQ,error check step) and it only E-Mails me the error logs if there are errors.
Depending on your environment, you might want to use something other than 4. That's a pretty standard return code that might get confused with other things, but it works for me for what I need.
Thanks,
Dave K.
I do the same kind of thing with my code. If there are errors found, I do an EXIT 4. Then in my GENER JCL step, I use COND=(0,EQ,error check step) and it only E-Mails me the error logs if there are errors.
Depending on your environment, you might want to use something other than 4. That's a pretty standard return code that might get confused with other things, but it works for me for what I need.
Thanks,
Dave K.
Adrian Stern
Apr 22, 2013, 6:58:55 PM4/22/13
to
Don't use cond in jcl - you can write a much simpler if statement these days
- refer to the manual for the proper syntax but basically it's:
IF RC=4 THEN
<JOB STEP>
ENDIF
- refer to the manual for the proper syntax but basically it's:
IF RC=4 THEN
<JOB STEP>
ENDIF
Shaughnessy, Mike
Apr 24, 2013, 12:23:48 PM4/24/13
to
My project is working now. It is e-mailing to my bosses in test mode.
One last problem. The e-mail has a RC error and a 'file preallocated (no
free was done) message. At the bottom of my REXX I have.
ISPEXEC "LMMLIST DATAID("DATAID") OPTION(FREE)"
ISPEXEC "LMCLOSE DATAID("DATAID")"
My e-mail sent looks as such. Please let me know if you see my problem.
READY
ISPSTART CMD(REXXJCL)
TODAY = 2013/04/24
YESTERDAY = 2013/04/23
JCLLIB MEMBER PSMVD05N WAS CHANGED YESTERDAY, 2013/04/23 AT 15:02:58 BY
SYSMAS1
JCLLIB MEMBER PSMVW05N WAS CHANGED TODAY, 2013/04/24 AT 10:04:05 BY
SYSMAS1
ISPD117
The initially invoked CLIST ended with a return code = 8
SYSMAS1.SYSMAS1J.JOB07110.D0000103.? was preallocated (no free was
done).
READY
END
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!
One last problem. The e-mail has a RC error and a 'file preallocated (no
free was done) message. At the bottom of my REXX I have.
ISPEXEC "LMMLIST DATAID("DATAID") OPTION(FREE)"
ISPEXEC "LMCLOSE DATAID("DATAID")"
My e-mail sent looks as such. Please let me know if you see my problem.
READY
ISPSTART CMD(REXXJCL)
TODAY = 2013/04/24
YESTERDAY = 2013/04/23
JCLLIB MEMBER PSMVD05N WAS CHANGED YESTERDAY, 2013/04/23 AT 15:02:58 BY
SYSMAS1
JCLLIB MEMBER PSMVW05N WAS CHANGED TODAY, 2013/04/24 AT 10:04:05 BY
SYSMAS1
ISPD117
The initially invoked CLIST ended with a return code = 8
SYSMAS1.SYSMAS1J.JOB07110.D0000103.? was preallocated (no free was
done).
READY
END
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!
Dave Salt
Apr 24, 2013, 12:37:28 PM4/24/13
to
Do you LMFREE the dataid, and does your REXX end with EXIT CODE(0)?
Dave Salt
SimpList(tm) - try it; you'll get it!
http://www.mackinney.com/products/program-development/simplist.html
> Date: Wed, 24 Apr 2013 11:23:10 -0500
Dave Salt
SimpList(tm) - try it; you'll get it!
> Date: Wed, 24 Apr 2013 11:23:10 -0500
0 new messages