Re: Friday OT, cheerful program for gloomy times

conditional macro assembler as in (readable form): .EXTRM ANOP TERMINAL EXCLUDES DEFINITION .* &A1 SETA 1 &C1 SETC '&EXCNT'

Re: Friday OT, cheerful program for gloomy times

conditional macro assembler as in:   .EXTRM   ANOP  TERMINAL EXCLUDES DEFINITION 00075800 .*  00075900 &A1  SETA  1    00076000 &C1  SETC  '&EX

Re: Friday OT, cheerful program for gloomy times

On Wed, 29 Apr 2020 02:57:23 +0100, CM Poncelet wrote: >... but that's the only way to do it in conditional macro assembler; so >what me worry about 3GL's? :) > What hardware? Doesn't Divide leave the quotient in one register and the remainder in an adjacent one? >On 28/04/2020 10:46, David Cray

Re: Friday OT, cheerful program for gloomy times

... but that's the only way to do it in conditional macro assembler; so what me worry about 3GL's? :) On 28/04/2020 10:46, David Crayford wrote: > No worries. FWIW,  I think using the // modulo operator would make > your code less verbose and complex ;) > > On 2020-04-28 11:14 AM, CM Poncelet wrot

Re: Friday OT, cheerful program for gloomy times

u.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of CM Poncelet [ponce...@bcs.org.uk] Sent: Monday, April 27, 2020 11:47 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Friday OT, cheerful program for gloomy times Thanks,

Re: Friday OT, cheerful program for gloomy times

Thanks - I have figured out how to use it.   It's an edit macro and it must therefore be saved with an ".spf" extension instead of the ".isp" one used for CTC Rexx execs. Also, it needs to be invoked while editing a file and not issued as a TSO command. When all that is done, it works OK.   Thanks

Re: Friday OT, cheerful program for gloomy times

On 2020-04-28 03:47, CM Poncelet wrote: Thanks, but I get the following errors: ecalc(182): Error #39, Evaluation stack overflow     do until tmp = tail PRESS ANY KEY TO CONTINUE. and Error 10: Illegal ISPEXEC Service 'isredit macro (parm) NOPROCESS'. PRESS ANY KEY TO CONTINUE.

Re: Friday OT, cheerful program for gloomy times

No worries. FWIW,  I think using the // modulo operator would make your code less verbose and complex ;) On 2020-04-28 11:14 AM, CM Poncelet wrote: Yes, you are absolutely right. I thought it was the other way round, divisble by 100 being leap years and by 400 not leap years. It should have

Re: Friday OT, cheerful program for gloomy times

Thanks, but I get the following errors:   ecalc(182): Error #39, Evaluation stack overflow     do until tmp = tail PRESS ANY KEY TO CONTINUE.   and   Error 10: Illegal ISPEXEC Service 'isredit macro (parm) NOPROCESS'. PRESS ANY KEY TO CONTINUE.   I have CTC Rexx running under DOS - perhaps no

Re: Friday OT, cheerful program for gloomy times

Yes, you are absolutely right. I thought it was the other way round, divisble by 100 being leap years and by 400 not leap years.   It should have been   LEAP  = (YEAR-YEAR%4*4=0 & YEAR-YEAR%100*100¬=0 | YEAR-YEAR%400*400=0)   This does not affect the calculations themselves, but it does report inco

Re: Friday OT, cheerful program for gloomy times

frame Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Paul Gilmartin [000433f07816-dmarc-requ...@listserv.ua.edu] Sent: Monday, April 27, 2020 1:29 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Friday OT, cheerful program for gloomy times On Mon, 27 Apr 2020 17:10:54 +, Seymour J M

Re: Friday OT, cheerful program for gloomy times

On Mon, 27 Apr 2020 17:10:54 +, Seymour J Metz wrote: >> I hope not. > >What do you have against ETOD? > >> TIME macro > TIME STCKE,foo > >Or doesn't that do the adjustments? > I believe it does not. I believe TIME LOCAL and TIME GMT do. I believe STCKCONV and CONVTOD do not. I am

Re: Friday OT, cheerful program for gloomy times

] on behalf of Paul Gilmartin [000433f07816-dmarc-requ...@listserv.ua.edu] Sent: Monday, April 27, 2020 10:46 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Friday OT, cheerful program for gloomy times On 2020-04-27, at 04:57:13, Seymour J Metz wrote: > > Is there a statement of direction f

Re: Friday OT, cheerful program for gloomy times

On Mon, 27 Apr 2020 17:01:08 +0800, David Crayford wrote: >FYI, you have a bug with your leap year calculation. You need to check >if the year is evenly dividable by 100 (which are not leap years unless >evenly divisible by 400). > >isleap: procedure >   arg year . >   return (year // 4 = 0 & year

Re: Friday OT, cheerful program for gloomy times

On 2020-04-27, at 04:57:13, Seymour J Metz wrote: > > Is there a statement of direction for using ETOD for all timestamping? > I hope not. I once went to SR because the timestamps in IEBCOPY SYSPRINT were about 20 seconds ahead of those in job log. Suggested I suspected a leap second problem.

Re: Friday OT, cheerful program for gloomy times

On 2020-04-24 06:01, CM Poncelet wrote: I attach a Rexx program to calculate and display the biorhythm values for a given date of birth and current or whatever other date. And if you want to see some niche graphs, try "ecalc biog(dd.mm.)", where ecalc can be found (for now) @

Re: Friday OT, cheerful program for gloomy times

, April 27, 2020 5:37 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Friday OT, cheerful program for gloomy times On 2020-04-27 5:18 PM, Ray Pearce wrote: > Will there be a Y2.1K bug? I don't know but we've got much bigger problems to solve before then when the TOD clocks s

Re: Friday OT, cheerful program for gloomy times

: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of David Crayford Sent: 27 April 2020 10:38 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Friday OT, cheerful program for gloomy times On 2020-04-27 5:18 PM, Ray Pearce wrote: Will there be a Y2.1K bug? I don't know but w

Re: Friday OT, cheerful program for gloomy times

ERV.UA.EDU Subject: Re: Friday OT, cheerful program for gloomy times On 2020-04-27 5:18 PM, Ray Pearce wrote: > Will there be a Y2.1K bug? I don't know but we've got much bigger problems to solve before then when the TOD clocks start wrapping :). Hopefully, I

Re: Friday OT, cheerful program for gloomy times

צ בתאריך יום ב׳, 27 באפר׳ 2020, 12:38, מאת David Crayford ‏< dcrayf...@gmail.com>: > On 2020-04-27 5:18 PM, Ray Pearce wrote: > > Will there be a Y2.1K bug? > > I don't know but we've got much bigger problems to solve before then > when the TOD clocks start wrapping :). > > Hopefully, I will be r

Re: Friday OT, cheerful program for gloomy times

On 2020-04-27 5:18 PM, Ray Pearce wrote: Will there be a Y2.1K bug? I don't know but we've got much bigger problems to solve before then when the TOD clocks start wrapping :). Hopefully, I will be retired by then. -- For IB

Re: Friday OT, cheerful program for gloomy times

t: Re: Friday OT, cheerful program for gloomy times FYI, you have a bug with your leap year calculation. You need to check if the year is evenly dividable by 100 (which are not leap years unless evenly divisible by 400). isleap: procedure   arg year .   return (year // 4 = 0 & year //

Re: Friday OT, cheerful program for gloomy times

FYI, you have a bug with your leap year calculation. You need to check if the year is evenly dividable by 100 (which are not leap years unless evenly divisible by 400). isleap: procedure   arg year .   return (year // 4 = 0 & year // 100 /= 0 ) | year // 400 = 0 On 2020-04-24 2:01 PM, CM Ponce

Re: Friday OT, cheerful program for gloomy times

ist [IBM-MAIN@LISTSERV.UA.EDU] on behalf of CM Poncelet [ponce...@bcs.org.uk] Sent: Sunday, April 26, 2020 3:30 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Friday OT, cheerful program for gloomy times Mike Cowlishaw created the Rexx language https://secure-web.cisco.com/1wHB0OokqTuD1qCScSXs4v

Re: Friday OT, cheerful program for gloomy times

Mike Cowlishaw created the Rexx language   https://en.wikipedia.org/wiki/Mike_Cowlishaw On 26/04/2020 15:48, Paul Gilmartin wrote: > On Sun, 26 Apr 2020 07:39:27 +, Seymour J Metz wrote: > >> They say that the memory is the second thing to go; I don't remember the >> first thing. >> >> Give

Re: Friday OT, cheerful program for gloomy times

On Sun, 26 Apr 2020 07:39:27 +, Seymour J Metz wrote: >They say that the memory is the second thing to go; I don't remember the first >thing. > >Given that Mike Cowlishaw was involved in developing ANSI X3.274-1996, I'm >pretty sure that he would claim that to be the standard Rexx language,

Re: Friday OT, cheerful program for gloomy times

ist [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Joel C. Ewing [jcew...@acm.org] Sent: Sunday, April 26, 2020 10:03 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Friday OT, cheerful program for gloomy times On 4/25/20 3:51 PM, Paul Gilmartin wrote: > I did not copy-and-paste; I downloaded the attac

Re: Friday OT, cheerful program for gloomy times

On 4/25/20 3:51 PM, Paul Gilmartin wrote: > I did not copy-and-paste; I downloaded the attachment, > which appears to be UTF-8. > > For Regina, Regina.pdf says: 3.1.1.1 Negators > ... Regina supports the following characters as negators: > ... > ¬ Logical Not > Copy-and-paste from the p

Re: Friday OT, cheerful program for gloomy times

Sent: Saturday, April 25, 2020 11:40 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Friday OT, cheerful program for gloomy times "ON NO VALUE" from memory. "supports the standard Rexx language" as per Mike Cowlishaw's definition (COW). Comparison of Built-In Functio

Re: Friday OT, cheerful program for gloomy times

t; > > From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of > CM Poncelet [ponce...@bcs.org.uk] > Sent: Saturday, April 25, 2020 7:10 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Friday OT, cheerful program for gloomy tim

Re: Friday OT, cheerful program for gloomy times

C. Ewing [jcew...@acm.org] Sent: Saturday, April 25, 2020 10:38 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Friday OT, cheerful program for gloomy times Always curious about compatibility issues, copied program and pasted into gedit on Fedora Linux, put a leading "#!/usr/bin/rexx"  and

Re: Friday OT, cheerful program for gloomy times

oncelet [ponce...@bcs.org.uk] Sent: Saturday, April 25, 2020 7:10 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Friday OT, cheerful program for gloomy times Have you checked that your version works, other than on a mainframe? After commenting out the "SIGNAL ON NO VALUE" because it prod

Re: Friday OT, cheerful program for gloomy times

Have you checked that your version works, other than on a mainframe?   After commenting out the "SIGNAL ON NO VALUE" because it produces a "LABEL NOT FOUND", I ran it and got:   bio2(50): Error #40, Incorrect call to routine FACTOR1 = DATE( 'Base', YEAR || MONTH || DAY, 'Standard' ) PRESS ANY KEY

Re: Friday OT, cheerful program for gloomy times

Nice one. (BTW My version was not "optimised": it worked and that was enough.)   Your NUMERIC DIGITS 8 *might* not be sufficient for your "finite difference equation to generate table of sines". I used the much slower Taylor series for calculating sines, for which NUMERIC DIGITS 100 worked "OK" - b

Re: Friday OT, cheerful program for gloomy times

On 2020-04-25, at 08:38:08, Joel C. Ewing wrote: > > Always curious about compatibility issues, copied program and pasted > into gedit on Fedora Linux, put a leading > "#!/usr/bin/rexx" and tried to run with oorexx on linux. Only code > issues found: > (1)Not really a code issue, but had to to ru

Re: Friday OT, cheerful program for gloomy times

The attachment was in Windoze's "text document" ANSI format. Not sure what code page that is other than it's the "UK" one (not pure ASCII.) When I copied the original BIO.ISP to BIO.txt, all the "¬" (ASCII x'AA') were changed to "ª" in Windoze. So I replaced all the "¬" with "@" in SPF/PC then, in

Re: Friday OT, cheerful program for gloomy times

On Sat, 25 Apr 2020 18:10:25 +1000, Wayne Bickerdike wrote: >Paul asked: > > *What code page was your attachment?* > >It's US Code page 37. > Is that an EBCDIC code page? The attachment looks more like ASCII, or UTF-8. Blame the editor. TextEdit fails to show the "¬"; BBEdit fails to show the

Re: Friday OT, cheerful program for gloomy times

Always curious about compatibility issues, copied program and pasted into gedit on Fedora Linux, put a leading "#!/usr/bin/rexx"  and tried to run with oorexx on linux. Only code issues found: (1)Not really a code issue, but had to to run through dos2unix to convert Windows CR LF end-of-line to uni

Re: Friday OT, cheerful program for gloomy times

Paul asked: *What code page was your attachment?* It's US Code page 37. On Sat, Apr 25, 2020 at 4:30 PM Paul Gilmartin < 000433f07816-dmarc-requ...@listserv.ua.edu> wrote: > On Sat, 25 Apr 2020 03:15:12 +0100, CM Poncelet wrote: > > >"¬" (NOT) > > > I inferred as much. What code page was

Re: Friday OT, cheerful program for gloomy times

On Sat, 25 Apr 2020 03:15:12 +0100, CM Poncelet wrote: >"¬" (NOT) > I inferred as much. What code page was your attachment? >> On Fri, 24 Apr 2020 07:01:52 +0100, CM Poncelet wrote: >>>  ... >>> CHECK_DATE: >>> /* CHECK THAT DATE IS NUMERIC AND IN THE CORRECT FORMAT */ >>> IF DATATYPE(Q,N)

Re: Friday OT, cheerful program for gloomy times

My wife's BIO had a better intellectual quotient than mine today, however, she dragged me to the shops today at 8:30 to beat the lockdown rush. They don't open until 13:00 because it's ANZAC day here. I knew I should have stayed in bed. On Sat, Apr 25, 2020 at 2:26 PM Wayne Bickerdike wrote: > N

Re: Friday OT, cheerful program for gloomy times

Never thought about it, downloaded to Windoze and it looks like this : IF DATE2 ¬> DATE1 THEN CCSID, bah! On Sat, Apr 25, 2020 at 12:18 PM CM Poncelet wrote: > Technical support suggests that you try changing your date of birth, to > see whether that fixes the problem. > > On 25/04/2020 00:16

Re: Friday OT, cheerful program for gloomy times

Technical support suggests that you try changing your date of birth, to see whether that fixes the problem. On 25/04/2020 00:16, Wayne Bickerdike wrote: > All negatives for me today. Plus I'm thousands of days old :( > > On Sat, Apr 25, 2020 at 6:21 AM scott Ford wrote: > >> Nice Chris, at least

Re: Friday OT, cheerful program for gloomy times

"¬" (NOT) On 25/04/2020 02:18, Paul Gilmartin wrote: > On Fri, 24 Apr 2020 07:01:52 +0100, CM Poncelet wrote: > >> I attach a Rexx program to calculate and display the biorhythm values >> for a given date of birth and current or whatever other date. >>   >> If 'management' complains that home work

Re: Friday OT, cheerful program for gloomy times

On Fri, 24 Apr 2020 07:01:52 +0100, CM Poncelet wrote: >I attach a Rexx program to calculate and display the biorhythm values >for a given date of birth and current or whatever other date. >  >If 'management' complains that home workers are not putting enough >effort into their working-from-home t

Re: Friday OT, cheerful program for gloomy times

Anything with date algorithms floats my boat. Another lot to add to my list. Thanks! On Sat, Apr 25, 2020 at 9:16 AM Wayne Bickerdike wrote: > All negatives for me today. Plus I'm thousands of days old :( > > On Sat, Apr 25, 2020 at 6:21 AM scott Ford wrote: > >> Nice Chris, at least you have a

Re: Friday OT, cheerful program for gloomy times

All negatives for me today. Plus I'm thousands of days old :( On Sat, Apr 25, 2020 at 6:21 AM scott Ford wrote: > Nice Chris, at least you have a job, I got furloughed ... > > > > > On Fri, Apr 24, 2020 at 2:01 AM CM Poncelet wrote: > > > I attach a Rexx program to calculate and display the bio

Re: Friday OT, cheerful program for gloomy times

Nice Chris, at least you have a job, I got furloughed ... On Fri, Apr 24, 2020 at 2:01 AM CM Poncelet wrote: > I attach a Rexx program to calculate and display the biorhythm values > for a given date of birth and current or whatever other date. > > If 'management' complains that home workers

Friday OT, cheerful program for gloomy times

I attach a Rexx program to calculate and display the biorhythm values for a given date of birth and current or whatever other date.   If 'management' complains that home workers are not putting enough effort into their working-from-home time, they can run this thing and send its output to 'manageme