Re: Crazy concatenation mystery
Has anyone checked to see if the order of the JOBLIB/STEPLIB changed. If the first library has the larger BLKSIZE, then smaller subsequent libraries will have no impact. As for LPA, Linklist, etc., these have no bearing on JOBLIB/STEPLIB. BTW, what error is being received? PHIL CARLYLE Information Security | IAM RACF directory services M: 480-235-2837 | phil.carl...@aexp.com<mailto:phil.carl...@aexp.com> TEKSystems Consultant "The Universe is made up of Protons, Neutrons, Electrons & Morons!" From: IBM Mainframe Discussion List On Behalf Of Arthur Sent: Wednesday, May 1, 2019 10:09 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Crazy concatenation mystery On 1 May 2019 16:51:49 -0700, in bit.listserv.ibm-main (Message-ID:mailto:byapr01mb4166a8133b83117a5201d0a6bf...@byapr01mb4166.prod.exchangelabs.com>>) jesse1.robin...@sce.com<mailto:jesse1.robin...@sce.com> (Jesse 1 Robinson) wrote: >So this is all absolutely true. The module *is* 32760 >while the PDS *is* 19069-the ancient 3350 track size that >was fairly standard for load libraries in the Dark Ages. >So what's the mystery? How on earth did the 13 April and >*all previous* runs work OK? We cannot find any evidence >of a change. No IPL that weekend let alone z/OS >maintenance. The link edit date on the fat module is years >old. We restored an older version of the skinny PDS from >HSM. No differences. The DASD upgrade I posted about >earlier came two weeks later. > >It should have failed eons ago. This JOBLIB concatenation >has other problems as well that are not obviously related. Did the JCL change? Did the blksize of the 1st dataset in the JOBLIB concatenation change? -- 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 American Express made the following annotations "This message and any attachments are 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 message and any attachments is prohibited. If you have received this communication in error, please notify us by reply e-mail and immediately and permanently delete this message and any attachments. Thank you." American Express a ajouté le commentaire suivant le Ce courrier et toute pièce jointe qu'il contient sont réservés au seul destinataire indiqué et peuvent renfermer des renseignements confidentiels et privilégiés. Si vous n'êtes pas le destinataire prévu, toute divulgation, duplication, utilisation ou distribution du courrier ou de toute pièce jointe est interdite. Si vous avez reçu cette communication par erreur, veuillez nous en aviser par courrier et détruire immédiatement le courrier et les pièces jointes. Merci. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Is there a utility or command that will show load module characteristics?
You can also allocate the dataset to a SYSLIB DD statement in TSO and execute the AMBLIST via option 6 and enter the LISTLOAD when prompted (don’t forget the Space at the beginning), and end the input with a “/*’ An even easier option is to view the library with 3.4 and browse the load module. Enter the HEX option and you will see a list of the CSECT name and the address with the module. PHIL CARLYLE Information Security | IAM RACF directory services M: 480-235-2837 | phil.carl...@aexp.com<mailto:phil.carl...@aexp.com> TEKSystems “The Universe is made up of Protons, Neutrons, Electrons & Morons!” From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Charles Mills Sent: Thursday, November 1, 2018 12:48 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Is there a utility or command that will show load module characteristics? Thanks all! Wow! First response took 3 minutes. I will keep PDS in mind but yes, AMBLIST appears to be what the doctor ordered. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU>] On Behalf Of John Eells Sent: Thursday, November 1, 2018 11:53 AM To: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU> Subject: Re: Is there a utility or command that will show load module characteristics? Does this show what you want? //S0 EXEC PGM=AMBLIST //SYSPRINT DD SYSOUT=* //SYSLIB DD DISP=SHR,DSN=data.set.name<https://isolate.menlosecurity.com/1/3735928037/http:/data.set.name> //SYSINDD * LISTLOAD MEMBER=member,OUTPUT=XREF /* // Don Poitras wrote: > AMBLIST > > https://www.ibm.com/support/knowledgecenter/SSLTBW_2.3.0/com.ibm.zos.v2r3.ieav100/iea3v1_Map_the_CSECTs_in_a_load_module_or_program_object.htm<https://isolate.menlosecurity.com/1/3735928037/https:/www.ibm.com/support/knowledgecenter/SSLTBW_2.3.0/com.ibm.zos.v2r3.ieav100/iea3v1_Map_the_CSECTs_in_a_load_module_or_program_object.htm> > > > In article > <0c3101d4720a$d2b1bcd0$78153670$@mcn.org<https://isolate.menlosecurity.com/1/3735928037/http:/mcn.org>> > you wrote: >> Seems like there should be a way to do this. I tried IEHLIST LISTPDS FORMAT >> but it seems pretty basic. The library in question is a PDSE, so I guess the >> right term is "program object." > >> I'm most interested in alternative entry point names and their addresses. > >> I'd prefer an IBM utility to a CBT program just because it would be quicker >> to do. Few vendor products available in my datacenter. > >> Charles > -- John Eells IBM Poughkeepsie ee...@us.ibm.com<mailto:ee...@us.ibm.com> -- 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 American Express made the following annotations "This message and any attachments are 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 message and any attachments is prohibited. If you have received this communication in error, please notify us by reply e-mail and immediately and permanently delete this message and any attachments. Thank you." American Express a ajouté le commentaire suivant le Ce courrier et toute pièce jointe qu'il contient sont réservés au seul destinataire indiqué et peuvent renfermer des renseignements confidentiels et privilégiés. Si vous n'êtes pas le destinataire prévu, toute divulgation, duplication, utilisation ou distribution du courrier ou de toute pièce jointe est interdite. Si vous avez reçu cette communication par erreur, veuillez nous en aviser par courrier et détruire immédiatement le courrier et les pièces jointes. Merci. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Would SHARE kindly kick IBM in the ass for what the've done with their web content?
Ok, let’s try this simple search – “VSAM DATA SET TYPES” Results: About this result<https://www.google.com/url?url=https://support.google.com/webmasters/answer/6229325?hl%3Den-US=j==s=AOvVaw0NtgjYZu26UdaYq-GX6ef6=en=X=0ahUKEwje3p2CpdPbAhXqj1QKHR_9A9QQrpwBCDA> Selection of VSAM Data Set Types - IBM<https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.idad400/dsfor.htm> https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/.../dsfor.htm 1. Cached<https://webcache.googleusercontent.com/search?q=cache:gZxATuQhuBwJ:https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.idad400/dsfor.htm+=3=en=clnk=us> 2. Similar<https://www.google.com/search?safe=active=related:https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.idad400/dsfor.htm+vsam+data+set+types=1=X=0ahUKEwje3p2CpdPbAhXqj1QKHR_9A9QQHwg3MAI> Selection of VSAM Data Set Types. VSAM supports several data set types: entry-sequenced (ESDS), key-sequenced (KSDS), linear (LDS), fixed-length, and variable-length relative record (RRDS). Summary of VSAM Data Set Types - IBM<https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.idad400/d4264.htm> https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/.../d4264.htm 1. Cached<https://webcache.googleusercontent.com/search?q=cache:bmKUpe71nQgJ:https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.idad400/d4264.htm+=4=en=clnk=us> Table 1. Comparison of ESDS, KSDS, fixed-length RRDS, variable-length RRDS, and linear data sets. ESDS, KSDS, Fixed-Length RRDS, Variable-Length ... VSAM and non-VSAM data set types and events - IBM<https://www.ibm.com/support/knowledgecenter/en/SSMPHH_9.1.0/com.ibm.guardium91.doc/AUVV9.1/DITA/auvac036.html> https://www.ibm.com/support/knowledgecenter/en/SSMPHH_9.../auvac036.html 1. Cached<https://webcache.googleusercontent.com/search?q=cache:Vimf-Zs3phQJ:https://www.ibm.com/support/knowledgecenter/en/SSMPHH_9.1.0/com.ibm.guardium91.doc/AUVV9.1/DITA/auvac036.html+=5=en=clnk=us> InfoSphere Guardium S-TAP for Data Sets agent performs data set and record level monitoring for VSAM and non-VSAM data sets. The data set types, as well as ... None of this links are good. Results of links: Documentation for z/OS V2.1.0 is no longer available in IBM Knowledge Center. While the product version and release remains in service, you can find information in the following formats: * Individual PDFs for downloading: https://www.ibm.com/servers/resourcelink/svc00100.nsf/pages/zosv2r1-pdf-download?OpenDocument * z/OS V2R1 Adobe Indexed Collection (all PDFs with full text search via the free Adobe Acrobat Reader): http://publibz.boulder.ibm.com/zoslib/pdf/zosv2r1pdfcollection.zip * IBM Knowledge Center plugins for downloading (for use with IBM Knowledge Center for z/OS): http://publibz.boulder.ibm.com/zoslib/SSLTBW_2.1.0_4KC.jar. For information about current releases of this product see http://www.ibm.com/support/knowledgecenter/SSLTBW/welcome<http://www.ibm.com/support/knowledgecenter/SSLTBW/welcome?view=kc>. More information and resources are available at the IBM z/OS Internet Library: https://www.ibm.com/servers/resourcelink/svc00100.nsf/pages/zosinternetlibrary?opendocument. How’s that? I consider that pretty intentional. PHIL CARLYLE Information Security | IAM RACF directory services M: 480-235-2837 | phil.carl...@aexp.com<mailto:phil.carl...@aexp.com> TEKSystems “The Universe is made up of Protons, Neutrons, Electrons & Morons!” From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Ralph Robison Sent: Thursday, June 14, 2018 5:16 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Would SHARE kindly kick IBM in the ass for what the've done with their web content? Peter, Others have made useful recommendations for the general situation. For the specific disappearing doc that you encountered, I wonder whether it may have been an error rather than intentionally removed. In either case, it may be useful to cite the specific doc that has become unavailable. Quite likely, someone can help you find what you need. Ralph -- 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 American Express made the following annotations ** "This message and any attachments are 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 message and any attachments is prohibited. If you have received this communication in erro
Re: Would SHARE kindly kick IBM in the ass for what the've done with their web content?
I’m afraid I agree, every link that had z/OS 2.1 ended up with “No Longer Available”. The searches all ended in frustration. The real question is “has IBM removed all of its z/OS documentation?” Will this be repaired or are we all going to have to go back to paper? PHIL CARLYLE Information Security | IAM RACF directory services M: 480-235-2837 | phil.carl...@aexp.com<mailto:phil.carl...@aexp.com> TEKSystems “The Universe is made up of Protons, Neutrons, Electrons & Morons!” From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of John Eells Sent: Thursday, June 14, 2018 6:29 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Would SHARE kindly kick IBM in the ass for what the've done with their web content? I don't think it's actually the case that it was all removed, even though I will agree that it is more difficult to find. I thought someone posted this link a few days ago, but it has been working fine for me: https://www-304.ibm.com/servers/resourcelink/svc00100.nsf/pages/zosv2r1-pdf-download?OpenDocument<https://isolate.menlosecurity.com/1/3735928037/https:/www-304.ibm.com/servers/resourcelink/svc00100.nsf/pages/zosv2r1-pdf-download?OpenDocument> This is what I see one page level up from that: z/OS Library Search using IBM Knowledge Center | V2R3 | V2R2 | V2R1 | * Search at the element or book level | V2R3 | V2R2 | V2R1 | * Download books in PDF format | V2R3 | V2R2 | V2R1 | Download Adobe Indexed PDF collection | V2R3 | V2R2 | V2R1 | Download content for use with (KC) | V2R3 | V2R2 | V2R1 | (I hope the formatting survives!) Of those options, I see that there are no V2R1 links for the first two (the search options), and no V2R2 link for the last one as I write this. The biggest problem with this is the unavailability of release-specific search for 2.1, and in not necessarily knowing what things documented in KC and in the the PDFs for 2.2 and 2.3 are implemented on 2.1. For all practical purposes, with limited exceptions, though, all the information you need for 2.1 is probably in the 2.2 books, too. Behind the scenes, I know that people *are* working on this, even if the fruits of their efforts have not yet become apparent. I am pretty far removed from those efforts, so I won't try to summarize status or predict anything, but I can tell you that the issue has caught some fairly high-level attention. All that said, on behalf of IBM I can only apologize for the current state of affairs. Like you, I hope it is short-lived. Tom Conley wrote: > Years ago IBM spent many millions of dollars to convert all their > documentation to KC. The rationale was largely to make the doc > searchable by Internet search engines like Google. A week ago, someone > at IBM unilaterally decided to remove this doc, immediately making > Google searches against IBM doc completely worthless. It's not just one > or two documents or links. ALL z/OS V2R1 CONTENT WAS REMOVED FROM THE > INTERNET BY IBM!! DO A GOOGLE SEARCH, AND NONE OF THE LINKS WORK!! > > Peter's anger is justified. IBM has screwed up royally here, and as far > as I can tell, they're not lifting a finger to fix the situation. > > Regards, > Tom Conley > > -- > 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 -- John Eells IBM Poughkeepsie ee...@us.ibm.com<mailto:ee...@us.ibm.com> -- 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 American Express made the following annotations ** "This message and any attachments are 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 message and any attachments is prohibited. If you have received this communication in error, please notify us by reply e-mail and immediately and permanently delete this message and any attachments. Thank you." American Express a ajouté le commentaire suivant le Ce courrier et toute pièce jointe qu'il contient sont réservés au seul destinataire indiqué et peuvent renfermer des renseignements confidentiels et privilégiés. Si vous n'êtes pas le destinataire prévu, toute divulgation, duplication, utilisation ou distribution du courrier ou de toute pièce jointe est interdite. Si vous avez reçu cette communication par erreur, veuill
Re: [TSO-REXX] Sdsf rexx
For additional info on using the LISTDSI command in REXX checkout the following link. https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.ikja300/ldsi.htm PHIL CARLYLE Information Security | IAM RACF directory services M: 480-235-2837 | phil.carl...@aexp.com<mailto:phil.carl...@aexp.com> TEKSystems “The Universe is made up of Protons, Neutrons, Electrons & Morons!” From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Charles Mills Sent: Friday, May 11, 2018 10:30 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: [TSO-REXX] Sdsf rexx Yes, you can "read the directory blocks" of a PDSE with BSAM even though they do not really exist. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU>] On Behalf Of Paul Gilmartin Sent: Friday, May 11, 2018 8:32 AM To: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU> Subject: Re: [TSO-REXX] Sdsf rexx On Fri, 11 May 2018 13:56:24 +0100, Mike Wawiorko wrote: >OUTTRAP with LISTD dsname M ? > >I'm pretty sure others will have better suggestions. > There's also an ISPF facility for this. In days of yore I have allocated a PDS with RECFM=F,LRECL=256,DSORG=PS and read with Rexx EXECIO and parsed directory blocks. I believe PDSE maintains compatibility with this practice. -- 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 American Express made the following annotations ** "This message and any attachments are 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 message and any attachments is prohibited. If you have received this communication in error, please notify us by reply e-mail and immediately and permanently delete this message and any attachments. Thank you." American Express a ajouté le commentaire suivant le Ce courrier et toute pièce jointe qu'il contient sont réservés au seul destinataire indiqué et peuvent renfermer des renseignements confidentiels et privilégiés. Si vous n'êtes pas le destinataire prévu, toute divulgation, duplication, utilisation ou distribution du courrier ou de toute pièce jointe est interdite. Si vous avez reçu cette communication par erreur, veuillez nous en aviser par courrier et détruire immédiatement le courrier et les pièces jointes. Merci. ** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Job submit using REXX
Okay, when writing records from a stack using the EXECIO statement, this is what I mean by writing from the QUEUE. It requires that the last entry on the stack be null to indicate the end of the stack. Here is a link to help you understand. https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.ikja300/dup0037.htm PHIL CARLYLE Information Security | IAM RACF directory services M: 480-235-2837 | phil.carl...@aexp.com<mailto:phil.carl...@aexp.com> TEKSystems “The Universe is made up of Protons, Neutrons, Electrons & Morons!” From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Paul Gilmartin Sent: Monday, May 7, 2018 3:43 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Job submit using REXX On Mon, 7 May 2018 20:46:36 +0000, Phil Carlyle wrote: >When using QUEUE() for output the last record needs to be NULL in order to >completely flush the buffers. > I see no such statement in: TSO/E REXX Reference Version 2 Release 3 SA32-0972-30 Where do you see it? What do you mean by "using QUEUE() for output"? Example? -- gil -- 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 American Express made the following annotations ** "This message and any attachments are 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 message and any attachments is prohibited. If you have received this communication in error, please notify us by reply e-mail and immediately and permanently delete this message and any attachments. Thank you." American Express a ajouté le commentaire suivant le Ce courrier et toute pièce jointe qu'il contient sont réservés au seul destinataire indiqué et peuvent renfermer des renseignements confidentiels et privilégiés. Si vous n'êtes pas le destinataire prévu, toute divulgation, duplication, utilisation ou distribution du courrier ou de toute pièce jointe est interdite. Si vous avez reçu cette communication par erreur, veuillez nous en aviser par courrier et détruire immédiatement le courrier et les pièces jointes. Merci. ** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Job submit using REXX
When using QUEUE() for output the last record needs to be NULL in order to completely flush the buffers. PHIL CARLYLE Information Security | IAM RACF directory services M: 480-235-2837 | phil.carl...@aexp.com<mailto:phil.carl...@aexp.com> TEKSystems “The Universe is made up of Protons, Neutrons, Electrons & Morons!” From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Paul Gilmartin Sent: Monday, May 7, 2018 12:17 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Job submit using REXX On Mon, 7 May 2018 14:57:34 -0400, Tony Thigpen wrote: >Phil, > >Your statement confuses me. Please elaborate. >What you are stating does not match my knowledge of REXX, QUEUE, and EXECIO. >Tony Thigpen > >Phil Carlyle wrote on 05/07/2018 02:46 PM: >> You forgot the QUEUE ‘’ to flush out the queue. >> Not needed, and perhaps undesirable, if you have an explicit count as the OP had: >> "EXECIO" QUEUED()" DISKW ISFIN (FINIS" -- gil -- 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 American Express made the following annotations ** "This message and any attachments are 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 message and any attachments is prohibited. If you have received this communication in error, please notify us by reply e-mail and immediately and permanently delete this message and any attachments. Thank you." American Express a ajouté le commentaire suivant le Ce courrier et toute pièce jointe qu'il contient sont réservés au seul destinataire indiqué et peuvent renfermer des renseignements confidentiels et privilégiés. Si vous n'êtes pas le destinataire prévu, toute divulgation, duplication, utilisation ou distribution du courrier ou de toute pièce jointe est interdite. Si vous avez reçu cette communication par erreur, veuillez nous en aviser par courrier et détruire immédiatement le courrier et les pièces jointes. Merci. ** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Job submit using REXX
You forgot the QUEUE ‘’ to flush out the queue. PHIL CARLYLE Information Security | IAM RACF directory services M: 480-235-2837 | phil.carl...@aexp.com<mailto:phil.carl...@aexp.com> TEKSystems “The Universe is made up of Protons, Neutrons, Electrons & Morons!” From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of venkat kulkarni Sent: Monday, May 7, 2018 10:16 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Job submit using REXX REXX i used to copy DCON address space message into ps file is ADDRESS TSO DO I=0 TO 4 "ALLOC F(ISFIN) TRACKS SPACE(1) REU" "ALLOC F(ISFOUT) NEW DELETE REU ", "TRACKS SPACE(100,100) LRECL(133) RECFM(F,B) DSORG(PS)" "ALLOC F(TEMPPRT) DA('v12396.NEW.PS1') MOD REUSE" QUEUE "PRE DCON" QUEUE "ST" QUEUE "DOWN" I QUEUE "FIND 'JESJCL'" QUEUE "++S" QUEUE "PRINT FILE TEMPPRT" QUEUE "PRINT" QUEUE "PRINT CLOSE" QUEUE "END" QUEUE "EXIT" "EXECIO" QUEUED()" DISKW ISFIN (FINIS" ADDRESS ISPEXEC "SELECT PGM(ISFAFD) PARM('++32,255)" END EXIT Now, I have all required log in v12396.NEW.PS1 file and i want to extract FTP.DATA.**<ftp://FTP.DATA.**> dataset name from this file and copy it to another file for further process. v12396.NEW.PS1 contain many other message including below. SVTM052I STEP01 COPY FDDB4142( 95,456) SVTM052I FROM E2PP.DW801P.WTALZUP.XM.G0520V00 SVTM052I TO FTP.DATA.ATRAIL.G0458V00<ftp://FTP.DATA.ATRAIL.G0458V00> SVTM052I COMPLETED /SCPA000I SVTM052I STEP01 COPY FDDB4099( 95,458) SVTM052I FROM G12P.DW801P.XTALZUP.XM.G1557V00 SVTM052I TO FTP.DATA.AUDIT.TRAIL.G1568V00<ftp://FTP.DATA.AUDIT.TRAIL.G1568V00> SVTM052I COMPLETED /SCPA000I SVTM052I STEP01 COPY FDDB4052( 95,516) SVTM052I FROM G12P.IBD003.X2BSN1.XM.G2904V00 SVTM052I TO FTP.DATA.IAS.G3486V00<ftp://FTP.DATA.IAS.G3486V00> SVTM052I COMPLETED /SCPA000I On Mon, May 7, 2018 at 7:56 PM, venkat kulkarni <venkatkulkarn...@gmail.com<mailto:venkatkulkarn...@gmail.com>> wrote: > Hello Group, > > Thanks for all response. We have Netview, which can be used for > automation. My idea is to create REXX, which extracted data from DCON > address space into one dataset. > > Then i need help to write REXX to extract FTP.DATA.**<ftp://FTP.DATA.**> > dataset from this > ps dataset and put these dataset name into other ps dataset. > > SVTM052I STEP01 COPY FDDB4142( 95,456) > > SVTM052I FROM E2PP.DW801P.WTALZUP.XM.G0520V00 > > SVTM052I TO FTP.DATA.ATRAIL.G0458V00<ftp://FTP.DATA.ATRAIL.G0458V00> > > SVTM052I COMPLETED /SCPA000I > > > > > > > SVTM052I STEP01 COPY FDDB4099( 95,458) > > SVTM052I FROM G12P.DW801P.XTALZUP.XM.G1557V00 > > SVTM052I TO > FTP.DATA.AUDIT.TRAIL.G1568V00<ftp://FTP.DATA.AUDIT.TRAIL.G1568V00> > > SVTM052I COMPLETED /SCPA000I > > > > > SVTM052I STEP01 COPY FDDB4052( 95,516) > > SVTM052I FROM G12P.IBD003.X2BSN1.XM.G2904V00 > > SVTM052I TO FTP.DATA.IAS.G3486V00<ftp://FTP.DATA.IAS.G3486V00> > > SVTM052I COMPLETED /SCPA000I > > Once we have this output dataset having FTP.DATA.**<ftp://FTP.DATA.**> full > name and i > want to write another REXX to put this dataset name into JCL and submit > batch job. > > Can anybody help me with sample REXX for extracting > FTP.DATA.**<ftp://FTP.DATA.**> dataset > from my input dataset and put this dataset name into output file. > > On Mon, May 7, 2018 at 3:41 PM, Lizette Koehler > <stars...@mindspring.com<mailto:stars...@mindspring.com>> > wrote: > >> If this is only for one dataset and the message is in SYSLOG, then the >> MPF list would work. >> >> If there are multiple datasets that need to be available before >> proceeding, then it is getting to be a bit trickier. >> >> Several Scheduling software have Dataset Triggers. And they sometimes >> will monitor for the creation of an SMF Record (Type 30 I think). Then take >> action as described to their process. >> >> Humans can see that datasets are there and then submit jobs. But that >> requires a human to be vigilant and submit the job when all requirements >> are met. >> >> Also, the human has to review the message and ensure the return code is 0 >> before proceeding. >> >> >> So to provide the function for the OP without purchasing a product, will >> be a challenge I think. >> >>1) Monitor
Re: Job submit using REXX
Check with your Netview automation team, this process is easily handled there if this is a critical process it would be the best place to put anyway. Using the right message traps and establishing the proper variables, it would not matter how many data sets are in the process and the return codes could be checked as well to ensure the processing is done at the appropriate time. Most likely a good PIPES guy could do this very quickly. PHIL CARLYLE Information Security | IAM RACF directory services M: 480-235-2837 | phil.carl...@aexp.com<mailto:phil.carl...@aexp.com> TEKSystems “The Universe is made up of Protons, Neutrons, Electrons & Morons!” From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Lizette Koehler Sent: Monday, May 7, 2018 5:41 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Job submit using REXX If this is only for one dataset and the message is in SYSLOG, then the MPF list would work. If there are multiple datasets that need to be available before proceeding, then it is getting to be a bit trickier. Several Scheduling software have Dataset Triggers. And they sometimes will monitor for the creation of an SMF Record (Type 30 I think). Then take action as described to their process. Humans can see that datasets are there and then submit jobs. But that requires a human to be vigilant and submit the job when all requirements are met. Also, the human has to review the message and ensure the return code is 0 before proceeding. So to provide the function for the OP without purchasing a product, will be a challenge I think. 1) Monitor for dataset creation via SVT messages. a) If more than one file has to be sent, then monitor for additional creations before proceeding 2) Ensure message shows 0 return code. Anything else needs to be reviewed 3) Ensure all files are available before the next job is submitted Unless the OP has other requirements, I think the three listed are what are needed. Lizette > -Original Message- > From: IBM Mainframe Discussion List > <IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU>> On Behalf Of > Lizette Koehler > Sent: Monday, May 07, 2018 5:25 AM > To: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU> > Subject: Re: Job submit using REXX > > If it is only in the STC Job log, or other DD statement, then no. > > The request would then require something like ISFEXEC (SDSF REXX) and it > would not be real time. It would then have to be run at a frequency that > makes sense. > > Anything not presented to the SYSLOG/OPERLOG would not be seen by the MPF > exit. > > Lizette > > > > -Original Message- > > From: IBM Mainframe Discussion List > > <IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU>> On > > Behalf Of Elardus Engelbrecht > > Sent: Monday, May 07, 2018 12:43 AM > > To: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU> > > Subject: Re: Job submit using REXX > > > > Lizette Koehler wrote: > > > > >This process can be done by using a trap for a message on your system. > > >MPF Exit might work > > >CBTTAPE.ORG<https://isolate.menlosecurity.com/1/3735928037/http:/CBTTAPE.ORG> > > > might have a process you can tailor Any Scheduling > > >software will have a file trigger function This is more complicated > > >without scheduling software. You will need to find a process that > > >monitors for messages and then provides an action for that message > > > > Those SVTM messages are shown inside the STC (Connect Direct), not in > SYSLOG. > > > > Will your suggestions work in that scenario? > > > > > > venkat kulkarni wrote: > > > > >> We have requirement of setting up process of handling FTP and then > > >> submit Job with FTP dataset. The process goes like this, > > > > Use automation for submission, checking/monitoring these actions and > > then submit another job using REXX to process your datasets. > > > > > > >> SVTM052I STEP01 COPY FDDB4142( 95,456) > > >> SVTM052I FROM E2PP.DW801P.WTALZUP.XM.G0520V00 > > >> SVTM052I TO > > >> FTP.DATA.ATRAIL.G0458V00<ftp://FTP.DATA.ATRAIL.G0458V00> > > >> SVTM052I COMPLETED /SCPA000I > > > > >> So, basically we want to capture these dataset names from this > > >> message > > SVTM052I and send message to operator that file has been received and > > then submit one batch Job by putting this file name. > > > > Rather, have that transfer job send out a mess
Re: Many arguments to a Rexx function call
Found this in an IBM publication (SA32-0982-00): When you invoke a REXX exec either implicitly or explicitly using the EXEC command. You can pass either one or no arguments to the exec. Thus the ARG instruction in the preceding examples received only one argument. One argument can consist of many words. The argument, if present, will appear as a single string. Phil Carlyle TEKSystems IAM RACF From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Phil Carlyle Sent: Monday, April 9, 2018 11:52 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Many arguments to a Rexx function call Ok gentlemen, I’m going to jump in on this but because I’m not sure of the implementation of the REXX code in question I may be a little off. Basically, if the code is running under TSO batch or online there is only “1” argument passed to the code. There is a limitation on how long that may be, I think 255 bytes or something like that. As for the number of parameters that is of no concern and neither is the method of separation. If you are indeed passing spaces, commas, or quotes, you will have to code for these. The following would be valid. Ex REXXCODE ‘(‘ab c’), mommy, daddy, ‘1234 main street’, ‘Columbus, oh’, ‘help me’ ’ In the REXX Parse is would look like this PARSE UPPER ARG PARAM_LISTNote: the UPPER is the default PARAM_LIST = (‘AB C’), MOMMY, DADDY, ‘1234 MAIN STREET’, ‘COLUMBUS, OH’, ‘HELP ME’ The code would then have to know what to look for and parse the various parameters from the list. No magic, no rules. Phil Carlyle TEKSystems IAM RACF From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU>] On Behalf Of Gerhard Adam Sent: Monday, April 9, 2018 9:29 AM To: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU> Subject: Re: Many arguments to a Rexx function call If you need to include all 22 arguments, just make the last one bigger and parse it a second time to get the results. For example: 01 /* REXX */ 02 rs = ALERTSN(SEV,TYPENAME,ELEMENT,DESC,STATUS,STSDESC,, 03 SUBSRC,SOURCE,LOCATION,SYSTYPE,PLTFTYPE,IMPACT,HOST,, 04 MONENV,RESOURCE,EXTRINFO,ACTIVE,CLOSING,FTPERR,, 05 APPLTYPE APPLNAME UNIQUE) 06 EXIT 0 07 ALERTSN: 08 SAY ARG() 09 SAY ARG(1) 10 SAY ARG(5) 11 SAY ARG(9) 12 SAY ARG(10) 13 SAY ARG(15) 14 SAY ARG(20) Notice that the last argument is separated by spaces to combine them all as a single argument. Adam -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU><mailto:IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU>>] On Behalf Of Jantje. Sent: Monday, April 09, 2018 9:12 AM To: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU><mailto:IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU>> Subject: Re: Many arguments to a Rexx function call On Mon, 9 Apr 2018 09:37:20 -0400, Phil Smith III <li...@akphs.com<mailto:li...@akphs.com><mailto:li...@akphs.com<mailto:li...@akphs.com>>> wrote: >Then you're apparently calling it wrong. I see double commas in the >error >output: that suggests you have doubled commas in the wrong place, >because if they're seen as continuation, ALERTSN won't see them at all. Well... ALERTSN is not seeing any of it. The error message is emitted while ALERTSNB is in control. ALERTSN is never invoked. Cheers, Jantje. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu<mailto:lists...@listserv.ua.edu><mailto: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><mailto:lists...@listserv.ua.edu<mailto:lists...@listserv.ua.edu>> with the message: INFO IBM-MAIN American Express made the following annotations ** "This message and any attachments are 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 message and any attachments is prohibited. If you have received this communication in error, please notify us by reply e-mail and immediately and permanently delete this message and any attachments. Thank you." American Express a ajouté le commentaire suivant le Ce courrier et toute pièce jointe qu'il contient sont réservés au seul des
Re: Many arguments to a Rexx function call
Ok gentlemen, I’m going to jump in on this but because I’m not sure of the implementation of the REXX code in question I may be a little off. Basically, if the code is running under TSO batch or online there is only “1” argument passed to the code. There is a limitation on how long that may be, I think 255 bytes or something like that. As for the number of parameters that is of no concern and neither is the method of separation. If you are indeed passing spaces, commas, or quotes, you will have to code for these. The following would be valid. Ex REXXCODE ‘(‘ab c’), mommy, daddy, ‘1234 main street’, ‘Columbus, oh’, ‘help me’ ’ In the REXX Parse is would look like this PARSE UPPER ARG PARAM_LISTNote: the UPPER is the default PARAM_LIST = (‘AB C’), MOMMY, DADDY, ‘1234 MAIN STREET’, ‘COLUMBUS, OH’, ‘HELP ME’ The code would then have to know what to look for and parse the various parameters from the list. No magic, no rules. Phil Carlyle TEKSystems IAM RACF From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Gerhard Adam Sent: Monday, April 9, 2018 9:29 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Many arguments to a Rexx function call If you need to include all 22 arguments, just make the last one bigger and parse it a second time to get the results. For example: 01 /* REXX */ 02 rs = ALERTSN(SEV,TYPENAME,ELEMENT,DESC,STATUS,STSDESC,, 03 SUBSRC,SOURCE,LOCATION,SYSTYPE,PLTFTYPE,IMPACT,HOST,, 04 MONENV,RESOURCE,EXTRINFO,ACTIVE,CLOSING,FTPERR,, 05 APPLTYPE APPLNAME UNIQUE) 06 EXIT 0 07 ALERTSN: 08 SAY ARG() 09 SAY ARG(1) 10 SAY ARG(5) 11 SAY ARG(9) 12 SAY ARG(10) 13 SAY ARG(15) 14 SAY ARG(20) Notice that the last argument is separated by spaces to combine them all as a single argument. Adam -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU>] On Behalf Of Jantje. Sent: Monday, April 09, 2018 9:12 AM To: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU> Subject: Re: Many arguments to a Rexx function call On Mon, 9 Apr 2018 09:37:20 -0400, Phil Smith III <li...@akphs.com<mailto:li...@akphs.com>> wrote: >Then you're apparently calling it wrong. I see double commas in the >error >output: that suggests you have doubled commas in the wrong place, >because if they're seen as continuation, ALERTSN won't see them at all. Well... ALERTSN is not seeing any of it. The error message is emitted while ALERTSNB is in control. ALERTSN is never invoked. Cheers, Jantje. -- 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 American Express made the following annotations ** "This message and any attachments are 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 message and any attachments is prohibited. If you have received this communication in error, please notify us by reply e-mail and immediately and permanently delete this message and any attachments. Thank you." American Express a ajouté le commentaire suivant le Ce courrier et toute pièce jointe qu'il contient sont réservés au seul destinataire indiqué et peuvent renfermer des renseignements confidentiels et privilégiés. Si vous n'êtes pas le destinataire prévu, toute divulgation, duplication, utilisation ou distribution du courrier ou de toute pièce jointe est interdite. Si vous avez reçu cette communication par erreur, veuillez nous en aviser par courrier et détruire immédiatement le courrier et les pièces jointes. Merci. ** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: COBOL source code quality check for performance
Try this: http://ibmsystemsmag.com/mainframe/trends/whatsnew/cobol-abo/ -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Allan Staller Sent: Thursday, January 25, 2018 7:44 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: COBOL source code quality check for performance Application Performance Analyzer (IBM) STROBE (or successor?) Compuware Both will identify "hot spots" in the code , which can then be repaired. What you are describing in known in the field as "performance engineering". i.e. build the performance into the development cycle, not after the fact. There were several practicioners in the late '90's, but I have not heard of anything recent, -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Arun Sent: Wednesday, January 24, 2018 11:20 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: COBOL source code quality check for performance Hi All, We are doing a big bang mainframe application change that might have an implication on the application's performance. Though we could catch some performance issues during testing, we are also trying to find if there are any products available in the market that can scan through mainframe COBOL code and identify areas that could have a potential performance impact. Please suggest if there is any that is available in the market. Thanks Arun -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ::DISCLAIMER:: -- The contents of this e-mail and any attachment(s) are confidential and intended for the named recipient(s) only. E-mail transmission is not guaranteed to be secure or error-free as information could be intercepted, corrupted, lost, destroyed, arrive late or incomplete, or may contain viruses in transmission. The e mail and its contents (with or without referred errors) shall therefore not attach any liability on the originator or HCL or its affiliates. Views or opinions, if any, presented in this email are solely those of the author and may not necessarily reflect the views or opinions of HCL or its affiliates. Any form of reproduction, dissemination, copying, disclosure, modification, distribution and / or publication of this message without the prior written consent of authorized representative of HCL is strictly prohibited. If you have received this email in error please delete it and notify the sender immediately. Before opening any email and/or attachments, please check them for viruses and other defects. -- -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN American Express made the following annotations ** "This message and any attachments are 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 message and any attachments is prohibited. If you have received this communication in error, please notify us by reply e-mail and immediately and permanently delete this message and any attachments. Thank you." American Express a ajouté le commentaire suivant le Ce courrier et toute pièce jointe qu'il contient sont réservés au seul destinataire indiqué et peuvent renfermer des renseignements confidentiels et privilégiés. Si vous n'êtes pas le destinataire prévu, toute divulgation, duplication, utilisation ou distribution du courrier ou de toute pièce jointe est interdite. Si vous avez reçu cette communication par erreur, veuillez nous en aviser par courrier et détruire immédiatement le courrier et les pièces jointes. Merci. ** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN