Re: JCL Procedure help
Not an answer to your question, but have you looked at the JCL statements SYSTEM, SYSAFF or SCHENV? //Mikael -Original Message- From: IBM Mainframe Discussion List On Behalf Of Gadi Ben-Avi Sent: den 8 februari 2023 13:45 To: IBM-MAIN@LISTSERV.UA.EDU Subject: JCL Procedure help Hi, I was asked to modify a procedure. Currently, the procedure has one step. This step receives input from SYSIN DD * I was asked to add a step that would check that the JOB is running on the correct LPAR. I wrote a small REXX program that check the LPAR, and returns condition code 8 if it's not running on the correct LPAR. I then added an if statement that will run the original step if the previous condition code is 0, and if not will issue a message. The problem is that now the SYSIN DD is allocated to the first step. I know I can code STEP.SYSIN to associate the SYSIN with correct step, but was wondering if there a way to code the procedure in a way so that I won't require changing the way the procedure is used. We are running z/OS v2.3 Gadi -- 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: LHH oddity
The format of LHH is LHH R1,D2(X2,B2). What you get is the halfword at address 2. Mikael Nyström Core Ledger SEB Phone: +46 70 739 48 55 Switchboard: +46 771 62 10 00 Postal Address: A-B9, SE-106 40 Stockholm, Sweden Office Address: Stjarntorget 4 E-mail: mikael.nyst...@seb.se www.seb.se Please consider the environment before printing this e-mail CONFIDENTIALITY NOTICE This e-mail is confidential and may contain legally privileged information. If you have received it by mistake, please inform us by reply e-mail and then delete it (including any attachments) from your system; you should not copy it or in any other way disclose its content to anyone. E-mail is susceptible to data corruption, interception, unauthorised amendment, tampering and virus. We do not accept liability for any such actions or the consequences thereof. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Peter Bishop Sent: den 5 juni 2019 06:30 To: IBM-MAIN@LISTSERV.UA.EDU Subject: LHH oddity This may be better posted elsewhere but I thought I'd start here. Here's the code running on a model 2828, hopefully it formats OK. This is just a very basic test and not intended for production, just to try and experiment with some new instructions. BASR 12,0 USING *,12 open (sysprint,OUTPUT) open the dump file snap dcb=sysprint,id=1, + PDATA=(REGS,PSW) lhi 7,256 llihf 8,256 sr9,9 lhh 9,2 snap dcb=sysprint,id=2, + PDATA=(REGS,PSW) close sysprint BR14 return drop 12 SYSPRINT dcb ddname=SYSPRINT,+ dsorg=PS,recfm=VBA,macrf=(W),blksize=1632,lrecl=125 The question is: why does the LHH never get executed? I tried using MACHINE(ZS-6) but it still somehow goes from the SR straight to the SNAP. I was expecting an operation exception if the opcode was invalid, or an access exception if I didn't have addressability to the second operand. I even single-stepped with Xpediter, which stepped right past the LHH as if it wasn't there. The SNAPs before and after show registers 7 and 8 as expected, but not 9 which remains all zeroes. Obviously I've failed to understand something very basic. Here's the snap after the LHH 64-BIT GPR VALUES 0-3 0048 80007044 0040 009D3D6C 4-7 009D3D48 009F8588 009BCFC8 0100 8-11 0100 12-15 7002 6008 80FD76C0 Would love to know why the LHH isn't working as expected. My reading of POps leads me to think that R9 should be 0002 but I must be reading it wrong. I was trying to find which document says which facilities are on which machine, but the POps wasn't really helpful: although it describes the facilities in detail it is not clear which models have which facility, in particular which have the "high-word facility" that provides LHH and its ilk. Thanks in advance for any insight you can offer. best regards, Peter -- 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: z/OS BDAM question
If you use the Relative Block Address the dataset can be much larger. Mikael Nyström Core Ledger SEB Phone: +46 70 739 48 55 Switchboard: +46 771 62 10 00 Postal Address: A-B9, SE-106 40 Stockholm, Sweden Office Address: Stjarntorget 4 E-mail: mikael.nyst...@seb.se www.seb.se ? Please consider the environment before printing this e-mail CONFIDENTIALITY NOTICE This e-mail is confidential and may contain legally privileged information. If you have received it by mistake, please inform us by reply e-mail and then delete it (including any attachments) from your system; you should not copy it or in any other way disclose its content to anyone. E-mail is susceptible to data corruption, interception, unauthorised amendment, tampering and virus. We do not accept liability for any such actions or the consequences thereof. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Frank M. Ramaekers Sent: den 24 oktober 2018 20:22 To: IBM-MAIN@LISTSERV.UA.EDU Subject: z/OS BDAM question I'm a z/VM and z/VSE shop, but we do have a z/OS system and someone in IT want to know if BDAM can be larger than 65535 tracks. Is this limitation per extent or entire file size. >From the z/VSE LISTSERV: I believe it is 65K tracks per extent with a maximum of 255 extents for BDAM, but I can't find any doc to verify that right now. Frank M. Ramaekers Jr. | Systems Programmer | Information Technology | American Income Life Insurance Company | 254-761-6649 (732-6649) -- This message contains information which is privileged and confidential and is solely for the use of the intended recipient. If you are not the intended recipient, be aware that any review, disclosure, copying, distribution, or use of the contents of this message is strictly prohibited. If you have received this in error, please destroy it immediately and notify us at privacy...@torchmarkcorp.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: How the determine dataset is PDSE
I haven't read all posts in this thread, but what about ISITMGD? Mikael Nyström Core Ledger SEB www.seb.se Please consider the environment before printing this e-mail CONFIDENTIALITY NOTICE This e-mail is confidential and may contain legally privileged information. If you have received it by mistake, please inform us by reply e-mail and then delete it (including any attachments) from your system; you should not copy it or in any other way disclose its content to anyone. E-mail is susceptible to data corruption, interception, unauthorised amendment, tampering and virus. We do not accept liability for any such actions or the consequences thereof. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Paul Gilmartin Sent: den 7 oktober 2015 00:29 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: How the determine dataset is PDSE On Tue, 6 Oct 2015 11:35:41 -0700, Charles Mills wrote: >Sure. The OP just asked PDS/PDSE so I focused on that. > >Lots of variations. What about dataset accessed as a QSAM file but actually >PDS/PDSE member? FWIW the distinction goes away for USS -- every file is a >"member" of a directory. > Sometimes that directory and membership are fictitious, as for /dev/fd/0. And ISPF is woefully ignorant of the similarity. For example, if in DDLIST I select a PDS with V(iew), DSLIST opens a member list with View as the point-and-shoot selection default. If in UDLIST I select a UNIX directory with V(iew), I get a failure, "Invalid file type". Why doesn't UDLIST do as DSLIST does and show a list of members in that directory? As for the sequential allocation of a PDS member you mention, I was dismayed to learn that OPEN sets DCBDSORG to PO, not PS. -- 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