Re: IPCS ADPLSEQS
Thanks for your help Don. I finally did get the symbol defined correctly … symbol 00. ASID(X'0046') DSPNAME(symbol) LENGTH(X'1000') AREA(symbol) DROP I was priming the ESSY with a DSECT=NO version and it had a -1 as the asid word. I was only updating the 2nd half of the word with a 2 byte ASID leaving in the top half. (dumb mistake) Thanks again, Dan -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IPCS ADPLSEQS
The ESSY is rather odd … If I use ABITS=64 it this request gets a RC 12. When I list the symbol I get symbol 00. ASID(X'0026') LENGTH(X'1000') AREA(symbol) DROP If I issue "L symbol DSPNAME(symbol)" and list the symbols again a mysterious "X" symbol is defined … X 00. ASID(X'0026') DSPNAME(symbol) LENGTH(X'1000') AREA(symbol) DROP This stuff is just bizarre and not well documented. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
IPCS ADPLSEQS
I'm using ADPLSEQS to define a symbol in an IPCS verb exit. I'm trying to define a symbol to a dataspace. When I issue "L symbol" I get LIST 00. ASID(X'0046') LENGTH(X'01') AREA(Symbol) ASID(X'0046') ADDRESS(00.) KEY(08) PREFIXED I can issue "L symbol DSPNAME(symbol)" but I wonder if I can define the symbol so that is the default. Does someone know what field in the ESSY I need to set, and to what? Thanks -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Creating IPCS format models with flag byte interpretation
Here's one ... ... BLSQMFLD NAME=FIELD001,OFF=X'000389',LEN=1,VIEW=X'0280',DECODE ... FIELD001 BLSQMDEF CBLEN=1,OFFSETS=NOPRINT,PREFIX=0 BLSQMFLD SHDR=LINE0001,VIEW=X'FF00',NEWLINE BLSQMFLD SHDR=FLAG0001,VIEW=X'8008',NEWLINE BLSQMFLD SHDR=FLAG0002,VIEW=X'4008',NEWLINE BLSQMFLD SHDR=FLAG0003,VIEW=X'2008',NEWLINE BLSQMFLD SHDR=FLAG0004,VIEW=X'1008',NEWLINE BLSQMFLD SHDR=FLAG0005,VIEW=X'0808',NEWLINE BLSQMFLD SHDR=FLAG0006,VIEW=X'0408',NEWLINE BLSQMDEF END ... LINE0001 BLSQSHDR 'FIELD0001 --' FLAG0001 BLSQSHDR 'FLAGBIT1 - B'1...' ' FLAG0002 BLSQSHDR 'FLAGBIT2 - B'.1..' ' FLAG0003 BLSQSHDR 'FLAGBIT3 - B'..1.' ' FLAG0004 BLSQSHDR 'FLAGBIT4 - B'...1' ' FLAG0005 BLSQSHDR 'FLAGBIT5 - B'1...' ' FLAG0006 BLSQSHDR 'FLAGBIT6 - B'.1..' ' -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Finding the names of hsm's BCDSs
Actually, if you check SHOWZOS it bounces through control blocks to locate the BCDS, MCDS, OCDS an JRNL. Dan -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Odd SMF 30 data within IEFACTRT (Part 2)
Thank you Jim, nice to know that THAT field is unimportant from now on. I did find this in one of the manuals (2.3 SMF) ... SMF30PSC 8 Binary Number of CPU page seconds for this address space, in page millisecond units. (A page millisecond unit equals 1.024 milliseconds.) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Odd SMF 30 data within IEFACTRT (Part 2)
Thanks to all who responded to my previous post. After 40 years in the business I learned something new...amazing ;-) Truth is, while processing the SMF30 this is the ONLY section (zEDC Usage Statistics Section) that I encountered which has an offset/length and a ZERO count. From this point on, I will ALWAYS check for all three before assuming that there is data at that offset. I still have 4 fields in the SMF30 that I'm not sure how to format them. Can anyone give a quick explanation of how these fields are formatted and if there are other fields in the SMF30 that are a similar format? Is there any CBT code as an example for formatting the SMF30? Can you point me to an IBM manual that explains this? SMF30CRP DC F'0' RqsvCPUtimeConsumedWhileCRMpromoted * CPU time consumed for an address * space or job while promoted due * to chronic resource contention * (in 1024 millisecond units). For * interval records, this field * contains only the time consumed * during the interval itself. @LJA … SMF30ERS DSCL8' 'Expanded storage page residency *time in page-milliseconds @DWA * … SMF30_US_QueueTime DC DL8'0' Total queue time. The amount of time *in microseconds from when the request was *submitted until the adapter started *executing the request.@0JA SMF30_US_ExecTime DC DL8'0' Total execution time (in microseconds) * @0JA Again, I appreciate your assistance. DanD -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: AW: Odd SMF 30 data within IEFACTRT
Thank you peter. You are correct and this was entirely my mistake. I (incorrectly) assumed that if an offset and length existed for a SMF30 segment that there must be at least 1. WRONG, I need to check all three for non-zero values. With the SMF that I've processed so far over the last couple weeks, the zEDC Usage Statistics Section is the only one that I've encountered that has an offset and length and a zero count. Anyway, I was incorrect and have since updated my code. Thanks again Peter and all those who pointed out my error. Dan The fields you show look to me as if they partly contain EBCDIC data. E.g. the first field has x'E2E3C5D7' which is c'STEP'. Has there been any zEDC compression in that step? If not, the section is not there and you are looking at random data. -- Peter Hunkeler -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Odd SMF 30 data within IEFACTRT
Thank you Berry, "As noted, the Length value of zero is now used to indicate that the actual length is in the first two bytes at the offset, if COUNT is non-zero." Do you know of a field where this is the case? I've never seen that. Thanks again, Dan -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Odd SMF 30 data within IEFACTRT
Thanks everyone. I WILL check all 3 fields for zeros in the future. It's still odd that the 1st record has an offset and length but the count is zeros... "Here's the section your looking for ... it's this big ... and there are NONE" what? ;-) Dan -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Odd SMF 30 data within IEFACTRT
I still find this a little odd but it's explainable. The OFFSET field has a value but the COUNT field is zero. SMF30USO=04C8 SMF30USL=0040 SMF30USN= Why give an offset and length of a null segment. Weird, but I can code around it. Thanks for waking me up ;-) Dan -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Odd SMF 30 data within IEFACTRT
This is just a test IEFACTRT exit that I have to examine the various fields in the SMF30 record. In this case it simply goes to the zEDC Usage Statistics Section and formats the fields in that section in hex. Thanks, Dan -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Odd SMF 30 data within IEFACTRT
I've been looking at various data available within the IEFACTRT exit's SMF 30 record. We're running zOS 2.2 and are quite current on maintenance. I must note that this is on a zPDT box which may or may not make a difference. The data that I find odd is in the "zEDC Usage Statistics Section". Here are the fields in the section and their HEX values: SMF30_US_ComprReq 200F2A40E2E3C5D7 SMF30_US_ComprReq_Prob D3C9C249 SMF30_US_QueueTime7FF8 SMF30_US_ExecTime 7FF8 SMF30_US_Def_UncomprIn E2E8E2D7D9C9 SMF30_US_Def_ComprOut D5E3 SMF30_US_Inf_ComprIn SMF30_US_Inf_DecomprOut200F2A3F The EXECTime and QueueTime are supposed to be in microseconds. Why does one have "7FF8" in the 1st word and the other have it in the 2nd word? ComprReq is the total number of compressions & decompressions (problem and supervisor state). ComprReq_Prob is the number in problem state. Shouldn't it be a subset of ComprReq? I'm not sure what other fields are incorrect. Does anyone else find these odd or is it just me? Thanks, Dan -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Time Mic conversion
Where's the LIKE button ;-) I totally agree Paul. I prefer STCK/STCKE format but when given data like the various forms of TIME/DATE in the SMF30 record you have to deal with what you have. BTW, WHY are there so many formats in the SMF30? Maybe that's what happens over time. Dan -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Time Mic conversion
As TIME MIC is always the time since midnight of the current day, (as you said) how useful is it if it crosses over midnight? Without the DATE portion you can tell one job ran at 10:00 and the other ran at 23:00 but which day? Yesterday? A year ago? Again, doesn't sound very useful to me ;-) Dan -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Time Mic conversion
Thanks everyone. I also thought that shifting 12 bits to the right was required, but it isn't. I used the 8 byte output from "TIME MIC" as input to "STCKCONV ... TIMETYPE=BIN". The output is a "TIME BIN" doubleword with the 2nd word (date) zeros. Paul was correct ... time of day since midnight where? or when ... last week? For my test case I issued "TIME BIN" and saved TODAYs date as the 2nd word "TIME BIN" creates 00682B6E0117293F which converts to 18:57:48.62 2017/293 "TIME MIC" creates FE94478AEBC0 which STCKCONV changes to 00684690 / 006846900117293F after today's date inserted. This is identical to the "TIME BIN" output and generates the same character time value. Now the big question ... how useful is "TIME MIC" ? :-) DanD -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Time Mic conversion
Thanks Charles. I searched back to 2000 and there's very little for "TIME MIC" or microseconds. Nothing that I could find for it's conversion. There's loads for STCK conversion which I already had old code for, and it's even easier now with services like STCKCONV. DanD -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Time Mic conversion
I'm being a little lazy today (of course, it's Friday ;-) ) and wonder if anyone has assembler code to do what I need. I have an 8 byte field that contains the "TIME MIC" value. Are there any CLOCK conversion routines to convert this to a printable format? For example, I want x'CA3B6801B2C0' to print as 15:04:46.25 2017/293 Thanks, Dan -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Catalog Entry Deletion using a String
Thanks Lizette. The double * must be new (within the last 25 years :-) ). Back in the day only a single * could be used to replace a single qualifier. It was great for GDSs (ie. HLQ.GDGBASE.*). Dan D -Original Message- From: Lizette Koehler Sent: Friday, August 14, 2015 7:27 PM Newsgroups: bit.listserv.ibm-main Subject: Re: .Re: Catalog Entry Deletion using a String The z/OS needs to be at z/OS V1.11 or higher I think for this mask process to work. Lizette -Original Message- From: Lizette Koehler stars...@mindspring.com Sent: Aug 14, 2015 4:00 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: .Re: Catalog Entry Deletion using a String So in TSO HELP DELETE there are two options MASK - The entryname is a MASK filter used to select a range of catalog entries to be deleted. NOMASK - the entryname is the name of a catalog entry to be deleted. I have not worked with MASK yet, but might be worth a check out. Or HLQ.** should work as well. Lizette -Original Message- From: Mike Schwab mike.a.sch...@gmail.com Sent: Aug 14, 2015 3:18 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: .Re: Catalog Entry Deletion using a String Correct. HLQ.** (two asterisks) covers 0-22 levels of qualifiers. On Fri, Aug 14, 2015 at 5:05 PM, DanD mvs-j...@sympatico.ca wrote: Is my head back in the 70's? It used to be that DELETE HLQ.* would only delete the single level after HLQ. If the DSN was HLQ.ONE.TWO it would NOT be deleted. I couldn't see anything in H DELETE under TSO to explain how it handles generics. Dan D -Original Message- From: Lizette Koehler Sent: Thursday, August 13, 2015 12:14 PM Newsgroups: bit.listserv.ibm-main Subject: Re: Catalog Entry Deletion using a String Yes. As others stated, look at the HELP DELETE under TSO. I always back up what I am going to delete just in-case there is something in there I want to keep. You can also use DFDSS to DUMP DELETE as well. Lizette -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Peter Sent: Thursday, August 13, 2015 8:20 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Catalog Entry Deletion using a String Hello All, Is it possible to delete a catalog entry using a first HLQ alone ? Like deleting all entry of ZOS21.** instead of specifying each and every qualified dataset ? Peter -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
.Re: Catalog Entry Deletion using a String
Is my head back in the 70's? It used to be that DELETE HLQ.* would only delete the single level after HLQ. If the DSN was HLQ.ONE.TWO it would NOT be deleted. I couldn't see anything in H DELETE under TSO to explain how it handles generics. Dan D -Original Message- From: Lizette Koehler Sent: Thursday, August 13, 2015 12:14 PM Newsgroups: bit.listserv.ibm-main Subject: Re: Catalog Entry Deletion using a String Yes. As others stated, look at the HELP DELETE under TSO. I always back up what I am going to delete just in-case there is something in there I want to keep. You can also use DFDSS to DUMP DELETE as well. Lizette -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Peter Sent: Thursday, August 13, 2015 8:20 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Catalog Entry Deletion using a String Hello All, Is it possible to delete a catalog entry using a first HLQ alone ? Like deleting all entry of ZOS21.** instead of specifying each and every qualified dataset ? Peter -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RDJFCB
Yes, Why not? Still, why not use RDJFCB and an ARL to return all the dsnames in the concatenation? Dan -Original Message- From: Shmuel Metz , Seymour J. at 07:07 PM, Walt Farrell said: I don't think you can safely get dsnames for allocated ddnames just by chasing control blocks. Why not? That _can_ work with if the system is configured to have SWA below the line, Or above, with a bit more code. As soon as you have SWA above the line I think you have to use SWAREQ or some other system service to do at least part of the processing. While I consider it cleaner to use SWAREQ, there's plenty of code on the CBT tape that does it all inline. -- -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Alternative to TSO RECEIVE
Hi Tom, I believe the file to look at is File 790, SRS - Sysout Retrieval Service. It uses the SAPI interface to pull data off of spool. DanD -Original Message- From: Thomas Berg Sent: Friday, October 10, 2014 8:29 AM Newsgroups: bit.listserv.ibm-main Subject: Re: Alternative to TSO RECEIVE -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Elardus Engelbrecht Sent: Friday, October 10, 2014 1:59 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Alternative to TSO RECEIVE Thomas Berg wrote: I'm using TSO RECEIVE to read outputs from JES SPOOL. On what z/OS level are you? 1.13 The outputs is created by allocating and writing as: Rc = BPXWDYN('ALLOC LOGROUTT SYSOUT(8) SPIN(UNALLOC) DEST(systarget.userid) RECFM(V,B) LRECL(varies) BLKSIZE(32756) REUSE') 'EXECIO' s.0 'DISKW LOGROUTT (STEM S. FINIS' The problem is the performance. There is many files with mostly one record. Receive takes from 1/10 to 1 second elapsed time to get one file. Ouch. And you probably have gazillions of them? You could say so... I have tried the REXX/ISFACT interface to SDSF but it was only a minor, if any, improvement. Plus - I remember now - that I can't (sometime?) purge the files after the read due to some racfrule. RECEIVE obviously isn't affected by those. I would also go that route. But in the first place I would like the jobowner to write the outputs in the first place to datasets. Say for example changing that ALLOC statements somehow. Well, this application is a sort of a primitive log function made by me. The benefit of this solution is 1: It's independent of the environment (MVS batch, TSO etc.) 2: It's relative fast (no alloc of a dataset etc.) 3: There is no enque problem or racf dependency regarding DSName. Possible alternatives which I have NOT tested out for your scenario: Offloader? External writer, probably RYO one? I think there are Assembler (better performance) examples on the CBTTAPE. Anyone out there who can remember in what file(s) it was? This would be interesting. I have browsed the cbt descriptions but not found any that seems relevant. We have a commercial spool offloader we use to extract the job outputs and place it in datasets which can be browsed in an ISPF screen. That offloader frees up our spool space by extracting job outputs 24 hours per day and keep it for x days as required by our users. Any suggestion for a better performance? Not much. There is a lot of overhead for just one record as found PER job. JES2 and your interface to open it from both sides. Then the actual transfer of that line and then close on both sides. Then JES2 has to update its checkpoints and do some spooloverhead. Then your interface has to unalloc it and catalog it. And all of this - if your JES2 is really busy, you will have to wait your turn. Perhaps little WLM tuning can help? Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Best Regards, Thomas Berg ___ Thomas Berg Specialist zOS/RQM/IT Delivery Swedbank AB (Publ) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IKJTSOxx Auth pgm cmds PC rtns
What am I missing WHY can't you use IKJEFTSR? Dan -Original Message- From: MichealButz Sent: Friday, June 27, 2014 11:01 AM Newsgroups: bit.listserv.ibm-main Subject: Re: IKJTSOxx Auth pgm cmds PC rtns Rob,, I can't use the TSO service facility IKJEFTSR ( I would like issue certain non-authorized TSO commands) because my program is in IKJEFTSOxx AUTHPGM/CMD I know that PC rtn's are separate entities so I am looking for the PC rtn to use IKJEFTSR -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Rob Scott Sent: Friday, June 27, 2014 10:52 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: IKJTSOxx Auth pgm cmds PC rtns Are you trying to say that you have a TSO command processor that is attempting to define and own a PC routine using LXRES, ETDEF, ETCRE and ETCON ??? Rob Scott Lead Developer Rocket Software 77 Fourth Avenue . Suite 100 . Waltham . MA 02451-1468 . USA -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Micheal Butz Sent: 27 June 2014 15:38 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: IKJTSOxx Auth pgm cmds PC rtns Thanks let me get to the point The program that creates the PC rtn Is the AUTHCMD/PGM so I cann't use IKJEFTSR However I am thinking the PC rtn might be able to Thanks Sent from my iPhone On Jun 27, 2014, at 10:30 AM, John McKown wrote: No. If the PC routine does not require APF authorization, then the IKJTSOnn AUTH... entry isn't relevant. As an example, the STORAGE macro does a PC to do its magic, not an SVC. But a program which uses the STORAGE macro doesn't need to be in the list(s) mentioned. Only programs which are linked as AC=1 and which you want to be invoked by TSO with APF authorization active need to be listed. On Fri, Jun 27, 2014 at 8:57 AM, MichealButz wrote: Hi, I know if you want to run authorized code under TSO you have to place it in IKJTSOxx AUTHCMD/PGM What if that code generates a PC rtn does TMP know of it Thanks - -- There is nothing more pleasant than traveling and meeting new people! Genghis Khan Maranatha! John McKown -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IKJTSOxx Auth pgm cmds PC rtns
Never mind ;-) After a quick test I now see that IKJEFTSR gets return code x'14' reason code x'3C'... An authorized program or command requested that an unauthorized function be invoked. Dan -Original Message- From: DanD Sent: Friday, June 27, 2014 4:59 PM To: IBM Mainframe Discussion List Subject: Re: IKJTSOxx Auth pgm cmds PC rtns What am I missing WHY can't you use IKJEFTSR? Dan -Original Message- From: MichealButz Sent: Friday, June 27, 2014 11:01 AM Newsgroups: bit.listserv.ibm-main Subject: Re: IKJTSOxx Auth pgm cmds PC rtns Rob,, I can't use the TSO service facility IKJEFTSR ( I would like issue certain non-authorized TSO commands) because my program is in IKJEFTSOxx AUTHPGM/CMD I know that PC rtn's are separate entities so I am looking for the PC rtn to use IKJEFTSR -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Rob Scott Sent: Friday, June 27, 2014 10:52 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: IKJTSOxx Auth pgm cmds PC rtns Are you trying to say that you have a TSO command processor that is attempting to define and own a PC routine using LXRES, ETDEF, ETCRE and ETCON ??? Rob Scott Lead Developer Rocket Software 77 Fourth Avenue . Suite 100 . Waltham . MA 02451-1468 . USA -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Micheal Butz Sent: 27 June 2014 15:38 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: IKJTSOxx Auth pgm cmds PC rtns Thanks let me get to the point The program that creates the PC rtn Is the AUTHCMD/PGM so I cann't use IKJEFTSR However I am thinking the PC rtn might be able to Thanks Sent from my iPhone On Jun 27, 2014, at 10:30 AM, John McKown wrote: No. If the PC routine does not require APF authorization, then the IKJTSOnn AUTH... entry isn't relevant. As an example, the STORAGE macro does a PC to do its magic, not an SVC. But a program which uses the STORAGE macro doesn't need to be in the list(s) mentioned. Only programs which are linked as AC=1 and which you want to be invoked by TSO with APF authorization active need to be listed. On Fri, Jun 27, 2014 at 8:57 AM, MichealButz wrote: Hi, I know if you want to run authorized code under TSO you have to place it in IKJTSOxx AUTHCMD/PGM What if that code generates a PC rtn does TMP know of it Thanks - -- There is nothing more pleasant than traveling and meeting new people! Genghis Khan Maranatha! John McKown -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IKJTSOxx Auth pgm cmds PC rtns
Micheal, What are you trying to do? Maybe there's a better way to design your command. Dan -Original Message- From: Micheal Butz Sent: Friday, June 27, 2014 5:46 PM Newsgroups: bit.listserv.ibm-main Subject: Re: IKJTSOxx Auth pgm cmds PC rtns Because I aurhorized and in authcmd Sent from my iPhone On Jun 27, 2014, at 4:59 PM, DanD mvs-j...@sympatico.ca wrote: What am I missing WHY can't you use IKJEFTSR? Dan -Original Message- From: MichealButz Sent: Friday, June 27, 2014 11:01 AM Newsgroups: bit.listserv.ibm-main Subject: Re: IKJTSOxx Auth pgm cmds PC rtns Rob,, I can't use the TSO service facility IKJEFTSR ( I would like issue certain non-authorized TSO commands) because my program is in IKJEFTSOxx AUTHPGM/CMD I know that PC rtn's are separate entities so I am looking for the PC rtn to use IKJEFTSR -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Rob Scott Sent: Friday, June 27, 2014 10:52 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: IKJTSOxx Auth pgm cmds PC rtns Are you trying to say that you have a TSO command processor that is attempting to define and own a PC routine using LXRES, ETDEF, ETCRE and ETCON ??? Rob Scott Lead Developer Rocket Software 77 Fourth Avenue . Suite 100 . Waltham . MA 02451-1468 . USA -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Micheal Butz Sent: 27 June 2014 15:38 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: IKJTSOxx Auth pgm cmds PC rtns Thanks let me get to the point The program that creates the PC rtn Is the AUTHCMD/PGM so I cann't use IKJEFTSR However I am thinking the PC rtn might be able to Thanks Sent from my iPhone On Jun 27, 2014, at 10:30 AM, John McKown wrote: No. If the PC routine does not require APF authorization, then the IKJTSOnn AUTH... entry isn't relevant. As an example, the STORAGE macro does a PC to do its magic, not an SVC. But a program which uses the STORAGE macro doesn't need to be in the list(s) mentioned. Only programs which are linked as AC=1 and which you want to be invoked by TSO with APF authorization active need to be listed. On Fri, Jun 27, 2014 at 8:57 AM, MichealButz wrote: Hi, I know if you want to run authorized code under TSO you have to place it in IKJTSOxx AUTHCMD/PGM What if that code generates a PC rtn does TMP know of it Thanks - -- There is nothing more pleasant than traveling and meeting new people! Genghis Khan Maranatha! John McKown -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IPCS BLSQMFLD NAME=
Thanks for the reply Nick. I'm building a utility to that will take an assembled DSECT and create BLSQMDEF/BLSQMFLD BLSQSHDR for the flag mapping. This utility will build BLSQMFLD macros with OFF= and LEN= for each field. This will allow the NAME= to be any part of the label that I choose. Normally, the PREFIX= will be used to strip off a matching prefix but as that's only good for 8 bytes, I'll have to do something in the code. I'll add a PARM to this program to indicate the LAST 8 bytes of the label are to be used. Hopefully this will make the label more identifiable than the 1st 8 bytes. Dan -Original Message- From: Nick Jones Sent: Tuesday, April 29, 2014 9:21 AM Newsgroups: bit.listserv.ibm-main Subject: Re: IPCS BLSQMFLD NAME= On Wed, 16 Apr 2014 14:34:28 -0500, Dan mvs-j...@sympatico.ca wrote: We have our own IPCS format model which uses BLSQMDEF/BLSQMFLD. We use quite a few LONG labels. Many of these I can shorten by using the PREFIX= keyword and removing the beginning of the label which is often the same for all labels within the DSECT. The problem is with some of the labels where the matching prefix is 8 characters. Let's say I have a label of LongLabel_Field_Number1. If I code BLSQMFLD NAME=LongLabel_Field_Number1,DTYPE=EBCDIC the resulting label will be LongLabe. If I add PREFIX=16 to remove LongLabel_Field_ the macro produces an MNOTE INVALID VALUE SPECIFIED FOR PREFIX. Has anyone found a way around this problem? Of course, the BLSQMFLD macro could ALWAYS code OFF= LEN= which would allow ANY text to be placed in NAME=. I'd prefer not to do that. Thanks for any suggestions. Dan Hi Dan, Sorry for the delayed response, we must have missed this. BLSQMFLD output is somewhat built around the premise of being organized in 8 character chunks. With the label filling 8 characters and the ouput filling a multiple of 8 characters. Everything ends up aligned somewhat by 8 character sections. Longer (inline) labels might have broken that consistency. What I often see done is the use of the SHDR option to produce labels. ex: BLSQMFLD SHDR=SHDRxx,VIEW=X'0200',NEWLINE BLSQMFLD NAME=FOO,OFF=X'00EC',LEN=4,VIEW=X'0200' ... SHDRxx BLSQSHDR 'zzz ' This will produce a label on one line followed by the field contents on another line (probably without a label). -Nick Jones z/OS Service Aids -- 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
DEVTYPE and the tracking facilitiy
I can't seem to find any doc on how to code this. If someone knows where it is, please point me in the right direction. I have a DEVTYPE macro DEVTYPE DDNAME,WRKDEVT,DEVTAB,RPS From the returned WRKDEVT area I use the 1st 4 bytes which is the device type and +12 (decimal) which is the track size information. The above format of DEVTYPE shows up on the TRACKING report (D O,TR). How can I code a DEVTYPE macro to return the track size information without it showing on the tracking report? The following DOES NOT return the RPS information: DEVTYPE DDNAME,(DVAREA,DVAREAL),INFOLIST=INFOLIST ... INFOLIST DEVTYPE INFO=(DEVTYPE,DASD,SUFFIX) Thanks for your help. Dan D -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Authorized ISPF command Failure
Is this an ISPF dialog or is it just a command processor invoked while in ISPF? Does it work as expected from READY? Dan -Original Message- From: Micheal Butz Sent: Sunday, January 12, 2014 4:36 PM Newsgroups: bit.listserv.ibm-main Subject: Re: Authorized ISPF command Failure Yes to all should work ? Sent from my iPhone On Jan 12, 2014, at 4:19 PM, retired mainframer wrote: Is it linked AC(1)? Is it in a library that is APF authorized? :: -Original Message- :: Behalf Of MichealButz :: Sent: Saturday, January 11, 2014 11:11 PM :: Subject: Authorized ISPF command Failure :: :: Hi, :: :: I have a command processor using APF services :: I put the entry in IKJTSO00 AUTHCMD and AUTHPGM :: :: In Addtion I put an entry in ISPTCM with bit '20' indicating is a :: authorized :: command and still :: I get :: :: Authorized command 'SPSWT'. Return code = 20. Reason code = 56. :: ISPD250 Invocation error - System error encountered invoking authorized :: command 'SPSWT'. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: JCL - What is it and what could it be ?
Riddle me this grasshopper; How do you suppress the execution of the 1st step in a job using existing JCL facilities ? Jobcard ... RESTART=STEP2 Dan -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: GDG question
Robert, No other job can reference a relative generation while the create job is running. The create job holds an exclusive ENQ on the GDG base as well as GDG(0) preventing any other job from running. This does not prevent another address space from referencing the generations by absolute name. Dan -Original Message- From: Robert A. Rosenberg Sent: Sunday, October 27, 2013 4:49 PM Subject: Re: GDG question At 10:57 -0700 on 10/26/2013, Jon Perryman wrote about Re: GDG question: Job's that want to reference the current GDG will use (0). Creating the new version (+1) does not delay use of (0). If you require others wait for the new version (+1), then you will need DISP=OLD for the (0) GDG while creating the new version. GDG's (0), (+1), (+2), ... (-1), (-2),.. are each unique datasets. The only commonality is they are referenced thru the GDG name. Treat them as different datasets. One warning about relative generation numbers. Lets say the current generation number is 1234. A job that reads GDG(0) and creates GDG(+1) will create generation 1235. While the job is still running, GDG(0) will stay as 1234 even to jobs that start while the create job is running. As soon as it ends GDG(0) becomes 1235 while GDG(-1) will now be 1234. Any job that was running during the create job will keep its GDG(0) reference as 1234 even in steps that start after the creating job ends and GDG(0) becomes 1235 - IOW: Who is GDG(0) is fixed when the job starts and is not affected by the creation of additional generations. This can cause problems if you code GDG(0) as DISP=OLD in a create job since all jobs that launch after it starts and reference GDG(0) will wait for that job to end BUT since that job creates a GDG(+1), the waiting jobs have already decided what generation is GDG(0) and thus will actually be working with GDG(-1) not the newly created generation when they run. I do not know of a way to insure you are getting GDG(+!) when you reference GDG(0) by waiting for it to be finished being created - You always get GDG(0) at the time you get launched. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Is it possible to write an exit to add DEFER to a VTAPE allocation?
Adding defer will only delay the tape mount until OPEN, the drives are still allocated. If you want to dynamically add defer you can use IEFUJI and flip SCTDEFER in the SIOTs. Dan -Original Message- From: Mike Schwab Sent: Friday, October 25, 2013 4:55 PM Newsgroups: bit.listserv.ibm-main Subject: Is it possible to write an exit to add DEFER to a VTAPE allocation? We have some job steps that use ICETOOL to copy 50 DASD or VTAPE datasets to two VTAPE datasets. We have not been able to convince the owner of the job to add DEFER to the allocation. So when a couple of these jobs run at the same time, we run out of our 512 VTAPE drives. Holds up other jobs, or HSM Migrate / Recalls until the step ends and releases the drives. I am hoping we can get these tapes drives down to just those actually being used at one moment (assuming ICETOOL does one file at a time instead of simultaneous coping of multiple files). -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: UNIT=SEP still alive (?)
From: Tom Russell ... JES2 would allocate as many tapes as there were steps, and rewind an unload the volume after each step and issue a mount for the same volume on the next tape drive. ... Not quite Tom. Device allocation for JES2 occurs at step initiation. Each step would allocate a single device. If RETAIN was coded AVR would recognize the mounted volume and reuse the same device for the next step. Dan D -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: UNIT=SEP still alive (?)
It was also useful when creating a backup so that the backup was not on the same device as the original. I noticed this... JCL example z/OS V1R12.0 Metal C Programming Guide and Reference SA23-2225-03 ... //SYSUT1 DD UNIT=(SYSDA,SEP=SYSLIB),SPACE=(CYL,(10,5)),DSN=SYSUT1 Dan -Original Message- From: Binyamin Dissen Back in Ye Olde days, it allowed for specifying that a different device address be used thus improving I/O performance. On Thu, 29 Aug 2013 20:48:30 + Pommier, Rex R. Rex.Pommier wrote: :OK, what does (did) SEP= do? The only thing the JCL reference says is that you can't use it as a JCL symbol in certain types of jobs. : :-Original Message- : :I just found the following in some IBM same JCL (job, actually): ://SYSUT1 DD UNIT=(SYSDA,SEP=(SORTLIB,SYSLMOD,SYSLIN)), :// SPACE=(1000,(60,20)) : :Last change date is half of the 2013 (creation date is probably 2005 or so). :As far as I know SEP is syntax checked and ignored for many moons, at least since first OS/390, but I vaguely remember somebody told me it was obsoleted with advent of MVS. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Weird ISPF scrolling problem
Hi Robert. I tried this exact scenario and it worked perfectly under PCOMM. As was suggested, what keys are defined? Did you try it with the DOWN command? Dan -Original Message- From: Itschak Mugzach Look like pf7 is not defined as up. Type KEYS to see it's value בתאריך 9 במרץ 2013 12:02, מאת Robert Prins I've got a weird problem with the ISPF editor disabling scrolling when there are hidden excluded lines. The problem occurs both on z/OS 1.10 and z/OS 1.6, and both with Tom Brennan's Vista tn3270 and with x3270, and of course it may have been solved in later releases of z/OS, or, pretty unlikely, both Vista and x3270 contain the same bug... What is the problem: View an empty member, add three lines, aaa bbb !!! and repeat those three lines as a group 100 times. Perform a X ! all followed by hide x Scroll at least a full screen down until a 'aaa' line is at the bottom of the screen Put the cursor on this particular 'aaa' line at the bottom of the screen Try scrolling up It does not work! Any clues? -- Robert AH Prins -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Enqueue during VSAM REPRO - Who is the culprit
Hi Lizette, Use DD statements and you can control the enqueue yourself ... REPRO IFILE(INPUT) OFILE(OUTPUT) REUSE IDCAMS always uses DISP=OLD for it's allocations. Dan -Original Message- From: Lizette Koehler Sent: Friday, March 08, 2013 2:20 PM Newsgroups: bit.listserv.ibm-main Subject: Enqueue during VSAM REPRO - Who is the culprit Esteem Listers - I have a simple issue, but I am unable to see a solution. Running z/OS V1.12. I create a new VSAM file. Then I REPRO current to new. Sometimes (not always) when this job runs I get REPRO IDS(NEW.VSAM.FILE)- . ODS(CURRENT.VSAM.FILE) REUSE .IKJ56225I DATA SET CURRENT.VSAM.FILE ALREADY IN USE, TRY LATER .IKJ56225I DATA SET IS ALLOCATED TO ANOTHER JOB OR USER .IDC0005I NUMBER OF RECORDS PROCESSED WAS .IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12 There does not appear to be any GRS messages in SYSLOG, and I am not finding anything in RMF Mon at this point. By the time I am notified, the job has already ended. I have read the past posts on how difficult this can be to identify the culprit. I am pulling VSAM SMF records and running them through DAF. As well as using ENQ(DETAIL) running RMF Post Processor. Just looking to see if there is anything else. Any suggestions? If not, I will put in a Share request that IBM at least identify the culprit when the REPRO or other IDCAMS/TSO commands run. Lizette Koehler -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Where current HLASM doc?
Charles, Are you using the OPTABLE PARM keyword? That will restrict the instructions available to you. Dan -Original Message- From: Charles Mills How does one turn on the new op codes, then? My (z/OS R13 collection) HLASM documentation of the MACHINE option (for example) ends with ZSERIES-4 Same as MACHINE(ZSERIES-3) but with the addition of support for the z10 instructions. Charles -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ISPF Scrollable area
Thank you Dave. The light finally went on. Looping to invoke the DISPLAY without a panel name allows the user to update as many fields as necessary (with no scrollable area repositioning) until they hit END (or CANCEL). IBM is looking into the fact that DOWN FRED leaves FRED on the command line and the cursor is not repositioned to the start of the line. Dan -Original Message- From: David Crayford Sent: Saturday, March 02, 2013 8:14 AM Newsgroups: bit.listserv.ibm-main Subject: Re: ISPF Scrollable area Dan, no worries. You can't do that in dialog test 7.2. You have to use 7.1 and launch your driver rexx or program. As I previously mentioned display the panel with a panel name and then drop into a display loop without the panel name. The link I sent you wrt panel reinitialization has a flow chart which explains in detail the flow. Also check the manuals for the REFRESH panel function which you will probably need in the )reinit section. On 02/03/2013, at 9:50 AM, Dan mvs-j...@sympatico.ca wrote: Dave, I'm trying to understand what you're explaining. If you have this simple scrollable area panel and display it via dialog test (7.2) how can you get it to NOT relocate to the top of the scrollable area? Do you believe there's something you can do in the )INIT/)REINIT sections? Thanks, I appreciate your patience. )ATTR # AREA(SCRL) EXTEND(ON) )BODY %COMMAND ===_ZCMD #MYAREA # )AREA MYAREA + ONE + TWO + THREE +FOUR + FIVE + SIX + SEVEN +EIGHT + NINE + TEN )INIT )PROC )HELP )END -- 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