Re: Getting 4088/00000063 in CICS
PTF was already applied. Module at UI83147. Looked at save area pointed to by TCAREGPT and it looks fine. What precisely is LE complaining about? On Thu, 23 May 2024 06:56:34 +1000 Attila Fogarasi <05b6fee9abb7-dmarc-requ...@listserv.ua.edu> wrote: :>Sounds like you don't have PH24895 applied. The program issued abend :>causes syncpoint rollback, which then drives the TRUE exits that are :>registered for sync. LE is getting the TRUE RSA instead of for the last :>EXEC CICS call. Fixed by PH24985. :> :>On Thu, May 23, 2024 at 4:46?AM Binyamin Dissen :>wrote: :> :>> XPOST to CICS and IBM-MAIN :>> :>> I have a program that does an EXEC CICS LINK to another program that issues :>> EXEC CICS ABEND. :>> :>> CICS then generates a 4088/0063 :>> :>> I notice that the R12 in the program issuing the abend is a CAA, but it is :>> different than the CAA pointed to out of the TCA. Does EXEC CICS LINK :>> cause a :>> new enclave? :>> :>> Doing VERBX LEDATA SM CEEDUMP for the CAA in R12 gets the message :>> :>> "An invalid DSA pointer was found on traceback while processing DSA:" :>> :>> The heap stuff formats perfectly fine. No storage errors. :>> :>> The R13 is valid and I can see the back chains. :>> :>> What does that message mean? Which fields is LEDATA looking at? :>> :>> Also, the TCA CAA shows the same results. Heap fine, then the message. :>> :>> -- :>> Binyamin Dissen :>> http://www.dissensoftware.com :>> :>> Director, Dissen Software, Bar & Grill - Israel :>> :>> -- :>> 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 -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Getting 4088/00000063 in CICS
XPOST to CICS and IBM-MAIN I have a program that does an EXEC CICS LINK to another program that issues EXEC CICS ABEND. CICS then generates a 4088/0063 I notice that the R12 in the program issuing the abend is a CAA, but it is different than the CAA pointed to out of the TCA. Does EXEC CICS LINK cause a new enclave? Doing VERBX LEDATA SM CEEDUMP for the CAA in R12 gets the message "An invalid DSA pointer was found on traceback while processing DSA:" The heap stuff formats perfectly fine. No storage errors. The R13 is valid and I can see the back chains. What does that message mean? Which fields is LEDATA looking at? Also, the TCA CAA shows the same results. Heap fine, then the message. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How to convert these IMS unload files from EBCDIC to UTF-8 encoding.
On Tue, 21 May 2024 15:01:12 + "Schmitt, Michael" wrote: :>3. Depends on the language. IMS can have variable length segments but not variable length fields, so any variable length fields are defined by the application. If the application is in COBOL, there's no native variable length field format. Applications can simulate variable length fields but how they do it is in application logic. Well, I don't know about that. 01 var-field-length pic s9(4) comp. 01 var-field. 05 var-field-character pic x occurs 1 to 1000 times depending on var-field-length. When a MOVE is performed to or from VAR-FIELD the length from VAR-FIELD-LENGTH is used. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How to convert these IMS unload files from EBCDIC to UTF-8 encoding.
On Tue, 21 May 2024 04:08:16 -0500 Jason Cai wrote: :>In the IMS system I work on, 99% of the segment fields are not defined in the DBD. >From my IMS recollection, that is typical. The application code has maps of the segments. Only fields used in searches needed to be defined. So if you think you can ignore the segment data in the download/conversion .... -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Dump Analysis Best Training / Documentation
Well, is it a hang or a loop? Do a few D J,jobname to see if the CPU is going up. Then issue the DUMP command to trap it. If a loop, look at the system trace table. It may be constantly reissuing an SVC, such as not clearing an ECB and reissuing the WAIT (yes, I have done that). Or you will see a lot of clock interrupts indicating a harder loop but you will see the PSW location. If a WAIT, you will need to examine the various tasks to see why. Will be more complex. On Sun, 19 May 2024 20:41:51 -0500 Steve Estle <05dcac13570d-dmarc-requ...@listserv.ua.edu> wrote: :>Hello All, :> :>Way back in the day I used to read dumps fairly handily in the MVS/XA era. But have been away for so long I know things have evolved but appears everything is basically still intact relative to ASCB to PRB relationships. I'm working on a hang/loop condition that prevents started task from being stopped normally (P STC) and have taken SVC dump and want to interpret it. I'm somewhat fluent with IPCS and can bring up via panels, but from there am struggling with where to go to identify where the hang/loop condition is happening. :> :>Any shares of doc, presentations, tips, etc. are much appreciated as I still think this is one of the lost arts that in the end to be a top notch systems programmer you need to be able to interpret. I know IBM used to teach whole classes on this but believe much of that has gone way of dodo bird... :> :>Thanks in advance. :> :>Steve Estle :> :>-- :>For IBM-MAIN subscribe / signoff / archive access instructions, :>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Assembler/compiler fun
On Tue, 7 May 2024 12:58:22 -0400 Phil Smith III wrote: :>See code produced by different compilers. (Search for "s390x" in the "choose compiler" box to find the Z compilers) :>https://godbolt.org/ :>What strange hobbies some people have! (I'm including myself there) Do you have any particular interesting examples? -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Continuing a reply during IPL
On Sat, 4 May 2024 08:57:52 -0500 Giliad Wilf <00d50942efa9-dmarc-requ...@listserv.ua.edu> wrote: :>On Sat, 4 May 2024 03:55:45 -0500, Giliad Wilf wrote: :>>On Mon, 22 Apr 2024 15:17:47 +0300, Binyamin Dissen wrote: :>>>Saw the example, tried with and without quotes. No luck. . :>>Sorry, I only saw this post yesterday. :>>I've forced IPL to issue msg. IEA101A by changing IMSI char. from M to T in IPL parameter. :>>First, I've specified SYSP=DW, because our LOADxx specifies 'SYSPARM DW'. :>>The list of SYSP suffixes must be completed on a single response and can't be split... . :>Much to my embarrassment I did not test the same case. :>After deliberately messing with the PROG list, replacing a comma with a period, I could not respecify the PROG list split into two and had to respecify the entire list in a single response...[sigh]. :>Fortunately enough, respecifying the entire list did not exceed 80 chars. (the maximum)... To my luck there were various PROG= entries that didn't exist, so finally I made a working list that worked in one reply. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Does Any one Agree WIth Me (SSI UNDO)
On Sat, 4 May 2024 21:53:59 GMT "esst...@juno.com" wrote: :>In developing an SSI initialization routine, it would be useful to backout any changes made. :>i can release Storage in an ESTAE routine, but I can't "undo' any changes made using IEFSSI macro - :>I cant remove the SSVT ect . To me it would be helpful during development if there was IEFSSI TYPE=BACKOUT, :>so that any changes made in the SSI initialization routine relating to define and initializing a subsystem would be backed out. :>This would also be useful in a ESTAE routine. :>Also being able to COMMIT the changes might also be useful. Once you kill the SSVT the subsystem will not affect anything. There is no way the system can know what your SSI did to be able to back it out. If you allocated storage and hung it off of the SSCT, you can free it. You can hang new storage off of the SSCT. You can reestablish the SSVT. I believe that you can even change the name in the SSCT w/o bad effects (if you no longer wish for the SSCT to be matched) I fail to see a business case for your request. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: 0C4 pic 11 in stimer exit on retry
All together now - "Show the code". On Fri, 3 May 2024 12:55:22 -0400 Joseph Reichman <05812645a43c-dmarc-requ...@listserv.ua.edu> wrote: :>I have recovery routine which got control on abend of stimer exit irb :>On retry I am getting S0C4 PIC 11 reloading my registers from the system :>primed r13 I check 13 on input before the abend and at the retry point and :>it has the same value :>When I abend in the stimer exit does the system do anything to my save area :>R13 -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: JES3 adding a SYSOUT class requires restart?
Does it have to be defined? What happens when you use it? (Been many years since I used JES3) On Wed, 24 Apr 2024 11:45:19 -0400 IBM user wrote: :>Hi group, :> :>I am new to JES3 systems and am told that to add a new SYSOUT class requires a restart of JES3. Is that the case? :> :>The only thing I can find about modifying the config the *MODIFY,CONFIG command :> :>which can change these items. :> :>SNA RJP :>RJPWS - SNA RJP workstation characteristics :>CONSOLE - SNA RJP consoles :>DEVICE - SNA RJP devices :>Non-channel attached FSS printers :>FSSDEF - Functional Subsystem Definition :>DEVICE - for non-channel attached FSS printers :>Network Job Entry :>DESTDEF - destination definitions -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Continuing a reply during IPL
Saw the example, tried with and without quotes. No luck. On Mon, 22 Apr 2024 05:58:20 -0500 Steve Horein <05b0b4f1358b-dmarc-requ...@listserv.ua.edu> wrote: :>I found this example in the doc ( :>https://www.ibm.com/docs/en/zos/2.4.0?topic=command-specifying-system-parameters1 :>): :>R 00,'MLPA=(00,01,02,CONT' IEA116A CONTINUE SYSTEM PARAMETERS R :>00,'03,L),BLDL=02' :> :>Perhaps single quotes are required, or fully padded '00' replyID? :>A search in the commands doc did not reveal an explicit topic: :>https://www.ibm.com/docs/en/search/CONT?scope=SSLTBW_2.4.0=ieag100 :> :>On Mon, Apr 22, 2024 at 4:37?AM Binyamin Dissen :>wrote: :> :>> I had an occasion where the IEASYS PROG= entry was messed up (period in :>> place :>> of a comma). Cannot access the data. :>> :>> Using a similar system I worked out a PROG= list to use, however the list :>> was :>> too long for the reply command. :>> :>> I was able to specify R 00,PROG=(list,CONT :>> :>> and was prompted to continue but could not figure out how to specify the :>> continuation. :>> :>> R 0,continuelist) :>> :>> was rejected :>> :>> R 0,PROG=(remaininglist) :>> :>> overrode the list. :>> :>> Should I ever have a similar issue, how can I continue the reply? -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Continuing a reply during IPL
I had an occasion where the IEASYS PROG= entry was messed up (period in place of a comma). Cannot access the data. Using a similar system I worked out a PROG= list to use, however the list was too long for the reply command. I was able to specify R 00,PROG=(list,CONT and was prompted to continue but could not figure out how to specify the continuation. R 0,continuelist) was rejected R 0,PROG=(remaininglist) overrode the list. Should I ever have a similar issue, how can I continue the reply? -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- 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 free format only Abend-Aid program?
It isn't an print format. On Wed, 17 Apr 2024 19:43:24 + "Schmitt, Michael" wrote: :>I'm wondering what you mean. When we used Abend-AID, it did produce a readable format. It was a like a SYSUDUMP but better. :> :>Do you mean some kind of internal abend capture file? Like an IBM Fault Analyzer fault history entry? :> :>-Original Message- :>From: IBM Mainframe Discussion List On Behalf Of Binyamin Dissen :>Sent: Wednesday, April 17, 2024 2:37 PM :>To: IBM-MAIN@LISTSERV.UA.EDU :>Subject: Is there a free format only Abend-Aid program? :> :>I have a received what appears to be an abend-aid dump. :> :>Is there a free formatter for it (not the full product, just the ability to :>format the dump into a readable format)? -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Is there a free format only Abend-Aid program?
I have a received what appears to be an abend-aid dump. Is there a free formatter for it (not the full product, just the ability to format the dump into a readable format)? -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
What is IEANTRTR in Authorized Assembler Services Reference?
I was looking to see if this was supported in 2.4, but didn't find it in Assembler Services Reference. But it also wasn't in 2.5. Then checked the other manual and found it. This macro does not need any authorization. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Attributes of an assemler symbol
I don't see an obvious way to use it in macro code. N' already has a meaning, the number of items in a list. On Mon, 1 Apr 2024 13:38:22 + Seymour J Metz wrote: :>The obvious answer, which, alas, isn't supported, would be the N' attribute. RFE? :> :>-- :>Shmuel (Seymour J.) Metz :>http://mason.gmu.edu/~smetz3 :>??? ?? ??? :>?? ??? ?? :> :> :>From: IBM Mainframe Discussion List on behalf of Binyamin Dissen :>Sent: Sunday, March 31, 2024 4:53 AM :>To: IBM-MAIN@LISTSERV.UA.EDU :>Subject: Attributes of an assemler symbol :> :>Given :> :> FOO DS 10CL5 :> :>which attribute / macro function extracts the repetition count - 10 :> :>I assume that it must exist but I am not finding it. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Attributes of an assemler symbol
Count attribute (K') The count attribute applies only to macro instruction operands, to SET symbols, and to the system variable symbols. It has a numeric value equal to the number of characters: On Sun, 31 Mar 2024 09:59:08 -0500 Stephen Donaldson wrote: :>Try: K' for the count. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Attributes of an assemler symbol
Given FOO DS 10CL5 which attribute / macro function extracts the repetition count - 10 I assume that it must exist but I am not finding it. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SSI Corrupted Registers
On Sat, 30 Mar 2024 22:44:30 GMT "esst...@juno.com" wrote: :>I am looking at Sub System Interface Function Codes 04, 08, 10. and 50. : :>I Understand there's a protocol for providing response codes using SSOBRETN and Register 15 - :. :>What if upon entry to an SSI Function Routine Register 1 and Register 0 are corrupted or the respective eyecatcher's :>in the SSOB and/or SSCVT are not what is expected ? :>I don't think abending is acceptable as I suspect that would stop the scan of the SSCVT chain ? Correct ? : :>So what is the recommended action when Register 1 or Register 0 have been corrupted upon entry :> to a SSI Function Routine ? Assuming this is a true routine hung of the SSVT and not hooking SSI, to get to the subsystem requires that the SSIB points to your subsystem and the SSOB is a function you requested. I wouldn't even bother checking as it would require serious failures in MVS to get there. If hooking SSI, I would just pass it on. I remember code I saw that checked for MVS, and if not issued a WTO (SVC 35), which quite probably would cause other trouble to an OS that might not properly understand the SVC. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IGGCSI00 Catalog Search interface
Sadly there are several fields which require the use of REXX LISTDSI which uses an undocumented API to get those fields. To invoke LISTDSI requires being in a TSO environment. On Thu, 14 Mar 2024 08:19:36 -0500 Don Johnson <02ee771a0785-dmarc-requ...@listserv.ua.edu> wrote: :>Good morning! :>I am working with the IGGCSI00 module, and have looked at the field descriptions and think I am missing something. :>Does anyone know the CSI field name and format where I can discover if a file is a BASIC or LARGE DSNtype? -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
With IBM planning (planned) dropping support for SNA / 802.3
With IBM planning (planned) dropping support for SNA / 802.3, does that mean that application code using LU6.2 will stop working? Or will VTAM continue to support LU6.2 code? -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- 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
A task RESMGR will not be invoked if there is a memory failure. And the address space manager will not stop the message. It will get control after the memory ends (running in *MASTER*) but it is not relevant to the issue, which is, as usual, missing doc. Look at earlier messages to determine why you had the failure. The message reporting on it is not a problem. On Thu, 14 Mar 2024 09:27:20 -0500 Wayne Driscoll <05791921711d-dmarc-requ...@listserv.ua.edu> wrote: :>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 -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- 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
Look at earlier messages. On Wed, 13 Mar 2024 19:07:36 -0400 Joseph Reichman <05812645a43c-dmarc-requ...@listserv.ua.edu> 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 -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: BASE64 Decode / EPOCH Conversion Code Samples
On Sat, 9 Mar 2024 14:34:35 -0600 Paul Gilmartin <042bfe9c879d-dmarc-requ...@listserv.ua.edu> wrote: :>There's an ambiguity. If you don't know whether your base64 is represented :>in ASCII or EBCDIC, suppose it contains the character at code point x'4E'. :>You don't know whether that's an EBCDIC '+' or ASCII 'N'. It matters. It is the character set of the platform. The base64 source is supposed to be transmitted as text so whichever platform receives it expects 'A' to be 'A' in their character set. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: BASE64 Decode / EPOCH Conversion Code Samples
On Sat, 9 Mar 2024 00:21:32 -0600 Paul Gilmartin <042bfe9c879d-dmarc-requ...@listserv.ua.edu> wrote: :>>It is a means of converting binary data to commonly printable characters :>>(typically A-Z a-z 0-9 + /) that can then be shipped in a non-binary manner. :>To an assembler program it is almost certain to matter whether "A-Z a-z 0-9 + /" :>are in ASCII or EBCDIC representation. Actually not, as the base64 document survives character conversion. An assembler routine running using EBCDIC will provide the same result (with EBCDIC) as the routine running using ASCII with ASCII, i.e., 'A' translates to the same binary code on both systems. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: BASE64 Decode / EPOCH Conversion Code Samples
Base64 has nothing to do with EBCDIC. It is a means of converting binary data to commonly printable characters (typically A-Z a-z 0-9 + /) that can then be shipped in a non-binary manner. A simple duck-duck-go search will show examples. My first C program was a base 64 converter. On Wed, 6 Mar 2024 06:11:01 + Frank Bonaduce <05e50174f43c-dmarc-requ...@listserv.ua.edu> wrote: :>Hello Folks. Is anyone aware of where one might locate any sample assembler code, macros or APIs to perform the following: :>- Base64 Decoding (to EBCDIC)- EPOCH Conversion :>Thanks in advance for the assistance. Frank. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Can DFSORT assign custom Return Code values?
Not exactly sure what you are trying to do, but . it should be a simple rexx procedure /* REXX */ STRING = "TEST PROD WHATEVER" RCS = "4 8 12" DO JJ = 1 TO WORDS(STRING) IF WORD(STRING,JJ) = ARG(1) THEN RETURN WORD(RCS,JJ) END RETURN 102 Invoke it with // EXEC PGM=IKJEFT1B,PARM='%SILLYREX ' And this step will set RC to the translated string value. On Mon, 4 Mar 2024 16:01:51 + Cameron Conacher <03cfc59146bb-dmarc-requ...@listserv.ua.edu> wrote: :>Hello everyone, :>From what I have read this is not possible, but I decided to throw it out there to see if something is possible. :> :>I have a block of JCL with a bunch of steps. :>I have symbolic parameters assigned. (JP1/JP2 SYSPLEX Symbolics for DFSORT) :> :>I was looking for a Utility that would examine the value of a Symbolic and assign a User Return Coe value. RC1 = Development; RC2 = Pre-Production; RC3 = Production? :>I need a Return Code value to be able to conditionally execute subsequent JOB steps. I cannot execute steps conditionally based on Symbolic Variable values. :>IF Step001.RC = 0 .Development :> :>I could write a tine program to do this. :>I was hunting around for a utility to do this. :>DFSORT is my go to Utility but as mentioned, I believe it is not suitable for this task. :>I believe I could set RC0 or RC4 or RC16. RC0 and RC4 generate a message and continue, but RC16 generates a message and terminates. I think this (Termination) would be unsuitable. :> :>I was to be able to assign one of three different Return Code values (any value) that I can let check to determine if I am running in Development, Pre-Prod or Production, and then execute steps related to the specific environment. :>Not something I absolutely need since I could write a tiny program for this. :> :>Just curious, and I think my ADHD has just sent me down another rabbit hole ? :> :>I could do this in Easytrieve. Or COBOL. Or Assembler. Or Rexx. Or .. :> :>Hope this makes sense. :> :>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 :> :> :> :> :>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 lexpé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 -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Recovery routine for IRB
On Sat, 2 Mar 2024 06:21:34 -0800 Ed Jaffe <05acc3c79bf7-dmarc-requ...@listserv.ua.edu> wrote: :>On 3/2/2024 5:46 AM, Peter Relson wrote: :>> Regarding the response about "why CIRB", it was not really on point. You likely do not need to build/touch IQE/IRB. The parameters on SCHEDIRB (such as EPPTR, MODE, KEY et al) generally cover all the pieces of data that you would set in the IRB. They do cover all that you showed in your code example. It is documented that SCHEDIRB is suggested rather than CIRB. :>Of course, I read about CIRB and the "exit effector" many times in the :>pubs, but FWIW have always, Always, ALWAYS used SCHEDIRB in practice. :>Never once coded CIRB nor ever been tempted to do so... Boomer. Some of us had to walk miles to find an IQE. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Question on BUILDMCS
The BUILDMCS will run w/o the DISTLIBs, but you will need to preserve the DISTLIBs to get source for the RELFILEs. The target stuff would be built by the SMP apply process. On Mon, 26 Feb 2024 20:03:17 + Allan Staller <0387911dea17-dmarc-requ...@listserv.ua.edu> wrote: :>Classification: Confidential :> :>I am in the process of performing a BUILDMCS for the 1st time. This is to preserve some products no longer orderable from IBM. :>I have RTFM'ed the manuals (SMP/E User's Guide and SMP/E Commands), and the actual requirements are unclear. :> :>When I look at the SMPPUNCH I see stuff like: :>++MAC(x) distlib( ) fromdsn() number(2) vol() . :> :>I presume number(x) is the relfile number AND fromdsn is the current location of the item. :> :>Do I need to physically preserve the current target/distlibs for this product to the build MCS can be executed? -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SMP Packaging a PTF module replacement.
On Wed, 21 Feb 2024 07:00:23 -0600 Joe DeChirico <05694ada0b0a-dmarc-requ...@listserv.ua.edu> wrote: :>I have been trying to package a ptf using smpe and appear to be missing something, I have attached the job that I submitting Can anyone give me some idea about what I am doing wrong? JCL error? SMP abend? SMP messages? -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Nanosecond resolution timestamps for HLL's?
I don't understand how you will use this. What is the business purpose? On Sun, 18 Feb 2024 18:22:53 -0600 Peter Farley <031df298a9da-dmarc-requ...@listserv.ua.edu> wrote: :>I have been reviewing all the documentation I can find to provide nano-second resolution timestamps from a calling HLL batch program. STCK and STCKE instructions of course provide this (and more) resolution, but using them from any HLL besides C/C++ requires an assembler subroutine (however simple that may be for those of us who are already comfortable in assembler). In shops where any new assembler functionality is proscribed or strongly discouraged can't or would strongly prefer not to use assembler for this functionality. :>The only HLL-callable function already provided in z/OS that I can find that provides anything near that resolution is the LE Callable Services function CEEGMT, but two calls to that service from a COBOL program in a row separated by only a few calculations and a DISPLAY to SYSOUT produce identical values. This is not good enough for high-volume processing needs. Every request for a time value needs to generate a new higher value. :>Is there any other place I am not yet looking which provides nano-second resolution like STCK/STCKE and the linux function clock_gettime() besides an assembler invocation of STCK/STCKE? z/OS Unix has not yet implemented the clock_gettime() function anyway, so that is off the table. The calling HLL here will be COBOL, so the C/C++ builtin functions "__stck" and "__stcke" are not available. Would that they were, but they are not at this time. (Maybe that calls for a new "idea" to IBM . . . ?) :>HTH for any pointers or RTFM you can provide. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Data space dump with SDUMPX
Not a clue. You will probably have to open problem report with IBM. On Mon, 5 Feb 2024 14:51:15 +0100 Schühle, Simon wrote: :>Thank you for your suggestions. :> :>So I included an ASIDLST to be specific when using SDUMPX. :>CFB RTCT/IEAVDUMP show little differences between the two dumps. :>Both show the ASIDs of the three software instances. :>'92'/'9C' are the ASIDs of the other instances. :>'BC' is the one that I am interested in. :> :>Excluding most of the identical data, I get: :> :>DUMP Command: :> :>X'0092' JOBNAME: AJS1 :>X'009C' JOBNAME: AJS5 :>X'00BC' JOBNAME: AJS4 :> :>==> FLAGS SET IN SDUFLAG0: Schedule dump request ASID specified. :>==> FLAGS SET IN SDUTYP1: Type XMEMT specified. :>==> FLAGS SET IN SDUEXIT: Server exits to get control. :>==> FLAGS SET IN SDUFLAG3: SDUMP was invoked by DUMP command. :> :> SDAS SDF4 SDF5 :> :>001 0092 80 00 :>002 009C 80 00 :>003 00BC 80 00 :>004 00 00 :>[...] and :>ESEQ. ECPU. EASD. ETIM. :>SYO.. FC80 SDO.. 0900 SDNA. 03 INDX. 03 :>and :>QDDS. 01C31BF8 DPLF. 0335D000 DPLB. 0335D000 CIDI. :>0016 :>PCNT. 0003 :>-- :> :>SDUMPX: :> :>DUMP OF ASIDS: :> X'00BC' JOBNAME: AJS4 :> X'009C' JOBNAME: AJS5 :> X'0092' JOBNAME: AJS1 :>==> FLAGS SET IN SDUFLAG1: ASIDLIST specified. :> :> SDAS SDF4 SDF5 :> :>001 00BC 80 00 :>002 009C 80 00 :>003 0092 80 00 :>004 00 00 :>[...] and :>ESEQ. 201A ECPU. EASD. 00BC ETIM. 0007E996 :>SYO.. FC80 SDO.. 0900 SDNA. 03 INDX. 01 :>and :>QDDS. 01C31BF8 DPLF. 03315000 DPLB. 03315000 CIDI. :>0018 :>PCNT. 0005 :> :>-- :> :>More information I can think of: :>SDUMPX is executed in the jobs task manager's ESTAE when one of its :>subtasks abends. :>The data spaces are created with SCOPE=SINGLE :>I tried using TYPE=XMEME with SDUMPX, but the result did not change. :> :>Kind regards, :>Simon :> :>Am 02/02/2024 um 09:12 schrieb Binyamin Dissen: :>> On Thu, 1 Feb 2024 15:41:29 + Jim Mulder wrote: :>> :>> :>What is displayed by this IPCS command for your dump? :>> :>> :>CBF RTCT :>> :>> Is that what IEAVDUMP invokes? :>> :>> Otherwise I would try that as well. :>> :>> :>Jim Mulder :>> :> :>> :>-Original Message- :>> :>From: IBM Mainframe Discussion List On Behalf Of Schühle, Simon :>> :>Sent: Thursday, February 1, 2024 8:17 AM :>> :>To: IBM-MAIN@LISTSERV.UA.EDU :>> :>Subject: Re: Data space dump with SDUMPX :>> :> :>> :>So, just some additional details. :>> :>My DUMP Command would look like this: :>> :> :>> :>DUMP COMM=(DSPTST),DSPNAME=('*'.1EDB),SDATA=(SUM,CSA,RGN),END :>> :> :>> :>Compared to the SDUMPX code I posted earlier, it's basically the same. :>> :>But with DUMP I get the following result in the dump: :>> :> :>> :>ASID(X'0092') DSPNAME(1EDB) :>> :> 40.:7F. :>> :>X'40' bytes described in ASID(X'0092') DSPNAME(1EDB) :>> :> :>> :>ASID(X'0094') DSPNAME(1EDB) :>> :> 40.:437FFF. :>> :>X'038000' bytes described in ASID(X'0094') DSPNAME(1EDB) :>> :> :>> :>ASID(X'009C') DSPNAME(1EDB) :>> :> 00.:0FFF., 10.:7F. :>> :>X'701000' bytes described in ASID(X'009C') DSPNAME(1EDB) :>> :> :>> :>The last one is the one I want and the one that isn't included when using SDUMPX. :>> :> :>> :> :>> :>Am 01/02/2024 um 12:11 schrieb Schühle, Simon: :>> :>> Well, this does result in none of the data spaces I am looking for :>> :>> showing up in the dump. :>> :>> Many others show up, so I suspect that the limit for the amount of :>> :>> dumped data spaces was reached before. :>> :>> :>> :>> But also, when using the DUMP command, the correct data space is :>> :>> included in the dump. :>> :>> Wouldn't that suggest, that the data space is in memory? :>> :>> Or is it handled differently compared to SDUMPX? :>> :>> :>> :>> Thank you, :>> :>> Simon :>> :>> :>> :>> Am 01/02/2024 um 09:17 schrieb Binyamin Dis
Re: Registers in the RB
I have a suggestion. Try writing an IPCS CLIST that does the formatting you want. Try it on multiple dumps. When you get the CLIST worked out, then perhaps consider putting it in a recovery routine. On Sun, 4 Feb 2024 12:53:16 -0500 Joseph Reichman wrote: :>And they are in the manual you previously :> :>Posted ? :> :> :>Just for clarity sake :> :>Just ran a small test :> :>For the interrupt PSW which in the case of some PRB s might have a cde :> :>The registers that go along with that RBOPSW :>Are always in the next rb :> :>Regardless of the cause of the interrupt :> :>Hope this is right :> :>Thank you very much all :> :>> On Feb 4, 2024, at 11:49?AM, Seymour J Metz wrote: :>> :>> ?Yes, expressed in hexadecimal. Systems Codes has a complete list of program interrupt codes that can cause an S0C4 if not intercepted. :>> :>> -- :>> Shmuel (Seymour J.) Metz :>> http://mason.gmu.edu/~smetz3 :>> ??? ?? ??? :>> ?? ??? ?? :>> :>> :>> From: IBM Mainframe Discussion List on behalf of Joseph Reichman :>> Sent: Sunday, February 4, 2024 11:45 AM :>> To: IBM-MAIN@LISTSERV.UA.EDU :>> Subject: Re: Registers in the RB :>> :>> :>> Seymour :>> :>> When you say for example IC10 you are referring what would be in RBINTCOD correct ? :>> :>>> On Feb 4, 2024, at 11:33?AM, Seymour J Metz wrote: :>>> ?Since OS/VS, interrupt code 04 is less common amd an S0C4 is more likely to be due to e.g., IC10, IC11. In MVT it's always IC04. :>>> :>>> -- :>>> Shmuel (Seymour J.) Metz :>>> http://mason.gmu.edu/~smetz3 :>>> ??? ?? ??? :>>> ?? ??? ?? :>>> :>>> :>>> From: IBM Mainframe Discussion List on behalf of Joseph Reichman :>>> Sent: Sunday, February 4, 2024 11:11 AM :>>> To: IBM-MAIN@LISTSERV.UA.EDU :>>> Subject: Re: Registers in the RB :>>> :>>> Im trying to understand so that u dont mess things up :>>> :>>> The way Seymour explained it :>>> :>>> For purposes of example the hardware gives control to the program check :>>> FLIH for interrupt code 4 the program check FLIH issues ABEND abend code :>>> 0C4 reason 4 :>>> :>>> Joe Reichman :>>> :>>> :>>>> On Sun, Feb 4, 2024 at 11:06?AM Binyamin Dissen :>>>> wrote: :>>>> :>>>> On Sun, 4 Feb 2024 10:29:59 -0500 Joseph Reichman :>>>> wrote: :>>>> :>>>> :>But thought S0C4 is a program check :>>>> :>>>> It is. :>>>> :>>>> It may be a pic-4,-10, or -11. If PIC-4, PSW was updated. :>>>> :>>>> An error recovery routine that messes up things is worse than none. :>>>> :>>>> -- :>>>> Binyamin Dissen :>>>> http://secure-web.cisco.com/1816mdJ8h5-_oO1Xw58w3a8lEY_-kExorCz4aYg_qWRPUg_S6L1Z7PSPpA_kZcoVdyWJRO7o8CZk3cdmof4xYFKWUq5F_354st8NqQ1H-DfhXLX7hOZMR91CjoL1YT6Mbzl6njAZmKFdodaka0a1fK4YYTFZC0MgMlnj3ZJIgBM_AqiHoqGC_AbIMpQH0IAacZQAZlVgvJf80mITj1INV2l7F5k_pFjt0QOTQKtvKl1ATyTUInntV2lYhaRLgGmYZAWVJIDYXYDUZJUKOWAxwAMDRvCZ_zlmMheKUwEgmhUqjkH-LZSn6EJ0dT3AX1KtXJ7SEVz6_Ju0n0gr_1s7lMc-k6E1u0vGItaEOADznerc8n-GIWT-wkJUZtCSSs1yckiVlCN-FkVRjnrgwLsd35OJUqktorRcnmAbG4EHP89E/http%3A%2F%2Fwww.dissensoftware.com :>>>> :>>>> Director, Dissen Software, Bar & Grill - Israel :>>>> :>>>> -- :>>>> 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 :>> :>> :>> -- :>> 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 -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Registers in the RB
On Sun, 4 Feb 2024 10:29:59 -0500 Joseph Reichman wrote: :>But thought S0C4 is a program check It is. It may be a pic-4,-10, or -11. If PIC-4, PSW was updated. An error recovery routine that messes up things is worse than none. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Data space dump with SDUMPX
On Thu, 1 Feb 2024 15:41:29 + Jim Mulder wrote: :>What is displayed by this IPCS command for your dump? :>CBF RTCT Is that what IEAVDUMP invokes? Otherwise I would try that as well. :>Jim Mulder :> :>-Original Message- :>From: IBM Mainframe Discussion List On Behalf Of Schühle, Simon :>Sent: Thursday, February 1, 2024 8:17 AM :>To: IBM-MAIN@LISTSERV.UA.EDU :>Subject: Re: Data space dump with SDUMPX :> :>So, just some additional details. :>My DUMP Command would look like this: :> :>DUMP COMM=(DSPTST),DSPNAME=('*'.1EDB),SDATA=(SUM,CSA,RGN),END :> :>Compared to the SDUMPX code I posted earlier, it's basically the same. :>But with DUMP I get the following result in the dump: :> :>ASID(X'0092') DSPNAME(1EDB) :> 40.:7F. :>X'40' bytes described in ASID(X'0092') DSPNAME(1EDB) :> :>ASID(X'0094') DSPNAME(1EDB) :> 40.:437FFF. :>X'038000' bytes described in ASID(X'0094') DSPNAME(1EDB) :> :>ASID(X'009C') DSPNAME(1EDB) :> 00.:0FFF., 10.:7F. :>X'701000' bytes described in ASID(X'009C') DSPNAME(1EDB) :> :>The last one is the one I want and the one that isn't included when using SDUMPX. :> :> :>Am 01/02/2024 um 12:11 schrieb Schühle, Simon: :>> Well, this does result in none of the data spaces I am looking for :>> showing up in the dump. :>> Many others show up, so I suspect that the limit for the amount of :>> dumped data spaces was reached before. :>> :>> But also, when using the DUMP command, the correct data space is :>> included in the dump. :>> Wouldn't that suggest, that the data space is in memory? :>> Or is it handled differently compared to SDUMPX? :>> :>> Thank you, :>> Simon :>> :>> Am 01/02/2024 um 09:17 schrieb Binyamin Dissen: :>>> This seems to suggest that the dataspace name does not exist under this :>>> memory. :>>> :>>> Try specifying your jobname and "*" for the dataspace name. See what :>>> comes :>>> out. :>>> :>>> On Wed, 31 Jan 2024 13:23:33 +0100 Schühle, Simon :>>> wrote: :>>> :>>> :>Ok, LDMP is what I used until now to check the dump contents. So :>>> that's :>>> :>good. :>>> :>It shows the correct DSPNAME/data space, but only for the other :>>> :>instances/address spaces. As well as some system-related ones. :>>> :>But nothing except 'normal' memory for the primary AS (X'7C' in the :>>> :>following case) - for example: :>>> :> :>>> :>-- :>>> :>X'1E6B7000' bytes described in ASID(X'007C') :>>> :>[...] :>>> :>ASID(X'0092') DSPNAME(1EDB) :>>> :> 40.:7F. :>>> :>X'40' bytes described in ASID(X'0092') DSPNAME(1EDB) :>>> :> :>>> :>ASID(X'0094') DSPNAME(1EDB) :>>> :> 40.:437FFF. :>>> :>X'038000' bytes described in ASID(X'0094') DSPNAME(1EDB) :>>> :>[...] :>>> :>X'05E000' bytes described in ASID(X'007C') SUMDUMP :>>> :>-- :>>> :> :>>> :> :>>> :>This is my code: :>>> :> :>>> :>-- :>>> :>MVI WADMPTIT,STOPMSG$ SETUP L'TITLE :>>> :>MVC WADMPTIT+1(STOPMSG$),STOPMSG :>>> :>MVC WASDUMPX(STOPSDM$),STOPSDMP :>>> :>LA R2,WADMPECB :>>> :> :>>> :>SDUMPX HDRAD=WADMPTIT,ECB=(R2),MF=(E,WASDUMPX),TYPE=FAILRC, + :>>> :> SDATA=(SUMDUMP,CSA,RGN), + :>>> :> DSPLIST=DSPLST1 :>>> :> :>>> :>STIMER WAIT,BINTVL=INT101 WAIT 1S :>>> :> :>>> :>[...] :>>> :> :>>> :>DSPLST1 DC AL4(DLLEN1) :>>> :> DC CL8'* ' :>>> :> DC CL8'1EDB' :>>> :>DLLEN1 EQU *-DSPLST1 :>>> :> :>>> :>[...] :>>> :> :>>> :>STOPSDMP SDUMPX HDRAD=*,MF=L,TYPE=FAILRC, :>>> :> SDATA=(SUMDUMP,CSA,RGN), :>>> :> DSPLIST=DSPLST1 :>>> :>STOPSDM$ EQU *-STOPSDMP :>>> :> :>>> :>[...] :>>> :> :>>> :>WADMPECB DS F :>>> :>WADMPTIT DS X :>>> :>WADMPMSG DS CL100 :>>> :>WASDUMPX DS 0F :>>> :> ORG *+STOPSDM$ :>>> :>-- :>>> :> :>>> :>Kind regards, :>>> :>Simon :>>> :> :>>> :>--
Re: Data space dump with SDUMPX
This seems to suggest that the dataspace name does not exist under this memory. Try specifying your jobname and "*" for the dataspace name. See what comes out. On Wed, 31 Jan 2024 13:23:33 +0100 Schühle, Simon wrote: :>Ok, LDMP is what I used until now to check the dump contents. So that's :>good. :>It shows the correct DSPNAME/data space, but only for the other :>instances/address spaces. As well as some system-related ones. :>But nothing except 'normal' memory for the primary AS (X'7C' in the :>following case) - for example: :> :>-- :>X'1E6B7000' bytes described in ASID(X'007C') :>[...] :>ASID(X'0092') DSPNAME(1EDB) :> 40.:7F. :>X'40' bytes described in ASID(X'0092') DSPNAME(1EDB) :> :>ASID(X'0094') DSPNAME(1EDB) :> 40.:437FFF. :>X'038000' bytes described in ASID(X'0094') DSPNAME(1EDB) :>[...] :>X'05E000' bytes described in ASID(X'007C') SUMDUMP :>-- :> :> :>This is my code: :> :>-- :>MVI WADMPTIT,STOPMSG$ SETUP L'TITLE :>MVC WADMPTIT+1(STOPMSG$),STOPMSG :>MVC WASDUMPX(STOPSDM$),STOPSDMP :>LA R2,WADMPECB :> :>SDUMPX HDRAD=WADMPTIT,ECB=(R2),MF=(E,WASDUMPX),TYPE=FAILRC, + :> SDATA=(SUMDUMP,CSA,RGN), + :> DSPLIST=DSPLST1 :> :>STIMER WAIT,BINTVL=INT101 WAIT 1S :> :>[...] :> :>DSPLST1 DC AL4(DLLEN1) :> DC CL8'* ' :> DC CL8'1EDB' :>DLLEN1 EQU *-DSPLST1 :> :>[...] :> :>STOPSDMP SDUMPX HDRAD=*,MF=L,TYPE=FAILRC, :> SDATA=(SUMDUMP,CSA,RGN), :> DSPLIST=DSPLST1 :>STOPSDM$ EQU *-STOPSDMP :> :>[...] :> :>WADMPECB DSF :>WADMPTIT DSX :>WADMPMSG DSCL100 :>WASDUMPX DS 0F :> ORG *+STOPSDM$ :>-- :> :>Kind regards, :>Simon :> :>------ :>For IBM-MAIN subscribe / signoff / archive access instructions, :>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Data space dump with SDUMPX
On Wed, 31 Jan 2024 12:13:11 +0100 Schühle, Simon wrote: :>I came upon a strange problem trying to dump a dataspace. :>We have multiple instances of a software running that utilize data :>spaces. So they use the same data space name. :>Capturing a dump of one primary instance, I get the data spaces of the :>/other /instances included but not of the primary one. :>So it works to a point. :>Using the DUMP command, I have had no problem capturing the 'primary' :>data space from the same task. :>I've looked into different solutions (disk space, capture time, :>parameter variations), but up to this point I haven't been successful. :>I suspect there might be a problem with the parameter list or maybe the :>SDUMPX parameters. Code is in assembler. :>So I ask if someone could help me with just an example of a parameter :>list (DSPLIST) to capture the data space of the main task/address space. :>Or any other insight why this might be happening. :>Maybe I am missing something obvious here. What does LDMP show (under IPCS)? Show your SDUMPX macro and the building of the plist. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Regarding RBINTCOD
On Tue, 30 Jan 2024 13:17:15 + Peter Relson wrote: :> :>Are you implying that an ESTAE(X) routine with SDWALOC=31 is guaranteed an :>SDWA and there is no reason to check R0 for 12 and alternate code paths? :> :>Jon P did write what I meant. Answer: no, it just makes it a lot more likely that the storage obtain for the SDWA will succeed. Sad. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- 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 the User Name associated with the current Batch JOB RACF ID?
On Mon, 29 Jan 2024 13:36:51 + Cameron Conacher <03cfc59146bb-dmarc-requ...@listserv.ua.edu> wrote: :>Good Morning, :>I know I can do this in CICS, but I am digging around to see if this can be done in a batch COBOL program. :>Basically, I just want to include Fred's Name in a report I generate, where Fred is the RACF ID associate with the currently executing Batch JOB. (a COBOL program). :>I could write something to call out to CICS (EXCI maybe) to get a name. :>But I wanted to know if there is anyway to do this by calling some routines from my Batch COBOL program. :>I am assuming right now, it is not possible since I have come up empty so far. You can get it from ACEEUNAM. https://www.microfocus.co.jp/manuals/ED23/html/HCOMCMCBLKS005.html shows how to locate MVS control blocks from COBOL. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Regarding RBINTCOD
On Mon, 29 Jan 2024 12:57:53 + Peter Relson wrote: :>But none of this is appropriate to do within a recovery routine. That is why there is an SDWA. :>And if the system was unable to provide the ESTAE-type recovery routine with an SDWA, then too bad (and encourage the creator to use SDWALOC31=YES (as is the case always for such recovery as ESTAEX and ARR). Are you implying that an ESTAE(X) routine with SSWALOC=31 is guaranteed an SDWA and there is no reason to check R0 for 12 and alternate code paths? -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Has there always been STIMER TASK?
If we think about, it, waiting for an IMS call before checking CPU time would not help stop runaway loops. Before the IMS tcb does the LINK to the application program it can easily set an STIMER(N) . It could theoretically also do it via a DIE. Don't recall if IMS MPPs have a restriction about using STIMER On Fri, 26 Jan 2024 18:55:12 + "Schmitt, Michael" wrote: :>In IMS Transaction Manager you can define a PROCLIM for each transaction, with a count and/or CPU-time-per-transaction, aka the "processing limit count time". The manual says: :>This is the amount of time (for non-Fast-Path transactions, in seconds; for Fast Path transactions, in hundredths of seconds) allowable to process a all messages for a given transaction during a single schedule. The number specifies the maximum CPU time allowed for each message to be processed in the message processing region. The value is a number that can range from 1 to 65 535. Specifying the maximum value means that no time limit is placed on the application program. :>When a transaction exceeds the limit IMS abends it with a U0240: "a message processing program exceeded the allowable execution time." :>I swear that it used to be that the calling chain of every U0240 ended in the application calling IMS, e.g. a DLI call via CBLTDLI or equivalent. That implied that the way it worked was: :> * IMS saves the transaction's CPU time at the start of the transaction (or perhaps when the application retrieved its input message). :> * Whenever the application called IMS, IMS would compute the CPU time used so far and compare it to the process limit. :>But now I see U0240's are the result of an interrupt, which can hit anywhere. For example, if the application was in it's own code when the time runs out, the interrupt fires and IMS then abends with the U0240. :>What I'm wondering is, why the change? :>I'm guessing the way it is working now is IMS is setting an STIMER TASK with an exit, which measures a 'task-time interval', measured by the CPU timer only while the task is in execution. :>Was that not always an option? -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Any Recovery for RMODE64
On Thu, 25 Jan 2024 18:38:10 -0500 Joseph Reichman wrote: :>Just wondering is there any recovery for a program running RMODE 64 don't :>see that with ESTAE or SETFRR CVTBSM0F :>As more and more services run above the bar :>More so SDWAEC1 and SDWAEC2 are only 8 bytes SDWARC4 -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Masking SMF data internally
On Sun, 21 Jan 2024 09:58:29 +0400 Jake Anderson wrote: :>We have a requirement of sharing our SMF data to vendor for a sizing :>operation of our hardware connected to our mainframe :>Our organization has a policy of masking the critical values before sharing :>it. I see SMF datasets are are editable from ISPF. :>Is there a way or someone has undergone this exercise of masking the :>confidential values inside SMF output Dataset? First identify which types and subtypes are required. That will reduce the job and may make it trivial. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Looking to invoke abend in IBM PC call Service
On Thu, 18 Jan 2024 18:34:43 -0500 Joseph Reichman wrote: :>I am looking to cause an abend in IBM Service that is invoked by a PC call :>(bad parameters) so as to test out Estate Type Recovery for CBT file 192 :>If anyone has an example would appreciate it One would think placing x'' in R15-R1 should do it. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: sdwagrsv not equal rbgrsave
On Tue, 16 Jan 2024 17:33:39 + Joseph Reichman wrote: :>I know I can use the registers in the SDWA but the SDWA gets it from a known control block like the RB or linkage stack While it may get it from a known location, it does not follow that the "known location" is static. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Direct branch entry to ICSF routines
On Sun, 14 Jan 2024 15:57:47 + Peter Relson <056a472f7cb4-dmarc-requ...@listserv.ua.edu> wrote: :>Binyamin wrote does that means that the CSFDLL functions do not create a :>linkage stack entry before calling the true routines/ :>Could you share why it matters to you if there is a linkage stack entry (whether before or after getting to the "true routine", even if my guess is right about what you think of as the "true routines")? Performance. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Direct branch entry to ICSF routines
Out of curiosity, does that means that the CSFDLL functions do not create a linkage stack entry before calling the true routines/ On Fri, 12 Jan 2024 14:23:54 + Eric D Rossman wrote: :>There is no documentation because this is not a supported interface. It has been suggested in passing but has never been put forward as an official requirement. :>All LE-capable applications have access to the CSFDLLxx (where xx is 31,3X,64) libraries and the csfbext.h C/C++ header to call directly :>All non-LE applications have the CSN* and CSN*6 (plus CSF*/CSF*6) assembler stubs. :>Eric Rossman :>ICSF Architect :>-Original Message- :>From: IBM Mainframe Discussion List On Behalf Of Binyamin Dissen :>Sent: Friday, January 12, 2024 3:26 AM :>To: IBM-MAIN@LISTSERV.UA.EDU :>Subject: [EXTERNAL] Direct branch entry to ICSF routines :>I have been looking but I have not yet found the explicit doc that shows how to call ICSF routines via the CSFCCVT. :>Looking at a few of the stub routines I see that they create a linkage stack entry and then call the real routine via CSFCCVT but the labels in the CSFCCVT are not obviously related to the name of the stub routine. :>I am expecting to find something like for the name/token routines, where the stub can be used but the direct entry is also documented. :>Further research shows that the several routine that I am interested all branch to the same EP, but the stub loads a different value into R0. Don't ask me why there aren't a list of equated values for the various functions and a parameter with the function code. At any rate, high level language routines cannot set R0 but assembler routines certainly can. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Direct branch entry to ICSF routines
I have been looking but I have not yet found the explicit doc that shows how to call ICSF routines via the CSFCCVT. Looking at a few of the stub routines I see that they create a linkage stack entry and then call the real routine via CSFCCVT but the labels in the CSFCCVT are not obviously related to the name of the stub routine. I am expecting to find something like for the name/token routines, where the stub can be used but the direct entry is also documented. Further research shows that the several routine that I am interested all branch to the same EP, but the stub loads a different value into R0. Don't ask me why there aren't a list of equated values for the various functions and a parameter with the function code. At any rate, high level language routines cannot set R0 but assembler routines certainly can. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Question on SSRV entries in system trace table
I would have to go back to a dump, but I don't recall having any issues in this area. Perhaps it is in a different trace entry? On Wed, 10 Jan 2024 17:38:40 -0500 Mike Shaw wrote: :>The doc on SSRV trace table entries in the "z/OS MVS Diagnosis: Tools and :>Service Aids" pub says this: :>PSW- ADDRESS-return--: :>o For PC/AUTH, supervisor control, and task management: Caller's :>return address if the service was entered by a branch; 0 if the :>service was entered by a PC instruction :>In a dump I see that a specific IARV64 REQUEST=GETSTOR macro invocation :>generates a PC instruction and there is no PSW information in that trace :>table entry. Ok. The doc is correct. :>Does anyone know WHY there is no PSW saved in SSRV trace entries for :>non-branch-entry system service calls? It makes diagnosis of errors more :>difficult... -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Direct branch entry to ICSF routines
I have been looking but I have not yet found the explicit doc that shows how to call ICSF routines via the CSFCCVT. Looking at a few of the stub routines I see that they create a linkage stack entry and then call the real routine via CSFCCVT but the labels in the CSFCCVT are not obviously related to the name of the stub routine. I am expecting to find something like for the name/token routines, where the stub can be used but the direct entry is also documented. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: using Snapx to dump a dataspace
Quite interesting The format is not clear. I would guess that Peter will recommend a comment form. My read would be START DS A END DS A STOKEN DS XL8 Repeat. The last range would have the x'80' bit set in END. The dataspace is identified by a STOKEN, so SNAPX does not require an ALET. On Tue, 9 Jan 2024 11:39:58 -0600 Joe DeChirico <05694ada0b0a-dmarc-requ...@listserv.ua.edu> wrote: :>Hi :> :>Does anyone have an example or to on how to code the z/os snapx macro to dump a dataspace? In particular, the DSPSTOR= operand and its values. :> :>Do you have to be in AR mode to issue the macro, which registers if any need to have an alet set? :> :>Thanks :> :>JD :> :>-- :>For IBM-MAIN subscribe / signoff / archive access instructions, :>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Help Trying to determine where abend occurred / unable to find linkage stack entry
Which level recovery routine? On Mon, 8 Jan 2024 19:19:59 -0500 Joseph Reichman wrote: :>After getting an abend with SDWAEC2 (different from SDWAEC1) I observed SDWAXFLG to be X'92' that means SDWAEC2 psw came from the linkage stack :> :>Looking at the STCB field STCBLSDP I started going back ward by X'128' a linkage stack entry and was unable to find a marching PSW :> :>THANKS :> :>-Original Message- :>From: IBM Mainframe Discussion List On Behalf Of Walt Farrell :>Sent: Sunday, December 31, 2023 1:36 PM :>To: IBM-MAIN@LISTSERV.UA.EDU :>Subject: Re: Help Trying to determine where abend occurred :> :>Have you looked at the descriptions of the two fields? :> :>From https://www.ibm.com/docs/en/zos/2.1.0?topic=us-important-fields-in-sdwa I see: :> :> :>SDWAEC1 :>This field contains the PSW that existed at the time of the error. :>SDWAEC2 :>The contents of this field vary according to the type of recovery routine: :> :>For ESTAE-type recovery routines (except for ESTAI routines): If a program establishes an ESTAE routine, and subsequently performs a stacking operation while running under the same RB as when it established the ESTAE routine, SDWAEC2 contains the PSW from the linkage stack entry immediately following the entry that was current when the ESTAE routine was established. Otherwise, SDWAEC2 contains the current RBOPSW from the RB that activated the recovery routine, and the PSW is the one from the time of the last interruption of that RB that occurred while the RB was unlocked and enabled. Bit SDWAINTF in SDWAXFLG indicates whether the contents of SDWAEC2 are from the linkage stack (SDWAINTF is 1) or from an RB (SDWAINTF is 0). :>For an ESTAI routine, this field contains zero. :>For an FRR, the field contains the PSW used to give control to the FRR. :> -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: LISTDSI - hardcoded dsn vs. read in from file
Which instruction fails? Do TRACE on the whole routine. On Thu, 4 Jan 2024 13:55:22 -0600 Steve Estle wrote: :>All, :> :>I'm sure I'm doing something boneheaded but can't quite figure out what. I have a list of fully qualified datasets in a file that I want to read the dataset names once per record and then once I've read the record with dataset name then use that name in a LISTDSI command. When I hard code name in REXX exec it works fine - when I read dsname from file it fails. I've hardcoded the enclosing double quote/quote inside my file as follows: :> :>"'SYS1.PARMLIB'" :> :>When it fails (2nd version) I get this error message: :> :>IKJ56712I INVALID KEYWORD, "'SYS1.PARMLIB'" :> :>Two scenarios: :> :>Works Fine: :> :>/* REXX */ :> :>/*--*/ :> :>/*S E L E C T D S N S & L I S T I N F O*/ :> :>/*--*/ :> :> DSName = "'SYS1.PARMLIB'" :> :> Say DSName :> :> x = LISTDSI(DSName) :> :> SAY 'Function code from LISTDSI is: ' x :> :> SAY 'The data set name is: ' sysdsname :> :> SAY 'The device unit on which the volume resides is:' sysunit :> :> SAY 'The record format is: ' sysrecfm :> :> SAY 'The logical record length is: ' syslrecl :> :> SAY 'The block size is: ' sysblksize :> :> SAY 'The allocation in space units is: ' sysalloc :> :> :>EXIT :> :>Failing Version: :> :>/* REXX */ :> :> :> :>INDSN = "'P69792.LISTDSI.INPUT'" :> :>OUTDSN = "'P69792.LISTDSI.OUTPUT.CSV'" :> :>DDNI = "DD"||RANDOM(1,9) :> :>DDNO = "DD"||RANDOM(1,9) :> :> :> :>/*--*/ :> :>/* R E A D D S N L I S T */ :> :>/*--*/ :> :>ADDRESS TSO "ALLOC DA(" INDSN ") DDNAME( " DDNI ") SHR REUSE " :> :>ADDRESS TSO "ALLOC DA(" OUTDSN ") DDNAME( " DDNO ") OLD REUSE " :> :>ADDRESS TSO "EXECIO * DISKR " DDNI "(STEM Dsni. FINIS" :> :>ADDRESS TSO "FREE DDNAME(" DDNI ") " :> :> :> :>/*--*/ :> :>/*S E L E C T D S N S & L I S T I N F O */ :> :>/*--*/ :> :> :> Trace i :> :>DO I = 1 TO Dsni.0 :> :> dsn = Word(Dsni.I,1) :> :> Say dsn :> :> x = LISTDSI(dsn) :> :> SAY 'Function code from LISTDSI is: ' x :> :> SAY 'The data set name is: ' sysdsname :> :> SAY 'The device unit on which the volume resides is:' sysunit :> :> SAY 'The record format is: ' sysrecfm :> :> SAY 'The logical record length is: ' syslrecl :> :> SAY 'The block size is: ' sysblksize :> :> SAY 'The allocation in space units is: ' sysalloc :> :>END I :> :> :>-- :>For IBM-MAIN subscribe / signoff / archive access instructions, :>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Help Trying to determine where abend occurred
Code would be in the primary address space. On Sun, 31 Dec 2023 12:28:21 -0500 Joseph Reichman wrote: :>Hi :> :>I have a Space Switching PC routine which I caused an abend :> :>This the code that caused it :> :> LLILF 15,X'7000' :> SVC 42 :> :>I don't have a ARR covering it However I do a estate in the program that :>issued PC Instruction to a space switching routine where the above two :>instructions live :> :>The PSW at offset X'78' of the SDWA points to the next instruction AFTER :>THE svc 42 it the data name SDWAEC2 :> :>The SDWA at offset 68 detainee SDWAEC1 points to the instruction after the :>pc instruction in the home address space :> :>My question is there any field in the SDWA or extensions that would tell me :>in what ASID the abend occurred -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Question about IEAMSCHD
On Sun, 31 Dec 2023 14:50:45 + Peter Relson wrote: :>Binyamin wrote :> :>What is a "non-authorized" address space? :> :>Everyone I know would consider that to be an address space for which the jobstep program is not both linkedited AC=1 and gotten from an APF-authorized concatenation, and is not a system key address space (as could be defined in such places as the program properties table). In the context of SRB? -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Checking status of multiple datasets in CLIST and REXX
So your constraints are only CLIST and REXX and no compiled programs? Well, duplicates are allowed in concatenations. So you might be able to skip the lookup. There are ways you can remember that you already did this in a session, such as allocating IDIDIT and doing an EXECIO against it to determine if it is allocated. On Sat, 30 Dec 2023 23:35:11 + Seymour J Metz wrote: :>I want to set up an environment that supports personal tools. I'd like to allow the users to create VB libraries, but if there is no way to retain ALTLIB and LIBDEF across START (ISPSTRT) then I'll stick to FB and reconcatenate. :> :>Performance is not an issue because the code would only run immediately after logon. :> :>-- :>Shmuel (Seymour J.) Metz :>http://mason.gmu.edu/~smetz3 :>??? ?? ??? :>?? ??? ?? :> :> :>From: IBM Mainframe Discussion List on behalf of Binyamin Dissen :>Sent: Saturday, December 30, 2023 12:33 PM :>To: IBM-MAIN@LISTSERV.UA.EDU :>Subject: Re: Checking status of multiple datasets in CLIST and REXX :> :>On Fri, 29 Dec 2023 14:47:29 + Seymour J Metz wrote: :> :>:>I need to check whether any of a list of datasets exists and whether any of a list of ddnames is allocated. I'd rather not trap and parse the output of LISTALC and LISTCAT, and I'd rather not call LISTDSI for each one. Is there a simple way to do that in REXX, or would it be better to write a small service routine in assembler? :> :>:>I don't have a requirement to handle XTIOT. :> :>The elephant in the room - why? :> :>Perhaps there is a better way to do what you want. :> :>As you are worried about performance, it appears to be something that will :>need to run quite often. How will you use this information? -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Question about IEAMSCHD
On Sat, 30 Dec 2023 19:52:42 GMT "esst...@juno.com" wrote: :>. :>Binyamin wrote :>What is a "non-authorized" address space? :>Key 8 Problem state job/started task SRBs do not run in/as tasks. They always get control in supervisor state. . :>If you want to run code that should not be in supervisor state, have the SRB :>create an IRB. : :>Can You elaborate on this ? :>Did You mean SRB Routine ? :>How does the SRB create an IRB ? I must have missed something. SCHEDIRB . :>paul :> :>.-- Original Message -- :>From: Binyamin Dissen :>To: IBM-MAIN@LISTSERV.UA.EDU :>Subject: Re: Question about IEAMSCHD :>Date: Sat, 30 Dec 2023 19:28:10 +0200 :> :>On Sat, 30 Dec 2023 15:36:44 GMT "esst...@juno.com" wrote: :> :>::>Can someone please clarify this statement regarding IEAMSCHD - :>: :>:>"To run an SRB routine in a different address space from the :>:>scheduling code, the SRB routine must be either in a different :>:>program that is accessible from the target address space, or :>:>in the common storage together with the scheduling code." :>: :>:>The above was taken from Example 7 of IEAMSCHD - :>:>https://www.ibm.com/docs/en/zos/2.4.0?topic=ixg-ieamschd-schedule-srb :>. :> :> :> :> :>>It makes no reference to the authorization of the target srb routine. :> :>Well, the SRB runs in supervisor state. You, as the scheduler, are responsible :>for integrity and not give control to arbitrary routines. :>. :>:>I would like to schedule an SRB using IEAMSCHD to a non-authorized :>:>Address Space - I would prefer not to place the target SRB routine in common storage. :> :>What is a "non-authorized" address space? :>. :>:>I suspect its implied this is an integrity issue; as the target SRB Routine :>:>would be loaded by the Non Authorized Address Space, AND the Target :>:>SRB Routine is entered in supervisor state. :> :>If you want to run code that should not be in supervisor state, have the SRB :>create an IRB. The IRB will not run supervisor state unless you request it. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Checking status of multiple datasets in CLIST and REXX
On Fri, 29 Dec 2023 14:47:29 + Seymour J Metz wrote: :>I need to check whether any of a list of datasets exists and whether any of a list of ddnames is allocated. I'd rather not trap and parse the output of LISTALC and LISTCAT, and I'd rather not call LISTDSI for each one. Is there a simple way to do that in REXX, or would it be better to write a small service routine in assembler? :>I don't have a requirement to handle XTIOT. The elephant in the room - why? Perhaps there is a better way to do what you want. As you are worried about performance, it appears to be something that will need to run quite often. How will you use this information? -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Question about IEAMSCHD
On Sat, 30 Dec 2023 15:36:44 GMT "esst...@juno.com" wrote: ::>Can someone please clarify this statement regarding IEAMSCHD - : :>"To run an SRB routine in a different address space from the :>scheduling code, the SRB routine must be either in a different :>program that is accessible from the target address space, or :>in the common storage together with the scheduling code." : :>The above was taken from Example 7 of IEAMSCHD - :>https://www.ibm.com/docs/en/zos/2.4.0?topic=ixg-ieamschd-schedule-srb . :>It makes no reference to the authorization of the target srb routine. Well, the SRB runs in supervisor state. You, as the scheduler, are responsible for integrity and not give control to arbitrary routines. . :>I would like to schedule an SRB using IEAMSCHD to a non-authorized :>Address Space - I would prefer not to place the target SRB routine in common storage. What is a "non-authorized" address space? . :>I suspect its implied this is an integrity issue; as the target SRB Routine :>would be loaded by the Non Authorized Address Space, AND the Target :>SRB Routine is entered in supervisor state. If you want to run code that should not be in supervisor state, have the SRB create an IRB. The IRB will not run supervisor state unless you request it. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RETRY - was ARR and CSVQUERY
Or the hardware. Certain machine checks while masked will force a check-stop. On Sun, 24 Dec 2023 12:58:06 -0600 Jon Perryman wrote: :>Hi Tom, :>I think Peter misinterpreted your question because you provided too much information. :>> Peter Relson wrote: :>> I'm now thinking you just meant that you were surprised that the recovery routine did not complete successfully. :>I think you are asking the academic question if there is a time when RTM is disabled or inactive. Or if you can encounter a situation where RTM is disabled or inactive. Maybe you can form your question in terms of RTM behavior that you want to understand. :>To clarify LPAR DISABLED WAIT state, I believe it's part of RTM. While it's a drastic form of recovery, the LPAR should never be left running random instructions. My point was that I believe that RTM always provides some sort of recovery even if the recovery is not actual recovery. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RETRY - was ARR and CSVQUERY
Only if you do tricky stuff. Such as playing with the PFLIH. If you get a program check there you may get a disabled wait. The FLIH will recognize unexpected recursion. Don't know if there is a "standard" IBM supported way to do this, though. On Sat, 23 Dec 2023 10:20:58 -0800 Tom Brennan wrote: :>Thanks Peter! I always appreciate your responses and also the responses :>from others at IBM. But I was trying to ask a question that I may not :>be able to ask correctly. Let me try anyway: :> :>I was referring to my experience with a JES2 exit which setup its own :>recovery routine. In that code you could see it free any getmain'd :>memory, etc. like you mentioned. But also in that code was an error :>that caused an 0C4. So when the x'00' I added for temporary debugging :>ran that user-coded recovery routine, I was surprised to get an 0C4 :>instead and had to fix the recovery routine. :> :>So of course JES2 had it's own recovery routine in place that handled :>the 0C4 and we got a dump and JES2 went on its merry way, perhaps after :>disabling that exit (I can't remember). :> :>So my question to Jon was, is there any environment in z/OS where there :>is absolutely no recovery routine? And if a program interrupt occurs I :>get no abend processing whatsoever and (I guess) a disabled wait. :>That's what I thought Jon was implying, that there are environments :>where I MUST code a recovery routine just to keep the system running at :>all. I don't think there is such an environment. :> :>And after all this typing I still am not sure I can relay my question :>correctly. So ignore it if I'm not making sense :) It's academic anyway. :> :>On 12/23/2023 7:54 AM, Peter Relson wrote: :>> Tom B wrote :>>> So are you implying that in z/OS there are environments where I can run :>>> a program without any built-in basic recovery? :>> :>> To be a bit snide, you "can" run a program without any recovery, of course. :>> Whether you should or not is an entirely different question. :>> :>> I view their being two main reasons for recovery (and not necessarily in the order I show): :>> :>> First, to deal with resources that might otherwise be left in an undesired state if you don't have recovery. :>> Maybe that's storage you obtained or an ENQ or lock that you hold or any number of other things :>> (perhaps even that you prefer to return to your caller with a return/reason code in that case rather than :>> an abend). But if you know that the system will release the resource in question in a timely fashion, maybe you don't care. :>> For example, suppose you know that you are the jobstep program and you obtain private :>> storage in a jobstep or task-related subpool and blow up, :>> Maybe you don't bother freeing it because you know that the task will terminate and the system will free the storage :>> (in your mainline you would probably free the storage for cleanliness reasons, but maybe you take the cheap way out in an abend case). :>> But if you might be called by something else, that's a different ballgame. In that case, :>> you do not know that the task will terminate - the caller might have recovery that retries. :>> :>> Second, to capture serviceability data such as what was running and what was going on in order to help diagnosticians. :>> That might be information in the SDWA and your use of recording to logrec; :>> it could be a message written to the job log (but calling almost any service out of :>> recovery might mention having recovery to protect something bad happening within that flow). :>> It could be a dump of some type. In the "freeing storage" case, :>> maybe the recovery isn't so much about freeing the storage but more about capturing data to help someone figure out what went wrong :>> :>> 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 -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RETRY - was ARR and CSVQUERY
On Fri, 22 Dec 2023 15:07:33 -0800 Tom Brennan wrote: :>So are you implying that in z/OS there are environments where I can run :>a program without any built-in basic recovery? Yes. Most batch jobs run that way. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RETRY - was ARR and CSVQUERY
On Fri, 22 Dec 2023 15:09:59 -0600 Jon Perryman wrote: :>On Fri, 22 Dec 2023 10:26:41 -0800, Tom Brennan wrote: :>>But I think it's overkill for a recovery routine to have it's own :>>recovery routine (if that's even possible in a JES2 exit environment). :>z/OS exits have built in recovery, diagnostics and recursive abend handling. Since IBM did the work for you in exits, there's no need to duplicate that part of recovery. SRB's w/o TCB percolation fail quite silently. The IBM recovery is simply to clean up the SRB. So if you put recovery in a SRB and the recovery fails, it will be silent. Best to have the main recovery routine do the full stuff and attempt to retry to finish what is needed. The recovery routine for the recovery routine will dump, mark things in CSA and percolate.. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RETRY - was ARR and CSVQUERY
Retry means retry the UOW, not (necessarily) the failed instruction. For example, if the code is aware that a control block / address space may be gone while it wou;d be referenced, retrying means branching to the logic where the item was known to be gone. Although I actually had a case where the failed instruction was reexecuted. It was trying to run existing code on a ZIP/ZAP (all licensed) and the code did something invalid in SRB mode. In that case I had the code "retry" the failing instruction in TCB mode (more complicated than that) and continue on a CP. On Tue, 19 Dec 2023 23:13:46 GMT "esst...@juno.com" wrote: :>* :> Hello, :>. :>I have been following the thread on ARR and CSVQUERY, and started :>thinking about a retry routine. :>Weather it's an ARR or ESTAE, it is my understanding that a Recovery :>Routine may be capable of retrying a failed instruction. :>. :>When I hear the words "retry", I interpret that as: re-execute the :>failing instruction. For a Recovery and/or Retry routine to re-execute :>a failing instruction, I would think this logic would be a tad :>complicated and suspect would be necessary for the recovery routine :>and retry routine to have inherited dependence/knowledge of the register :> contents of the failing program at the time of failure. :>. :>. :>Dose anyone have any experience in developing a ESTAEX or ARR :>where they actually retry the failing instruction ? :>. :>To begin with - :> How should a recovery routine determine which register or data area is invalid ? :>. :>I suspect the main program, could periodically save it registers :>in a structure anchored in the Recovery Routines Parameter List. :>or some variation - :>Then using those saved registers to compare against the registers :>in the SDWA at the time of the abend - :>or something like that - :>. :> . :>How many times should a recovery routine try to re-execute the same :>failing instruction ? :>. :>I guess I'm looking for a strategy for correcting the failing instruction. :>. :>Are there any Tech Notes, documentation, methodology, procedures, :>suggestios on how to accurately re-execute the failing instruction in :>an ESTA or ARR? :>. :>. :> :>paul dangelo :>. :>. :>. :> :> :>------ :>For IBM-MAIN subscribe / signoff / archive access instructions, :>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
SYSEVENT QVS and IRAQVS
I am trying to determine current MSU for a zOS under VM. IRAQVS shows values for the CEC (QVSIMGCAPZCBP), partition (QVSIMGCAPACITY) and the virtual machine (QVSVMCAPACITY). I went thru the CP Commands and did not find the appropriate SET/QUERY command that will show the factor between partition and VM. Can someone point me to the command? I would expect the factor between CEC and partition is in HCD. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SMP/E question of the day
Unless you are sending this via teletype or FAX, I question why you would provide a zap rather than a module replacement. On Thu, 14 Dec 2023 11:54:28 -0500 Phil Smith III wrote: :>From a coworker, who tried to post but it seems to have vanished-not even a bounce?! If it just got stuck somewhere, this might be a duplicate, sorry. :> :> :> :> :> :>I am having problems trying to convert a normal ZOS AMASPZAP to a SMPE ++ZAP. :> :> :> :>When I run the zap through a standalone AMASPZAP process everything works fine: :> :> :> :>IGWSPZAP INSPECTS, MODIFIES, AND DUMPS CSECTS OR SPECIFIC DATA RECORDS ON DIRECT ACCESS STORAGE. :> :>AMA168I SYSIN PROCESSING STARTED :> :>NAME ABCDITSK ABCPROC#C C_CODE :> :>VER 067A EC0A008C,A077 :> :>VER 0680 5800926C :> :>VER 0684 A7011000 :> :>VER 0792 58F0301E :> :>VER 0796 E54CD0E0, :> :>VER 07AA E300D13B,0094 :> :>VER 07B0 EC060018,007E :> :>REP 067A EC0A0102,A077 :> :>AMA122I OLD DATA WAS EC0A008CA077 :> :>CHECKSUM C08C1494 :> :>AMA132I CHECKSUM WAS CORRECT, IS NOW 0. :> :>AMA163I PREVIOUS GROUP ENDED, ASSOCIATED MESSAGES FOLLOW: :> :>AMA125I IDR COUNT = 1 FOR SECTION = ABCPROC#C :> :>AMA164I END OF MESSAGES FOR PREVIOUS GROUP :> :>AMA168I SYSIN PROCESSING COMPLETED :> :>AMA100I IGWSPZAP PROCESSING COMPLETED :> :> :> :>However when I try to apply: :> :> :> :>++VER(Z038) FMID(VABC840) . :> :>++ZAP(ABCDITSK) . :> :>NAME ABCDITSK ABCPROC#C C_CODE :> :>VER 067A EC0A008C,A077 :> :>VER 0680 5800926C :> :>VER 0684 A7011000 :> :>VER 0792 58F0301E :> :>VER 0796 E54CD0E0, :> :>VER 07AA E300D13B,0094 :> :>VER 07B0 EC060018,007E :> :>REP 067A EC0A0102,A077 :> :> :> :>SMPE has issues :> :> :> :> SET BOUNDARY(TARGET) . :> :>GIM20501ISET PROCESSING IS COMPLETE. THE HIGHEST RETURN CODE WAS 00. :> :> :> :> :> :> APPLY S(ABC8401) . :> :> :> :>--NAME ABCDITSK ABCPROC#C C_CODE :> :>GIM23101E ** THERE IS A SYNTAX ERROR IN A ZAP CONTROL STATEMENT FOR MODULE :> :> ABCDITSK IN SYSMOD ABC8401. :> :>GIM30216IAPPLY PROCESSING FAILED FOR SYSMOD ABC8401. SYSTEM UTILITY :> :> PROCESSING FAILED FOR AN ELEMENT IN ABC8401. :> :>GIM20501IAPPLY PROCESSING IS COMPLETE. THE HIGHEST RETURN CODE WAS 08. :> :> :>-- :>For IBM-MAIN subscribe / signoff / archive access instructions, :>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Can this be done?
On Thu, 14 Dec 2023 15:43:40 + Billy Ashton wrote: :>Hey everyone! I have a little down time here at the end of the year with :>our freeze, and I wanted to play with some ideas I have had. :>I would like to write a program that can open any kind of file - PDS, :>Sequential, Panvalet, loadlib, and maybe even VSAM components. I want to :>open the file in "raw" format, as if I were going straight to the disk :>pack and scooping up the bytes from the beginning of the allocation to :>the end. :>Is there any way to do this without caring about the catalog RECFM? :>Obviously, the easiest way is through some JCL parameter that says :>"force as PS" but I doubt that is likely. I can't go into more detail at :>present, sorry! :>What do you think? Well, there is already such a program - ADRDSSU. Just use EXCP - it don't care about the organization. Though I do not know if OPEN will build a DEB for VSAM (or a VSAM component) with MACRF=E. Of course if you can get into supervisor state, you can build your own DEB and access anything. What is your business case? Playing around? In such case start with standard files and PDS's. Use MACRF=E to dump the directory and members. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RACROUTE REQUEST=AUTH problem
Well, under CICS - except perhaps L8 which might set a TCB level ACEE, you are not going to get the users permission, you will be getting the CICS STC permission. So the answer will be wrong. I am not sure which CICS control block contains the ACEE pointer, but if you are already going to do an ADDRESS ACEE you may as well use INQUIRE SECURITY. You stated that you receive 0 for authorized users. Are you getting 8 for those not authorized? Is the message correct? Is the program doing this defined as threadsafe? At your client? I personally would add DECOUPL=YES to the RACROUTE.n Just in case they have a table. On Tue, 12 Dec 2023 02:49:18 -0600 John Blythe Reid wrote: :>Thanks Binyamin, :> :>Here are the macros: :> :> RACROUTE REQUEST=AUTH, :> CLASS=(R2), :> ENTITY=((R3),NONE), :> STATUS=ACCESS, :> WORKA=(R5), :> RELEASE=1.9, :> MF=(E,(R1)) :> :>RACLST RACROUTE REQUEST=AUTH, :>GENERIC=YES, :>RELEASE=1.9, :>MF=L -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RACROUTE REQUEST=AUTH problem
Show the LIST and EXECUTE form of the RACROUTE. On Mon, 11 Dec 2023 09:50:34 -0600 John Blythe Reid wrote: :>The client never got the RACROUTE macro to work. Instead they've opted to use the CICS command EXEC CICS QUERY SECURITY and that works ok. Does anyone think that the problem may be due to issuing a RACROUTE macro inside a CICS transaction ? However the same transaction does work on our LPAR but not on the client's. :> :>Regards, :>John. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Find the ASID type?
CHTRKID ? On Thu, 7 Dec 2023 21:32:27 -0600 Steve Horein wrote: :>Hi! :>Looking at messages CNZ4105I/CNZ4106I from an MVS DISPLAY ACTIVE command, :>there is a tally of different address space types in the header: :> :>JOBS M/STS USERSSYSASINITSACTIVE/MAX VTAMOAS :>xxx xxx/x x :> :>NetView has a RECEDATA function that "Provides information about the origin :>of a command that was transferred to the NetView environment by using a :>NETVONLY action in a Command Revision Table", that includes "ASTYPE", that :>would return one of the following: :> :>Value Description :>D USS persistent procedure. The address space has a name for initiated :>programs, appropriate for a JOB. However, the existence of an OpenMVS :>address space block indicates a special purpose USS persistent procedure. :>J The address space is a JOB. :>N The address space is a system address space started during operating :>system initialization (NIP) processing. :>S The address space is a Started Task (STC). :>T The address space is a Time-Sharing User (TSO). :>U The address space is a USS forked or spawned procedure. :>* Error: the address space where the command originated has closed or else :>the message is not from the local LPAR. :>? Error: inconsistent data (might be a transient condition). :>! Error: inconsistent data. :>> Error: the supplied ASID is larger than the allowed ASID limit for the :>system :> :>With the DISPLAY ACTIVE command knowing how many of each type there is, and :>the RECEDATA function knowing the type of address space that just issued a :>command, there seems to be an indicator to provide that kind of :>information. What I am curious about, and would like to make use of, is :>where the address space "type" can be found, given only a job name or ASID? :> :>For example, the ISG343I results of D GRS,RES=(SYSDSN,) can :>identify the following: :>SYSNAME JOBNAME ASID TCBADDR EXC/SHROWN/WAIT :> :>If I wanted to know that the JOBNAME was a TSO user, a USS process, STC, or :>a batch job, is it possible to definitively find out? :>I was looking at ASCBJBNI and ASCBJBNS, but it seems there is still :>ambiguity. I'm not sure if I could tell the difference between a TSO user :>and a Started task just from ASCBJBNS. :>Where else can I look? :> :>Thanks in advance for any pointers! :> :>------ :>For IBM-MAIN subscribe / signoff / archive access instructions, :>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Parameters to ARR routine
I took a look at your website and it isn't clear to me which products would have to constantly reissue ESTAEX. You certainly could define PC-CP routines that handle the IEAARR yourself and completely avoid the issue. On Thu, 7 Dec 2023 10:06:36 -0800 Ed Jaffe wrote: :>On 12/7/2023 5:22 AM, Peter Relson wrote: :>> Tom H wrote :>> :>> There is another difference between running under an ESTAEX and an IEAARR, and that is you cannot use IEALSQRY to determine the linkage stack depth if you need it for retry. You must keep track of it yourself. :>> :>> :>> That's a good observation. And you're right. But it is not intentional. That was an oversight from when I created IEAARRs 25 years ago. Those PC numbers are treated specially by RTM and do not have a "true" ARR (which is why IEALSQRY does not play well with that situation), rather the linkage stack entry itself has the information needed to give control to your recovery routine. No one had ever brought that to my attention. :> :>We wondered if this oversight was APARable. Tom decided to keep track of :>it himself, but I can envisage situations for other products where :>someone else's code can get control (in-between) and potentially cause :>problems for this approach. :> :>We have observed IEAARR is so much faster than ESTAE[X] that we want to :>convert some of our existing products over to use it. But, this IEALSQRY :>issue is a sticking point that fills me with some trepidation and FUD. :> :>Would it be okay if we opened a case about this with L2...? -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Parameters to ARR routine
You cannot guarantee that ALET 1 addresses the home address space. depending on how the ETDEF is used, the ALET 1 at entry may point to the CP or the primary at the time of the PC. If you want HOME, use ALET 2. That is (almost - it appears that some SLIH / SRB's do not have an ALET to the home address space) always placed in the DU referring to the home address space. Also, from a PC routine, the RB information is less useful than the information in the current linkage stack entry. On Tue, 5 Dec 2023 15:27:52 -0500 Joseph Reichman wrote: :>I just saw it you place the recover param the modifiable area of linkage :>stack :> :>Im updating file 192 part of the modifications is chaining the TCB/rb/cde :> :>In that case I would need at set the AR to 1 for home address space and do :>sac 512 to reference the TCB/rb/cde chain :> :>Joe Reichman :> :> :>On Tue, Dec 5, 2023 at 3:24?PM esst...@juno.com wrote: :>> SET ETDEF has a parameter for an Associated Recovery Routine (ARR) :>> If You develop an ARR, I would be interested in seeing what You do/ . :>> I have an ARR , I like to see what others do in it . :>> I can send You what 'Im playing with now and some documentation. . :>> -- Original Message -- :>> From: Joseph Reichman :>> To: IBM-MAIN@LISTSERV.UA.EDU :>> Subject: Parameters to ARR routine :>> Date: Tue, 5 Dec 2023 14:36:06 -0500 :>> Doesnt seem like ETDEF has a param for the parameters list for ARRs -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Parameters to ARR routine
On Tue, 5 Dec 2023 20:23:47 GMT "esst...@juno.com" wrote: :>SET ETDEF has a parameter for an Associated Recovery Routine (ARR) :>If You develop an ARR, I would be interested in seeing what You do/ :>. Pretty much the same as an ESTAEX. It just is free for the PC routine - zero cycles to establish it. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Parameters to ARR routine
On Tue, 5 Dec 2023 14:36:06 -0500 Joseph Reichman wrote: :>Doesnt seem like ETDEF has a param for the parameters list for ARRs Correct. There ain't none. The param is the eight byte modifiable stack area. You need the PC routine to use MSTA to set it. If the ARR sees zeroes, it means that it wasn't set. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Non system LX value
You need an authorized routine that can run in the client address space to issue the ATSET. On Mon, 4 Dec 2023 08:19:38 -0500 Joseph Reichman wrote: :>Hi :> :>I have been looking over syncrounes cross memory or PC rtns :> :>What I seem to be missing is where you want to make that service available to certain address spaces :> :>So you code on the LXRES SYSTEM=NO :> :>But I dont see any where where you specify an asid indicating what address space you want to provide this service to :> :>Thanks :>-- :>For IBM-MAIN subscribe / signoff / archive access instructions, :>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RACROUTE REQUEST=AUTH problem
DECOUPL= ? On Wed, 29 Nov 2023 04:42:01 -0600 John Blythe Reid wrote: :>We have a CICS module that issues a RACROUTE REQUEST=AUTH to query a user's access rights to a resource. We execute the module on our LPAR and it works fine returning RC=0 if the user has access. :>When we put that same CICS module on our client's LPAR the RACROUTE REQUEST=AUTH always returns RC=04 as though the resources weren't defined to RACF. If we take one of the resources that the module didn't find and display it using 'TSO RL class resource' RACF displays the resource details ok. So the resources are correctly defined but the RACROUTE macro never appears to find them. :>The z/OS level is the same: 2.4; and the RACF level in the RACROUTE macro is the same: 1.9. :>It's a bit of a mystery. Anyone have any ideas ? -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Abend producing SDWARBAD
What I do is have the generalized routines (FRR, ESTAE, ARR) that gathers diagnostics and potentially takes a dump. The recovery creator routine optionally specifies a specific routine to follow up on the recovery for the specific case - if none, percolate. I also have an option that prints register areas (31bit both in home and server and as 64bit in server) I use the PSW to try to identify the module (usually SDWAEC1, but if SDWAEC2 is non-zro in task mode - seems like there was an issue with EC2 in SRB mode, but I don't recall the issue) for the message. On Tue, 28 Nov 2023 13:36:48 + Peter Relson wrote: :>"Asked to update" does not shed much light. I wouldn't bet that I'm allowed to look at the CBT tape files (the word bandied about is "contamination"), so I don't know what file 192 has. "Asked to update" in what way? :> :>A "general recovery routine" is highly unlikely to be overly useful. That is because recovery generally is not "general", rather it is unique to the code it is intending to cover. But I don't know what the author intended to mean by "general recovery routine". :> :>We have what we call "minimum RAS guidelines" that refer in part to data to make sure is placed into the SDWA in case it is recorded. :>That's something that is indeed "general". :> :>What exactly are you trying to accomplish? What actually is a "general recovery routine"? I hope it's not a recovery routine that is supposed to be able to work whether the recovery was established via SETFRR, ESTAE, ESTAEX, ARR-definition, IEAARR, ESTAI-definition? That can be quite a challenge (it's not obvious it's fully possible to accomplish without input via the parameter; I have not tried). :> :>So I will ask again: what are you trying to accomplish? More specifically, what are you trying to do with SDWARBAD? :> :>Why is it important if the abend code (completion code) is in the RB? The completion code is in the SDWA (as long as there is an SDWA, and if there isn't an SDWA you don't have SDWARBAD anyway). If it was indeed an "abend" issued by a task then the register 1 slot of some RB will have the abend code because Abend itself is a type 2 SVC. Abend's can be issued by CALLRTM TYPE=ABTERM as well, for example. :> :>If you'd like opinions on what you're doing (especially since this is for general consumption), then please ask questions that will get you the answers you need. :> :>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 -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Messaeg IXC531I SETXCF START ALTER REQUEST FOR STRUCTURE REJECTED. REASON: STRUCTURE NOT ALLOCATED
I am new to setting up the XCF. The policy1 containing the structure is active. D XCF,STR,STRNAME= IXC360I 06.17.28 DISPLAY XCF 501 STRNAME: STATUS: NOT ALLOCATED POLICY INFORMATION: POLICY SIZE: 5 M POLICY INITSIZE: 3 M POLICY MINSIZE : 0 M FULLTHRESHOLD : 80 ALLOWAUTOALT : NO REBUILD PERCENT: 5 DUPLEX : DISABLED ALLOWREALLOCATE: YES PREFERENCE LIST: SVCF ENFORCEORDER : NO EXCLUSION LIST IS EMPTY I haven't figured out the command to make the structure active. What might I be missing? -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
PL/I question
A PL/I source code member has DCL foobar BUILTIN and must be compiled with RULES(LAXDCL) I see no reference to FOOBAR as a function call. My question is if FOOBAR was invoked, what does the BUILTIN clause do? A different calling sequence? Looking for an internal label? -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ATTACHX/STIMERM WAIT=YES
On Tue, 14 Nov 2023 12:49:54 + Peter Relson wrote: :>As was alluded to, if it doesn't work when you "do that" (STIMERM WAIT), then don't "do that". :>If you want to be able to "communicate" then you wait on multiple ECBs and do not use STIMERM WAIT, but use STIMERM with an exit that posts one of the ECBs. The "communication" can be by posting one of the other ECBs. :>If you want only to terminate B (disruptively) then use DETACH. Don't recall ever looking at this, but if STIMER(M) WAIT is instantiated by SUSPENDing the RB, the parent task can RESUME it. But as that requires supervisor state, I wonder if it may have side effects when the timer eventually pops. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ATTACHX/STIMERM WAIT=YES
On Mon, 13 Nov 2023 18:37:15 -0600 Paul Schuster wrote: :>How to handle this situation: task A attaches a subtask, task B. :>The B task issues a STIMERM WAIT=YES :>Task A terminates, but gets the A03 abend since task B still active. :>How can task A communicate to the subtask B that it (task B) needs to terminate? Task B is in the STIMERM wait, so it cant do anything. :>I didnt see this scenario documented in the Assembler Services Guide or the Assembler Services References. Programming. If you want B to come down nicely you need to provide communication so that A can tell B to shutdown. Don't care? Do a DETACH. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RACF, the FACILITY class, and z/XDC
On Mon, 13 Nov 2023 12:58:16 + Peter Relson wrote: :>Regardless of whether it is hard or easy, why would you :>want to bother creating a new class when there is an :>existing class (XFACILIT) that completely addresses the problem :>(and thus would be easier for a customer)? DEFAULTRC OPERATIONS Unexpected masked rules More hands in the pot -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RACF, the FACILITY class, and z/XDC
On Sun, 12 Nov 2023 10:46:36 -0800 Ed Jaffe wrote: :>On 11/12/2023 10:30 AM, Binyamin Dissen wrote: :>> With the CDT class, it is just a few RACF commands. :>> RDEFINE CDT class + :>> CDTINFO(+ :>> MAXLENGTH(100) + :>> RACLIST(ALLOWED) + :>> GENLIST(ALLOWED)+ :>> FIRST(ALPHA,NATIONAL,NUMERIC) + :>> OTHER(ALPHA,NUMERIC,NATIONAL,SPECIAL) + :>> POSIT(posit) + :>> DEFAULTRC(rc) /* 8=fail w/o profile, 4=use OPER */ + :>> OPERATIONS(oper) /* YES=Operations always allowed */ + :>>) :>> SETROPTS RACLIST(CDT) REFRESH :>> No need for assemblies or anything. If they are going to write rules, they :>> need the RACF knowledge anyway. :>Can you provide the same procedure for the other two popular ESMs: ACF2 :>and TSS? I would have to look it up. But I would bet in their manuals they explain exactly how to map it. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RACF, the FACILITY class, and z/XDC
On Sun, 12 Nov 2023 07:13:03 -0800 Ed Jaffe wrote: :>On 11/12/2023 3:02 AM, Binyamin Dissen wrote: :>> You should make your own class. :>> :>> Classes can be dynamically added by adding to the CDT class. :> :>This is extra hassle at client sites and IMHO should be avoided. With the CDT class, it is just a few RACF commands. RDEFINE CDT class + CDTINFO(+ MAXLENGTH(100) + RACLIST(ALLOWED) + GENLIST(ALLOWED)+ FIRST(ALPHA,NATIONAL,NUMERIC) + OTHER(ALPHA,NUMERIC,NATIONAL,SPECIAL) + POSIT(posit) + DEFAULTRC(rc) /* 8=fail w/o profile, 4=use OPER */ + OPERATIONS(oper) /* YES=Operations always allowed */ + ) SETROPTS RACLIST(CDT) REFRESH No need for assemblies or anything. If they are going to write rules, they need the RACF knowledge anyway. :>Long ago, we suggested clients create an "EJES" class for our (E)JES :>product. There are three popular security products: RACF, ACF2, and TSS. :>Unless you are well-versed in all three of them, I recommend you steer :>clear of recommending new classes be created. (These days we recommend :>clients use the existing "SDSF" class for (E)JES resources.) Yeah, if you have a mirror class, great. :>I recommend you use the XFACILIT class instead of FACILITY. Its raison :>d'être addresses exactly your issue: resources in FACILITY are too short. To each their own. For a distributed product I would recommend defining your own class. Much more flexibility and you don't have to worry about something else screwing with you. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RACF, the FACILITY class, and z/XDC
You should make your own class. Classes can be dynamically added by adding to the CDT class. On Sun, 12 Nov 2023 05:40:03 -0500 David Cole wrote: :>I've got a problem. Decades ago, I made some assumptions about RACF's :>FACILITY class that have turned out to be wrong. :>Currently, I'm working on implementing a new security rule for z/XDC, :>and the individual rules ("entities") can be up to 59 characters long. :>Decades ago, when I was porting z/XDC's security rules from ACF2 to :>RACF, I made the decision to piggy-back my security rules into RACF's :>FACILITY class. I didn't know much about RACF then (and I still :>don't), and it did not occur to me that rule length would be an :>issue. I was wrong. It is an issue. :>Yesterday, I was testing with an instance of the new rule that was 44 :>characters long. Boom! My "RACROUTE REQUEST=AUTH" (racheck) call :>failed with "ICH409I 282-054 ABEND DURING RACHECK PROCESSING". This :>basically means that the entity I passed (my 44-character rule) was :>too long for its class (FACILITY). :>Ouch! :>So now I have several questions that I'm hoping someone here can :>provide answers to. :>* What is the longest entity the FACILITY class will accept? :>* Where do I find that specific fact doc'd? :>* Is there a command that will display that information? :>* Is there a catch-all class that z/XDC can use for its rules :>other than FACILITY? :>* Where do other vendors put their rules? -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Well, I guess RESMGR is documented as only supporting 24/31 bit
It does not check SYSSTATE AMODE64. But even so, as it ends up issuing a PC there is no real reason not to support 64 bit. Using LLGT to get the CVT address is common in other macros. Document that parameters need to be below the bar. In other cases I have used OPSYN to examine instructions and replace them, i.e., change the L 14,16(0,0) to LLGT 14,16(0,0) but Instead I will need to document the reason for the extra SAM's. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
IPCS verb to format the pending RESMGR requests
For example, it appears that ASSBRMA is pointing to the address space level blocks, but It isn't obvious to me what the block looks like. No real luck finding the mappings. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
ATTACHing a task in an arbitrary key
I see there is support for specifically key 9 (which also requires SZERO=NO) Tried attaching DISP=NO KEY=NINE,SZERO=NO, altering TCBPKF and it seems OK. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Can someone provide me with information on the DPSS subsystem
Don't see references to DD SUBSYS . On Thu, 19 Oct 2023 18:51:44 +0100 Patrick Loftus wrote: :>This any use? :>https://www.ibm.com/docs/en/zos/3.1.0?topic=mode-defining-dpss :> :> :>-Original Message- :>From: IBM Mainframe Discussion List On Behalf Of :>Binyamin Dissen :>Sent: Thursday, October 19, 2023 6:44 PM :>To: IBM-MAIN@LISTSERV.UA.EDU :>Subject: Can someone provide me with information on the DPSS subsystem :> :>I am examining a dump and seeing that SYSOUT is directed to the DPSS :>subsystem with the parm XMEM. :> :>Looking at the DPSS modules in storage I see compile dates from 1997 but no :>useful eyecatchers. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Can someone provide me with information on the DPSS subsystem
I am examining a dump and seeing that SYSOUT is directed to the DPSS subsystem with the parm XMEM. Looking at the DPSS modules in storage I see compile dates from 1997 but no useful eyecatchers. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IPCS and Rexx
The example that I sent - IS - doing a RUNCHAIN. It is following the SSCT chain extracting information. All you need to do is do something similar with your control blocks, just using ADDRESS IPCS "NOTE 'text'" for the control block information that you want in the IPCS report. Most of my IPCS EXECs have the subroutine DOASAY: PROCEDURE EXPOSE DEBUGFLAG ARG TEXT NOTE "'"TEXT"'" IF DEBUGFLAG = "DEBUG" THEN SAY TEXT RETURN so I can CALL DOASAY string-expression On Wed, 11 Oct 2023 03:58:49 -0400 Joseph Reichman wrote: :>Thanks :> :>That was very helpful back to my first beef :> :>The EVAL .. subcommands particular to Rexx clist are interspersed among those IPCS subcommands done by hand :> :>The reason I think I cannt get around verbx assembler exit is because I want to create a structure to be used in the run chain command and I think that necessitates the use of the BLSQS assembler macros :> :>> On Oct 11, 2023, at 2:18 AM, Binyamin Dissen wrote: :>> :>> ?I am still mystified why you want to use CBF out of REXX code. :>> :>> Use EVAL to get the storage. I would think that it would be much easier to :>> manipulate the control block itself rather than parse the CBF output. :>> :>> Here is a REXX program to show the subsystem control blocks. :>> :>> /* REXX */ :>> ARG REQNAME :>> ADDRESS IPCS :>> SSNAME = "" :>> POINTER = "" :>> SSCTADDR = "" :>> "EVAL 10.?+128?+18 REXX(STORAGE(SSCTADDR))" :>> DO WHILE SSCTADDR ¬= "" & RC = 0 :>>"EVAL" SSCTADDR"+8 REXX(STORAGE(SSNAME))" :>>"EVAL" SSCTADDR"+4 REXX(STORAGE(POINTER))" :>>IF REQNAME = "" THEN :>>SAY "SSCT AT ADDRESS" SSCTADDR "NAME" X2C(SSNAME), :>>"NEXT" POINTER :>>ELSE :>>IF REQNAME = X2C(SSNAME) THEN DO :>>"EQUATE SSCT"REQNAME SSCTADDR"." :>>SAY "SSCT"REQNAME "SET TO" SSCTADDR :>>RETURN 0 :>>END :>>SSCTADDR = POINTER :>>END :>> IF REQNAME <> "" THEN :>>SAY "SUBSYSTEM" REQNAME "NOT FOUND" :>> RETURN 0 :>> :>> On Tue, 10 Oct 2023 21:02:53 -0400 Joseph Reichman :>> wrote: :>> :>> :>Hi :>> :> :>> :>I am posting this message here and at the TSO/REXX LISTSERV not sure which :>> :>is more appropriate. :>> :> :>> :>Would anyone know where the documentation is for IPCS and REXX :>> :> :>> :>Are all the valid commands that are on ISPF PANEL BLSPDSLE if so is the :>> :>command/subcommand in Rexx documented any where :>> :> :>> :>I mean formatting a control block doesn't seem like it can be done in Rexx :>> :>because it requires the BLSQMDEF BLSQMFLD and BLSQSHDR so I guess that has :>> :>to be Assembler :>> :> :>> :>Anu information or telling me where the doc is would help :>> :> :>> :>thanks :>> :> :>> :> :>> :>-- :>> :>For IBM-MAIN subscribe / signoff / archive access instructions, :>> :>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN :>> :>> -- :>> Binyamin Dissen :>> http://www.dissensoftware.com :>> :>> Director, Dissen Software, Bar & Grill - Israel :>> :>> -- :>> 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 -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IPCS and Rexx
I am still mystified why you want to use CBF out of REXX code. Use EVAL to get the storage. I would think that it would be much easier to manipulate the control block itself rather than parse the CBF output. Here is a REXX program to show the subsystem control blocks. /* REXX */ ARG REQNAME ADDRESS IPCS SSNAME = "" POINTER = "" SSCTADDR = "" "EVAL 10.?+128?+18 REXX(STORAGE(SSCTADDR))" DO WHILE SSCTADDR ¬= "" & RC = 0 "EVAL" SSCTADDR"+8 REXX(STORAGE(SSNAME))" "EVAL" SSCTADDR"+4 REXX(STORAGE(POINTER))" IF REQNAME = "" THEN SAY "SSCT AT ADDRESS" SSCTADDR "NAME" X2C(SSNAME), "NEXT" POINTER ELSE IF REQNAME = X2C(SSNAME) THEN DO "EQUATE SSCT"REQNAME SSCTADDR"." SAY "SSCT"REQNAME "SET TO" SSCTADDR RETURN 0 END SSCTADDR = POINTER END IF REQNAME <> "" THEN SAY "SUBSYSTEM" REQNAME "NOT FOUND" RETURN 0 On Tue, 10 Oct 2023 21:02:53 -0400 Joseph Reichman wrote: :>Hi :> :>I am posting this message here and at the TSO/REXX LISTSERV not sure which :>is more appropriate. :> :>Would anyone know where the documentation is for IPCS and REXX :> :>Are all the valid commands that are on ISPF PANEL BLSPDSLE if so is the :>command/subcommand in Rexx documented any where :> :>I mean formatting a control block doesn't seem like it can be done in Rexx :>because it requires the BLSQMDEF BLSQMFLD and BLSQSHDR so I guess that has :>to be Assembler :> :>Anu information or telling me where the doc is would help :> :>thanks :> :> :>-- :>For IBM-MAIN subscribe / signoff / archive access instructions, :>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: issuing a IPCS subcommand from an IPCS exit
Why would you want to read the results of a CBF in your exit? Process the actual control block. On Mon, 9 Oct 2023 16:50:22 -0400 Joseph Reichman wrote: :>What if I need the info in the exit :>Is there any way of getting it :>On Mon, Oct 9, 2023 at 4:49 PM Seymour J Metz wrote: :>> IPCS executes the command after you return from the exit. :>> From: IBM Mainframe Discussion List on behalf :>> of Joseph Reichman :>> Sent: Monday, October 9, 2023 10:40 AM :>> To: IBM-MAIN@LISTSERV.UA.EDU :>> Subject: issuing a IPCS subcommand from an IPCS exit :>> I would like to issue an IPCS subcommand (in an exit) to be specific what :>> asid's are in dump so if I did this by hand it would be :>> IP CBF RTCT :>> Looking at the IPCS customization guide :>> Services Available to an IPCS Exit Routine :>> Under TSO/E services bullet 2 :>> 2. The STACK service and the TSO/E EXEC command can be used to queue :>> subcommands and CLISTs, respectively, to be processed by IPCS immediately :>> after completion of the current subcommand :>> Does this explain how if I wanted to execute the above command in a exit I :>> would if someone could explain would appreciate it -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Israel
On Mon, 9 Oct 2023 09:02:42 -0500 Steve Beaver <050e0c375a14-dmarc-requ...@listserv.ua.edu> wrote: :>How any of you guys are in the IDF reserves? Not at my age. Many relatives were called up. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Israel
Thanks for the concern. I live in Jerusalem. There were air raid sirens, and I heard some bombs, but praise G-d I am OK. On Sun, 8 Oct 2023 11:45:40 -0500 Steve Beaver <050e0c375a14-dmarc-requ...@listserv.ua.edu> wrote: :>Has anyone heard from Benyamin in Israel since the shit storm has started? :> :>Sent from my iPhone :> :>No one said I could type with one thumb :> :>-- :>For IBM-MAIN subscribe / signoff / archive access instructions, :>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IPCS: Can ADPLSACC Service code access 64 bit storage
On Thu, 5 Oct 2023 15:53:48 -0400 Joseph Reichman wrote: :>Can ADPLSACC Service code access 64 bit storage My old code uses XMSP for 64 bit storage. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SCHEDIRB
On Wed, 4 Oct 2023 12:06:15 + Seymour J Metz wrote: :>Peter: is there a redbook that discusses the role of the IRB, or, more generally, a document suitable for citing on Wikipedia that discusses the RB types in lay terms? Not Peter, but I have used IRBs in two cases. (1) In SRB mode, but need to do stuff that requires TCB. (2) I want to get control between RBs, i.e., my coded is invoked under a PRB and I want to get control when that RB ends (not the TCB since it may end much later). Think IMS. Don't recall any applications where in task mode in that memory I want to run an RB under a different task. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SCHEDIRB
No, it does not. On Tue, 3 Oct 2023 21:19:58 -0500 Jon Perryman wrote: :>On Mon, 2 Oct 2023 16:18:24 -0400, Joseph Reichman wrote: :>>Do suggest when scheduling an Async IRB I have a Wait/Post :>I only know the basics about IRB because none of the products I've worked on use it. Is async for the address space or for the TCB? In other words, does the SCHEDIRB wait for IRB completion? The doc only mentions the TCB so I've always assumed only the TCB running the IRB. It wouldn't take much to test it but I wouldn't trust until 100% sure the address space waits on the IRB completion. -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: z/OS 3.1 documentation
On Fri, 29 Sep 2023 10:38:33 -0500 Bobbie Jo Justice wrote: :>https://www.ibm.com/docs/en/zos/3.1.0?topic=documentation-pdf-files-zos-310-library Have you played with the HTML to make it work against local files? -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SCHEDIRB
On Thu, 28 Sep 2023 20:37:02 -0500 Jon Perryman wrote: :>Another problem with your code dawned on me. Your IRB routine and passed storage could be freed while the IRB is still executing. The IRB routine only does a LOAD but the I/O time could be long enough for the originating program to end and possibly the TCB. Remember you are running sup key 0 which makes you the destroyer of worlds. Other than via a CALLRTM (which should drive the ESTAE) the task cannot be ripped out while an RB is running (and still have a useable address space). -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN