Re: TOD clock values, leap seconds and BLSUXTOD conversion service
On Sat, 15 Sep 2018 08:52:55 -0400, Peter Relson wrote: > >On Sat, 20 Apr 2013 14:39:08 -0400, Peter Relson wrote: >>... The documentation says "The STCKCONV macro converts an input >>time-of-day (TOD) clock value to time of day and date, and returns the >>converted values to the caller in the format requested. " This is correct >>and is complete and is all that the service can say. > >As has been mentioned before, there is no reason to talk about a timezone >in this context. >A time-of-day clock value is a time-of-day clock value. That value is >defined in PoP. Since 0 represents 1900 and since bit 51 ticks every >microsecond, bits 0-51 form a number that is the number of microseconds >since 1900. > What date and time in 1900, and what time scale? GMT? UTC? UT1? Ephemeris tme? Terrestrial dynamic time? ...? I believe a programmer might reasonably expect that STCKCONV usefully return whatever TIME would have returned at the instant of the STCK. >I'd be quite happy to have the documentation clarify that the conversion >does not account for leap seconds. RCF submitted. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Retrocomputing: SUNY Stony Brook Pascal compiler written in XPL
So we should be able to run it under Hercules too? On Mon, Dec 24, 2018 at 4:46 PM Robert Prins wrote: > > From news://comp.compilers: > > Forwarded Message > Subject: Retrocomputing: SUNY Stony Brook Pascal compiler written in XPL > Date: Mon, 24 Dec 2018 02:36:08 -0800 (PST) > From: Shoefoot > Organization: Compilers Central > Newsgroups: comp.compilers > > The SUNY Stony Brook Pascal compiler was written in the mid 70's by the > Department of Computer Science at the State University of New York. The > compiler was written in XPL and uses an LL(1) parser to generate code for > the IBM/360. This is a three pass compiler that includes a Post Mortem Dump > program to help diagnose failing code. > > The XPL compiler which came from SUNY closely resembles the XPL compiler > described in the book "A Compiler Generator" by McKeeman, Horning and Wortman. > Unlike the original XPL compiler this compiler does not use an MSP parser. > The > parser is probably SLR or LALR(1). The Analyzer used to generate the tables > was > not included in the release from SUNY. This compiler generates code for the > IBM/360. > > The code generated by both the Pascal and XPL compilers can be run on the > IBM/360 simulator. The simulator, which was not part of the release from > SUNY, > is written in C and can run on most machines that have a C compiler. The > simulator has an EBCDIC translator that allows it run executables from the > original release tape. > > The compilers can be found here: > https://sourceforge.net/projects/suny-pascal/ > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Adding 90 seconds to 8 byte TOD FIELD
On Mon, 24 Dec 2018 17:02:05 +, Farley, Peter x23353 wrote: > >One second in clock units is X'F424'. ... >http://publibfi.boulder.ibm.com/epubs/pdf/dz9zr011.pdf > >So right after you do STCK TIME then do this to get a time 90 seconds later >(SEC90 is an 8 byte field, the same size as your TIME field): > >LLGF R14,=X'F424' >M R14,=F'90' >ST R14,SEC90 >ST R15,SEC90+4 >LG R14,TIME >AG R14,SEC90 > It's a shame that the soi-disant "High Level Assembler" for a 64-bit machine doesn't support 64-bit A-constants else that could all be: AG R14,=AL8(90*100*4096) >STGR14,TIME > >Then you can convert the binary TIME field using STCKCONV. > Beware leap seconds! (Did you want local time or GMT?) z/OS is woefully deficient in time services. It needs to be brought into the 20th Century. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Fwd: Retrocomputing: SUNY Stony Brook Pascal compiler written in XPL
From news://comp.compilers: Forwarded Message Subject: Retrocomputing: SUNY Stony Brook Pascal compiler written in XPL Date: Mon, 24 Dec 2018 02:36:08 -0800 (PST) From: Shoefoot Organization: Compilers Central Newsgroups: comp.compilers The SUNY Stony Brook Pascal compiler was written in the mid 70's by the Department of Computer Science at the State University of New York. The compiler was written in XPL and uses an LL(1) parser to generate code for the IBM/360. This is a three pass compiler that includes a Post Mortem Dump program to help diagnose failing code. The XPL compiler which came from SUNY closely resembles the XPL compiler described in the book "A Compiler Generator" by McKeeman, Horning and Wortman. Unlike the original XPL compiler this compiler does not use an MSP parser. The parser is probably SLR or LALR(1). The Analyzer used to generate the tables was not included in the release from SUNY. This compiler generates code for the IBM/360. The code generated by both the Pascal and XPL compilers can be run on the IBM/360 simulator. The simulator, which was not part of the release from SUNY, is written in C and can run on most machines that have a C compiler. The simulator has an EBCDIC translator that allows it run executables from the original release tape. The compilers can be found here: https://sourceforge.net/projects/suny-pascal/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Adding 90 seconds to 8 byte TOD FIELD
+1 A colleague about barfed when I first used one of those gnarly number specs. :-) sas On Mon, Dec 24, 2018 at 12:12 PM Ed Jaffe wrote: > On 12/24/2018 7:58 AM, Joseph Reichman wrote: > > > > Would anyone have a example of how to add 90 seconds to 8 byte TOD FIELD > > > LGR1,TODvalue Load TOD into R1 > > ALG R1,=FDS12'90E6' Add 90 seconds > > > -- > Phoenix Software International > Edward E. Jaffe > 831 Parkview Drive North > El Segundo, CA 90245 > https://www.phoenixsoftware.com/ > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Adding 90 seconds to 8 byte TOD FIELD
Thanks I am using it to set a value for ECVTXTSW where I want to suspend execution for 90 seconds -Original Message- From: IBM Mainframe Discussion List On Behalf Of Farley, Peter x23353 Sent: Monday, December 24, 2018 12:02 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Adding 90 seconds to 8 byte TOD FIELD Joe, One second in clock units is X'F424'. See the z/Architecture Principles of Operation for the format and contents of the CPU clock, figure 4-12 on page 4-47. The value for one second is in the chart under item 9 on page 4-52 here: http://publibfi.boulder.ibm.com/epubs/pdf/dz9zr011.pdf So right after you do STCK TIME then do this to get a time 90 seconds later (SEC90 is an 8 byte field, the same size as your TIME field): LLGF R14,=X'F424' M R14,=F'90' ST R14,SEC90 ST R15,SEC90+4 LG R14,TIME AG R14,SEC90 STGR14,TIME Then you can convert the binary TIME field using STCKCONV. HTH Peter -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Joseph Reichman Sent: Monday, December 24, 2018 10:58 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Adding 90 seconds to 8 byte TOD FIELD Hi Would anyone have a example of how to add 90 seconds to 8 byte TOD FIELD I am not sure of the format of the TOD though I do know it had the actual date but just by guessing I did the following which didn't seem to product the right results LRR8,R15ESTABLISH ADDRESSABILITY USING TESTPRGA,R8 LRR14,R13 LAR13,SAVEAREA STR14,SAVEAREA+4 STCK TIME STCKCONV STCKVAL=TIME,CONVVAL=TIMECONV,TIMETYPE=DEC, X DATETYPE=DDMM XRR2,R2 ICM R2,B'',TIME+4 A R2,=F'90' STCM R2,B'',TIME+4 STCKCONV STCKVAL=TIME,CONVVAL=TIMECONV,TIMETYPE=DEC, X DATETYPE=DDMM L R13,4(,R13) LMR14,R12,12(R13) BRR14 TIME DSXL8 TIMECONV DSCL16 -- This message and any attachments are intended only for the use of the addressee and may contain information that is privileged and confidential. If the reader of the message is not the intended recipient or an authorized representative of the intended recipient, you are hereby notified that any dissemination of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail and delete the message and any attachments from your system. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Adding 90 seconds to 8 byte TOD FIELD
On 12/24/2018 7:58 AM, Joseph Reichman wrote: Would anyone have a example of how to add 90 seconds to 8 byte TOD FIELD LG R1,TODvalue Load TOD into R1 ALG R1,=FDS12'90E6' Add 90 seconds -- Phoenix Software International Edward E. Jaffe 831 Parkview Drive North El Segundo, CA 90245 https://www.phoenixsoftware.com/ This e-mail message, including any attachments, appended messages and the information contained therein, is for the sole use of the intended recipient(s). If you are not an intended recipient or have otherwise received this email message in error, any use, dissemination, distribution, review, storage or copying of this e-mail message and the information contained therein is strictly prohibited. If you are not an intended recipient, please contact the sender by reply e-mail and destroy all copies of this email message and do not otherwise utilize or retain this email message or any or all of the information contained therein. Although this email message and any attachments or appended messages are believed to be free of any virus or other defect that might affect any computer system into which it is received and opened, it is the responsibility of the recipient to ensure that it is virus free and no responsibility is accepted by the sender for any loss or damage arising in any way from its opening or use. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Adding 90 seconds to 8 byte TOD FIELD
You should read up on timer units as well as the format returned by STCKCONV. Think how you would do this in a high level language or REXX. On Mon, 24 Dec 2018 10:58:26 -0500 Joseph Reichman wrote: :>Hi :> :> :> :>Would anyone have a example of how to add 90 seconds to 8 byte TOD FIELD :> :> :> :>I am not sure of the format of the TOD though I do know it had the actual :>date but just by guessing I did the following which didn't seem to product :>the right results :> :> :> :> LRR8,R15ESTABLISH ADDRESSABILITY :> :> USING TESTPRGA,R8 :> :> LRR14,R13 :> :> LAR13,SAVEAREA :> :> STR14,SAVEAREA+4 :> :> STCK TIME :> :> STCKCONV STCKVAL=TIME,CONVVAL=TIMECONV,TIMETYPE=DEC, X :> :>DATETYPE=DDMM :> :> XRR2,R2 :> :> ICM R2,B'',TIME+4 :> :> A R2,=F'90' :> :> STCM R2,B'',TIME+4 :> :> STCKCONV STCKVAL=TIME,CONVVAL=TIMECONV,TIMETYPE=DEC, X :> :>DATETYPE=DDMM :> :> L R13,4(,R13) :> :> LMR14,R12,12(R13) :> :> BRR14 :> :> TIME DSXL8 :> :> TIMECONV DSCL16 :> :>T :> :> :>-- :>For IBM-MAIN subscribe / signoff / archive access instructions, :>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Adding 90 seconds to 8 byte TOD FIELD
Joe, One second in clock units is X'F424'. See the z/Architecture Principles of Operation for the format and contents of the CPU clock, figure 4-12 on page 4-47. The value for one second is in the chart under item 9 on page 4-52 here: http://publibfi.boulder.ibm.com/epubs/pdf/dz9zr011.pdf So right after you do STCK TIME then do this to get a time 90 seconds later (SEC90 is an 8 byte field, the same size as your TIME field): LLGF R14,=X'F424' M R14,=F'90' ST R14,SEC90 ST R15,SEC90+4 LG R14,TIME AG R14,SEC90 STGR14,TIME Then you can convert the binary TIME field using STCKCONV. HTH Peter -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Joseph Reichman Sent: Monday, December 24, 2018 10:58 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Adding 90 seconds to 8 byte TOD FIELD Hi Would anyone have a example of how to add 90 seconds to 8 byte TOD FIELD I am not sure of the format of the TOD though I do know it had the actual date but just by guessing I did the following which didn't seem to product the right results LRR8,R15ESTABLISH ADDRESSABILITY USING TESTPRGA,R8 LRR14,R13 LAR13,SAVEAREA STR14,SAVEAREA+4 STCK TIME STCKCONV STCKVAL=TIME,CONVVAL=TIMECONV,TIMETYPE=DEC, X DATETYPE=DDMM XRR2,R2 ICM R2,B'',TIME+4 A R2,=F'90' STCM R2,B'',TIME+4 STCKCONV STCKVAL=TIME,CONVVAL=TIMECONV,TIMETYPE=DEC, X DATETYPE=DDMM L R13,4(,R13) LMR14,R12,12(R13) BRR14 TIME DSXL8 TIMECONV DSCL16 -- This message and any attachments are intended only for the use of the addressee and may contain information that is privileged and confidential. If the reader of the message is not the intended recipient or an authorized representative of the intended recipient, you are hereby notified that any dissemination of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail and delete the message and any attachments from your system. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Assigning a Data Class to HSM BACKUP files
On 12/24/2018 3:43 AM, Gadi Ben-Avi wrote: How do I assign a Data Class to the output files of HSM BACKUP and DUMP? These files directed to tape (Virtual tapes in a TS7760), and the Data Class controls the maximum size of the virtual tape. We don't set DATACLAS for tape data sets, but we set STORCLAS by looking at the UNIT: WHEN ( = _TAPE) SET = 'TAPE' Does that technique not work for DATACLAS as well? -- Phoenix Software International Edward E. Jaffe 831 Parkview Drive North El Segundo, CA 90245 https://www.phoenixsoftware.com/ This e-mail message, including any attachments, appended messages and the information contained therein, is for the sole use of the intended recipient(s). If you are not an intended recipient or have otherwise received this email message in error, any use, dissemination, distribution, review, storage or copying of this e-mail message and the information contained therein is strictly prohibited. If you are not an intended recipient, please contact the sender by reply e-mail and destroy all copies of this email message and do not otherwise utilize or retain this email message or any or all of the information contained therein. Although this email message and any attachments or appended messages are believed to be free of any virus or other defect that might affect any computer system into which it is received and opened, it is the responsibility of the recipient to ensure that it is virus free and no responsibility is accepted by the sender for any loss or damage arising in any way from its opening or use. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Adding 90 seconds to 8 byte TOD FIELD
Hi Would anyone have a example of how to add 90 seconds to 8 byte TOD FIELD I am not sure of the format of the TOD though I do know it had the actual date but just by guessing I did the following which didn't seem to product the right results LRR8,R15ESTABLISH ADDRESSABILITY USING TESTPRGA,R8 LRR14,R13 LAR13,SAVEAREA STR14,SAVEAREA+4 STCK TIME STCKCONV STCKVAL=TIME,CONVVAL=TIMECONV,TIMETYPE=DEC, X DATETYPE=DDMM XRR2,R2 ICM R2,B'',TIME+4 A R2,=F'90' STCM R2,B'',TIME+4 STCKCONV STCKVAL=TIME,CONVVAL=TIMECONV,TIMETYPE=DEC, X DATETYPE=DDMM L R13,4(,R13) LMR14,R12,12(R13) BRR14 TIME DSXL8 TIMECONV DSCL16 T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Assigning a Data Class to HSM BACKUP files
Hi, How do I assign a Data Class to the output files of HSM BACKUP and DUMP? These files directed to tape (Virtual tapes in a TS7760), and the Data Class controls the maximum size of the virtual tape. Thanks Gadi ? ?? ? ?? ??? ??? ?? ? ??? ?? ??. ?? , ?? ??? ?, ??? ? ?? ??? ? ?? ?? ?. ? ? ?? ?? ?? ?? ?? ??? ??? ???, ?/?? ?, ? ?? ? ? ? ? ?? ?? ? ??? ?/?? ?? ?? ??. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN