Re: finding callers key in svc
The key is in the RBOPSW of the callers RB. As for the byte count, MVCSK uses the same format of the length in the register as you would use in EX instruction, 1 less than the actual length. Also, if you look at the assembly listing for an MVC, for example MVC 0(8,R3),0(R8) the assembler will generate D207 3000 8000, so it uses the a length of 1 less than the length. Wayne Driscoll Note: All opinions strictly my own. On Fri, Apr 26, 2024 at 2:21 PM Erik Janssen < 062c999269e8-dmarc-requ...@listserv.ua.edu> wrote: > Hello List, > > Is there way to determine the key that the caller of a SVC is executing > in? For a PC routine doing an ESTA and some shifting seems to be the way to > find the key, but I'm unsure how the same could be done from a user SVC. > Is it somewhere in the SVRB? > Also, I see this example in the authorized code scanner: > > https://www.ibm.com/docs/en/zos/2.4.0?topic=fixes-fetch-vulnerability-example > > vulnerable: >LA R3,copyparms >MVC 0(4,R3),0(R2) > > fixed: > LHI R3,1 > ESTA R0,R3 > SRDL R0,48 > LHI R0,3 > LA R3,copyparms > MVCSK 0(R3),0(R2) > > I noticed that the length loading in R0 for the MVCSK is 3, while in the > vulnerable mvc example the length is 4. > The POP for MVCSK says: > L specifies the number of bytes to the right of the first > byte of each operand. Therefore, the length in bytes > of each operand is 1-256, corresponding to a length > code in L of 0-255. > > Is there any logic behind why MVC uses the actual byte count and MVCSK > uses the 'number of bytes to the right'? > > Kind regards, > Erik Janssen. > > > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- Wayne Driscoll Software Engineer | Mainframe Software Division Broadcom Software *Office: *630-300-1931* Mobile:* 630-247-1632 wayne.drisc...@broadcom.com -- This electronic communication and the information and any files transmitted with it, or attached to it, are confidential and are intended solely for the use of the individual or entity to whom it is addressed and may contain information that is confidential, legally privileged, protected by privacy laws, or otherwise restricted from disclosure to anyone else. If you are not the intended recipient or the person responsible for delivering the e-mail to the intended recipient, you are hereby notified that any use, copying, distributing, dissemination, forwarding, printing, or copying of this e-mail is strictly prohibited. If you received this e-mail in error, please return the e-mail to the sender, delete it from your computer, and destroy any printed copy of it. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How can I determine MVS FQDSN from DD Name in Batch COBOL Program?
An assembler program could issue the RDJFCB macro against a DCB with the appropriate DD name in it to perform the checking. Wayne Driscoll Note - All opinions are strictly my own On Mon, Mar 25, 2024 at 10:46 AM Cameron Conacher < 03cfc59146bb-dmarc-requ...@listserv.ua.edu> wrote: > Hello. > Back again. > Previously I had inquired about retrieving RACF details from the MVS > control Blocks at runtime. > Name I would like to retrieve the Fully Qualified Data set name for a > specific DD (SYSOUT). > > Why? Well I would like my COBOL program to allow COBOL Displays in > Production ONLY when the User specified a FQDN. > If the JOB has SYSOUT DD *, then I will skip the COBOL displays to prevent > filling the SPOOL. > But in emergency, support could override SYSOUT=* with > SYSOUT=mydatasetName and my program will be able to determine we can honour > the DISPLAYs. > > Yeah, maybe this is a make work project? > Maybe the pain killers working over time? > > Thanks > > > Cameron Conacher > Senior Engineer > > American Express Canada Inc. > GCICS > 2225 Sheppard Avenue East, Toronto, ON M2J 5C2 > > cameron.conac...@aexp.com<mailto:cameron.conac...@aexp.com> > Office: 1-437-836-5265 > Mobile: 1-416-409-5147 > > https://amex.webex.com/join/cameron.conacher > > Note I will be OOO on PTO March 23 throough March 31 2024 inclusive. > > > > American Express made the following annotations > > This e-mail was sent to you by a representative of Amex Bank of Canada, > P.O. Box 3204, Station "F", Toronto, ON, M1W 3W7, www.americanexpress.ca. > If you no longer wish to receive these e-mails, please notify the sender by > reply e-mail. > > This e-mail is solely for the intended recipient and may contain > confidential or privileged information. If you are not the intended > recipient, any disclosure, copying, use, or distribution of the information > included in this e-mail is prohibited. If you have received this e-mail in > error, please notify the sender by reply e-mail and immediately and > permanently delete this e-mail and any attachments. Thank you. > > American Express a fait les remarques suivantes > Ce courriel vous a ?t? envoy? par un repr?sentant de la Banque Amex du > Canada, C.P. 3204, succursale F, Toronto (Ontario) M1W 3W7, > www.americanexpress.ca. Si, par la suite, vous ne souhaitez plus recevoir > ces courriels, veuillez en aviser les exp?diteurs par courriel. > > Ce courriel est r?serv? au seul destinataire indiqu? et peut renfermer des > renseignements confidentiels et privil?gi?s. Si vous n'?tes pas le > destinataire pr?vu, toute divulgation, duplication, utilisation ou > distribution du courriel est interdite. Si vous avez re?u ce courriel par > erreur, veuillez en aviser l'exp?diteur par courriel et d?truire > imm?diatement le courriel et toute pi?ce jointe. Merci. > > ------ > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- Wayne Driscoll Software Engineer | Mainframe Software Division Broadcom Software *Office: *630-300-1931* Mobile:* 630-247-1632 wayne.drisc...@broadcom.com -- This electronic communication and the information and any files transmitted with it, or attached to it, are confidential and are intended solely for the use of the individual or entity to whom it is addressed and may contain information that is confidential, legally privileged, protected by privacy laws, or otherwise restricted from disclosure to anyone else. If you are not the intended recipient or the person responsible for delivering the e-mail to the intended recipient, you are hereby notified that any use, copying, distributing, dissemination, forwarding, printing, or copying of this e-mail is strictly prohibited. If you received this e-mail in error, please return the e-mail to the sender, delete it from your computer, and destroy any printed copy of it. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Jes message $HASP311
An Address Space RESMGR for an initiated job is of little use, as it won't get invoked until the address space terminates, which in the case of an INIT may be a while. For authorized batch jobs a TASK RESMGR on the job step task would be needed to clean up your resources. Wayne Driscoll Note: All opinions are strictly my own. On Thu, Mar 14, 2024 at 9:12 AM Joseph Reichman < 05812645a43c-dmarc-requ...@listserv.ua.edu> wrote: > Would installing an address space resource manager > > Help > > > On Mar 14, 2024, at 7:50 AM, Tom Marchant < > 000a2a8c2020-dmarc-requ...@listserv.ua.edu> wrote: > > > > "End of memory" means that the address space terminated. JES2 refers to > an address space as a "memory". > > > > It may or may not be due to a storage related problem. > > > > -- > > Tom Marchant > > > >> On Wed, 13 Mar 2024 19:07:36 -0400, Joseph Reichman < > reichman...@gmail.com> wrote: > >> > >> Regarding the above message and I'll put down the entire text > >> > >> $HASP311 JOER$RE-QUEUED AT END OF MEMORY AND HELD > >> > >> Would any anyone know what causes it > > > > -- > > 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 > -- This electronic communication and the information and any files transmitted with it, or attached to it, are confidential and are intended solely for the use of the individual or entity to whom it is addressed and may contain information that is confidential, legally privileged, protected by privacy laws, or otherwise restricted from disclosure to anyone else. If you are not the intended recipient or the person responsible for delivering the e-mail to the intended recipient, you are hereby notified that any use, copying, distributing, dissemination, forwarding, printing, or copying of this e-mail is strictly prohibited. If you received this e-mail in error, please return the e-mail to the sender, delete it from your computer, and destroy any printed copy of it. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Ent. COBOL User-defined function question
https://www.ibm.com/support/pages/apar/PH57397 Wayne Driscoll wayne.drisc...@broadcom.com All opinions are expressly my own. Thank you for that information. On the system where I have access to V6.4 it looks like we only have as far as the June 2023 refresh: PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.4.0 P230615 I will wait for the latest level to be applied and try again then. Do you happen to have a link to the APAR description? I presume there is a coordinated documentation update as well. Peter On Fri, Feb 2, 2024 at 3:41 PM Farley, Peter < 031df298a9da-dmarc-requ...@listserv.ua.edu> wrote: > Thank you for that information. On the system where I have access to V6.4 > it looks like we only have as far as the June 2023 refresh: > > PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.4.0 P230615 > > I will wait for the latest level to be applied and try again then. > > Do you happen to have a link to the APAR description? I presume there is a > coordinated documentation update as well. > > Peter > > From: IBM Mainframe Discussion List On Behalf > Of Frank Swarbrick > Sent: Friday, February 2, 2024 2:40 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Ent. COBOL User-defined function question > > > What fix level are you at? October 2023's PTF closes APAR PH57397, which > adds "function prototypes". I think you would have the appropraite > prototype defined before the program/function where it is used. Best done > with a COPY statement. > > > > Prior to this fix level I think your results are working as designed. > > > > Frank > > > > From: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU>> on behalf of Peter Farley < > 031df298a9da-dmarc-requ...@listserv.ua.edu 031df298a9da-dmarc-requ...@listserv.ua.edu>> > > Sent: Thursday, February 1, 2024 9:50 AM > > To: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU> < > IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU>> > > Subject: Ent. COBOL User-defined function question > > > > Using the listserv web interface for the first time, so I hope this goes > through OK. > > > > In testing the new V6.4 user-defined functions capability I have found > that it seems you cannot have a separately-compiled-and-linked user-defined > function. If you separately compile and link the function for dynamic load > and execute by other programs, the other programs cannot just have a > REPOSITORY paragraph that names the function - the function source code > seems to be required as part of the using-program compile, otherwise you > get an error message. > > > > Example error message: > > > > 01IDENTIFICATION DIVISION. > > 02PROGRAM-ID. FUNCTSTM > > 03ENVIRONMENT DIVISION. > > 04CONFIGURATION SECTION. > > 05REPOSITORY. > > 06FUNCTION TST1FUNC > > > > 06==> IGYDS0301-E "TST1FUNC" was specified in the "FUNCTION" phrase of > the "REPOSITORY" > > paragraph, but it is not the name of an user-defined > function. The > > phrase was discarded. > > > > Does this mean that user-defined source code must always be included when > compiling programs that want to use these functions? That seems less than > useful to me because then there is no way to maintain such functions > independently of the programs that use them. > > > > TIA for any insight you can offer. > > > > Peter > > -- > > 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 > -- Wayne Driscoll Software Engineer | Mainframe Software Division Broadcom Software *Office: *630-300-1931* Mobile:* 630-247-1632 wayne.drisc...@broadcom.com -- This electronic communication and the information and any files transmitted with it, or attached to it, are confidential and are intended solely for t
Re: SMF field data
The QWHC is the correlation header, which follows the standard header in the IFI record. I am assuming you are looking at data from IFCID 3, accounting records, which are externalized to SMF via record 101. Look at the DB2 SDNSMACS library for the DSNDQWxx macros that map these records. Wayne Driscoll Rocket Software NOTE: All views expressed are my own, not my employers. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Bill Giannelli Sent: Thursday, September 2, 2021 10:30 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: SMF field data EXTERNAL EMAIL We have some BMC data fields that are populated from SMF DB2 records and some fields are coming up blank. How can I read out the SMF record fields to see if the SMF fields are blank also? One of the fields is QWHCEUWN thanks Bill -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 855.577.4323 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Coding for the future
Until the definition of a token changes such that the new length is 32 instead of 5. Changing the one macro that defines TOKEN_LEN is much easier than searching for all instances of LARx,5 and then determining if it is process a TOKEN, or if the value is for some other reason. Wayne Driscoll Rocket Software Note - All opinions are strictly my own. From: IBM Mainframe Discussion List On Behalf Of Tom Brennan Sent: Wednesday, June 16, 2021 9:23 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Coding for the future EXTERNAL EMAIL I'd actually rather read LA R7,5 so I don't have to hunt for where Token_Len is defined. On 6/16/2021 3:24 PM, Charles Mills wrote: > And if the instruction itself were > > LA R7,Token_Len > > Then it would be more clear and more maintainable. > > Charles > > > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Jesse 1 Robinson > Sent: Wednesday, June 16, 2021 3:07 PM > To: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU> > Subject: Re: Coding for the future > > Avoid embedding code specific details in comments. > > Init loop counter in R7 to 5 > > A comment should not name anything explicitly stated in the instruction. 'R7' > in the comment is not merely redundant. If the loop register needs to be > changed later on, then the comment will have to be updated also. If it's not > updated, then it becomes misleading, perhaps worse than no comment at all. I > would prefer > > LA R7,5 Prepare to search for delimiter > > > > . > . > J.O.Skip Robinson > Southern California Edison Company > Electric Dragon Team Paddler > SHARE MVS Program Co-Manager > 323-715-0595 Mobile > 626-543-6132 Office ⇐=== NEW > robin...@sce.com<mailto:robin...@sce.com> > > -Original Message- > From: IBM Mainframe Discussion List > mailto:IBM-MAIN@LISTSERV.UA.EDU>> On Behalf Of Mike > Schwab > Sent: Wednesday, June 16, 2021 2:17 PM > To: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU> > Subject: (External):Re: EXTERNAL: Coding for the future > > *** EXTERNAL EMAIL - Use caution when opening links or attachments *** > > But what is Register 7 going to be used for, and why does it need a 5? > I. E. Init loop counter in R7 to 5. > > On Wed, Jun 16, 2021 at 11:48 AM Savor, Thomas > <0330b7631be3-dmarc-requ...@listserv.ua.edu<mailto:0330b7631be3-dmarc-requ...@listserv.ua.edu>> > wrote: >> >> ==> LA R7,5 Put 5 in register 7 >> >> It depends on the intended target audience. Now I and you know that a 5 is >> put in Register 7, but many shops have only a couple Assembler >> Programmersbut many more Cobol programmers. Telling "them" that a 5 is >> put in Register 7 can be helpful to solving a problem or learning what a >> program does. >> >> Way too many Cobol programmers that I run into are scared of looking at >> Assembler...like just looking at it or trying to learn it is going to give >> you Ebola...so even very basic instructions can be helpful...especially if >> Instruction says LA 7,5 then it really helps "them". >> >> Thanks, >> >> Tom >> >> >> >> >> -Original Message- >> From: IBM Mainframe Discussion List >> mailto:IBM-MAIN@LISTSERV.UA.EDU>> On >> Behalf Of Seymour J Metz >> Sent: Wednesday, June 16, 2021 11:58 AM >> To: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU> >> Subject: Re: EXTERNAL: Coding for the future >> >> Long ago in a galaxy far away, they handed each of us a stack of manuals and >> told use that we were all enrolled in a 7070 class and had to read all of >> the manuals before the class started. It turned out that some of the >> students were answering questions that stumped the instructor, and that if >> you read the manuals you didn't need the course. >> >> The worst are the ones that score based on the quantity of comments instead >> of their quality. That guaranties cluttered and unhelpful comments. People >> will behave in such a fashion as to optimize how their organization ranks >> them; if teir grades or performance reviews depend on doing something >> sub-optimal, then that's what they'll do. Measure the things that actually >> matter. >> >> I generally frown on marking students down on stylistic issues like >> labels on separate lines, but I will mark down for >> >> LA R7,5 Put 5 in register 7 >> >> Don't tell me what LA does, tell me why you're putting that value in that >> register. If there is nothing u
Re: SMPe / CSI missing product sysmods
Sorry for the delayed response, I haven’t been keeping up with IBM-MAIN the last few months. The DISPLAY MEPL is a Db2 utility command, so is not applicable to CQM. A CQM SMP/E install will apply the load modules into TARGET DDEF's SCQMLOAD, SCQCLOAD and SFECLOAD, so I would start there, Wayne Driscoll Rocket Software Note - All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Bill Giannelli Sent: Tuesday, March 9, 2021 3:07 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: SMPe / CSI missing product sysmods EXTERNAL EMAIL SET BDY(TARGET). LIST PTFS FORFMID(HTCZ110). SET BDY(DLIB). LIST PTFS FORFMID(HTCZ110). For running the mepl can that be run against the Query monitor load and NOT the DB2 DSNLOAD? thanks Bill -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 855.577.4323 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Has anyone integrated Rexx with IKJPARS?
Just catching up. You may be referring to “XPROC” which is on file 772 of the CBT tape, which I’ve used in private rexx execs. Wayne Driscoll Rocket Software Note - All opinions are strictly my own. From: IBM Mainframe Discussion List On Behalf Of Seymour J Metz Sent: Thursday, November 19, 2020 5:45 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Has anyone integrated Rexx with IKJPARS? EXTERNAL EMAIL There is an old REXX-callable package called something like XPARSE that uses IKJPARSE. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3<http://mason.gmu.edu/~smetz3> From: IBM Mainframe Discussion List mailto:IBM-MAIN@LISTSERV.UA.EDU>> on behalf of Jesse 1 Robinson mailto:jesse1.robin...@sce.com>> Sent: Thursday, November 19, 2020 3:24 PM To: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU> Subject: Re: Has anyone integrated Rexx with IKJPARS? No argument. Still, it's hard to beat the flexibility of TSO/CLIST parameter handling. I wrote a TSO command once partly for kicks. Really complicated. Pointers to pointers to pointers. When it was done, it was super easy to use. Sigh. . . J.O.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 323-715-0595 Mobile 626-543-6132 Office ⇐=== NEW robin...@sce.com<mailto:robin...@sce.com> -Original Message- From: IBM Mainframe Discussion List mailto:IBM-MAIN@LISTSERV.UA.EDU>> On Behalf Of Jeremy Nicoll Sent: Thursday, November 19, 2020 12:12 PM To: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU> Subject: (External):Re: Has anyone integrated Rexx with IKJPARS? *** EXTERNAL EMAIL - Use caution when opening links or attachments *** On Thu, 19 Nov 2020, at 19:30, Charles Mills wrote: > It would appear to be a lot of work, but it would seem that "TSO > format command parsing" and Rexx would be a natural marriage. > > I have never used IKJPARS, so I don't claim to be an expert, and > others might disagree. Surely very few people use command line TSO though? Isn't it more common if there's something complicated to do to offer the user an ispf panel (which will remember previous parameter choices) to set up the options they want? Also, even if you do make TSO REXX IKJPARS-capable, all you're doing is making REXX inconsistent across all the different subsystems that it's usable in. > The issue I am struggling with is that for all of Rexx's parsing > power, which is of course legendary, it does not seem well-suited to classic > "MVS" > (for want of a better term) quoted strings. I am considering an EXEC > that would accept parameters of > > 'a quoted string', 'another quoted string', simpletoken1, simpletoken2, ... Why do you need quoted strings? Something I do in some situations is make the very first character of an arbitrary string a delimiter, and then wherever that same character appears later on, the string gets chopped up on that. So > 'now isn''t the time', 'nor, is this', MYTOKEN, YOURTOKEN might become !now isn't the time!nor, is this!MYTOKEN!YOURTOKEN (I also sometimes have an escaped blank character so that an exec that expects a single token as its argument could be given !the!meaning!of!life but still process that as "the meaning of life". Or I pass tokens which are: c2x(whatever) -- Jeremy Nicoll - my opinions are my own. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu<mailto: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<mailto:lists...@listserv.ua.edu> with the message: INFO IBM-MAIN Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 855.577.4323 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Does allocating an HFS or zFS erase all existing data?intervals formatted?
I don't believe this is true. I know that Db2 will only "pre-format" a subset of pages when it opens a newly created LDS, or adds a new extent, rather than pre-formatting the entire dataset/extent. Wayne Driscoll Rocket Software Note - All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Mike Schwab Sent: Friday, May 15, 2020 12:15 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Does allocating an HFS or zFS erase all existing data?intervals formatted? EXTERNAL EMAIL All VSAM datasets including Linear are formatted when created. The disk space used is not allocated to any other datasets. Previous data left by deleted datasets is usually left in place (erase on delete is an option but not used frequently) but frequently overwritten in a short time so restoring a deleted data set is almost always impossible. On Fri, May 15, 2020 at 4:25 PM Seymour J Metz wrote: > > I want to edit the wiki article [[Disk formatting]] to clarify the > statement "s a general rule,[nb 1] formatting a disk erases most if > not all existing data on the disk medium". Normally I would consult > the logic manuals :-( > > When you allocate an HFS or linear data set, does AMS preformat all of the > tracks? When you format a zFS, does that force formatting of all tracks? Can > you provide references that I can cite for the answers? > > Thanks. > > > > -- > Shmuel (Seymour J.) Metz > https://nam01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.g > mu.edu%2F~smetz3data=02%7C01%7C%7C421a17b8a7be4aed45fb08d7f8f37cf > 4%7C79544c1eed224879a082b67a9a672aae%7C0%7C0%7C637251596968251708 > sdata=GI0Z4yvHlBuwKVQ3%2BJntG4HzfTreMlSIDJsPQ9PwjXE%3Dreserved=0 > > -- > 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 Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 855.577.4323 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: C
At that time NIU, located about 90 minutes west of Chicago made available a set of assembler macros that provided structured programming constructs, as many Chicago area IT organizations hired from NIU, many used these macros. Wayne Driscoll Rocket Software Note - All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Mike Schwab Sent: Sunday, April 26, 2020 12:25 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: C EXTERNAL EMAIL I was doing an internship in the Chicago area during the summer of 1984. They were using an assembler with IF macros. On Sun, Apr 26, 2020 at 2:11 PM Seymour J Metz wrote: > > HLASM in 1980? Not before June 1992. I assume that you were using XF > and H, possibly with the SLAC mods on the latter (thank you, Greg and > John.) > > > -- > Shmuel (Seymour J.) Metz > https://nam01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.g > mu.edu%2F~smetz3data=02%7C01%7C%7C1dfd83889d9d4a9127a108d7ea06d7f > 5%7C79544c1eed224879a082b67a9a672aae%7C0%7C0%7C637235187442674475 > sdata=nRSQMjThQ3ncTFLzDDyfUbha0VX2cE2c9VHizXJr2uU%3Dreserved=0 > > > From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on > behalf of Donald Blake [dhbl...@gmail.com] > Sent: Sunday, April 26, 2020 8:51 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: C > > I took my first C course in 1980. The text was the original *The C > programming Language* by Kerrigan and Richie, which I still have on my > shelf, The text is copyright 1978. That's 42 years ago. I was an IBM > HL Assembler programmer at the time. BTW ... we still were using > IFOX00 at the time as well. > > > Hey, it's not politically correct to point out how old C is. > > > > > > -- > > Shmuel (Seymour J.) Metz > > https://nam01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason > > .gmu.edu%2F~smetz3data=02%7C01%7C%7C1dfd83889d9d4a9127a108d7ea0 > > 6d7f5%7C79544c1eed224879a082b67a9a672aae%7C0%7C0%7C63723518744267447 > > 5sdata=nRSQMjThQ3ncTFLzDDyfUbha0VX2cE2c9VHizXJr2uU%3Dreser > > ved=0 > > > > -- > 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 -- 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 Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 855.577.4323 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Memory-Lane Monday: Documentation just takes up too much space | Computerworld
At a prior ISV employer in the mid 90's I recall an executive saying that the companies #2 expense (behind employee salary) was the cost to print manuals. Wayne Driscoll Rocket Software Note - All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Bob Bridges Sent: Tuesday, March 17, 2020 6:10 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Memory-Lane Monday: Documentation just takes up too much space | Computerworld EXTERNAL EMAIL I used to think so. But some years ago - decades ago, now, come to think of it - we were teaching users how to write their own DYL-280II programs, and ordering manuals for them as the need arose. My boss got tired of writing up purchase orders for manuals one and two at a time (at $150 for a two-volume set, as I recall), and had me talk to Dylakor about buying a larger number at a discount. Say 100 of them, and we'd parcel them out to the users as part of the classes. Dylakor was perfectly willing to sell me 100 copies at half price, $7500 for 100 sets. No, no, I said, I want a ~real~ discount. I had the idea, you see, that they were making a lot of extra money on the printing. They came back to me a day or two later and made a counter offer: They'd issue us a license to print the manuals on-site, and they'd just sell us the loose-leaf tabs and binders. Now you're talking!, I said, and went off to our print shop to figure out what it would take. Turns out their half-price offer was about what I'd have to spend to do the printing ourselves. The lesson I came away with: Printing is expensive. --- Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313 /* "Bother", said the Borg, "we've assimilated a Pooh". */ -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of R.S. Sent: Tuesday, March 17, 2020 11:01 I don't know US prices, but IMHO scanning manuals, especially not books, rather binders should be easy and cheap. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 855.577.4323 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Convert a Metal C control block mapping to Assembler DSECT ?
To be fair, while the PL/X source is retained in comments to the assembler, those macros are generated in way that allows them to be used in both assemblies and PL/X compiles. Wayne Driscoll Rocket Software Note - All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Seymour J Metz Sent: Sunday, February 16, 2020 2:05 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Convert a Metal C control block mapping to Assembler DSECT ? EXTERNAL EMAIL Some control block macros are generated from PL/X and contain the source as comments. -- Shmuel (Seymour J.) Metz https://nam01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=02%7C01%7C%7C6c5bfbadd0764e1e33c308d7b31b8bca%7C79544c1eed224879a082b67a9a672aae%7C0%7C0%7C637174803196789791sdata=lySiNf4f1zj%2FYMUZUyMyayTK8Ivs%2B2JK9t%2B0xMyzzqs%3Dreserved=0 From: IBM Mainframe Discussion List on behalf of Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu> Sent: Friday, February 14, 2020 2:30 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Convert a Metal C control block mapping to Assembler DSECT ? On Fri, 14 Feb 2020 10:52:07 -0800, Charles Mills wrote: >I would assume that Gord is using the EDCDSECT program which is legally part >of the XLC compiler. It assembles the DSECT -- can be either by itself or part >of some larger assembly -- and massages SYSADATA to produce a C-legal struct. > >... Its worst flaw IMHO is to make FOO DS FL8 and similar into char foo[8] . > That deserves an APAR. FL8 is not CL8. >Our local hero Peter Relson developed an internal tool that does a much >better job, and z/OS is now shipping C struct header files for many, >many MVS control blocks. (The tool is not suitable for release because >it uses PL/X input, which is much better because it is closer to C than >HLASM is. PL/X is more strongly typed than HLASM.) > Aren't some z/OS control blocks distributed bilingual, HLASM and PL/X? >Agree with Lionel's recommendation. Even if the usage is going to be 90% C and >10% HLASM you want to do the DSECT first and work from there. > >This has been discussed here previously, including someone who posted >regex that will automate the conversion of char foo[8] to long long >foo; > But what if the original was FOO DS CL8, a common cliche in z/OS? -- gil -- 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 Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 855.577.4323 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ZOS 1.13 2.2 2.3 in the same sysplex
Right, they don't say it won't work, but if it doesn’t, and something breaks, they aren't going to do anything to help you put the pieces back together. Wayne Driscoll Rocket Software Note - All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Mark Jacobs Sent: Tuesday, December 17, 2019 7:06 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ZOS 1.13 2.2 2.3 in the same sysplex EXTERNAL EMAIL Until some shared resource breaks. Not saying it'll happen, but it might. Mark Jacobs Sent from ProtonMail, Swiss-based encrypted email. GPG Public Key - https://nam01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fapi.protonmail.ch%2Fpks%2Flookup%3Fop%3Dget%26search%3Dmarkjacobs%40protonmail.comdata=02%7C01%7C%7Cf2eba82a1290450ea67f08d782f2018e%7C79544c1eed224879a082b67a9a672aae%7C0%7C0%7C637121848241109558sdata=riBz9F0SVKo%2BUu8M4cc7hwOWImz51OdErToR8cVTz9o%3Dreserved=0 ‐‐‐ Original Message ‐‐‐ On Tuesday, December 17, 2019 3:14 AM, Brian Westerman wrote: > I don't think there is any check for that. I believe that z/OS isn't that > smart when it comes to figuring that stuff out, and actually I can't really > think of a reason why it wouldn't work. Remember, just because IBM doesn't > say they "support" something, doesn't necessarily mean it doesn't work. > > Brian > > -- > -- > -- > -- > > > 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 Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 855.577.4323 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: WTO
And he later sent out a mea culpa e-mail correcting himself. Wayne Driscoll Rocket Software Note - All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Seymour J Metz Sent: Monday, December 2, 2019 5:14 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: WTO EXTERNAL EMAIL Whatever Peter did or did not point out in some other message, he wrote Peter wrote "Upon request (to me), IBM assigns to an ISV a slot in the anchor tables pointed to by CVTCTBL". -- Shmuel (Seymour J.) Metz https://nam01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=02%7C01%7C%7Cb6af737e2dde4ad6332208dd66bb%7C79544c1eed224879a082b67a9a672aae%7C0%7C0%7C637109252788910948sdata=IYExCrDyqwR75AHhQBoCYUU6C%2BPKQAS1rpVJFNbs%2FOo%3Dreserved=0 From: IBM Mainframe Discussion List on behalf of Steve Smith Sent: Monday, December 2, 2019 5:21 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: WTO Sigh. No such thing as CVTCTBL, which Peter Relson pointed out several days ago. Both fields are in the ECVT: ECVTCTBL DCV(CSRCTABL) Customer anchor table. * Slots assigned by IBM. ... ECVTCTB2 DCV(CSRCTAB2) Customer anchor table 2 * (8-byte slots) I wish the commentary said "vendor" (or something like that), not "customer". sas On Mon, Dec 2, 2019 at 4:38 PM Seymour J Metz wrote: > I couldn't find CVTCTBL in the V2R4 Data Areas either. -- 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 Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 855.577.4323 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: AUTHPGM in IKJTSOxx
In z/OS 2.4, with the ACEECHK class active that will require special authorization. Wayne Driscoll Rocket Software Note - All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Charles Mills Sent: Monday, November 18, 2019 12:11 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: AUTHPGM in IKJTSOxx An authorized program would not need to switch TO a SPECIAL userid, it could simply give itself SPECIAL in its ACEE. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Walt Farrell Sent: Monday, November 18, 2019 9:52 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: AUTHPGM in IKJTSOxx On Mon, 18 Nov 2019 10:54:06 -0500, scott Ford wrote: >So guys, stupid question what about a STC that provisions for RACF, etc. >But the design is as a normal generalized user, but with a id with >SPECIAL that is invoked only during the time of passing the command to >RACF ? Does it have to be APF authorized for RACF command access or am >i misunderstanding my readings ? If the program starts out under user ID A, and needs to switch to user ID B (as you seem to indicate it does), then it will need some kind of authorization to switch its identity. That authorization could be APF-authorization, or supervisor state, or system key. Or if the program is running in a UNIX System Services environment on z/OS and the program has appropriate UNIX server authorization, it could use UNIX functions to change its identity. So without more details we can't say what your program would need to do, or exactly what kind of authorization it would need. -- Walt -- 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 Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 855.577.4323 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: AUTHPGM in IKJTSOxx
The difference is that when run in batch, unless the JOBSTEP program is AC(1), loaded from an authorized library with a STEPLIB/JOBLIB concatenation that only contains authorized libraries, it will not, and cannot, become authorized. Also in general the JOBSTEP program can expect a "clean" environment at startup, ie no non-system provided modules will be loaded into the address space. A program run under the "authorized TMP" has no such control. The TSO user could run countless TSO commands that result in large numbers of "unanticipated" programs residing in the address space, so a poorly designed program in AUTHPGM, linked into an authorized library, and invoked via IKJEFTSR can allow a lot more potential violations of MVS system integrity than in general, an AC(1) module invoked as a batch job can. Wayne Driscoll Rocket Software Note - All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Leonardo Vaz Sent: Saturday, November 16, 2019 6:33 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: AUTHPGM in IKJTSOxx Hello Walt! Thanks for your input! But wouldn’t that program be violating system integrity even if not placed on AUTHPGM? The user could execute it batch first example and change his ACEE or anything else. I guess depending on the authorized program code, it might keep integrity when executed under its own address space but if it executed under TSO it might allow other units of work to run something they shouldn’t be able to, i think it would have to be something really specific and it’s still unclear to me why AUTHPGM exists. Thanks Gil for your input too. zLeo > On Nov 16, 2019, at 4:17 PM, Walt Farrell wrote: > > On Sat, 16 Nov 2019 15:30:01 +, Leonardo Vaz wrote: > >> I am curious now, does a custom homegrown program have to take extra >> precautions to be placed under AUTHPGM? What would those be? >> > > Usually, no. > > Sometimes, depending on what the program does, yes. > > For example, consider a program which accepts as a parameter the address (not > the name) of some code to be executed as a kind of subroutine. > > Now consider what might happen if you were to link that program with AC(1), > place it in a library that MVS considers APF-authorized, and put its name in > AUTHPGM. At that point any TSO user could: > (1) Write a program that had some malicious code in it. > (2) Invoke your program using IKJEFTSR and passing the address of the > malicious code. > > TSO would then pause the user's program (TCB) to preserve System Integrity, > invoke your code running authorized, and your code would run the user's > malicious code. Your program has then allowed the user to violoate MVS System > Integrity. > > There are several solutions: > (a) Don't put that program in AUTHPGM. If I remember correctly there was at > least one MVS program whose documentation said it should not be placed in > AUTHPGM. > > (b) Code the program to detect it's running authorized, and under TSO, and > then skip calling the code. Perhaps, as an alternative, in that situation the > program might allow the user to pass a module name instead of an address, and > the program could LINK to it, allowing the system to determine whether it is > safe to invoke the subroutine module. > > (c) Code the program to detect it's running authorized, and under TSO, and > then to perform a security check to see the current user is trusted to run > the program under TSO. > > -- > Walt > > -- > 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 Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 855.577.4323 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IBM SSI Function Codes 16 and 17
While not an IBM doc, there is an example of this at CBTTAPE.ORG, File 364. It is poorly documented, and I can't say if it will work with current z/OS releases, but it might be a good start. Wayne Driscoll Rocket Software Note - All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Lionel B Dyck Sent: Wednesday, October 2, 2019 11:43 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: IBM SSI Function Codes 16 and 17 I'm interested in utilizing SSI Function codes 16 (data set open) and 17 (data set close) but I'm not able to find any information on how to use these. In looking at the IBM z/OS 2.4 publication on the SSI these are not even included in the list of 'allowed' function codes. Can anyone point me to where I can find out more about how to use these function codes in my subsystem? Thank you Lionel B. Dyck < Website: <https://nam01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.lbdsoftware.com%2Fdata=02%7C01%7C%7C6ba9259f2d60401204a408d74757a4af%7C79544c1eed224879a082b67a9a672aae%7C0%7C0%7C637056314064664852sdata=RwhAj0%2FJFTeefv5ExRAWrw4%2B%2BdvzwRKulBk0SoG2J4U%3Dreserved=0> https://nam01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.lbdsoftware.comdata=02%7C01%7C%7C6ba9259f2d60401204a408d74757a4af%7C79544c1eed224879a082b67a9a672aae%7C0%7C0%7C637056314064674848sdata=dX5ze%2BLXSkbyCqATZOdcryMfwUAIcoOvCor1AyZ4fXc%3Dreserved=0 "Worry more about your character than your reputation. Character is what you are, reputation merely what others think you are." - John Wooden -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 855.577.4323 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: What do y'all think of this? No password expiration time
It clearly isn't buried in TSO logon, because the same ICH70001I message issued at TSO login is also issued to the JESMSGLG dataset of a batch job. I believe it has to do with the use of the MSGxxx operands on the RACROUTE request. Wayne Driscoll Rocket Software Note - All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Paul Gilmartin Sent: Wednesday, June 12, 2019 10:46 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: What do y'all think of this? No password expiration time On Wed, 12 Jun 2019 11:13:47 -0400, Phil Smith III wrote: >John McKown wrote: > Which article are you replying to? I can't find it. IIRC, I even commented on it. URL? >>True. I really like the fact that when I log into TSO, it tells me the >>last time my ID was used for some purpose. I wish that the log in to >>z/OS UNIX, via ssh, did the same thing. > I believe Walt Farrell(?) commented, years ago, that that function is buried inextricably in TSO logon processing. Conway's Law. Another case where IBM designers appear to flee from reusable code. Some systems even have a user command to display that information electively. >>Which makes me wonder if some sort of daily (weekly?) report should be >>done for each RACF ID associated with a "person" which reports all the "logon" >>and perhaps "logoff" activity and then email it to them > >Nice idea...but most folks would just delete it unread after the first week. > >As for the article: NIST said the same thing last year, but now that Microsoft >is repeating it, it's finally getting some press. That's kind of sad and scary. > Cite? URLs? I find: https://nam01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fpages.nist.gov%2F800-63-FAQ%2F%23q-b5data=02%7C01%7Cwdriscoll%40ROCKETSOFTWARE.COM%7C7de3610ad2424deaed6e08d6ef4d1d8d%7C79544c1eed224879a082b67a9a672aae%7C0%7C0%7C636959511824788501sdata=6qxbbdgBeuB5U8qvJFuv0Z6PS3bYzi6u8bagTpS4UxE%3Dreserved=0 On password expiration https://nam01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fxkcd.com%2F936%2Fdata=02%7C01%7Cwdriscoll%40ROCKETSOFTWARE.COM%7C7de3610ad2424deaed6e08d6ef4d1d8d%7C79544c1eed224879a082b67a9a672aae%7C0%7C0%7C636959511824798497sdata=hsSarv97DDKnEkQd3wZfRe9Gh52aQWuy5jRUOwGGz4I%3Dreserved=0 -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 855.577.4323 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Just how secure are mainframes? | Trevor Eddolls
I was one of the developers for Deadbolt, and while we were able to get the product into a small number of installations as an "alpha" state release, the project was cancelled in early 2008. Wayne Driscoll Rocket Software Note - All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Charles Mills Sent: Tuesday, June 11, 2019 1:27 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Just how secure are mainframes? | Trevor Eddolls I have never found much barrier to entry with the IBM Business Partner process. The HUGE obstacle is customer inertia and conservatism. Customers may complain about software costs, but they are the big barriers to entry for small competitors. At my former employer we had customers say specifically "we love your product but we are not taking on any new software vendors." (In some cases you could overcome that by partnering with a reseller.) I would not want to be out there pitching "my ESM from Mills & Associates is way superior to RACF, Mr. Wells Fargo or Mr. Fidelity or whatever. You should drop RACF and install the Mills & Associates ESM." There is a concept in software marketing called "stickiness." A search engine has zero stickiness. If a better search engine came along tomorrow you would start using it in a heartbeat. An ESM is way sticky. Even if I could sell Mr. Fargo on the superiority of my ESM, who is going to migrate all their RACF rules and administrative processes and TEST them? Barry tried (or is still trying?) with a product (or prototype or concept) called DEADBOLT. https://nam01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fibmsystemsmag.com%2Fmainframe%2Ftrends%2Fztalk%2Fbarry-schrager%2Fdata=02%7C01%7Cwdriscoll%40ROCKETSOFTWARE.COM%7C3dccc79ac19e457f709508d6ee9a6b83%7C79544c1eed224879a082b67a9a672aae%7C0%7C0%7C636958744343975330sdata=UJAwz6fOG%2BZrEIO%2FqUTAMl1nUJyyHSzxGrm4L2qb5GQ%3Dreserved=0 https://nam01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.dignus.com%2Fsuccess_stories%2FJME%2Fpaper.htmldata=02%7C01%7Cwdriscoll%40ROCKETSOFTWARE.COM%7C3dccc79ac19e457f709508d6ee9a6b83%7C79544c1eed224879a082b67a9a672aae%7C0%7C0%7C636958744343975330sdata=K4dbKJR1i85k6dd9246I7t4FNVS47OksBYu4UHlOV4Y%3Dreserved=0 Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of John McKown Sent: Tuesday, June 11, 2019 9:51 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Just how secure are mainframes? | Trevor Eddolls On Tue, Jun 11, 2019 at 11:26 AM Bob Bridges wrote: > If that's what it stands for I should think those aren't just the big > three but the ~only~ three. At least, I've never heard of any others. > Which is odd, when you think about it; surely there's someone out > there wanting to break into the market? So says my capitalist > assumptions. But apparently not. > Most likely the entry cost. Developing z/OS software is _expensive_. I don't know, but when I looked a couple of years ago, the zPDT was something like $5000 / year with annual renewal. And you need to be approved by IBM as a "Business Partner". That is a stiff barrier to entry, IMO. I know some business people here have a zPDT system, but I doubt that Phoenix Software would really want to go up against IBM and CA for that market. Also, unlike a productivity tool such as (E)JES, an ESM is (or should be) "business critical" for protection. To convince a company to go with a "new & unknown" product in this era of PHI, HIPAA, GDPR, and so on is so unlikely as to be silly to even consider. Better to go with products such as (E)JES (Phoenix Software) or Systems/ASM (Dignus) which, I feel, are more likely to be considered without the company auditors having a fit. The reason I love Linux is the _zero_ cost of the GNU and other software. Basically I only pay for the hardware and electricity. Of course, I am not a software developer, just a bit of a dilettante so far as programming is concerned. > > --- > Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313 > > /* Nearly all men can stand adversity. If you want to test a man's > character, give him power. -Abraham Lincoln */ > > > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] > On Behalf Of Pommier, Rex > Sent: Thursday, May 30, 2019 11:22 > > I have been under the impression it stands for External Security > Manager, of which the "big 3" would be RACF, ACF2, Top Secret. > > -Original Message- > From: IBM Mainframe Discussion List On > Behalf Of Tom Brennan > Sent: Thursday, May 30, 2019 10:21 AM > > I've seen the acronym ESM a few times in this thread. I'll assume > that means "Enterprise Security Management&q
Re: Fwd: Just how secure are mainframes? | Trevor Eddolls
If the trap door is in an APF authorized library, then by convention it's part of the operating system, and would be considered a platform issue. Anything that is APF authorized is expected to adhere to the statement of integrity that z/OS publishes. Wayne Driscoll Rocket Software Note - All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Seymour J Metz Sent: Wednesday, May 29, 2019 2:58 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Fwd: Just how secure are mainframes? | Trevor Eddolls > A single TRAP DOOR code vulnerability pierces the veil of integrity > and can be used to compromise the mainframe. Is this a platform weakness? An application with a trap door is an application vulnerability. If there is a trap door in z/OS itself then that's a platform vulnerability. I'd be willing to bet a substantial amount that the majority of penetrations in z/OS are application, configuration, personnel and process vulnerabilities rather than z/OS vulnerabilities. > Would you say that the elimination of User Key Common storage is an > example of a z/OS change to address a mainframe platform weakness Partially. -- Shmuel (Seymour J.) Metz https://nam01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=02%7C01%7Cwdriscoll%40ROCKETSOFTWARE.COM%7C4ec98728280a4395aab708d6e46ff2fd%7C79544c1eed224879a082b67a9a672aae%7C0%7C0%7C636947566821955527sdata=Ggtx2UoZolPoAJZgbcdFshw16B%2B1Yy998xUO7Bts%2FzU%3Dreserved=0 From: IBM Mainframe Discussion List on behalf of Ray Overby Sent: Wednesday, May 29, 2019 11:11 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Fwd: Just how secure are mainframes? | Trevor Eddolls In response to "Mistakes, lack of time, lack of control, lack of skills. Not a platform weakness." comment: The mainframe platform, z/OS, and ESM's all rely on integrity to function. A single TRAP DOOR code vulnerability pierces the veil of integrity and can be used to compromise the mainframe. Is this a platform weakness? I think so. The platform relies on all code it runs adhering to certain rules. z/OS could be changed to better check and enforce those rules. Would you say that the elimination of User Key Common storage is an example of a z/OS change to address a mainframe platform weakness? I think so. An interesting observation. Thanks. On 5/29/2019 5:25 AM, R.S. wrote: > That's classical FUD. > Frightening people. > "if an exploit", "if job reads you RACF db", "unintended consequences". > What exactly hacking scenario can provide RACF db to the hacker? > Yes, I saw APF libraries with UACC(ALTER), UID(0) as standard TSO user > attribute, even UPDATE to RACF db. But it's problem of people. > Mistakes, lack of time, lack of control, lack of skills. Not a > platform weakness. > > It's typical that assurance/lock/gun salesmen tend to talk about > risks, threats and dangers. They create a vision. > My English is poor, but I can observe it for two of debaters here. > It's visible. I don't like social engineering. > -- 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 Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 855.577.4323 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IPL process - understanding IEFSSNxx
The RACF subsystem gets started out if ICHSEC00, which is invoked out of IPL.
If I recall correctly, both ACF2 and Top Secret provide a replacement for
ICHSEC00 (probably the same code for both products).
Wayne Driscoll
Rocket Software
Note - All opinions are strictly my own.
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Tony Thigpen
Sent: Tuesday, May 21, 2019 11:11 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IPL process - understanding IEFSSNxx
Thanks. That helped a lot.
One of the questions I am trying to answer is "who is starting RACF during
IPL". It's not in COMMNDxx.
Tony Thigpen
John McKown wrote on 5/21/19 10:56 AM:
> On Tue, May 21, 2019 at 9:47 AM John McKown
>
> wrote:
>
>> On Tue, May 21, 2019 at 9:27 AM Tony Thigpen wrote:
>>
>>> I am looking at my ipl process and am trying to understand why some
>>> of the start by themselves.
>>>
>>> I am in a sandbox so I can play all I want.
>>>
>>> My current IEFSSN00 is:
>>> 01 SUBSYS SUBNAME(SMS)
>>> 02INITRTN(IGDSSIIN)
>>> 03INITPARM('ID=00,PROMPT=DISPLAY')
>>> 04 SUBSYS SUBNAME(JES2) /* JES2 AS PRIMARY SUBSYSTEM */
>>> 05 PRIMARY(YES) START(YES)
>>> 06 SUBSYS SUBNAME(RACF)
>>> 07 INITRTN(IRRSSI00)
>>> 08 INITPARM('%,M')
>>> 09 SUBSYS SUBNAME(CICS)
>>> 10 SUBSYS SUBNAME(DFRM) /* NAME OF THE DFSMSRMM SUBSYSTEM */
>>> 11 INITRTN(EDGSSSI)
>>> 12 SUBSYS SUBNAME(TNF)
>>> 13 SUBSYS SUBNAME(VMCF)
>>> 14 SUBSYS SUBNAME(FFST)
>>> 15 SUBSYS SUBNAME(IXFP)/* IXFP SUBSYSTEM */
>>> 16INITRTN(SIBSSIPL)
>>> 17INITPARM('INIT(Y),DYNDDSR(I),LANG(AMENG)')
>>>
>>> I understand that JES will start because of the START(YES), but I am
>>> also seeing other sub-systems like RACF start.
>>>
>>> Does the INITRTN force an autostart as if START(YES) was specified?
>>>
>>
>> I don't think so, but I can't be definitive. The INITRTN specifies a
>> program which will run in the master scheduler address space during
>> start up. Now, that program could do a START command, via SVC 34. Or
>> even use the ASCRE to create a new address space to run some code
>> which might stay around "forever". A case of "who knows unless it is
>> documented".
>>
>
>>
>>>
>>> It appears that jobs started with IEFSSNxx start as normal JES jobs.
>>> Can IEFSSNxx be used to start tasks which run as SUB=MSTR.
>>>
>>
>>
>> https://nam01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww
>> .ibm.com%2Fsupport%2Fknowledgecenter%2Fen%2FSSLTBW_2.3.0%2Fcom.ibm.zo
>> s.v2r3.ieae200%2Fiefssn1.htmdata=02%7C01%7Cwdriscoll%40ROCKETSOF
>> TWARE.COM%7C7798ebd9078f4f26092508d6de06e95c%7C79544c1eed224879a082b6
>> 7a9a672aae%7C0%7C0%7C636940518619668581sdata=kO4cc83JmfKhS3oocQU
>> B21nQ80nZK3QzsE5HdNE30hs%3Dreserved=0
>>
>>
>> - Once a subsystem name is defined to the system, any attempt to start
>> that subsystem (or any started task with the same name as that subsystem)
>> via a START command which does not explicitly specify SUB=JES2 (or JES3)
>> will result in that subsystem or started task being started under the
>> Master subsystem rather than under the job entry subsystem. Because the
>> only procedure libraries available to the Master subsystem are those
>> specified in the MSTJCLxx's IEFPDSI data set, any procedures being
>> started
>> that are defined in the job entry subsystem's PROC00 data set, but not in
>> the MSTJCLxx's IEFPDSI data set, will be unavailable. Therefore they will
>> not be found; the system will issue message IEFC612I.
>>
>>
>
> I forgot to mention. It might _appear_ that the subsystem is running
> under JES when it is actually running SUB=MSTR if the code does an SSI
> function code 20 "Request Job ID". That will connect it to the primary
> JES so that it can do things such as dynamically allocate SYSOUT.
>
> https://nam01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.
> ibm.com%2Fsupport%2Fknowledgecenter%2Fen%2FSSLTBW_2.3.0%2Fcom.ibm.zos.
> v2r3.ieaf200%2Frjobid.htmdata=02%7C01%7Cwdriscoll%40ROCKETSOFTWAR
> E.COM%7C7798ebd9078f4f26092508d6de06e95c%7C79544c1eed224879a082b67a9a6
> 72aae%7C0%7C0%7C636940518619668581sdata=r5qn6qySAro%2ByOt60t1rY8F
> ZT3N5Kx19Wx97qXIODrU%3Dreserved=0
>
>
>
>>
>>
>>
>>
>>>
>>>
>>> --
>>> Tony Thigpen
>>&
Re: Knowledge Centre - (was Re: Rant)
Peter Relson, Is there an RFE or some other "official" channel for one to voice interest in this option? As we all know, IBM-MAIN can contain lots of useful information, but isn't an official channel for providing input to IBM. Wayne Driscoll Rocket Software Note - All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Tom Marchant Sent: Thursday, December 6, 2018 8:09 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Knowledge Centre - (was Re: Rant) On Thu, 6 Dec 2018 07:45:00 -0500, Peter Relson wrote: >Another thing we have asked for, and the more voices the better if this >is of interest to you too, is to provide an option by which the results >are present a la bookmanager -- namely the first level of search result >being "here are the books in which I found hits", ordered by the number >of hits in each book, presumably accomplished by sorting the search results. Yes. I want that too. -- Tom Marchant -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 855.577.4323 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: LXRES best practices
They aren't, neither are LX numbers. Ed's point was that if you store the LX in a file, you have to ensure that the system wasn't re-ipled, rendering the LX invalid, in the interval between write and subsequent read of the file. If you use name/token, if the pair doesn't exist (as reported by return/reason codes from the retrieval service), you know you need to re-establish the system LX and create the N/T pair. If it exists, then the LX should be valid. Wayne Driscoll Rocket Software Note - All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Joseph Reichman Sent: Thursday, December 6, 2018 6:49 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: LXRES best practices Wasn’t aware that name/token was valid across an ipl > On Dec 6, 2018, at 1:35 AM, Ed Jaffe wrote: > >> On 11/29/2018 5:17 AM, Joseph Reichman wrote: >> I am using s system LX but with our re-usable I would have to save >> the LX to a file Right ? If I restart the task right ? > > I would not use a file. you might try to use an old LX across an IPL. I > suggest common storage. Are you familiar with Name/Token services? > > > -- > Phoenix Software International > Edward E. Jaffe > 831 Parkview Drive North > El Segundo, CA 90245 > https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.p > hoenixsoftware.com%2Fdata=02%7C01%7Cwdriscoll%40ROCKETSOFTWARE.CO > M%7C370bf33d4c6d428438e908d65b79307d%7C79544c1eed224879a082b67a9a672aa > e%7C0%7C0%7C636796973406121375sdata=2NHkWvz7Q0mVyV247h2yBnPFTQgun > YahsEwXyXlNJdw%3Dreserved=0 > > > -- > -- 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 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 855.577.4323 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Recommended method for accessing secondary access spaces
Or pass the address of a shared memory segment to the SRB routine, attach it to the target (current) address space, move the data to it, then detach it from the target address space before the SRB terminates. Wayne Driscoll Rocket Software Note - All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Ed Jaffe Sent: Monday, November 12, 2018 10:35 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Recommended method for accessing secondary access spaces On 11/12/2018 7:28 AM, Joseph Reichman wrote: > I can use CSA storage to pass back the data if after I copy it over I > release it We used to do that back in the pre-ESA/390 days. That technique carries with it all sorts of hideous timing/cleanup issues that simply don't exist with the PC-ss technique. Food for thought... -- Phoenix Software International Edward E. Jaffe 831 Parkview Drive North El Segundo, CA 90245 https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.phoenixsoftware.com%2Fdata=02%7C01%7Cwdriscoll%40ROCKETSOFTWARE.COM%7C708ed089481e4a9e566808d648bcc63d%7C79544c1eed224879a082b67a9a672aae%7C0%7C0%7C636776372952009658sdata=g%2B3iT9JgZue1Q%2FryDFfu%2F78WtQ%2FfBfBDZr2D9p%2FAR9Q%3Dreserved=0 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 Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 855.577.4323 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: S23E
Why use TCBUSER and KEY 0? Allocate a storage area and put its address in a task level Name/Token pair so you don't have to mess with key switching or potential integrity issues. Wayne Driscoll Rocket Software Note - All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Joseph Reichman Sent: Wednesday, October 31, 2018 12:57 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: S23E I still think I am going to need a ECB or actually 4 to say I’m done or else the main task might finish first looking at the registers None have any info from main task or subtask Rob I’m not trying to complicate things But as I said the main task needs to know when things are done may have to store ECB Address in TCBUSER and have to go key 0 If there was an easier way > On Oct 31, 2018, at 1:37 PM, Rob Scott wrote: > > EXTR routines are given control under the owner of the terminating TCB : > > "ETXR=exit rtn addr Specifies the address of the end-of-task exit routine. > It is given control after the subtask normally or abnormally terminates. The > exit routine is given control when the originating task becomes active after > the subtask terminates. It must be in virtual storage. When this parameter is > coded, a DETACH macro must be issued to remove the subtask from the system > after the subtask terminates." > > -Original Message- > From: IBM Mainframe Discussion List On > Behalf Of Seymour J Metz > Sent: Wednesday, October 31, 2018 5:29 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: S23E > > Is DETACH self valid? > > > -- > Shmuel (Seymour J.) Metz > https://na01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gm > u.edu%2F~smetz3data=02%7C01%7Cwdriscoll%40ROCKETSOFTWARE.COM%7Cdf > f363ca71c4499abefe08d63f5a49d1%7C79544c1eed224879a082b67a9a672aae%7C0% > 7C0%7C636766054373394431sdata=q8jtMIOj5IMcXx9Cc%2FbLzrNjJwNP3T%2B > ya72ImFYWx3o%3Dreserved=0 > > > From: IBM Mainframe Discussion List on > behalf of Rob Scott > Sent: Wednesday, October 31, 2018 7:01 AM > To: IBM-MAIN@listserv.ua.edu > Subject: Re: S23E > > I would suggest performing the DETACH from an "end of task exit routine" > whose address is passed on the ETXR keyword of ATTACH(X). > > Rob Scott > Rocket Software > > -Original Message- > From: IBM Mainframe Discussion List On > Behalf Of Joseph Reichman > Sent: Wednesday, October 31, 2018 2:20 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: S23E > > Hi > > > > I know system 23E is for invalid TCB it seems to me that TCB is valid > could any confirm that the following is the correct sequence of step > to terminate a TASK > > I have 4 tasks I do an ATTACH with ECB =, SYSECB is the ECB, I am > using END_ECB I use to tell the subtask to return via BR 14 > > > > Thanks > > DETACH_LOOP DS 0H > > * > > LR1,END_ECB > > * > > POST (R1) Post it > > * > > * > > WAIT ECB=SYSECB > > > > MVI TASK_ADDR,X'00' > > * > > DETACH TASK_ADDR > > * > > * > > * > > LA R7,THREAD_LEN(,R7)Next > > BCT R6,DETACH_LOOP > > * > > * > > > > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > Rocket Software, Inc. and > subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll > Free Number: +1 855.577.4323 Contact Customer Support: > https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fsecur > e-web.cisco.com%2F1SDa6zEsf24rrXj-6HeclwpogRoEVIlcUyu5AXkSCPIxwUa-YF1g > 82hFJyg5RmIpieXs1WODx68VG6jCOhQf0vEgkmppj1dzAhMpIefw3cbNvD9IRXM7HT4ash > pW_yYrX5niHAQntC93lpFLtkq68GuuLJHxhWYXIMSc3AK1pk809OiKKYkSYG8YatSb-mCF > S8gMnsNbUOfUZlXDeAeGmaXEFnM87aQh-tS3bGw5zEAWPgT21Wnc3jugVj0wSTDhENviOp > 6BvRXCL3Z09Hoc7xYb-qWemNwXIABJ-odwUzYjgLI_zqYa2xtTMtxoBur6v2vheT9LGHQM > hkbbOFZRMIuuA9qO_UdPh_5tR-g9ob6iPe20PqLO5LDJI9xQxmJoP%2Fhttps%253A%252 > F%252Fmy.rocketsoftware.com%252FRocketCommunity%252FRCEmailSupport > ;data=02%7C01%7Cwdriscoll%40ROCKETSOFTWARE.COM%7Cdff363ca71c4499abefe0 > 8d63f5a49d1%7C79544c1eed224879a082b67a9a672aae%7C0%7C0%7C6367660543733 > 94431sdata=zmrYeYTowRl7RqB1GKp1QPW4hjzAy7kbHVzvPwmG3AQ%3Dres > erved=0 Unsubscribe from Marketing Messages/Manage Your Subscription > Preferences - > https://na01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fs
Re: Charles B. Wang, former Islanders owner dies, his attorney says | Newsday
CA-Sort was a CA product well before the Pansophic acquisition. Pansophic wasn't acquired until 1991, while CA-Sort was available in the late 70's or early 80's at the latest. Wayne Driscoll Rocket Software Note - All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Chuck Sent: Monday, October 22, 2018 5:20 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Charles B. Wang, former Islanders owner dies, his attorney says | Newsday IIRC CA-SORT was acquired from Pansophic. It was originally PANSORT. Chuck Arney > On Oct 22, 2018, at 4:46 PM, Glenn Miller wrote: > > I was told that CA-SORT was designed by someone named Max, I don't recall his > last name. In late 1978, development of CA-SORT for DOS/VS(E) was > transferred to the USA from a couple of folks in Germany. > > When the software development group was transferred from Danbury, CT to > Jericho, NY, I remember Charles stopping by my office occasionally when he > would need to chat with Russ. He once told me that he "almost" felt bad > about how "little" salary he paid us vs the number of CA-SORT licenses they > were closing each month. "Almost". > > Glenn > > -- > 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 Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 855.577.4323 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: get ECSA key 7 storage under CICS
Point taken, I assumed by the comments about how "easy" CICS programming the OP was doing "traditional" CICS programming on the main TCB. The highly specialized part of IFCID 196 processing goes way beyond just waits, with the requirement for Key 7 ECSA and running in KEY 0, so is still not something suitable for the CICS environment, regardless of the TCB it runs on. Wayne Driscoll Rocket Software Note - All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Ed Jaffe Sent: Thursday, October 18, 2018 12:57 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: get ECSA key 7 storage under CICS On 10/18/2018 10:50 AM, Wayne Driscoll wrote: > the logic to retrieve log records via IFI is highly specialized and requires > z/OS waits, something not to be done in CICS programming. That 'wait' restriction was lifted *years* ago with the advent of the OPENAPI and L8 TCBs . Without that major architectural improvement we could not have z/OS UNIX, Java, XML, JSON, and numerous other facilities routinely invoked in the modern era by CICS threadsafe transactions. -- Phoenix Software International Edward E. Jaffe 831 Parkview Drive North El Segundo, CA 90245 https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.phoenixsoftware.com%2Fdata=02%7C01%7Cwdriscoll%40ROCKETSOFTWARE.COM%7C9c049aca53b34a95643b08d635232d99%7C79544c1eed224879a082b67a9a672aae%7C0%7C0%7C636754822557381319sdata=KHzkfIBvcdUf0oa2pU2mVGVlp1dF8ngJ%2BYy9so5wxzg%3Dreserved=0 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 Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 855.577.4323 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: get ECSA key 7 storage under CICS
Attempting to call IFI from a CICS program is a horrible idea, in the unlikely event that it is supported. Additionally, the logic to retrieve log records via IFI is highly specialized and requires z/OS waits, something not to be done in CICS programming. Wayne Driscoll Rocket Software Note - All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Wang Rong Sent: Thursday, October 18, 2018 5:09 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: get ECSA key 7 storage under CICS Hi Binyamin, Many thanks to your quick replay. I'm trying to capture/send DB2 log record using IFI call. The storage requirement is ECSA key 7 storage: "The return area for monitor programs that issue IFCID 0306 requests must reside either in ECSA key 7 storage or in the 64-bit common key 7 storage area above the 2-GB bar" (from IBM book). I prefer to use CICS because it's easy programming. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 855.577.4323 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: A curiosity Question
There is no "VSAM address space" to perform the check. I don’t have any knowledge of why VSAM open bypasses security calls for a KEY 0 or SUP STATE user, but as I recall, it has been this way for decades. Wayne Driscoll Rocket Software Note - All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Paul Gilmartin Sent: Thursday, July 26, 2018 8:56 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: A curiosity Question On Thu, 26 Jul 2018 22:13:01 -0300, Clark Morris wrote: >[Default] On 26 Jul 2018 16:54:23 -0700, (Walt Farrell) wrote: > >>On Thu, 26 Jul 2018 09:54:48 -0500, Tom Marchant wrote: >> >>>> >>>>I believe there is one exception to that, unless the behavior has >>>>been changed in the past few years: as I recall, OPEN for a VSAM >>>>file will bypass security checking if the issuer of OPEN is running in >>>>supervisor state. I think it's documented (briefly) deep in some manual, >>>>but I forget which one. >>> >>>See the last sentence: >>>https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww. >>>ibm.com%2Fsupport%2Fknowledgecenter%2FSSLTBW_2.3.0%2Fcom.ibm.zos.v2r3 >>>.idad400%2Fods.htmdata=02%7C01%7Cwdriscoll%40ROCKETSOFTWARE.COM% >>>7C48d6ded2a0c5415d4ab708d5f36420f3%7C79544c1eed224879a082b67a9a672aae >>>%7C0%7C0%7C636682533747748885sdata=GbQa7LvBwne0JnI12MQuvvbVMmbve >>>pfNE7wuIzDaAvw%3Dreserved=0 >>> >>>"Note: RACF protection supersedes password protection for a data set. RACF >>>checking is bypassed for a caller that is in supervisor state or key 0." >>> >> >>Thanks, Tom. And, note, for those who may not follow the link, that that >>statement is for VSAM only. > >Why would they exclude only VSAM from checking? Is it because of Page >Datasets or some other reason? Are there other ways of bypassing or >ignoring checking for supervisor and key zero code? > My conjecture is that the VSAM address space itself performs the needed check. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 855.577.4323 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Looking for IPCS VERBX examples
I haven't done a lot with dataspaces, but I have with 64 bit. What I do is set up 2 BLSRESSY areas, one with ABITS=31 and a second with ABITS=64 in order to get one with 4 byte pointers and one with 8 (not needed, you can retrieve 31 bit addresses with 64 bit pointers, but I was extending an old exit). Then when you use the ESS block, ensure that the XSSPBIT64 bit in the XSSPPFLG is set to one for 64 bit and zero for 31 bit. I don't have any simple samples that aren't intermingled with proprietary code at this point, maybe I can pull something together if you need more assistance. I found that looking at the expansion of the various mapping macros gave me more insight than the documentation in the IPCS Customization manual, btw. Wayne Driscoll Rocket Software Note - All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Dan D Sent: Friday, June 1, 2018 6:26 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Looking for IPCS VERBX examples I'm looking for samples of how to do things within an IPCS VERB exit in assembler. I have a lot of the simple things down but I'm confused with symbols, dataspaces and 64-bit storage. Could someone send me or point me at some simple samples to create symbols, access a dataspace and 64-bit storage? I've been through the IPCS Customization and other manuals but it's still a little confusing. I think I need to understand the parameters to ADPLSEQS, ADPLSMAP and maybe ADPLSSYM. Thanks, Dan -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 855.577.4323 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: GETMAIN LOC=32
Paul, Unlike Hercules, z/Architecture is part of a business, and, as such, a business value needs to be made in order to get support for changes, in particular radical changes like AM32. "it would be nice" and "but it's so cool" aren't business rationalizations for the amount of potentially broken customer code that would result from the change you propose. In order to not have to recompile all applications, or maintain strict bounds between 32 bit apps and 64 bit apps like most other 64 bit architectures, I will gladly sacrifice 2 GiB out of the massive virtual space offorded by a 64 bit address space. If your mythical AM32 was invented, applications would still have to switch back to AM31 before calling other AM31 code that expects a variable length paramter list. I still fail to see any business value to IBM's customers in what you are proposing. Wayne Driscoll Rocket Software Note - All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Paul Edwards Sent: Friday, May 11, 2018 6:23 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: GETMAIN LOC=32 On Fri, 11 May 2018 05:32:46 -0500, Paul Edwards <mutazi...@gmail.com> wrote: >What I did was provide an option such that any request to activate AM31 >with BSM instead activates AM32. BTW, it would be good if z/Arch had a similar option. ie you can configure the hardware so that any attempt to activate AM24 can be overridden to instead activate AM31/32/64. Similarly an override for any attempt to activate AM31, and a downgrade option for AM64 to activate AM24/31/32. That way you can set all the overrides to AM64 and ensure that everything running on your system is AM64-compliant, and the system never leaves AM64. A z/OS shop would become a pure AM64 environment. Unlike Windows and x64 hardware, 32-bit software can be run natively under AM64. It doesn't need a special mode. Basically z/Arch hardware is superior to x64 and this would be a great selling point I think - a pure 64-bit environment, even when running 32-bit software. BFN. Paul. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 855.577.4323 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: GETMAIN LOC=32
Yes, the high bit convention has to change for interfaces that accept 64 bit addresses. The issue is that in order to change the convention for 32 bit programs, either 1 - an additional AMODE would need to be supported by the hardware, or 2 - EVERY existing program would have to be redesigned and retested in order to follow a new convention. The limited benefit of allowing for an extra 2GiB of virtual storage to an address space that can, using 64 bit addressing, already support 16 exabytes - 2GiB seems like a massive waste of resources. Wayne Driscoll Rocket Software Note - All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Paul Edwards Sent: Monday, May 7, 2018 8:51 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: GETMAIN LOC=32 On Mon, 7 May 2018 08:42:00 -0500, Joel C. Ewing <jcew...@acm.org> wrote: >From the early days of S/360 the high-order bit of a full-word address >pointer has a documented function in standard subroutine linkage of >indicating the last parameter address for subroutines that accept a >variable number of parameters, so even if the architecture might not >restrict using that bit for memory addressing, long-standing software >standards for AMODE24 and AMODE31 do. > >Changing the documented conventions for using the high-order bit of a >32-bit address word This convention *already* has to change for anyone considering moving to AM64 and using 64-bit pointers. There's no reason why it should be mandatory for a full 64-bit application, but disallowed for a 32-bit program. Updating 32-bit programs to conform to AM64 requirements is far less onerous than the massive changes required to create a 64-bit application. > to create a new "AMODE32" would potentially adversely effect too many >things for minimal benefit. Nobody is affected, and the benefit of going from a 2 GiB address space to a 4 GiB address space is a great improvement. BFN. Paul. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 855.577.4323 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: PC rtn AKM=(0:15) Getting S0C2 REASON 002
Are you sure the 0C2 is occurring at the PC instruction, not because your program is in problem state when issuing the ETDEF or ETCON macros? I would run outside of TESTAUTH, so I could get a dump and then look at the PC table definitions to ensure they are what you are expecting. Wayne Driscoll Rocket Software Note - All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Joe Reichman Sent: Monday, January 8, 2018 7:29 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: PC rtn AKM=(0:15) Getting S0C2 REASON 002 I have an OLD ESA/390 Pops book I am quoting from "if the current PSW specifies problem state the current PSW-key mask in control register 3 is tested against the AKM and PSW key mask are anded and if the result I zero a privilege operation is recognized" So If I am in problem state the AKM field which I specified as everything 0 - 15 determines if the PC is a privileged operation -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Charles Mills Sent: Monday, January 8, 2018 7:44 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: PC rtn AKM=(0:15) Getting S0C2 REASON 002 S0C2 is not a key problem, it is a state problem. Does your S0C2 PSW show supervisor state? Is there any possible cause for S0C2 *other* than "you tried a privileged op code but you were not in supervisor state"? Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Joe Reichman Sent: Monday, January 8, 2018 3:55 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: PC rtn AKM=(0:15) Getting S0C2 REASON 002 Hi I have a PC rtn defined in the following way with AKM=(0:15) meaning all keys can access ETDEF TYPE=SET,ETEADR=ETD,ROUTINE=(R2),SSWITCH=YES, X STATE=SUPERVISOR,AKM=(0:15),EKM=0,PC=STACKING And yet while running under TESTAUTH I get the following ABEND IKJ56641I TESTPRGK ENDED DUE TO ERROR IKJ56640I SYSTEM ABEND CODE 0C2 REASON CODE 0002 -- 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 Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 855.577.4323 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Db2! was: NODE.js for z/OS
Martin, Yes, but I think that virtual storage limitations drove some of the function separation. For example the tablespace and index VSAM clusters are allocated in the DBM1, but the log datasets are allocated by the MSTR. Doing that protects from a DB2 deadlock caused by a failure to allocate a log archive dataset, but are unable to free any other datasets until the log writes complete. Wayne Driscoll Rocket Software Note - All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Martin Packer Sent: Thursday, November 2, 2017 8:44 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Db2! was: NODE.js for z/OS Db2 virtual storage is a long and complicated story but DBM1 is far and away the biggest consumer - so I think separation of functions is a more likely story than just virtual storage constraint relief (VSCR). Cheers, Martin Martin Packer, zChampion, Principal Systems Investigator, Worldwide Cloud & Systems Performance, IBM +44-7802-245-584 email: martin_pac...@uk.ibm.com Twitter / Facebook IDs: MartinPacker Blog: https://www.ibm.com/developerworks/mydeveloperworks/blogs/MartinPacker Podcast Series (With Marna Walle): https://developer.ibm.com/tv/mpt/or https://itunes.apple.com/gb/podcast/mainframe-performance-topics/id1127943573?mt=2 From: Mohammad Khan <mkkha...@hotmail.com> To: IBM-MAIN@LISTSERV.UA.EDU Date: 02/11/2017 13:37 Subject:Re: Db2! was: NODE.js for z/OS Sent by:IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Thu, 2 Nov 2017 20:30:21 +1100, Wayne Bickerdike <wayn...@gmail.com> wrote: > >Why DB2 has so many address spaces is probably because of the IMS heritage. >Other (simpler but equally effective DBMS) manage on a single address >spaceI wish... > I believe this was due to the size limitation of 31-bit address space and unsatiable hunger of db2 buffer pool manager for which no amount was ( is ! ) enough. In theory 1.6GB ( out of a total of 2GB ) could be allocated to buffer pools and there was still use for hyperspace buffering. In fact buffer pools in dataspaces was tried at one time but all that came to and end with advent of 64-bit addressing. I'd think that locking and logging, frequent as they are, would have saved some cycles if they were local calls instead of cross memory but there simply was no room for them in DBM1. In today's world space considerations may not matter as much but the benefits of isolating these functions still remain. On the other hand I have no idea why IRLM has to be its own subsystem. Mohammad -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Unless stated otherwise above: IBM United Kingdom Limited - Registered in England and Wales with number 741598. Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 877.328.2932 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Db2! was: NODE.js for z/OS
I think you mean that IBM recycled the lock manager of IMS into Db2. Also I think the driver for the multiple address spaces was that DB2 originally was written to run on MVS/370 so it had to pack a lot into the 8-10 Meg virtual that many installations had available. And even once XA was available, until the XTIOT came out, most of the I/O and allocation related control blocks were in 24 bit storage. Wayne Driscoll Rocket Software Note - All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Wayne Bickerdike Sent: Thursday, November 2, 2017 4:30 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Db2! was: NODE.js for z/OS IMS DB/DC was MVS. The DC part was never available on DOS/VS or VSE, the interface was CICS on the VSE platform. So DL/I was the data management layer and the APIs / Call interface were almost identical on both VSE and MVS. As a PL/1 jockey in the 1970's at IBM we coded mainly batch IMS (Call PLITODLI). A few years later I was coding IMS DB and BMPs. A few years later I was in a full on IMS DB/DC shop. IBM recycled the log manager of IMS into DB2 and MQ seems to have very similar topology. Why DB2 has so many address spaces is probably because of the IMS heritage. Other (simpler but equally effective DBMS) manage on a single address spaceI wish... On Thu, Nov 2, 2017 at 6:20 PM, Timothy Sipples <sipp...@sg.ibm.com> wrote: > Walt Farrell wrote: > >The z is still lowercase in z/OS, though :) > > Also lowercase in z/VM, z/VSE, and z/TPF. For now, at least. The > future is not fully predictable. :-) > > > > Timothy Sipples > IT Architect Executive, Industry Solutions, IBM Z and LinuxONE, > AP/GCG/MEA > E-Mail: sipp...@sg.ibm.com > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- Wayne V. Bickerdike -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 877.328.2932 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: call IKJEFT1B from an assembler program
See Jim Mulder's recent post about the design of IKJEFTxx expecting to be executed as a job step TCB (ie it's own TCBJSTCB field points to itself, as well as other internal details), and you will see that this isn't supported for reasons of MVS integrity. Wayne Driscoll Rocket Software Note - All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of PINION, RICHARD W. Sent: Wednesday, November 1, 2017 10:20 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: call IKJEFT1B from an assembler program Would someone be so kind as to give me an example of calling IKJEFT1B from an assembler program. The CALL macro I am using is passing control to IKJEFT1B, but I receive "IKJ56600I UNRECOVERABLE COMMAND SYSTEM ERROR". I'm assuming the parameters I am passing are incorrect. And, no my need is not to invoke it directly from JCL via //STEP010 EXEC PGM=IKJEFT1B. FIRST TENNESSEE Confidentiality notice: This e-mail message, including any attachments, may contain legally privileged and/or confidential information. If you are not the intended recipient(s), or the employee or agent responsible for delivery of this message to the intended recipient(s), you are hereby notified that any dissemination, distribution, or copying of this e-mail message is strictly prohibited. If you have received this message in error, please immediately notify the sender and delete this e-mail message from your computer. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 877.328.2932 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: LPAR to LPAR access
Db2 Data sharing isn't the only way to get 2 Db2 subsystems on different LPAR's to talk to each other. As long as the 2 LPAR's have some connectivity, TCP/IP etc. in common, it is possible to use Db2 distributed data facility to allow the 2 subsystems to communicate. Wayne Driscoll Rocket Software Note - All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Nelson, Judith Sent: Wednesday, September 20, 2017 9:27 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: LPAR to LPAR access Thank you Kees for letting me know. :) No good way to go for me. :( Judith Nelson -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Vernooij, Kees (ITOPT1) - KLM Sent: Wednesday, September 20, 2017 9:19 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: LPAR to LPAR access Judith, If you are referring to Timothy's "DB2 data Sharing", this requires a Parallel Sysplex. Kees. > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] > On Behalf Of Nelson, Judith > Sent: 20 September, 2017 16:15 > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: LPAR to LPAR access > > Hi Timothy, > Adding DB2 to the other LPAR sounds more and more the way to go. > > Thanks for your response. > > Judith Nelson > > > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] > On Behalf Of Timothy Sipples > Sent: Wednesday, September 20, 2017 12:19 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: LPAR to LPAR access > > You can configure your CICS "File Owning Region" (FOR) in CICS TS in > the LPAR with DB2, then access that FOR from any interconnected CICS > regions > -- and from interconnected TXSeries, for that matter. The folks in the > CICS-L mailing list likely can provide more details if you need them. > Basically, just put the CICS programs that make DB2 calls in CICS in > the > DB2 LPAR, then run whatever non-DB2 CICS programs (that call the DB2- > related CICS > programs) you want in your other CICS LPAR(s). It's classic, tried and > true "TOR/AOR/FOR" separation. (As an aside, nowadays there are also > "Rules Owning Regions," "Channel Owning Regions," "Mobile Owning > Regions," and whatever other "owning" regions you want to have as > architectural best > practices.) > > For batch, CICS's EXCI (external call interface) works via the same > path. > If you're using Java (or mixed Java) batch then you can use the JDBC > Type 4 driver, to pick another example. > > HiperSockets and SMC-D LPAR-to-LPAR connectivities are recommended, if > you can. > > It's best if you do some careful analysis to determine whether > avoiding adding DB2 to this particular LPAR is the right approach. For > "occasional" > DB2 access, it's probably OK. For more intensive DB2 access, DB2 data > sharing is likely going to perform better and be more cost efficient. > > -- > -- > > Timothy Sipples > IT Architect Executive, Industry Solutions, IBM z Systems, AP/GCG/MEA > E-Mail: sipp...@sg.ibm.com > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > The information contained in this message is confidential, protected > from disclosure and may be legally privileged. If the reader of this > message is not the intended recipient or an employee or agent > responsible for delivering this message to the intended recipient, you > are hereby notified that any disclosure, distribution, copying, or any > action taken or action omitted in reliance on it, is strictly > prohibited and may be unlawful. If you have received this > communication in error, please notify us immediately by replying to > this message and destroy the material in its entirety, whether in electronic > or hard copy format. > Thank you. > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN For information, services and offers, please visit our web site: http://www.klm.com. This e-mail and any attachment may contain confidential and privileged material intended for the addressee only. If you are not the addressee, you are notified that no part of the e-mail or any attachment may be d
Re: DB2
Q1 - Yes Q2 - No, DB2 performance records report on the physical level, so the DBID an OBID, internal 2 byte fields the uniquely identify the space (table or index) being accessed is reported on, not the table id, which is a logical construct. There are some audit records that contain DB2 table OBID's, but they are only captured at the first access of the thread. Wayne Driscoll Rocket Software Note - All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Steve Beaver Sent: Wednesday, September 13, 2017 2:07 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: DB2 Are there any DB2 systems level people in the Group? Is there a SMF DB2 performance record/or just record that contains the name of the table(s) being accessed In the DB2 Space -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 877.328.2932 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Difference between Transwap and Dontswap
If you want to ensure that the scheduling address space isn't swapped out, you need to specify the SYSEVENT BEFORE you schedule the SRB. The swapping status SYSEVENTS all act on the HOME address space. You can't set another address space non-swapable. Wayne Driscoll Software Developer III Rocket Software 77 Fourth Avenue • Waltham, MA • 02451 • USA T: +1 781 577 2625 • M: +1 630 247 1632 • E: wdrisc...@rocketsoftware.com • W: www.rocketsoftware.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Joseph Reichman Sent: Wednesday, May 24, 2017 8:19 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Difference between Transwap and Dontswap While in Xmem I didn't want to take a page fault I had scheduled a SRB in another AS and was referencing storage in the SRB in the AS that invoked the IEAMSCHED > On May 24, 2017, at 9:14 AM, John McKown <john.archie.mck...@gmail.com> wrote: > > On Wed, May 24, 2017 at 7:43 AM, Joseph Reichman > <reichman...@gmail.com> > wrote: > >> At the risk out sounding stupid why does it first have to be swapped >> out >> >> > I'll bet that you're envisioning all the pages being physically > written out to a local page dataset, then physically read back in. I > don't think this is what is really done. It is _logicallly_ swapped > out. And then _logically_ swapped back in. Then marked non-SWAPPABLE. > During the swap in, the data in physical memory frames may be copied > to other, non-preferred, memory frames. Why do it this way? Because > it just leverages code that already exists rather than using special > purpose code. Less code to write and maintain is a _good_ thing. > > > -- > Windows. A funny name for a operating system that doesn't let you see > anything. > > Maranatha! <>< > John McKown > > -- > 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 Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 877.328.2932 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Difference between Transwap and Dontswap
TRANSWAP will page out any pages that are in reconfigurable storage before marking the AS non-swappable. DONTSWAP will just mark the address space non-swappable, and if it occupies any reconfigurable storage, it may impede storage reconfigurations. The ECB is to allow you to wait for all such storage to be paged back in. Wayne Driscoll Software Developer III Rocket Software 77 Fourth Avenue • Waltham, MA • 02451 • USA T: +1 781 577 2625 • M: +1 630 247 1632 • E: wdrisc...@rocketsoftware.com • W: www.rocketsoftware.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Joseph Reichman Sent: Wednesday, May 24, 2017 7:39 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Difference between Transwap and Dontswap So Transwap is if the AS swapped out and you want it in however if you are running code than that automatically means you are swapped in If it's for another AS by virtue of the fact that you have to wait on a ECB to be sure the AS is swapped in you can't run it in SRB mode > On May 24, 2017, at 8:33 AM, Vernooij, Kees (ITOPT1) - KLM > <kees.verno...@klm.com> wrote: > > TRANSSWAP will cause the AS to be paged in again into the preferred area. > DONTSWAP just sets the AS non-swappable, possibly keeping pages in the > non-preferred area, which might prevent storage reconfiguration. That is why > is probably is acceptable for a short period. > > Kees. > > >> -Original Message- >> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On >> Behalf Of Joseph Reichman >> Sent: 24 May, 2017 14:21 >> To: IBM-MAIN@LISTSERV.UA.EDU >> Subject: Difference between Transwap and Dontswap >> >> Hi >> >> Can anyone explain the difference to me between >> Sysevent transwap and dontswap >> >> The documentation for dontswap says only if you don't want to be swapped >> out for a short period >> Of time. However it says you won't be swapped out till you issue okswap >> in addition the documentation says it has to be issued from the home >> asid >> >> Transwap says it will first swap out then swap >> It doesn't mention home asid however since you need to wait on a ECB ( >> whose address is returned in R1) I guess you cannt run it in SRB mode >> >> Any clarification would help >> >> Thanks >> >> -- >> For IBM-MAIN subscribe / signoff / archive access instructions, >> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > For information, services and offers, please visit our web site: > http://www.klm.com. This e-mail and any attachment may contain confidential > and privileged material intended for the addressee only. If you are not the > addressee, you are notified that no part of the e-mail or any attachment may > be disclosed, copied or distributed, and that any other action related to > this e-mail or attachment is strictly prohibited, and may be unlawful. If you > have received this e-mail by error, please notify the sender immediately by > return e-mail, and delete this message. > > Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its > employees shall not be liable for the incorrect or incomplete transmission of > this e-mail or any attachments, nor responsible for any delay in receipt. > Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch > Airlines) is registered in Amstelveen, The Netherlands, with registered > number 33014286 > > > -- > 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 Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 877.328.2932 Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you ar
Re: Cobol - S80A abend
As this is an STC, I assume it can run this IRRSEQ00 call numerous times. If that is the case, would it make sense to have two ASM programs, and have the first (called from COBOL) attach the second, specifying SZERO=NO and have the subtask issue the IRRSEQ00 call? By doing it in a subtask, that only shares minimal subpools, you could reduce the amount of orphaned storage laying around. Wayne Driscoll Software Developer III Rocket Software 77 Fourth Avenue • Waltham, MA • 02451 • USA Note: All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of scott Ford Sent: Thursday, February 23, 2017 12:37 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Cobol - S80A abend All: I have a question about error recovery and here is the situation. 1. Cobol STC calls an assembler module which passes a RACF command using IRRSEQ00 2. The customer has a large profile, over 32K 3. We are seeing a S80A in 'IRRSEQ00' Now the question, I know I can write a Cobol Condition Handler, but since the abend is occurring in an assembler module, can i change the Assembler called to do a ESTAE ..? I want to be able to note the S80A abend but still recovery. I am being realistic ? What I am not sure of is that the S80A will percolate down where a Cobol condition handler will catch it. I am in a void in this area and need some help. Best Regards, Scott -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ +1 877.328.2932 ■ +1 781.577.4321 Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: VSMLIST
Joe, If you are in the correct key AND the storage hasn't been freed by another unit of work, you can reference storage regardless of the TCB that allocated it. However, unless you have some way of knowing that that the storage isn't going to be freed, possibly while you are looking at it, you run the risk of getting an 0C4, or worse, of overwriting storage that was freed and reallocated and is no longer what you think it is. In the case of read only, you will sooner or later run into a case where recovery is needed. In the case of unlocked updates, all I can say is "DON'T DO IT!" Wayne Driscoll Software Developer III Rocket Software Note: All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Joseph Reichman Sent: Wednesday, February 22, 2017 10:16 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: VSMLIST Greg Thanks for your clarification on this note Can I ask one more related question I know if you specify GSPV or SHPSV on the attach tasks can Share ? A subpool If this is not specified on the attach would a subtask get a S0C4 for referencing storage Obtained by the originating task > On Feb 22, 2017, at 10:29 AM, Greg Dyck <gregd...@pobox.com> wrote: > >> On 2/22/2017 7:17 AM, Joseph Reichman wrote: >> I am trying to reference storage that I ( my TCB didn't necessarily >> obtain ) >> >> Sometime I think if this storage has been paged out I would get a >> S0C4 pic 11 >> >> If VSMLIST determines it has been getmain'ed >> >> Maybe I can PGSER FIX back in >> >> I just got 2.2 via RD they (IBM) gave us Omegamon maybe that would >> point me to the type of storage that I'm looking to drive my code >> >> E.G S0C4 pic 11 recevory routines PGSER back in and do a retry > > You are on a slippery path down into a pit with this... don't do it. > > You will *not* get an 0C4-11 if the storage is paged out and your code is > executing enabled for interrupts. It sounds like you are either looking at > the wrong address or the storage has gotten freed before you looked at it. > Fixing the storage won't help and could actually hurt. > > Referencing storage not under control of the executing unit of work is filled > with traps. And one of them is 0C4's that are out of your control to prevent > or resolve. > > Regards, > Greg > > -- > 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 Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ +1 877.328.2932 ■ +1 781.577.4321 Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: VSMLIST
Unless you are running with MVS disablement, the "V" in MVS means Virtual, the application doesn't care if the page is in or out, the system will handle the page fault. Now if you ARE running with disablement, you then use the TPROT instruction to ensure you aren't touching pages that aren't resident. If you know you need to access these pages, before you get into disabled state, you issue PGSER FIX to ensure that no page-outs will happen. Wayne Driscoll Software Developer III Rocket Software Note: All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Joe Reichman Sent: Tuesday, February 21, 2017 6:01 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: VSMLIST I am Looking for Storage that was GetMain'ed and Page'ed out -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Jim Mulder Sent: Tuesday, February 21, 2017 4:11 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: VSMLIST > I'm trying to find data for PGSER FIX > > would VSMLIST. For free space give me address of storage that have > been allocated but paged out No, VSM (and hence VSMLIST) knows nothing about if or where any virtual storage is backed. Jim Mulder z/OS Diagnosis, Design, Development, Test IBM Corp. Poughkeepsie NY -- 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 Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ +1 877.328.2932 ■ +1 781.577.4321 Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - http://www.rocketsoftware.com/manage-your-email-preferences Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How do you say "z/OS"?
A long time ago I worked at a company that gave a CICS class to the application people and the instructor was Italian. He raised a few eyebrows, especially among the females in the class when he referred to the product as "chicks" ====== Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(at)us(dot)ibm(dot)com All opinions are mine, and do not represent IBM Corporation. == IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on 09/16/2016 02:52:48 PM: > From: "Rugen, Len" <rug...@missouri.edu> > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 09/16/2016 02:53 PM > Subject: Re: [IBM-MAIN] How do you say "z/OS"? > Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > > Legacy, how did you pronounce MVS, MVS/SP, MVS/ESA and OS/390? I > never heard "emmvees eisa" :-) > > Just commeting for kicks (A CICS joke) > > > Len Rugen > > Metrics and Automation – umdoitmetr...@missouri.edu > > Myth: If You Can’t Measure It, You Can’t Manage It, but if you have > data, it’s not cheating to use it. > > > -Original Message- > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ESD info using ENTRY name
If the module isn't in memory, then use the the INTYPE=NAME, DDNAME=,MEMBER= options which will load the module into memory and delete it when complete. == Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(at)us(dot)ibm(dot)com All opinions are mine, and do not represent IBM Corporation. == IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on 08/24/2016 10:36:26 AM: > From: Joseph Reichman <reichman...@gmail.com> > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 08/24/2016 10:36 AM > Subject: Re: [IBM-MAIN] ESD info using ENTRY name > Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > > The only caveat the module has to be in memory > > Thanks > > > > > On Aug 24, 2016, at 11:02 AM, Wayne Driscoll <wdri...@us.ibm.com> wrote: > > > > You need to get the EPTOKEN for the load module via the CSVQUERY service > > and then use that on the IEWBIND FUNC-NCLUDE,INTYPE=TOKEN call. This is > > required because IEWBIND has to read the pieces of the load module that > > aren't required for execution. > > == > > Wayne Driscoll > > OMEGAMON DB2 L3 Support/Development > > wdrisco(at)us(dot)ibm(dot)com > > All opinions are mine, and do not represent > > IBM Corporation. > > == > > > > IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on > > 08/24/2016 07:18:28 AM: > > > >> From: Joseph Reichman <reichman...@gmail.com> > >> To: IBM-MAIN@LISTSERV.UA.EDU > >> Date: 08/24/2016 07:18 AM > >> Subject: [IBM-MAIN] ESD info using ENTRY name > >> Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > >> > >> Hi > >> > >> Would anyone know if it's possible to get > >> ESD info for a CSECT using an entry point label > >> Either with IEWBIND getd or gete > >> > >> > >> Thanks > >> > >> -- > >> 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 > > -- > 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: ESD info using ENTRY name
You need to get the EPTOKEN for the load module via the CSVQUERY service and then use that on the IEWBIND FUNC-NCLUDE,INTYPE=TOKEN call. This is required because IEWBIND has to read the pieces of the load module that aren't required for execution. == Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(at)us(dot)ibm(dot)com All opinions are mine, and do not represent IBM Corporation. == IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on 08/24/2016 07:18:28 AM: > From: Joseph Reichman <reichman...@gmail.com> > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 08/24/2016 07:18 AM > Subject: [IBM-MAIN] ESD info using ENTRY name > Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > > Hi > > Would anyone know if it's possible to get > ESD info for a CSECT using an entry point label > Either with IEWBIND getd or gete > > > Thanks > > -- > 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: Simple assembler question
Phil, You may want to use LLGTR instead of LR, as LR will leave the high half of R15 as it was, while LLGTR R15,R3 will zero the high 31 bits of R15 then copy the low 31 bits from R3 into R15. == Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(at)us(dot)ibm(dot)com All opinions are mine, and do not represent IBM Corporation. == IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on 06/23/2016 09:47:05 PM: > From: Phil Smith III <li...@akphs.com> > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 06/23/2016 09:47 PM > Subject: Re: [IBM-MAIN] Simple assembler question > Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > > Chuck wrote: > > >I would consider something like this: > > >LR R15,R3 Copy low 32-bits to R15 > > >SRLGR0,R3,32Copy upper 32-bits to R0 > > >You may want to add an SR or XR for register 0 and 15 prior to the above > two instructions if you want to make sure of the upper 32-bits of the target > registers. > > > > Thanks! I didn't know SRLG-that's some fancy instruction-and I'm embarrassed > to admit that the simple LR hadn't occurred to me. Hey, I've only been > writing assembler since 1980.I was thinking there would be some new "copy > the bottom half of a register" instruction-but of course that's what > old-school LR does. Doh. > > > > .phsiii (not too embarrassed to admit when he's been dumb) > > > -- > 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: TSAB location
Based on the "ASID(X'0001')" in the BLS18100I message, I have to assume that the IPCS default ASID is MSTRJCL. If you know the ASID of the TCPIP address, issue the commnad IP SETD ASID(X'xx'). You can also use IPCS option 0. If you don't know the ASID, issue IP SELECT JOBLIST(TCPIP) Then set the default ASID. Hope this helps. ====== Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(at)us(dot)ibm(dot)com All opinions are mine, and do not represent IBM Corporation. == IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on 02/09/2016 01:46:48 PM: > From: Anthony Fletcher <flet...@nz1.ibm.com> > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 02/09/2016 01:47 PM > Subject: [IBM-MAIN] TSAB location > Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > > I am trying to migrate some TCPIP GATEWAY statements to BEGINROUTES > as required by z/OS 2.2. > The method I have been recommended to use is to get a system dump of > the TCP address space, then use IPCS to format the data using the > TCPIPCS command which will format the routes in BEGINROUTES format. > I don't know whether that works or not because when I do that I get a message > > BLS18100I ASID(X'0001') 16CFB000 not available > Unable to access TSAB at 16CFB000 > > I have tried various combinations of what to have in the dump, but > the TCPIPCS command always fails as above. > > Anyone had this problem and/or know what the TSAB is and why it > should not be available, and more importantly how to make it available? > > -- > 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: Which PGSER service does DB2 uses for fixing
Since all currently supported versions of DB2 have the buffer pools above the bar, PGSER is no longer applicable. I would assume (but have no direct knowledge) that they use the REQUEST=PAGEFIX option of the IARV64 macro. == Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(at)us(dot)ibm(dot)com All opinions are mine, and do not represent IBM Corporation. == IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on 12/10/2015 02:18:47 AM: > From: Mauri Kanter <itzuv...@013.net.il> > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 12/10/2015 02:18 AM > Subject: [IBM-MAIN] Which PGSER service does DB2 uses for fixing > Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > > Good morning list: > > I assume (may be wrongly) that if a buffer pool is not defined for > page fixing on DB2, then DB2 issues a PGSER FIX before the I/O to the buffer. > > My question is: > - Does DB2 use PGSER with BRANCH=Y or BRANCH=SPECIAL ? From my > benchmark their cost is different ... > - Or ... my assumption is wrong about the service that is used, and > DB2 uses a different service. > > Thanks in advance for any insight. > > Mauri. > > -- > 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: Any clever way to defeat the C compiler's options precedence?
I'll preface this by saying that I haven't coded C/C++ in almost a decade,
and via JCL even longer, but if the SYSOPTF can be a concatenation (I don't
know, and don't have source sitting around to test with) could you do
something like the following:
//SYSOPTF DD DISP=SHR,DSN=USER.COPTS(MAINOPTS)
//DD DISP=SHR,DSN=USER.COPTS(ARCH)
And have a
// SET AVER=9 at the start of job, put the steps for the compiles that
require ARCH(5) at the bottom with a SET AVER=5 before them and member
ARCH9 contains
ARCH(9)
and member ARCH5 contains
ARCH(5)
==
Wayne Driscoll
OMEGAMON DB2 L3 Support/Development
wdrisco(at)us(dot)ibm(dot)com
All opinions are mine, and do not represent
IBM Corporation.
==
IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on
11/26/2015 10:32:08 PM:
> From: Charles Mills <charl...@mcn.org>
> To: IBM-MAIN@LISTSERV.UA.EDU
> Date: 11/26/2015 10:32 PM
> Subject: Re: [IBM-MAIN] Any clever way to defeat the C compiler's
> options precedence?
> Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU>
>
> Yes. Very much like what I do. But it is the framework of the problem,
not
> the solution. Here is the problem:
>
> I want to compile the bulk of my modules by default ARCH(9) (changeable
from
> time to time) but two of them ARCH(5). Should be simple enough, right?
(Why?
> See related thread. I want to deal gracefully with a machine whose ARCH
> level is lower than my build level. I want my main and the "deal with it"
> module to be able to run without a S0C1 on any "z" machine.)
>
> - You can't do the obvious: put ARCH(9) in OPTF and #pragma options (
> ARCH(5) ) in the two because PARM=/OPTF overrides #pragma options -- the
> main subject of this thread.
> - I thought I was going to solve it by putting #pragma options ( ARCH
(9) )
> in a "universal" header and #ifdef around it in the two modules, ... BUT
> - #pragma OPTIONS is C only and my code is 98% C++. I could make one of
the
> two C and split the other one up so part of it was C, but that still
leaves
> me with no way of specifying ARCH(9) for the bulk of the modules.
> - Wait! IBM thoughtfully provided #pragma option_override! It overrides
what
> was specified on PARM=/OPTF. It's C and C++. Sounds perfect, right? But
no
> ... it only supports the optimization options, and ARCH is in this
> compiler's world not an optimization option -- only compact, level, spill
> and strict.
> - I am about convinced I can't get there from here. Does my problem seem
> that unreasonable?
>
> Charles
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of David Crayford
> Sent: Thursday, November 26, 2015 5:27 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Any clever way to defeat the C compiler's options
precedence?
>
> Isn't this a bit of a no-brainer just using JCL?
>
> //CPROCPROC M=,PARMS=
> //COMPILE EXEC PGM=CCNDRVR,REGION=0M,
> //PARM=('EXPORTALL OPTF LOC(EN_US.IBM-037) ')
> //SYSMSGS DD DUMMY
> //USERLIB DD DISP=SHR,DSN=DOC.USER.H
> // DD DISP=SHR,DSN=COM110.WDOC.H
> // DD DISP=SHR,DSN=COM110.DEVT.H
> //SYSOPTF DD *
> ARCH(9)
> RENT,SS,NOSEQ,NOMARG,STA,LO,
> SE(*),LSE(*),GOFF,SO,LIST,LANG(EXTC99)
> DEF(_XOPEN_SOURCE_EXTENDED)
> //SYSINDD DISP=SHR,DSN=COM110.DEVT.C()
> //SYSLIN DD DISP=SHR,DSN=COM110.WDOC.COBJECT()
> //SYSPRINT DD SYSOUT=*
> //SYSOUT DD SYSOUT=*
> //SYSCPRT DD SYSOUT=*
> //*
> // PEND
> //*
> //COMCISPF EXEC CPROC,M=COMCISPF,PARMS='ARCH(5)'
> //COMDLL EXEC CPROC,M=COMDLL
> //COMDLLI EXEC CPROC,M=COMDLLI
> //COMDLLS EXEC CPROC,M=COMDLLS
> //COMDSN EXEC CPROC,M=COMDSN
> //COMHMAP EXEC CPROC,M=COMHMAP
>
>
> On 26/11/2015 3:24 AM, Charles Mills wrote:
> > The C/C++ compiler lets you set options globally with PARM= or
> > DD:OPTFILE (or equivalently on a UNIX command line for those who like
> > that sort of thing). You can also specify most options *first thing*
> > in a source module with #pragma OPTIONS.
> >
> > The former overrides the latter. It seems to me that is backwards. I
> > want to compile all of my modules with OPTION FOO, except one module
> > that I want to compile with OPTION NOFOO. I would like to specify
> > PARM=FOO globally and specify #pragma OPTIONS ( NOFOO ) in the one
> > module. Doesn't that sound reasonable?
> >
> > Am I RTFM incorrectly? Or has anyone figured out a bit of cleverness
> > to have global "default" options that one can override on a source
> > module by source module basis. (I have common JCL that I
Re: IEAMSCHD no FRR param
Is your concern the fact that the area is in 24 bit storage, or that it is only 24 bytes in length? The residency issue is because the storage is part of the FRR stack, which resides in the fetch protected area of the PSA. Because it is in the PSA, it is size constrained. However, nothing is stopping you from building a control block and populating it as needed and storing the address (24 bit, 31 bit or 64 bit) in part of the 24 byte area. Just keep in mind that all accesses, both read and write, must be done while in PSW Key 0 or the access will result in an abend. == Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(at)us(dot)ibm(dot)com All opinions are mine, and do not represent IBM Corporation. == IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU wrote on 06/15/2015 10:55:38 AM: From: michelbutz michealb...@comcast.net To: IBM-MAIN@LISTSERV.UA.EDU Date: 06/15/2015 10:55 AM Subject: Re: [IBM-MAIN] IEAMSCHD no FRR param Sent by: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU When The FRR parameter area which R2 points to Is 24 bit ? Just makes life more difficult Sent from my iPhone On Jun 15, 2015, at 11:02 AM, Rob Scott rsc...@rocketsoftware.com wrote: Apologies, the FRR=YES was copied from the Auth Asm Services Guide description of the reg contents at SRB entry and refers to the keyword on SCHEDULE. The appropriate keyword on IEAMSCHD is FRRADDR= with a value that is not NOFRR As stated before, you do not have to code anything, the system will prime R2 for your SRB to use on entry. Rob Scott Principal Software Engineer Rocket Software 77 Fourth Avenue . Suite 100 . Waltham . MA 02451-1468 . USA Tel: +1.781.684.2305 Email: rsc...@rs.com Web: www.rocketsoftware.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU ] On Behalf Of michelbutz Sent: 15 June 2015 15:50 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: IEAMSCHD no FRR param Rob With all you due respect I looked at the IEAMSCHD macro in Sys1.maclibb And all I see is FRRADDR= a pointer the FRR routine I don't see FRR= parameter If I code FRRADDR= address of my FRR routine Am I supposed to prime R2 with the FRR parameter area Sent from my iPhone On Jun 15, 2015, at 8:41 AM, Rob Scott rsc...@rocketsoftware.com wrote: No. On entry to your SRB, the *system* sets R2 to the FRR parameter area pointer if you code FRR=YES on IEAMSCHD. See the doc on IEAMSCHD in Auth Asm Services Guide. Rob Scott Principal Software Engineer Rocket Software 77 Fourth Avenue . Suite 100 . Waltham . MA 02451-1468 . USA Tel: +1.781.684.2305 Email: rsc...@rs.com Web: www.rocketsoftware.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of michelbutz Sent: 15 June 2015 13:34 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: IEAMSCHD no FRR param Wow So I prime R2 And R2 has to be 24 key 0 I guess I can use LSQA shouldn't bump heads with the os Thanks Sent from my iPhone On Jun 15, 2015, at 4:31 AM, Rob Scott rsc...@rocketsoftware.com wrote: When SRB receives control from IEAMSCHD, R2 contains a 24-bit address of the FRR parameter area. You can pass parameters to your FRR from your SRB by using this address. Your FRR can establish addressability to whatever you store there by using the SDWAPARM field. Note that you will need to be in Key0 to store at this address. Rob Scott Principal Software Engineer Rocket Software 77 Fourth Avenue . Suite 100 . Waltham . MA 02451-1468 . USA Tel: +1.781.684.2305 Email: rsc...@rs.com Web: www.rocketsoftware.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of michelbutz Sent: 14 June 2015 19:30 To: IBM-MAIN@LISTSERV.UA.EDU Subject: IEAMSCHD no FRR param The IEAMSCHD has a FRRADDR parm But doesn't have an input param for paramters to FRR routine Sent from my iPhone - - For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ +1 800.966.3270 ■ +1 781.577.4321 Unsubscribe From Commercial Email ? unsubscr...@rocketsoftware.com Manage Your Subscription Preferences - http://info.rocketsoftware.com/GlobalSubscriptionManagementEmailFoote r _SubscriptionCenter.html Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use
Re: Wait in SRB mode
There are a number of potential methods, but I would recommend the PAUSE ELEMENT TOKEN facility, documented in the Serialization chapter in the Authorized Assembler Services Guide. == Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(at)us(dot)ibm(dot)com All opinions are mine, and do not represent IBM Corporation. == IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU wrote on 06/12/2015 09:57:43 PM: From: Donald Likens dlik...@infosecinc.com To: IBM-MAIN@LISTSERV.UA.EDU Date: 06/12/2015 09:58 PM Subject: [IBM-MAIN] Wait in SRB mode Sent by: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Does any one know of a way to wait in SRB mode. I am pretty sure it can be done because BPX1AIO waits when connecting to a TCP/IP address. -- 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: STCK question
Define a constant representing the number of time units in one day (from the Principles of Operation, X'000141DD7600'), then perform modulus division with the time interval, get the number of days from the quotient. == Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(at)us(dot)ibm(dot)com All opinions are mine, and do not represent IBM Corporation. == IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU wrote on 06/12/2015 09:39:38 AM: From: Janet Graff 004dc9e91b6d-dmarc-requ...@listserv.ua.edu To: IBM-MAIN@LISTSERV.UA.EDU Date: 06/12/2015 09:39 AM Subject: Re: [IBM-MAIN] STCK question Sent by: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU As these things go, I have found new uses for my little routine. It's strong enough to find the elapsed time for larger numbers than I intended. So much so, I thought I'd add a function to show the elapsed time since the beginning of my started task. The time is working wonderfully but when I cross the more than a day boundary I'd like to display the number of days since the start of the program. I wound up using the STCK-STCK difference in times since the start of the started task + 1972/01/01 add in base STCK time to get a STCK value again STCKCONV convert that to DATE=MMDD TIME=DEC ED make it character based sequence so I have 1972/01/03 23:15:06.238744 What I'd like is 2 days 23:15:06.238744 I can calculate the date difference by hand (in C based off of the character representation of the date) of course. Unless someone knows of a nifty method to get the elapsed number of days from the data that I have? Janet -- 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: APF-authorized calling non-authorized
A corollary to this is that you should ONLY define those programs which have been explicitly designed and tested to run as job step programs as AC (1). There is no need (and could present an integrity exposure) if you link modules not designed to run as job step programs with AC(1). == Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(at)us(dot)ibm(dot)com All opinions are mine, and do not represent IBM Corporation. == IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU wrote on 03/15/2015 12:40:54 PM: From: Shmuel Metz (Seymour J.) shmuel+ibm-m...@patriot.net To: IBM-MAIN@LISTSERV.UA.EDU Date: 03/15/2015 12:45 PM Subject: Re: [IBM-MAIN] APF-authorized calling non-authorized Sent by: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU In ghdbgal3l33ptfhnchl1v4gnl3706p3...@4ax.com, on 03/15/2015 at 06:43 PM, Binyamin Dissen bdis...@dissensoftware.com said: Since it is placed in an APF library, the installation (or IBM) has declared that it will not create an exposure. Not even close. All that IBM has declared is that none of the AC(1) routines will call anything that cannot safely run authorized. An AC(0) routine in an authorized library that is never called from an AC(1) routine does not create a security exposure. IB has declared that if you write an AC(1) routine it is your responsibility to only call things that you know are safe. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- 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: Linklist load during IPL message
You mentioned that the SDSNLOAD is on an SMS managed volume, and that you got the message before you got the message that SMS is active, correct? If that is the case, my guess is that you have the library in the APF List in PROGxx with SMS instead of a specific volume. In this case, I wouldn't be surprised if the system couldn't treat the library as authorized, since SMS wasn't active. You probably need to ensure that SMS is active before you attempt to define DB2 subsystems. == Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(at)us(dot)ibm(dot)com All opinions are mine, and do not represent IBM Corporation. == IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU wrote on 10/07/2014 11:35:10 AM: From: Jake anderson justmainfra...@gmail.com To: IBM-MAIN@LISTSERV.UA.EDU Date: 10/07/2014 11:35 AM Subject: Re: [IBM-MAIN] Linklist load during IPL message Sent by: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Hi Liz/All, Thanks so much. The ZELDENS utility clearly showed that the required Library was not APFed during the system startup and later on the library was added dynamically. On Tue, Oct 7, 2014 at 7:08 PM, Lizette Koehler stars...@mindspring.com wrote: I looked up the IEFJ004I message - it states For example: The module was not found. The module was found, but was not APF-authorized. Is the SDSNLOAD APF authorized? Lizette -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Elardus Engelbrecht Sent: Tuesday, October 07, 2014 3:43 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Linklist load during IPL message Jake anderson wrote: IEFJ004I SUBSYSTEM XXX NOT INITIALIZED - DSN3INI NOT FOUND Post your IEFSSNxx containing entry for DSN3INI. Cross check your SYSLOG message with what you intended to use in IEFSSNxx. The same goes with Linklist, LPA, etc. Check all your IPL members, all the way from LOADxx up to IEASYSxx, IEFSSNxx, etc. Groete / Greetings Elardus Engelbrecht -- 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 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Strange LRSN value in DB2 Log Records
You will want to check in the BSDS of the DB2 data sharing group (using offline utility DSNJU004) to determine if there is a STCK to LRSN Delta defined for the data sharing group. This delta is required when a DB2 subsystem is converted to data sharing with a (then) current log RBA that was greater then the high order 6 bytes of the STCK value. If this value is non-zero, it will need to be subtracted from the LRSN value prior to converting it to a timestamp field. == Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(at)us(dot)ibm(dot)com All opinions are mine, and do not represent IBM Corporation. == IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU wrote on 08/18/2014 09:34:06 AM: From: Arie Kremer arie...@gmail.com To: IBM-MAIN@LISTSERV.UA.EDU Date: 08/18/2014 09:34 AM Subject: [IBM-MAIN] Strange LRSN value in DB2 Log Records Sent by: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU We use IFI to analyze DB2 logs. lrh_time field in the log record header is assumed to contain LRSN in SYSPLEX environment, when LRSN is usually derived from the Coupling Facility clock, i.e. may be be used as a clock. In most cases, this works perfect. We have a customer that their Coupling Facility clock and the clock of other processors are different (5 hours). In their DB2 environment, we get LRSN that being converting to the timestamp means the year 2038, and seems as not a clock. The values are acceding, and seems as the problem is only when interpreting LRSN as a timestamp. Does somebody know what does it mean? What is this LRSN means and how to convert it to the real time? Many thanks Arie Kremer -- 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: Address space puzzle
The HASID can be identified by looking at the ASCB in PSAAOLD. == Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(at)us(dot)ibm(dot)com All opinions are mine, and do not represent IBM Corporation. == IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu wrote on 06/25/2014 10:32:38 AM: From: Phil Smith p...@voltage.com To: IBM-MAIN@listserv.ua.edu, Date: 06/25/2014 10:32 AM Subject: Re: [IBM-MAIN] Address space puzzle Sent by: IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu Rob Scott wrote: I am guessing that this is down to the difference between HASID and SASID in your two quoted environments. That's been my suspicion too, though it hasn't gotten me very far! When your PC-ss code is working OK, HASID and SASID both are the same value (with PASID being your server address space - ie H=SP), however if your PC-ss can be invoked from an environment where there has already been a PC-ss issued by another software product, the HASID and SASID could be different (HSP). Your client ACEE will be the in HASID storage - so you will have to retrieve it from there instead of the SASID. So how do I get the HASID? That's what I've been unable to figure out! One further point, as you already have a valid cross-memory bind between your client and your server by the nature of the PC-ss, why are you attempting to perform an extra ALESERV add for the client address space? Have you tried using the special ALET value of 2 (for HOME) in the RACROUTE FASTAUTH ACEEALET parameter? I had not, but I just did, and it did not work--same results. Thanks for the hints--got more? -- 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: setprog command RACF issue
System commands can be issued in batch JCL via the following JCL statement // SETPROG APF,ADD=DSNAME=make.this.apf.aut,SMS Now, the ABILITY to do this can be limited first by JES2 with the COMMAND= option of the JOBCLASS definition. COMMAND can be VERIFY, DISPLAY, EXECUTE or IGNORE If VERIFY, first the operator will have to reply to allow the command execution to begin, with DISPLAY a WTO will be issued and command execution will begin, with EXECUTE it will begin execution, and with IGNORE the command won't be executed. Once the command is submitted for execution, then the security system gets involved to see if the job owner has the authority to execute the command. Basically COMMAND=VERIFY was designed back in the days before SAF protection was available for system commands. == Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(at)us(dot)ibm(dot)com All opinions are mine, and do not represent IBM Corporation. == IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu wrote on 06/25/2014 10:55:37 AM: From: zMan zedgarhoo...@gmail.com To: IBM-MAIN@listserv.ua.edu, Date: 06/25/2014 11:04 AM Subject: Re: [IBM-MAIN] setprog command RACF issue Sent by: IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu So revealing more of my vast ignorance: the OP seems to be suggesting that operator commands can be issued from a batch job. I just spent 10 minutes Googling and didn't find a description of how to do this. Can someone post the JCL for a job to issue, say, a SETPROG? Will it always require operator response? We have various test environments that need a series of operator commands, and if I could put them into a job (or a Rexx program--is it also possible to issue them from Rexx?), it would make life easier. On Tue, Jun 24, 2014 at 4:31 PM, Walt Farrell walt.farr...@gmail.com wrote: On Tue, 24 Jun 2014 11:28:26 +0530, Mainframe Mainframe mainframe1...@gmail.com wrote: 3) Do I have to make any changes in RACF to avoid these issues. As another list member indicated, you should look up the ICH70007I message and take the actions indicated in the book. -- Walt -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- zMan -- I've got a mainframe and I'm not afraid to use it -- 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: [OT ] Mainframe memories
My two favorite memories are: 1 - I got called at 0230 because first the system crashed for no apparent reason, then when they went to IPL, it failed to. So I drive into work, go to the machine room, and as I am trying to figure out what is going on, I notice some tape rings on the floor. So I do some investigation and find some more, over by the disk (3350) drive area. So I look a little closer and discover that 3 of the drives had the Write Inhibit switch in the wrong position. One of them was a local page dataset, cause of the initial crash and another was the CSA page pack (which, because we IPL'd with CLPA, was the cause of the IPL failure). 2 - We had a backup site that had our prior mainframe installed. One time, while the machine was powered down, a maintenance person went to the machine room, and all the lights were off, so he reaches into the dark room and fumbles around looking for the switch, however, unknown to him, the halon dump switch was about a foot below the light switch, and guess which one his hand hit first? == Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(at)us(dot)ibm(dot)com All opinions are mine, and do not represent IBM Corporation. == IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu wrote on 03/07/2014 02:50:00 PM: -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ISPF Storage Protection
Instead of adding function codes to the SVC to allow setting and resetting of the JSCBAUTH bit, add function codes to the SVC to perform the code that requires authorization. As others have mentioned, this type of magic SVC destroys any concept of system integrity. == Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(at)us(dot)ibm(dot)com All opinions are mine, and do not represent IBM Corporation. == IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu wrote on 03/05/2014 09:10:11 AM: From: dpewen dpe...@bellsouth.net To: IBM-MAIN@listserv.ua.edu, Date: 03/05/2014 09:10 AM Subject: [IBM-MAIN] ISPF Storage Protection Sent by: IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu Hello, I started this thread and I appreciate all the input I received fromthis list. I have solved the problem by adding code to my user svc that is part of the product. I added two functions to the svc: 1. to turn on the APF-auth bit in the job step TCB 2. to turn off the APF-auth bit in the job step TCB This allows me to issue the MODESET svc successfully. -- 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: Is there an MVS command that displays real storage information?
You mean like D M=STOR which returns something like: IEE174I 19.27.32 DISPLAY M 854 REAL STORAGE STATUS ONLINE-NOT RECONFIGURABLE 0M-1536M ONLINE-RECONFIGURABLE NONE PENDING OFFLINE NONE STORAGE INCREMENT SIZE IS 1M == Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(at)us(dot)ibm(dot)com All opinions are mine, and do not represent IBM Corporation. == IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu wrote on 12/23/2013 12:24:45 PM: From: Binyamin Dissen bdis...@dissensoftware.com To: IBM-MAIN@listserv.ua.edu, Date: 12/23/2013 12:24 PM Subject: [IBM-MAIN] Is there an MVS command that displays real storage information? Sent by: IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu Such as the amount assigned,the address ranges, etc.? -- Binyamin Dissen bdis...@dissensoftware.com 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 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: zIIP simulation
Jon, CMS and z/VM are fully supported on IFL's. This is required in order to run Linux on System z under z/VM, since originally you could not define an LPAR that had both GCP's and IFL's defined to it. == Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(at)us(dot)ibm(dot)com All opinions are mine, and do not represent IBM Corporation. == IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu wrote on 11/01/2013 02:37:25 PM: From: Jon Perryman jperr...@pacbell.net To: IBM-MAIN@listserv.ua.edu, Date: 11/01/2013 02:37 PM Subject: Re: [IBM-MAIN] zIIP simulation Sent by: IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu Since zVM supports zLinux, it makes sense that it allows IFL. Is there a userid option that allows the usage of IFL processors? Or do they use some other method? Does CMS also use that instruction to ensure it runs on a CP? Jon Perryman. From: Mark Post mp...@suse.com On 11/1/2013 at 11:44 AM, Jon Perryman jperr...@pacbell.net wrote: 4. For IFL (Linux processors), IBM disabled some instructions that are critical to z/OS, zVSE and zVM but never used by zLinux. To be precise, IBM disabled a single instruction that they ensured z/OS, z/VSE and z/TPF use. z/VM does not use that instruction, and so can run on an IFL without any problems, as well as on a CP. -- 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: PDS/E, Shared Dasd, and COBOL V5
Gerhard, Isn't SYM data limited to 8 character labels, which is why ADATA, which is in a different file, not in the object deck, so subject to the same syncronization data that GOFF will protect against? == Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(at)us(dot)ibm(dot)com All opinions are mine, and do not represent IBM Corporation. == IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu wrote on 09/12/2013 01:47:42 PM: From: Gerhard Postpischil gerh...@valley.net To: IBM-MAIN@listserv.ua.edu, Date: 09/12/2013 01:48 PM Subject: Re: [IBM-MAIN] PDS/E, Shared Dasd, and COBOL V5 Sent by: IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu On 9/12/2013 12:25 PM, Frank Swarbrick wrote: I believe Tom Ross explained this, but some might have missed it. The main reason, from what I've heard, is so that the 'debug' data can be stored in a no-load segment of the program object. Thus the debug data will not be (automatically) loaded in to memory at execution time, but will be loaded only if requested by a tool such as IBM Fault Analyzer or IBM Debug Tool. This eliminates the long standing hassle of keeping the debug data in sync with the executable. And I for one welcome it! Ever since Assembler F (OS/360), debug data in the form of SYM records has been available, in complete synchronization with the executable. It would not have taken much work to extend this to CoBOL to provide additional data, similar to the data available with the HL ADATA option. So this may be a benefit of the PDS/E requirement, but hardly a necessity. Gerhard Postpischil Bradford, Vermont -- 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: SSVT - Subsystem Vector Table
You could start by looking at any control blocks pointed to by SSCTSUSE or SSCTSUSE2 for eye-catchers. Then you could look at the field pointed to by SSCTSSVT. If the subsystem supports IEFSSREQ calls, the SSVT will contain a table, followed by the address of the various routines. Hopefully one of the routines will have identifying information within it. == Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(at)us(dot)ibm(dot)com All opinions are mine, and do not represent IBM Corporation. == IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu wrote on 06/18/2013 02:20:26 PM: From: gsg gsg_...@yahoo.com To: IBM-MAIN@listserv.ua.edu, Date: 06/18/2013 02:20 PM Subject: [IBM-MAIN] SSVT - Subsystem Vector Table Sent by: IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu We found an entry named DB in our SSVT. No one seems to know what it is. Is there a way to determine what this entry is for? ex. what product? -- 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: ENF 54 (SDUMP event)
Don, While I work for IBM, I am not in the z/OS development team, but here is my personal take. Having 2 API's, one internal, one external has a large number of negative consequences, including increasing maintenance effort, because if there is a defect, both API's have to be investigated, and possibly modified and the increased testing requirements, including ongoing regression testing. Given that resources are tight everywhere, this type of approach seems to have more negatives then positives. == Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(at)us(dot)ibm(dot)com == IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu wrote on 06/06/2013 11:06:06 AM: From: Don Williams donb...@gmail.com To: IBM-MAIN@listserv.ua.edu, Date: 06/06/2013 11:13 AM Subject: Re: [IBM-MAIN] ENF 54 (SDUMP event) Sent by: IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu I'm surprised that IBM did not setup two ENF APIs, one documented for customers, and an internal one for IBM. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Peter Relson Sent: Thursday, June 06, 2013 7:55 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ENF 54 (SDUMP event) All signals that are intended to be listened for are documented. All others are for IBM use only and you are not supposed to listen for them (and as an authorized program it is expected that you follow the rules). Clearly it is good to understand what listenable signals are produced so that you can decide if they are useful to you; surely the mere presence of a signal does not imply usefulness. Peter Relson z/OS Core Technology Design -- 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 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: To Backup or Not to Backup Data - That is the question
Back before I got into the Software industry, I worked for a public utility in Chicago. My first foray into DR was pushing for data-comm fallbacks at our remote sites. At first we got questioned, but finally we got them approved. Then I brought up the dead pool test idea, and was laughed at. Well then April 13, 1993 occurred, when the tunnels below the loop flooded, cutting the power to our building. We were able to get our DR system up and running in about 18 hours with the remote locations online within 24 hours. While the network DR was appreciated the dead test idea wasn't considered for at least 6-8 years, well after I left the company. == Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(at)us(dot)ibm(dot)com == IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu wrote on 05/30/2013 02:28:44 PM: From: Charles Mills charl...@mcn.org To: IBM-MAIN@listserv.ua.edu, Date: 05/30/2013 02:30 PM Subject: Re: [IBM-MAIN] To Backup or Not to Backup Data - That is the question Sent by: IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu You are dead right of course. Disasters don't come on schedule, neatly tied up in a bow. A good thing might be a brainstorming session on what are our implicit disaster-related assumptions? and then questioning those assumptions. Charles Composed on a mobile: please excuse my brevity Staller, Allan allan.stal...@kbmg.com wrote: Although very few shops actually do this, IMO the procedure should be: Management walks in the room and says You, you, and you are dead as of time/date. The rest of you go recover as of that time/date. The dead people cannot be consulted with during the DR exercise. You, you, and you should be different during each iteration of the test. After the fact, procedures/documentation are analyzed and updated based on the results. In too many cases, I have seen staged recoveries, whereby the data is all snapshot'ed at the end of a cycle and neatly tied up in a package. The same crew is used repeatedly and becomes very familiar with all of the procedures, and actually tests nothing new. All that is proven in this case is your applications can run on other compatible hardware. I have deliberately ignored the data questions, as your configuration is nothing like mine. Just my $0.02 USD worth. HTH, snip I am looking to see how other shops are currently doing Backups for DR and OR. I think this will be valuable for the archives. /snip -- 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 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DB2 + REUSASID(YES)
Mark, DB2 V10 doesn't take advantage of REUSEASID(YES). I haven't seen anything announced in this area for DB2 V11 either. == Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(at)us(dot)ibm(dot)com == IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu wrote on 05/15/2013 08:41:26 AM: From: Mark Zelden m...@mzelden.com To: IBM-MAIN@listserv.ua.edu, Date: 05/15/2013 08:55 AM Subject: [IBM-MAIN] DB2 + REUSASID(YES) Sent by: IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu Sorry for asking what should be an RTFM question, but can someone confirm that DB2 V10 can not take advantage of REUSASID(YES). If it can, I sure don't see it in any announcement letters nor the What's New manual. I searched ibm.com and SHARE proceedings also and came up empty. I could swear I was sitting a SHARE session way back at z/OS 1.9 when it was just version X and someone saying that the plan was to utilize large pages and REUSASID. If not, does anyone know if DB2 V11 will? Regards, Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS mailto:m...@mzelden.com Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html Systems Programming expert at http://expertanswercenter.techtarget.com/ -- 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: I do not understand S0C6 on CDSG
In addition to BNDRY=PAGE, on GETMAIN or STORAGE, you could use the STARTBDY= option with a value that is a multiple of 4 to ensure quad word alignment. === Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(AT)us.ibm.com === From: Tom Marchant m42tom-ibmm...@yahoo.com To: IBM-MAIN@listserv.ua.edu, Date: 02/25/2013 04:13 PM Subject:Re: [IBM-MAIN] I do not understand S0C6 on CDSG Sent by:IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu On Mon, 25 Feb 2013 15:07:31 -0500, John Gilmore wrote: You can of course force assembly-time, zero-origin quadword alignment within a program object using | CNOP byte,16 or with DS 0LQ And either of these of course requires that SECTALGN(16) and GOFF be specified in the assembly options. The binder will then page align your program object. For a location within dynamically obtained storage Paul Gilmartin's scheme of using execution-time modulo (congruence) arithmetic is inescapable.. Unless the GETMAIN or STORAGE OBTAIN specifies BNDRY=PAGE. In that case the quadword can be defined with DS LQ within your DSECT. -- Tom Marchant -- 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: SRB Again
Donald, First, SRB's can and do reside in the private area, and can freely access storage in the private area, or in a dataspace (subject to access list requirements of course). Second, when you specify SYNCH=YES on the IEAMSCHD, the system will handle the synchronization process between the scheduling TCB and the SRB, your application doesn't have to issue an WAIT or POST calls for this. As for you environment at the time of abend, try issuing IP STATUS FAILDATA it should show the PSW and register related data at the time of error. Good Luck === Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(AT)us.ibm.com === From: Donald Likens dlik...@infosecinc.com To: IBM-MAIN@listserv.ua.edu, Date: 11/15/2012 07:54 AM Subject:[IBM-MAIN] SRB Again Sent by:IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu What I don't understand fills volumes and when I think I understand something I am often wrong. One of the things I don't understand is SRBs. I know this because what I am doing is not working! Note: When I use the option to turn off SRB processing and call (BALR) the SRB routine, instead of scheduling it, it works great. I schedule my SRB with the following macro: IEAMSCHD EPADDR=SRBRTN,PRIORITY=ENCLAVE,ENCLAVETOKEN=WKETKN, X PARM=ISELPARM,SYNCH=YES,X PURGESTOKEN=WKTKN,PTCBADDR=WKTOLD, (SAME AS PSATOLD)X SYNCHCOMPADDR=ISELCOMP,SYNCHCODEADDR=ISELCODE, X SYNCHRSNADDR=ISELRSN In all my reading SRBs are work that runs in parallel to the scheduling program but the SYNCH documentation states: SYNCH=YES The SRB is to be scheduled and synchronized with the caller’s work unit; the caller’s work unit is suspended until the SRB completes, is purged, or ends abnormally. My interpretation of SYNCH=YES is that the scheduling program waits for the SRB to complete. It my reading it also says that I need to use wait and post. I reason that wait and post is an alternate way to do what SYNCH does. My SRB terminates by branching to register 14. When it terminates I expect my code to resume. Correct? I read somewhere that storage reference by an SRB had to be in common storage. I reasoned that storage referenced by the SRB had to be in common storage if the SRB runs in another address space. The parm I pass points to storage in my address space, I believe this should work because this SRB runs in my address space (ENV=HOME). Am I correct? I also read that storage obtained by an SRB had to be in SQA. The Authorized Assembler Services Guide does not say this, so I do not believe it. Am I correct? When I first started testing everything looked great. My jobs were scheduling the SRB and running to completion. But as it turned out the SRB was abending and disappearing so I added the following options: PURGESTOKEN=WKTKN,PTCBADDR=WKTOLD, (SAME AS PSATOLD)X SYNCHCOMPADDR=ISELCOMP,SYNCHCODEADDR=ISELCODE, X SYNCHRSNADDR=ISELRSN Now when my SRB fails I know it because I display a message like the following: SRB SCHEDULING RC=28 COMP=08 CODE=000C4000 I am not sure why but I still did not get a dump (I thought the task recovery routines would create a dump but they didn’t) so I added the following code to my SRB: SETFRR A,FRRAD=FRRA,EUT=YES,MODE=FULLXM,WRKREGS=(R1,R2) FRR DS0H USING FRR,R15 STR14,FRRSAVE LRR3,R15 DROP R15 LRR4,R1 *C TAKE A DUMP USING FRR,R3 SDUMPX HDR='SRB ERROR',BRANCH=YES, SDATA=(NOSQA,RGN,CSA) *C RETURN TO FRRRETRY L R2,FRRRETRY SETRP RC=4,REMREC=YES,RETREGS=YES,FRESDWA=YES, DUMP=YES,WKAREA=(R4),RETADDR=(R2) L R14,FRRSAVE BRR14 Now I get a dump but I don’t know how to read it. I do not see any RMT2 information or any control blocks that give me the registers and PSW at the time of error. I looked in the Diagnostic reference manual but I did not see what I needed. Can anyone direct me to the proper documentation or at least tell me where to look in the dump for the registers and PSW at time of error in a SRB? -- 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: SRB Again
Just to clarify, in the first sentence when I said SRB's can ... I mean SRB routines can ... === Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(AT)us.ibm.com === From: Wayne Driscoll/Chicago/IBM@IBMUS To: IBM-MAIN@listserv.ua.edu, Date: 11/15/2012 03:47 PM Subject:Re: [IBM-MAIN] SRB Again Sent by:IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu Donald, First, SRB's can and do reside in the private area, and can freely access storage in the private area, or in a dataspace (subject to access list requirements of course). Second, when you specify SYNCH=YES on the IEAMSCHD, the system will handle the synchronization process between the scheduling TCB and the SRB, your application doesn't have to issue an WAIT or POST calls for this. As for you environment at the time of abend, try issuing IP STATUS FAILDATA it should show the PSW and register related data at the time of error. Good Luck === Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(AT)us.ibm.com === From: Donald Likens dlik...@infosecinc.com To: IBM-MAIN@listserv.ua.edu, Date: 11/15/2012 07:54 AM Subject:[IBM-MAIN] SRB Again Sent by:IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu What I don't understand fills volumes and when I think I understand something I am often wrong. One of the things I don't understand is SRBs. I know this because what I am doing is not working! Note: When I use the option to turn off SRB processing and call (BALR) the SRB routine, instead of scheduling it, it works great. I schedule my SRB with the following macro: IEAMSCHD EPADDR=SRBRTN,PRIORITY=ENCLAVE,ENCLAVETOKEN=WKETKN, X PARM=ISELPARM,SYNCH=YES,X PURGESTOKEN=WKTKN,PTCBADDR=WKTOLD, (SAME AS PSATOLD)X SYNCHCOMPADDR=ISELCOMP,SYNCHCODEADDR=ISELCODE, X SYNCHRSNADDR=ISELRSN In all my reading SRBs are work that runs in parallel to the scheduling program but the SYNCH documentation states: SYNCH=YES The SRB is to be scheduled and synchronized with the caller’s work unit; the caller’s work unit is suspended until the SRB completes, is purged, or ends abnormally. My interpretation of SYNCH=YES is that the scheduling program waits for the SRB to complete. It my reading it also says that I need to use wait and post. I reason that wait and post is an alternate way to do what SYNCH does. My SRB terminates by branching to register 14. When it terminates I expect my code to resume. Correct? I read somewhere that storage reference by an SRB had to be in common storage. I reasoned that storage referenced by the SRB had to be in common storage if the SRB runs in another address space. The parm I pass points to storage in my address space, I believe this should work because this SRB runs in my address space (ENV=HOME). Am I correct? I also read that storage obtained by an SRB had to be in SQA. The Authorized Assembler Services Guide does not say this, so I do not believe it. Am I correct? When I first started testing everything looked great. My jobs were scheduling the SRB and running to completion. But as it turned out the SRB was abending and disappearing so I added the following options: PURGESTOKEN=WKTKN,PTCBADDR=WKTOLD, (SAME AS PSATOLD)X SYNCHCOMPADDR=ISELCOMP,SYNCHCODEADDR=ISELCODE, X SYNCHRSNADDR=ISELRSN Now when my SRB fails I know it because I display a message like the following: SRB SCHEDULING RC=28 COMP=08 CODE=000C4000 I am not sure why but I still did not get a dump (I thought the task recovery routines would create a dump but they didn’t) so I added the following code to my SRB: SETFRR A,FRRAD=FRRA,EUT=YES,MODE=FULLXM,WRKREGS=(R1,R2) FRR DS0H USING FRR,R15 STR14,FRRSAVE LRR3,R15 DROP R15 LRR4,R1 *C TAKE A DUMP USING FRR,R3 SDUMPX HDR='SRB ERROR',BRANCH=YES, SDATA=(NOSQA,RGN,CSA) *C RETURN TO FRRRETRY L R2,FRRRETRY SETRP RC=4,REMREC=YES,RETREGS=YES,FRESDWA=YES, DUMP=YES,WKAREA=(R4),RETADDR=(R2) L R14,FRRSAVE BRR14 Now I get a dump but I don’t know how to read it. I do not see any RMT2 information or any control blocks that give me the registers and PSW at the time of error. I looked in the Diagnostic reference manual but I did not see what I needed. Can anyone direct me to the proper documentation or at least tell me where to look in the dump for the registers and PSW at time of error in a SRB? -- For IBM-MAIN subscribe / signoff
Re: No Data returned in PPLANS area
What is the RC from IKJPARS? is the parmlist being built properly?
===
Wayne Driscoll
OMEGAMON DB2 L3 Support/Development
wdrisco(AT)us.ibm.com
===
From: Micheal Butz michealb...@optonline.net
To: IBM-MAIN@listserv.ua.edu,
Date: 08/27/2012 10:48 PM
Subject:[IBM-MAIN] No Data returned in PPLANS area
Sent by:IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu
Hi,
I am issuing the following TSO command
TSO CMD JOBNAME(JOBNAME) ASID(X'0037') DUMP(YES)
The following is the layout of the IKJ macros I am using to parse this
statement
CANCEL IKJPARM DSECT=PARSEAT
JOBNAME IKJKEYWD
IKJNAME 'JOBNAME',SUBFLD=JOB
ASID IKJKEYWD
IKJNAME 'ASID',SUBFLD=ASIDX
DUMP IKJKEYWD
IKJNAME 'DUMP',SUBFLD=DUMPX
*
* SUBFIELDS
*
JOB IKJSUBF
JOBX IKJIDENT 'JOBNAME',FIRST=ALPHANUM,MAXLNTH=8,PROMPT='JOBNAME
ASIDXIKJSUBF
ASIDFIKJIDENT 'ASID',FIRST=ALPHANUM,OTHER=ALPHANUM,PROMPT='ASID'
DUMPXIKJSUBF
DUMPFIKJIDENT 'DUMP',FIRST=ALPHA,MAXLNTH=2
IKJENDP
When I retrieve the address returned in PPLANS
This is what it looks like nothing is returned
00064F00. FF00 01000100 **
**
00064F20. **
00D0 **
00064F40. **
**
00064F60. **
**
00064F80. **
**
00064FA0. **
**
00064FC0. **
**
00064FE0. **
00*... *
No data has been parsed
--
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: Why ain't there no XILL?
I would assume the pother is because OIL and NIL are macros that provide or and and processing with serialization. Your notation fails to provide serialization. It should be relatively easy to create an XIL macro based on OIL or NIL however. === Wayne Driscoll OMEGAMON DB2 L3 Support/Development wdrisco(AT)us.ibm.com === From: John Gilmore jwgli...@gmail.com To: IBM-MAIN@listserv.ua.edu, Date: 08/02/2012 07:12 AM Subject:Re: [IBM-MAIN] Why ain't there no XILL? Sent by:IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu Any standard logic text establishes that o AND, inclusive OR, and NOT are together universal, o NOR alone is universal, and o NAND alone is universal. Thus, in an obvious notation, XOR(a,b) =df (a | b) (¬(a b)) What is all the pother about? John Gilmore, Ashland, MA 01721 - USA -- 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
