Re: Exclusive ENQ on dataset owned (SHR) by Started Task?
Hi Dave, You do not NEED to access a PDS as exclusive to be able to manipulate members. Mostly, DISP=SHR is all that is needed.in the unlikely occurrence that 2 tasks attempt to update the same member at the same time, they may get an error. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: PSP buckets for a z10 mainframe
Hi John, at one time we added this statement to our LOADxx member after similar problem:- INITSQA K 0001M On Thu, 30 Jun 2011 14:57:01 -0700, John Norgauer john.norga...@ucdmc.ucdavis.edu wrote: We had a system wait state code of 9064. John Norgauer Senior Systems Programmer Mainframe Technical Support Services University of California Davis Medical Center 2315 Stockton Blvd ASB 1300 Sacramento, Ca 95817 916-734-0536 SYSTEMS PROGRAMMING.. Guilty, until proven innocent !! JN 2004 Hardware eventually breaks - Software eventually works anon Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: SYSLOG saving
Hi Ted, how often? - sems like every other week. how much can you store? - at least one years data per system, in HSM ML2. keeps it simple, no need to be concerned with sopme other archive system. On Fri, 10 Jun 2011 16:36:13 +, Ted MacNEIL eamacn...@yahoo.ca wrote: Not sure I would want SYSLOG to be trapped into an output archive. Not sure it's trapped. Indexing by date is (usually) easier. I've done it three ways: 1. Date stamped datasets -- preferable to: 2. GDGs and, 3. Output archivers I prefer #3, especially with indexing and (in most) compression. Yes, it may be 'trapped' in the archive and you will have to run an extract process, but how often, and how much can you store? But, TETO! - Ted MacNEIL eamacn...@yahoo.ca Twitter: @TedMacNEIL Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: SYSLOG saving
Not sure I would want SYSLOG to be trapped into an output archive. We use SDSF to grab the previous day's log, midnight to midnight, and then purge older data. The data gets stored into a system/datetime stamped dataset. Making it so very useful for data miningjust using SRCHFOR across a bunch of the datasets retrieves very useful data for many uses. I don't just want to keep syslog, I want to be able to interrogate it extensively. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Summer Time, state of art
Hi John, And why should itit is not a personal use system. Change system time for Daylight Saving Time really only works when all the user of your system are in the SAME timezone. And when your system supports user interfaces in most countries between GMT+12 to GMT-6, how could you possibly support changing your system time. In fact, for modern global business enterprises does it not make better sense for all systems to be running on GMT (or should that be UTC?) , and let the user interface programs manage local time presentation? On Tue, 29 Mar 2011 05:31:35 -0500, Chase, John jch...@ussco.com wrote: I'm amazed and mystified that the arguably most sophisticated and mature operating system in the world still cannot automatically handle the changes to and from Daylight Saving Time. -jc- Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: HMC System Console usage (one more time)
Hi Kevin, option 3 - use HMC for IPL and NIP...nice to be on one screen. MVS messages on perviosly activated sysplex SMCS screen (usually) else HMC until SMCS available. I have removed NIP Consolesno hardware and that gets rid all those PINned devices. and no money to buy OSA-ICC devices.why bother. On Mon, 28 Mar 2011 23:01:36 -0500, W. Kevin Kelley wkkel...@optonline.net wrote: I'm being asked one more time by TPTB to determine how the HMC System Console is actually being used by z/OS customers: 1) How many of you have used to it in an emergency as the console of last resort? 2) How many of you have used it to recover OSA attached consoles? 3) How many of you have no locally-attached consoles and use the System Console to IPL and get you through NIP before transitioning to SMCS consoles (or some other console support requiring Comm Server to be up)? W. Kevin Kelley -- IBM POK Lab -- z/OS Core Technical Development Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Processing CICS SMF type 110 records
Hi John, Did you price SAS for your PCnot so expensiveand then MXG runs there as well. Ron H. has done this forever...at least since 1998. -Original Message- From: IBM Mainframe Discussion List On Behalf Of McKown, John I know that MXG can do this. We can't run MXG. We don't have SAS or WPS and cannot get the money to license them. We had them in the past. snip Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JES2 Spool Display
Hi Mark, we had this happenadded more spool space than could be supportedhad some interesting effects until we changed the relevent values, and here is what IBM said: Hello - I have reviewed the main loop for JES2 SPOOL subtask process. There are only 2 ways to have the TGNUM change from 36648 to 163790 as you have shown in the syslog with $T SPOOLDEF,TGSPACE command. First would be to have the $DAS for the volume on the $DASWRKQ. This will only happen if some commands are entered against this volume. The second reason for this is the flag DAS3STUN is set for the volume. This will happen when a volume is started and the SPOOLDEF TGNUM is too small to accommodate the entire volume. User is notified with $HASP811 or $HASP853. Once this happens we have set up the circumstances for OA28104. Please apply the fix to prevent this issue from happening again. and to fix:- Restarting the spool volume, with cmd $SSPL(splvol),FORMAT, will rewrite the bit maps etc. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: REXX question: if a string is printable
Miklos, I use this function:- Readable:Procedure from = Do i = 0 to 255 from = from || X2c(D2x(i)) End to = to = to || to = to || to = to || to = to || ...(+| to = to || .!$*);¬ to = to || -.\,%_? to = to || ..:#@'= to = to || .abcdefghi.. to = to || .jklmnopqr.. to = to || ..stuvwxyz.. to = to || to = to || .ABCDEFGHI.. to = to || .JKLMNOPQR.. to = to || ./STUVWXYZ.. to = to || 0123456789.. Return Translate(Arg(1),to,from) e.g.Readable(Left(chunk_data,16)) of course you can customise the to values as you need. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: REXX question: if a string is printable
Actually, this can be shortened to: Readable:Procedure to = to = to || to = to || to = to || to = to || ...(+| to = to || .!$*);¬ to = to || -.\,%_? to = to || ..:#@'= to = to || .abcdefghi.. to = to || .jklmnopqr.. to = to || ..stuvwxyz.. to = to || to = to || .ABCDEFGHI.. to = to || .JKLMNOPQR.. to = to || ./STUVWXYZ.. to = to || 0123456789.. Return Translate(Arg(1),to) On Wed, 19 Jan 2011 03:58:32 -0600, Bruce Hewson bruce_hew...@hotmail.com wrote: Miklos, I use this function:- Readable:Procedure from = Do i = 0 to 255 from = from || X2c(D2x(i)) End to = to = to || to = to || to = to || to = to || ...(+| to = to || .!$*);¬ to = to || -.\,%_? to = to || ..:#@'= to = to || .abcdefghi.. to = to || .jklmnopqr.. to = to || ..stuvwxyz.. to = to || to = to || .ABCDEFGHI.. to = to || .JKLMNOPQR.. to = to || ./STUVWXYZ.. to = to || 0123456789.. Return Translate(Arg(1),to,from) e.g.Readable(Left(chunk_data,16)) of course you can customise the to values as you need. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Master Catalogs (was: z/OS 1.11 upgrade - WLM couple datasets)
Another religious discussion it really does depend on your environment! For starters, in a sysplex, do you have one MCAT per system, or share MCATs across multiple systems? Next, how much does the new sysres set dataset placement configuration match the old sysres set dataset placement? If you update in place your single MCATthen additions of new datasets...and removal of obsolete datasets...are straight forward.but how do you handle the relocation of datasets to a different volume within the sysres set? For the one MCAT per system set, the dataset location changes can be handled via jobs run just before you IPL off the new sysres setwith the obligatory backout job to reverse the MCAT changes if youur IPL fails. For the share MCAT set...there is no way! So, for many years, we build a new MCAT everytime we construct a new sysres volume set.and have a process to dynamically define all the sysres set datasets (possibly new) locationsand as sysplex members get to be IPL'd from the new sysres set..they also get to use the new MCAT. The new and old MCATs are cross-connectedeach defined as USERCAT to the other...so that the security team responsible for ALIAS/HLQ addition/deletion updates the active MCAT(s) in a single process. IPL's, and backouts, of new sysres sets are therefore not dependent on any MCAT corrective job being run. Elsewhere, the single MCAT per system with MCAT update/backout jobs are usedboth methods do work... Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: REXX, the new Cobol ?
Hi John, try this, which I call cr:- /*REXX= ==*/ Address ISREDIT MACRO (PARM) (SAVE) = USER_STATE (SAVELINE,SAVECOL) = CURSOR (LPTR,CPTR) = CURSOR FIND FIRST parm find_rc = rc Do While (find_rc = 0) (LPTR,CPTR) = CURSOR (CURLINE) = LINE lptr crptr = Pos(parm,curline) line1 = Left(curline,crptr-1) line2 = Substr(curline,crptr+1) LINE lptr = (LINE1) LINE_AFTER lptr = (LINE2) RFIND find_rc = rc End USER_STATE = (SAVE) Return 0 /*= ==*/ It will split any line at the specified parameter value. hmmold code this is:- Name Prompt Size Created CR *Edited 90 1997/08/13 On Thu, 6 Jan 2011 07:50:12 -0600, McKown, John john.mck...@healthmarkets.com wrote: snip One thing that I do with z UNIX and edit is a bit weird. I sometimes what to split every line in a member at a given character, or maybe column. I edit the member in ISPF. I do something like: C ')' '`)' ALL; C '`' X'15' ALL . Or make sure that the split column has a blank in it and convert that to x'15'. x'15' is an EBCDIC NEL, which is the z UNIX end of line character. I then copy all the lines with the CC line command and do a CREATE to a UNIX file. I CANCEL out of the edit and re-edit the member (to not bother with an unnecessary SAVE). I then delete all the lines in the member and COPY the z UNIX file that I previously CREATEd. The lines are now magically split where I put in the x'15' bytes. Much easier than doing a lot of :TS commands in EDIT. snip-- John McKown Systems Engineer IV IT Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Authorized Rexx Assembler Function
I do remember using a magic SVC to manipulate the JSCBAUTH bit. but this was not a production envirnmentin fact it was running MVS guests under VM, and then running NETVIEW under TSO, to make use of a debug tool similar to the HLSAM Assembler Toolkit Debugger. Netview runs authorised.but the REXX logging exit would only process EXECIO commands non-authorised.so the REXX logging exit would call the magic SVC to turn off the JSCBAUTH bit to write log entries...then turn it back on... the result was a perfect source level log of all debug activities while testing code changes running under Netview. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: best method to completely list all cataloged data sets
I didn't know about the *% option.the ISPF developers haven't blocked that the same way they block * and **. I have been using *.** ever since that block went in when I need to do that sort of search. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: I would love to know what went wrong at NAB
A comment here:- http://www.theaustralian.com.au/australian-it/human-error-triggered-nab- software-corruption/story-e6frgakx-1225962953523 The file was actually software code containing instructions on how systems should operate in the batch processing cycle. would lead me to think someone had incorrectly modified the batch processing rules...like in TWS/OPC or CA-7. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: How Many OMEGAMON ICATs Can Run At The Same Time?.
Hi George, Multiple RTE's with multiple products in a single ICAT would be normal. Only one user may use ICAT at any time. With the link up of TEMS across products, having separate ICATs per product may not work. Centralised control!!! Regards Bruce Hewson ps: I have separate ICATs per Sysres Set...part of of versioning technique. and have to only run an ICAT on the matching Sysres! 9 Products 20 RTEs -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: ISPF 3.4: Migrate to Level 2?
Larry, you know the command string to enter in ISPF 3.4 dataset list to command migrate to ML2see previous posts.. but for that to work...the dataset must first be backed up so quite often you need to do 2 commands... HBACKDS then wait till completed (allwo to be async process lets you go off and do othewr work) HMIG / ML2 Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Rexx question - Dynamic generation of variables?
I have found this form quite useful:- alloc_member_cnt = alloc_member_cnt + 1 alloc_member.alloc_member_cnt = my_member alloc_member.my_member = alloc_member_cnt additional information can be retained in the array:- alloc_dsname.alloc_member_cnt = my_dsn alloc_dsname.my_dsn = alloc_member_cnt allowing you multiple ways to process the data. If Strip(alloc_member.new_member) Then Do Say member new_member found at entry alloc_member.new_member End Else Do alloc_member_cnt = alloc_member_cnt + 1 alloc_member.alloc_member_cnt = new_member alloc_member.new_member = alloc_member_cnt End Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IRA400E
Hi Sharon, seem similar with multiple concurrent copy sessionswhen the quantity of disk updates exceeded the rate at which data was being written to tape flow control problem... you need to confirm that your data paths out of your SDM lpar are sufficient to contain the volume of data arriving! Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Moving SYS1.PARMLIB
This example as posted is misleadingthe VOLSERs are not in the correct column. The VOLSER must start in column 55...if not it would be ignored! 55-60 A optional valid volume name. If a volume name is specified, IPL processing will attempt to locate the specified data set on the specified volume. If '**' or 'SYSR1' is specified, IPL processing will attempt to locate the specified data set on the system residence volume. If '*MCAT*' is specified, IPL processing will attempt to locate the specified data set on the master catalog volume. If nothing is specified, IPL processing will attempt to locate the specified data set first in the master catalog and, if it is not located there, on the system residence volume. Note: SYSR1 is the only system symbol that can be specified in the logical parmlib concatenation. On Fri, 8 Oct 2010 13:54:25 -0500, Neal Eckhardt neckha...@cnyric.org wrote: SNIP Example 2: The following example shows the definition of a parmlib concatenation consisting of MYDSN1.PARMLIB, MYDSN2.PARMLIB, SYS1.PARMLIB on volume VOL234, MYDSN3.PARMLIB and, additionally, SYS1.PARMLIB, as cataloged in the master catalog, which will be concatenated as the last data set in the parmlib concatenation. +1+2+3+4+5+6+7- - PARMLIB MYDSN1.PARMLIB PARMLIB MYDSN2.PARMLIB VOL123 PARMLIB SYS1.PARMLIB VOL234 PARMLIB MYDSN3.PARMLIB VOL456 snip Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: System Console logon and commands auditing
Hello Patrick, Last time I checked the LOGON command is NOT SUPPORTED via the HMC Operating System Messages interface...i.e. SYSCONS. That means that specifying LOGON(OPTIONAL) is not usable. if you provide a name for you HMC console...e.g.:- CONSOLE DEVNUM(SYSCONS) NAME(SYSNAME.HMC) you can get an automatic logon if a matching RACF USER exists... That is the only way to associate a RACF USERID with the SYSCONS. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Jobwait time
Hi Mike, I notice that Graeme Gibson has been very quiet, but you could check out this product:- http://www.ase.com.au/ltxf.htm On Fri, 1 Oct 2010 15:47:01 -0500, Ward, Mike S mw...@ssfcu.org wrote: Hello all, we z/os V1.11. I was wondering if anyone knows how to set a TSO idle timeout value other than using the smf jobwait time value. I tried the jobcard time parameter, but I think that's more for cpu consumption than idle timeout. Any ideas are welcome. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Mainframe ids
Hmmm. Accessing that site now, port 23, gives me the Hercules My PC thinks it's a MAINFRAME logo. Don't know what OS they are providingbut it's not likely to be z/OSbecause that would not be legal! Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Really dumb IPL question
PLEASE PLEASE - do not suggest MODIFY or WTOR to request shutdown of your taskthere is a very simple MVS command that ALL products should be able to accept (intercept) .. that is STOP (P). Use MODIFY to change your task environmentnot to shutdown your task. Use STOP to request shutdown.. Then if that dont work ... use CANCEL Then if that dont work ... use FORCE. but be propared to IPL the whole system. In this day or age there is simply NO excuse not to support the STOP command. extra: Separation of security access rules for STOP and CANCEL away from MODIFY is highly advised. The functionality of these commands is distinctly different. On Tue, 28 Sep 2010 22:26:29 -0400, Robert A. Rosenberg hal9...@panix.com wrote: At 16:03 +0200 on 09/28/2010, Peter Nuttall wrote about Re: Really dumb IPL question: Setting this up as a started task and then explaining to Ops/Automation that the only way to stop it was to Cancel the Started task was not fun (against their operational procedures) Shutting down a Started Task can be done in the way other STCs are controlled. You can issue a WTOR which allows the request to shut down to be sent or you can just use the Modify (F) or STOP (P) command . If MODIFY is good enough for TCP, TSO, etc, it should be good enough for your RYO STC. It sounds like those Ops/Automation types are brain dead and do not understand what they are doing. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
United Statesians (was C-I-C-S vs KICKS)
Including of course south of the border! I wonder how many know that Mexico is The United States of Mexico = Estados Unidos Mexicanos refer wiki http://en.wikipedia.org/wiki/Mexico which does not correctly identify the United States of America in the second sentence. On Mon, 26 Jul 2010 06:52:38 -0600, Howard Brazee howard.bra...@cusys.edu wrote: On 23 Jul 2010 18:24:26 -0700, zedgarhoo...@gmail.com (zMan) wrote: That's OK, John, Ted was just repeating what I'd said many posts earlier. So you can agree with me, and sleep at night. P.S. I like United Statesians -- makes perfect sense! It still isn't sufficient, there are other American countries with names that start off with The United States of. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Leap frog from z/OS 1.7 to z/OS 1.11
I highlighted this alternate site mainly due to Marna's excellent per release presentations as a very good source for changes to be wary of. You would need to review each presentation from the oldest to z/OS 1.11 to get the required picture. There are additional items there which may also assist in the required preparations. On Sat, 12 Jun 2010 09:22:18 +1000, Shane Ginnane ibm- m...@tpg.com.au wrote: Bruce is big enough to answer for himself, but I read that as a response to my post about Marnas presentations. They are also on the IBM site along with audio of her presenting the same. Shane ... On Sat, Jun 12th, 2010 at 5:42 AM, Edward Jaffe edja...@phoenixsoftware.com wrote: Bruce Hewson wrote: Or even go to the IBM Education Assistant site for same presentations Just curious. Which presentations on the IBM Education Assistant site can be used to perform unsupported migrations? Can you provide URLs and/or titles? Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Leap frog from z/OS 1.7 to z/OS 1.11
Or even go to the IBM Education Assistant site for same presentations Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Time Parameter
Hi Ravi,
The TIME parameter in JCL is CPU time, not elapsed time.
I use this REXX code to do what you are trying:-
Safe_Alloc: Procedure
Parse Arg file_name,dataset_name,disp
MAKEBUF;bufno=rc
x = OUTTRAP('alloc.')
Do cnt = 1 to 360 /* with 10 second wait...max wait is 1 hour */
ALLOC DD(file_name) DSN( dataset_name ) disp BUFNO(16) REUS
alloc_rc = rc
If alloc_rc = 0 Then Leave
Else Do
error_time = Time()
Say error_time ,
cnt ,
file_name ,
allocation failed for dataset ,
dataset_name ,
with return code ,
alloc_rc
If Left(alloc.1,9) = IKJ56228I Then Do
Say error_time ,
cnt ,
file_name ,
Reason: dataset does not exist
Exit 88
End
If Left(alloc.1,9) = IKJ56225I Then Do
Say error_time ,
cnt ,
file_name ,
Reason: dataset is in use by another user
s = QUERYENQ(dataset_name)
Do a = 1 to enqjob.0
Say error_time ,
cnt ,
file_name ,
Enqueue holder: ,
enqjob.a ,
Enqueue data: ,
enqtype.a
End
End
x = OUTTRAP('OFF')
x = OUTTRAP('alloc.')
Address TSO 'SLEEP 1000'
End
End
x = OUTTRAP('OFF')
DROPBUF bufno
If alloc_rc 0 Then Do
Say Unable to allocate dataset dataset_name for DDNAME file_name
Exit 87
End
Return
/*=
==*/
Where SLEEP and QUERYENQ are local programs.
Regards
Bruce Hewson
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Time Parameter
Hi Gil, that is correct, but in my defence I quote my original post:- Where SLEEP and QUERYENQ are local programs. On Sun, 16 May 2010 09:53:44 -0500, Paul Gilmartin paulgboul...@aim.com wrote: On Sun, 16 May 2010 00:59:59 -0500, Bruce Hewson wrote: Address TSO 'SLEEP 1000' ??? I find no such command in: URL: http://publibz.boulder.ibm.com/cgi- bin/bookmgr_OS390/BOOKS/ikj4c5a1 Title: z/OS V1R11.0 TSO/E Command Reference Document Number: SA22-7782-12 -- gil regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: REPLY DEVICE NAME OR 'CANCEL' for FTP to mainframe and SMS ACS routines
Hello Fred, one reason the TSO etc does not get the IEF238D WTOR is due to no MOUNT authority. another choice might be to shortcut the process and code an exit in FTP. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: COBOL - no longer being taught - is a problem
And for all those schools in USA and CANADA not teaching future employee's COBOL - there are plenty in INDIA, CHINA and PHILIPPINES which are teaching COBOL. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Multiple logon SMCS possibility
Hello Marcel, As per SYSPLEX architecture, that is single image management of multiple servers, the CONSOLE team have restricted console logons as one time per sysplex. Why do you need to logon more than once to a sysplex consoleeven if there are multiple systems within the sysplex. This behaviour is not just SMCS but also via a real console. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Heads Up: APAR IO11698 - New SAF FACILITY class definition required for any SMP/E use
Hi Clark, One way to give you volumes specific RACF protection! Use an EXIT. ++SRC (ICHRCX01) DISTLIB(AOSBN). ** * ICHRCX01 TITLE 'ICHRCX01 - RACF - RACHECK PRE-PROCESSING EXIT' SPACE 3 ** * *** *** *** MODULE - ICHRCX01 *** *** *** *** *** *** For active SYSRES set (IPL volume set) *** *** *** *** Protect Any Sysres volume xx - Alter dataset *** *** profile to $RES.dsname before calling RACF *** *** *** *** For active IPL Sysres volume xx in SS lpar only *** *** Alter dataset profile to $RES.dsname before calling RACF *** *** *** *** For nonactive IPL Sysres volume xx in SS lpar only *** *** Alter dataset profile to $Rxxdd.dsname before calling RACF *** *** *** *** *** *** RETURN CODES: Register 15 *** *** 0 - Exit routine processing is complete, normal *** *** RACHECK SVC processing is to continue. *** *** *** *** FUNCTION *** *** This exit prefixes dataset profiles with $RES if*** *** the dataset resides on SYSRES volumes. *** *** *** *** *** ** * My version of the exit validates the dataset volumes serial with the active IPL volume name...if it matches (the match depends on some local standard) then the RACF dataset resource name is modifiedthe text '$RES.' is inserted as a prefix. So now all IPL volume set datasets can be protected via $RES.** In the SysMaint systems, sysname=SSxx, the RACF resource gets modified with a prefix related the the volumes set name... eg.. $RBXA.** for the SBXRA1,2,3 volume set. So it is easy to protect active sysres volume sets...and to protect non-active target sysres volume sets separately. On Wed, 14 Apr 2010 16:01:52 -0300, Clark Morris cfmpub...@ns.sympatico.ca wrote: snip The discussion came down to this sample: If one only has READ authority to SYS1.LPALIB [or pick one of your favorites for this example], why should SMP/E allow a USERMOD (or one's own cobbled PTF) to that library? Can SYS1.LPALIB on volume 123456 have a different RACF profile than SYS1.LPALIB on volume 987654? If not, this raises some interesting questions. snip Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Non-SMS-managed LOGR offload data sets
Hi Barbara, we have a similar setupbut because we merged two production Parallel Sysplexes. history: 2 separate datacenters in same city. 2nd prod system had been CLONED from first and modified slightlythen had 10 years growth. We also had each datacenter being the DR site of the other. Sovereign RISK! - had to move DR site off country. Now no reason for 2 data centers in same city.so relocate machines from 2nd site to 1st. Then save money and merge the 2 separate Parallel Sysplexes into one. End up with 3 x JES2 MASplex / SMSPlex / HSMPlex in single Parallel Sysplex. (that 2nd site has been subplexed always...but only one subset had DB2.) Ok...had to have LOGR.reasons included heavy DB2 Data Sharing in both original sites. So we set up a pool of DASD that was accessible from every production system. Each SMSPlex was given a subset of that DASD to manage. So each disk volume has only one SMS owner. Set up common User Catalog, connected to each system MastCat. It doesn't matter which LOGR does the OFFLOAD.because the SMS managed offload dataset is placed onto the shared disk, and cataloged in common UserCat. Been operating like this for 12 months. Probably stay this way for a long time. The migration path from this BronzePlex to the ultimate PlatinumPlex looks almost impossible to complete. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Scheduling Environments Sanity Check
Hello Chester, we use Scheduling Environments. environment: Production systems in one Sysplex Development systems in a different sysplex. 1. the same scheduling environments are coded in both environments. Allows promotion of unchanged JCL from dev to prod. 2. Licensed products - every product that requires a license zap has a Scheduling environment coded. 3. Servers - code which requries a pre-requisite server task to be active has a Scheduling environment coded. (note: it may be that a group of tasks has to be active for the server to be active) 4. System - each system has a SYSNAME scheduling environment. Not usually used by application JCL. 5. Reminder - only one scheduling environment per JOB...this causes the most application developer angst. 6.Automation - most useful in turning ON/OFF scheduling environment resources when the pre-requisite conditions appear/disappear. On Tue, 13 Apr 2010 21:11:44 EDT, Chester Hood wch1...@aol.com wrote: We are considering using scheduling environments for the first time and are concerned that we might be over-doing it a bit. In a test and development LPAR, we have 16 test/development environments that each consist of 3-8 CICS regions, 2-5 ADABAS instances, and a connection to a DB2 subsystem. The total is about 100 CICS regions, 80 ADABAS instances, and 6 DB2 subsystems. To cover any possibility, we would define a scheduling environment and resource for each of these address spaces (186), plus a scheduling environment corresponding to each development environment (16). We believe that this covers the spectrum of batch jobs that might need anywhere from a particular CICS region (open/close files) to an entire development environment (regression test job streams). Is this a reasonable approach or overkill? We would appreciate your comments and suggestions as we don't want to create a monster. Chester Hood Nissan Americas Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PDS vs. PDSE
Hello John, there have been many responses.some positive some negative...this is another negative I am sorry! 1. Our developers still regularly break PDSEand we are still getting new APARs assigned as a result. 2. With CICS regions always UP! and connected, the PDSE's do not do auto- compress and release. 3. And we still break PDSE! so the rule here still is No PDSE for production applications unless absolutely required. On Wed, 10 Feb 2010 11:46:57 -0800, John R. Ehrman (408-463-3543 T/543- ) ehr...@vnet.ibm.com wrote: PDSEs have been available for a long time, and provide many advantages over PDSs. Why are people reluctant to use PDSEs? John Ehrman Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Deactivating an EMCS Console
Hi Magen,
The SDSF EMCS console should be deactivated on exit.
But if you change the SDSF console name before accessing ULOG you would
never get the problem.
I use this code, before entering ISPF:-
/*==REXX===
==*/
parse source . . cmd . clib .
/**
***/
/* Ensure ISPF dialog manangement services are available */
/**
***/
If 'SYSVAR'(SYSISPF) = NOT ACTIVE Then Do
ISPSTART CMD(% || cmd || ) NEWAPPL(ISF)
End
Else Do
address ISPEXEC
VGET ZAPPLID SHARED
If Strip(zapplid) ¬= ISF then do
If clib ¬= ? Then Do
SELECT CMD(EX 'clib(cmd)') NEWAPPL(ISF) PASSLIB
End
Else Do
SELECT CMD(%cmd) NEWAPPL(ISF) PASSLIB
End
End
Else Do
Address TSO
system_type = Left('MVSVAR'(SYMDEF ,SYSNAME ),2)
sysclone_name = Strip(Left('MVSVAR'(SYMDEF ,SYSCLONE ),2))
console_name_suffix = Right(@ || sysclone_name,8-Length(Userid()))
console_name = Left(Strip(Userid()) || Strip(console_name_suffix),8)
Address ISPEXEC
isfcons = console_name || N
isfownr = Strip(Userid())
isfsysid = Strip('MVSVAR'(SYSNAME))
isfdest1 =
isfdest2 =
isfdest3 =
isfdest4 =
isfprefx = *
isfdispv = ON
VPUT (ISFCONS ISFDEST1 ISFDEST2 ISFDEST3 ISFDEST4 ,
ISFPREFX ISFDISPV ISFOWNR ISFSYSID) PROFILE
End
End
Return 4 /* to bypass ISPF termination panel */
/*=
==*/
On Mon, 25 Jan 2010 14:40:54 -0600, Magen Margalit
syste...@gmail.com wrote:
That won't work.
Changing the console id via SDSF
will not release the EMCS.
However using the suggested IEARELEC solves the problem.
Thanks.
Magen
--
Regards
Bruce Hewson
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
MR - RMF Recognise Delays Due to SMS PDSE Contention
I raised an MR to IBM requesting that RMF should recognise DELAYS due to PDSE, currently being reported as UNKNOWN. I find the response short on understanding, and only applicable to active problem supportand not applicable to post-event problem diagnosis as the PDSE analysis command is real-time only. --- This MR has been rejected with the following reason given: No programming interface provides the necessary data for RMF to identify SMS PDSE contention related delay. There is no way of implementing the requested function with reasonable effort. However, upon high Unknown Delay % and assumed PDSE contention, the PDSE ANALYSIS command (VARYSMS,[PDSE|PDSE1],ANALYSIS) can be used to examine the situation. The command is described in the IBM documentation z/OS V1R10.0 DFSMSdfp Diagnosis (GY27-7618-10). --- What to do but sigh! Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: HCD HiperSockets problem
Hello Stuart, I use 0F and 7F for my IQD chpids. I usually use F* and *F for my ICP chpids. (legacy...ESCON 16 port cards only had 15 usable chpids...so last *F chpid unused.) But I haven't tried using FF. But this is on a z10does your z9 actually support IQD chpids?? On Wed, 6 Jan 2010 13:29:41 -, Stuart Willis stuart.wil...@willdata.com wrote: I have tried FF FE get the same +---+ | Channel path type IQD is not supported by channel path ID FF. | +---+ Stuart. -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Mark Pace Sent: 06 January 2010 13:14 To: IBM-MAIN@bama.ua.edu Subject: Re: HCD HiperSockets problem IIRC - the first Hipersocket channel must be FF, then FE, etc. On Wed, Jan 6, 2010 at 6:28 AM, Stuart Willis stuart.wil...@willdata.comwrote: Hi All I'm trying to set up HiperSockets on our Z9 A02 and running Z/VM VERSION 5 RELEASE 3.0, SERVICE LEVEL 0701 and ADCD ZOS 1.10 running as a guest under VM. I'm using Redbook HiperSockets Implementation Guide March 2007. When I try to define IQD Page 26 Add Channel Path I get error message +--- | Channel path type IQD is not supported by channel path ID F4. | +--- I have tried other Path ID's but still get the same error! Regards Stuart. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- Mark Pace Mainline Information Systems 1700 Summit Lake Drive Tallahassee, FL. 32317 Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: HCD HiperSockets problem
Hi Stuart, Pressing F1 do you get an extended help message? On Wed, 6 Jan 2010 05:28:44 -0600, Stuart Willis stuart.wil...@willdata.com wrote: snip +--- | Channel path type IQD is not supported by channel path ID F4. | +--- snip Regards Stuart. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: OSA Express3 questions
On Mon, 5 Jan 2009 16:36:20 +0100, R.S. r.skoru...@bremultibank.com.pl wrote: Hi Folks, Just received a new z10 with OSA Express3 GbE SX 4-port cards in it. I have this terrible urge to define each port as a unique OSA Control Unit, each with unique list of OSA devices (plus 1 OSAD FE device per CU). As this would have provided the most transparent implementation of these devices for our network staff. i.e. 2 PCHID == 2 CHPID, and 2 CU per CHPID as CUADD=0 and 1. I keep finding APARs regarding PORTNUM in TCPIP! So I assume my urge is misfounded. Using PORTNUM means that our network guys will have the hardest time to manage these devices, especially when moving zVM/zLinux systems between different z10 boxes. So I might as well make it completely opaque, by coding totally different ranges for this new box. It would be nice for someone to confirm that my terrible urge is not to be followed. Also, my current OSA control units have 22 OSA devices coded..all accessed via QDIO. May I have some recommendations/guidelines as to how many devices I should now code on these multi-port OSA control units. I have questions regarding OSA Express3 1000Base-T, FC3367. There are 4 copper ports per card. Q1: How many CHPids has the card? 2/4 ? Q2: (assuming 2 chpids per card) In such case I have to define both ports per chpid as same type. For example I must have a *pair* of ICC ports, pair of OSE ports, etc. T/F? Q3. Any other gotchas? Regards -- Radoslaw Skorupka Lodz, Poland Thanks very much Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: OSA Express3 questions
Hi Ed, Thanks for that, but nothing in there really helps planning numbers of devices, except that the minimum must be 3 devices. Further to my problem with how many Control Units can/must be defined, that book also contains Table 2-2 OSA modes of operation and addressing support which contains a row titled CUs per port with a value of 16 for OSA-Express3. No further explanation occurs describing that information. My IBM contact also provided a 6 page document called OSA-Express3 Definitions, :Copyright IBM Corporation, 2008, that begins with a statment containing:- there has been confusion as to how these ports should be defined in IOCP (or via HCD/HCM) which does describe how I am feeling. But that document also does not document the relationship between CHPID/CU/DEV/port clearly. e.g. It does not say code 1 CU per CHPID. On Tue, 5 Jan 2010 21:12:07 EST, Ed Finnell efinnel...@aol.com wrote: In a message dated 1/5/2010 7:45:30 P.M. Central Standard Time, bruce_hew...@hotmail.com writes: May I have some recommendations/guidelines as to how many devices I should now code on these multi-port OSA control units. Venerable Redbook at _www.redbooks.ibm_ (http://www.redbooks.ibm) OSA Express Implementation Guide SG-5948(05) has been updated for Express3 cards and z10's. It's a good place to start. Thanks for you help Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
CSM: Communications storage manager - what exactly does the IVTPRM00 parameter FIXED mean
Hi folks, I am trying to get to the bottom of the Communications Storage Manager (CSM - z/OS 1.9) parameter FIXED. I understand the ECSA parameter, because I know where and how big our ECSA is. But what I don't have a clear understanding about, is the FIXED parameter. 1.Is the FIXED parameter referring to how many ECSA pages are FIXED 2.CSM uses 2 dataspaces, 1 for 31 bit storage, 1 for 64 bit storage. Is the FIXED parameter somehow related to this dataspace storage? 3.Or is FIXED used for some other purpose? None the documentation explicitly defines which storage is related to FIXED. Hope someone can help me. Thanks Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: # of subchannels
Hi Radoslaw , I found a limit :-) Hipersockets - IQD In a box with 12 OS type LPARs defined, you can only define 1024 devices! because the maximum the box can support is 12288, and HCD complains when you try to define more. (12288 = 12 * 1024) aside: another limit is that z/OS (MVS) only support 160 such devices! Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Console Logon timeout?
Hello Peter, A Reconnect function, or a logon here, function, when you accidentally lose the connection. A simple remote LOGOFF function, so that any active console user can be logged off the system, from any other console. (of course RACF protectable!) - Logoff users after period of inactivity. == Yes Please - Concurrent user logon to multiple consoles. == not so much, but OK. On Mon, 17 Aug 2009 10:34:14 -0500, Peter Fatzinger f...@us.ibm.com wrote: We may have a future opportunity to make some changes in this area of the code. While we're in there, what would you like to see changed? - Logoff users after period of inactivity. - Concurrent user logon to multiple consoles. - Anything else?? Peter Fatzinger z/OS Core Components Development and Service Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: HCD definitions for a CISCO Ficon switch
Hi Phil, Depending on the switch model, your Switch ID may be offset from your Domain ID. On our big switches, e.g. Switch ID = x'75 / Switch Address = x'75' / DomainID = x'15' And on that switch the first port in slot 0 if x'04', max port = x'93' In our small switch (max 32 ports), e.g. Switch ID = x'65' / Switch Address = x'65' / Domain ID = x'05' and on this switch the first port is x'00' Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: how-to Sysplex? - The TSO user part
Hi Barbara,
This is what I run after TSO logon and before ISPF is started for real.
The code runs as an ISPF dialog...better if the ISPF LOG is set to 0 pages.
We use 5 character user IDs.
Address TSO
sysclone_name = Strip(Left('MVSVAR'(SYMDEF ,SYSCLONE ),2))
console_name_suffix = Right(@ || sysclone_name,8-Length(Userid()))
console_name = Left(Strip(Userid()) || Strip(console_name_suffix),8)
Address ISPEXEC
isfcons = console_name || N
VPUT (ISFCONS ) PROFILE
On Thu, 13 Aug 2009 00:00:48 -0500, Barbara Nitz nitz-...@gmx.net
wrote:
snip
If this is not what you mean, can you elaborate a bit on what you do mean?
Check out Marks page on what needs to be done to allow this. As I explained
above, the broadcast issue *and* shared EMCS consoles via SDSF finally
made me uncustomize the use of the same userid.
'shared EMCS consoles via SDSF': Whenever SDSF.LOG (the syslog/operlog)
or
ULOG is called, an EMCS console is established. Unless explicitly customized
to
use a different name on every system for that EMCS console (that was the
part I could not get the TSO users to grasp, not even some sysprogs), the
default name for that console is TSO userid. Inevitably they were in u/LOG
on
one system and did not get responses to commands on the system they were
currently working. (Yes, I know there is a route command, yes, I know, SDSF
can customize the name of the EMCS console, no, I was unable to get *that*
concept across.)
snip
Barbara Nitz
Regards
Bruce Hewson
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: DASD: to share or not to share
Hi Frank, Unless your two systems are in the same Sysplex (Base or Parallel) I would highly recommend that you do not share your sysres disk...they contain PDSE datasets that you shouldn't share outside a sysplex. Similarly, any disk you do share should not contain PDSE datasets. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Problem with I/O
Hello Michele, two possible reasons for duplicate SSID. 1. two different Control Units have been assigned the same SSID. We got this because two of our disk suppliers used different naming standards, and we hadn't been checking close enough. 2. you have miscabled some connections to multiple frames. Check all cables actually go where you expect. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: DASD: to share or not to share
Hi Dave,, with systems that are only IPL'd every 3-5 months, YES, there will be updates to those volumes. Changes still happen, and many fixes do not require an IPL to implement, only careful change management. On Thu, 6 Aug 2009 14:18:15 -0700, Gibney, Dave gib...@wsu.edu wrote: It may not be supported, but PDSE that are only read are safe to share betwixt anything. And, since it's a live resvol, it is of course not subject to updates, right? Dave Gibney Information Technology Services Washington State University Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Enforcing CPU Time
Hi Mark, CLC 3(4,R2),=C'' CHECK FOR STEP DEFAULT BNE NOTDEFLT TIME=(,03) FROM CLC 8(2,R2),=C'03' JES2 PARMS JOBCLASS(Q) BERETURN0TIME OK, DONE WITH THIS TEXT-GET OUT Looks like you assumed the default TIME value would never be changed, and your comment also indicates only one jobclass. I couldn't make that assumption, as my EXIT6 code runs in multiple systems, each with different requirements. So I got the code to jump through the $DOGCAT hoops. I must say that I did enjoy getting that all to work. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: ziip api for vendors
This sounds like a reasonable extension to what IBM previously marketed as the P390. On Tue, 4 Aug 2009 08:37:51 -0600, Mark Post mp...@novell.com wrote: snip United States Patent Application 20080059769 MULTIPLE-CORE PROCESSOR SUPPORTING MULTIPLE INSTRUCTION SET ARCHITECTURES A multiple-core processor supporting multiple instruction set architectures provides a power-efficient and flexible platform for virtual machine environments requiring multiple support for multiple instruction set architectures (ISAs). The processor includes multiple cores having disparate native ISAs and that may be selectively enabled for operation, so that power is conserved when support for a particular ISA is not required of the processor. The multiple cores may share a common first level cache and be mutually-exclusively selected for operation, or multiple level-one caches may be provided, one associated with each of the cores and the cores operated as needed, including simultaneous execution of disparate ISAs. A hypervisor controls operation of the cores and locates a core and enables it if necessary when a request to instantiate a virtual machine having a specified ISA is received. And a little further down, in the Description section: The present invention relates generally to data processing systems, and more particularly, to processors for running multiple virtual machines having disparate instruction set architectures. Mark Post Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Enforcing CPU Time
Hi Mark, I thought it would be simple when I agreed to add RACF checking for the TIME parameter, but during my research I found that there was always a TIME value encoded on the STEP card when it was being processed by JES2 EXIT6. So I then had to work out what the jobclass default was to guess if the user had coded a TIME= value on his STEP card JCL. This led to earlier postings in IBM-MAIN which gave me the directions to using these JES2 MACRO calls. It was fun getting it right. On Thu, 30 Jul 2009 08:44:07 -0500, Mark Zelden mark.zel...@zurichna.com wrote: On Thu, 30 Jul 2009 06:01:05 -0500, Bruce Hewson bruce_hew...@hotmail.com wrote: Hi Tom, I did this in JES2 Exit 6, with SAF calls for access checking. The difficult piece for STEP level TIME cards was to determine the JOBCLASS default TIME value that gets automatically placed onto all EXEC card images. Some determined access to JES2 control blocks via $DSERV and $DOGCAT calls allowed me to get the default TIME values for comparison. If your TIME value exceeded that of the JOBCLASS specification, then a call is made to a FACILITY class resource to confirm you are allowed to code a STEP level TIME card. Access failure triggers a JCL ERROR. More complicated than mine. I just checked the internal text for any sort of TIME= which was either allowed or not depending on the JOBCLASS and if the user had access to the time resource in the $JEXIT resource class (locally defined). snip Mark -- Mark Zelden Sr. Software and Systems Architect - z/OS Team Lead Zurich North America / Farmers Insurance Group - ZFUS G-ITO Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Enforcing CPU Time
Hi Tom, I did this in JES2 Exit 6, with SAF calls for access checking. The difficult piece for STEP level TIME cards was to determine the JOBCLASS default TIME value that gets automatically placed onto all EXEC card images. Some determined access to JES2 control blocks via $DSERV and $DOGCAT calls allowed me to get the default TIME values for comparison. If your TIME value exceeded that of the JOBCLASS specification, then a call is made to a FACILITY class resource to confirm you are allowed to code a STEP level TIME card. Access failure triggers a JCL ERROR. I also validate JOBCLASS and REGION usage in this exit. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Why are z/OS people reluctant to use z/OS UNIX?
I consider there are 2 reasons why the implementation of Unix into MVS has been BAD. 1. EBCDICall UNIX files should have been ASCII from day 1. WebSphere Application Services for z/O(S has got it correct now by having all files in ASCII format. 2. The price of the IBM C compiler$$ All those simple things you would like to create under UNIX were originally done in C. So easy...just compile under z/OS.cant do...too expensive. But now that we also get to have Linux on zSerieswhy bother with coding under Unix System Services.much much cheaper on Linux. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: DFHSM MAXBACKUPTASKS(1) using 2 drives
Visnson, When you have MAXBACKUPTASKS=01, and you are seeing multiple drives mounted, what does a Q AC display show as active tasks. On Fri, 17 Apr 2009 10:45:28 -0700, Vinson Lee v...@sdccd.edu wrote: Here is a portion of the Q Setsys output: ARC0638I MAXDUMPTASKS=01, ADSTART=( ), ARC0638I (CONT.) DUMPIO=(4,4), VOLUMEDUMP=(NOCC) ARC0274I BACKUP=YES(TAPE(3590-1)), SPILL=NO, ARC0274I (CONT.) MAXDSRECOVERTASKS=01 ARC0154I MAXBACKUPTASKS=01, ABSTART= (1000 1100 ), ARC0154I (CONT.) VERSIONS=002, FREQUENCY=000, SKIPABPRIMARY=NO, BACKUP ARC0154I (CONT.) PREFIX=HSM, INCREMENTALBACKUP=ORIGINAL, ARC0154I (CONT.) PROFILEBACKUP=YES, INUSE=(RETRY=YES, DELAY=000, ARC0154I (CONT.) SERIALIZATION=PREFERRED) Thanks. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: SDSF SORT
Hi Gil, As my mate Ron taught me:- SDSF STATUS panel == SORT END-DATE D END-TIME D Jobs are sort with last completed job at bthe top. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Where are the system symbols??
System Symbols: Where are they? Start at your LOAD member..use D IPLINFO to locate it. e.g.: USED LOADE8 IN SYS1.IPLPARM ON 20D9 Within the LOAD member may be statements for IEASYM. e.g. IEASYM (00,#1,F0,L) The members IEASYM00, IEASYM#1 and IEASYMF0 will be used. The L says list the contents to syslog. Very good for self documentation. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Number of members in a PDS?
Hello John, LISTDSI will ALLOCATE and OPEN the dataset - make sure you have READ access to all the datasets Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Time Change (Sync)
Hi Steve, the very modern island of Singapore. Quite the tropical island paradise, if you enjoy technology while sitting on the beach sipping amber fluid. On Sun, 15 Mar 2009 09:21:06 -0600, Steve Comstock st...@trainersfriend.com wrote: Bruce Hewson wrote: [snip] Bruce Hewson Resident, Tropical Island Paradise. So, I have to ask: where is that? Kind regards, -Steve Comstock The Trainer's Friend, Inc. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Time Change (Sync)
Folks Time updates due DST..again we have much discussion. But I would like any comments regarding z/OS time, when the customers accessing the system are not physically located in the same time zone. I believe the ISO standards support local time display with timezone infomation such as EST appended. But with timezone acronym usage overloaded...i.e. EST means Eastern Standard Time, but for which continent. Although we support applications accessed in other time zones, some of which do have Daylight Savings adjustments, we do not change our machine time. The users see local time via adjustments made by the application performing the display. The Unix approach is one way, but it is not a simple as can be made out, as the timezone information is kept in more than one location. And it does only apply to the local machine, and not to remote user access points. With globalization continuing, I see a need for a standard that allows the host system to run in pure UTC, with only access points modifyng the time display as required at that access point. At least, here wher I work, I no longer have to play with time changes bi- annually. Regards, and thanks for reading, Bruce Hewson Resident, Tropical Island Paradise. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: How to use CSI Catalog Search Interface
My solution, coded many years ago:-
WORKLEN = 2048
- - - - - - - - - - - - - - - - - - 15 Line(s) not Displayed
DO WHILE RESUME = 'Y'
- - - - - - - - - - - - - - - - - - - 5 Line(s) not Displayed
DWORK = Right(D2c(worklen),4,'00'X) || COPIES('00'X,WORKLEN-
4)
ADDRESS LINKPGM 'IGGCSI00 MODRSNRC CSIFIELD
DWORK'
RESUME = SUBSTR(CSIFIELD,150,1)/* GET RESUME FLAG FOR NEXT LOOP
*/
USEDLEN = C2D(SUBSTR(DWORK,9,4)) /* GET AMOUNT OF WORK AREA
USED */
REQDLEN = C2D(SUBSTR(DWORK,5,4)) /* GET AMOUNT OF WORK AREA
REQD */
If REQDLEN WORKLEN Then Do /* adjust work area length
*/
WORKLEN = REQDLEN
End
Else Do
- - - - - - - - - - - - - - - - - - 107 Line(s) not Displayed
END
END
Dynamically adjusts the WORK area size if needed, and redrives the request.
On Tue, 10 Mar 2009 17:48:05 -0500, Kenneth E Tomiak
jackofalltra...@ktomiak.biz wrote:
You should get an error code if your workarea is too small and a value of
what
size you need. Bigger is better.
SNIP
LDO
Regards
Bruce Hewson
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: TMON with OMEGAMON Comparison
And I am stuck with Omegamon... for those who complain about the copying of TKAN* to RKAN* look at using the SMP Shared RTE setup. ICAT is improving hehehe.the BATCH process is working better all the time I should know 9 products, 16 Run Time Enivironments (RTEs) with 14 of those remote to the ICAT local systems. And I do 2-3 complete RTE rebuild every year. Because I have never been comfortable with an incremental update for the remote RTEs. And I was complaining to CANDLE in Sydney about CICAT over 15 years ago. (How's that for vendor allegiance!) On Thu, 12 Mar 2009 08:50:40 +1000, Shane ibm-m...@tpg.com.au wrote: On Wed, 2009-03-11 at 17:03 -0500, Mark Zelden wrote: Should the listserver be used to bake off these products? I sure hope not. But I think it's perfectly fine to correct misinformation and let people know who to contact or where to go for more information. And ... vendor allegiances are clearly enunciated. Shane ... -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: SYS1.UADS Format
Tracks % XT Device Dsorg Recfm Lrecl Blksz Created SYS1.UADS 15 13 1 3390 PO FB 1720 27520 1998/12/10 regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Resolving an ALIAS
Hi Rob, examples: direct alias: ALIAS - SYS1.MQS.USR.LOAD IN-CAT --- CATALOG.MASTER.STPLEX.SSMF0701 HISTORY RELEASE2 ASSOCIATIONS NONVSAM--SYS9.MQ.Q4.SCSQLOAD indirect alias: ALIAS - SYS1.CEE.SCEECICS IN-CAT --- CATALOG.MASTER.STPLEX.SSMF0701 HISTORY RELEASE2 ASSOCIATIONS SYMBOLIC-SYS1.LERUN..SCEECICS RESOLVED-SYS1.C108.SCEECICS The first option can be changed by delete/define the ALIAS entry. The second option uses the System Symbolic Variables.either set at IPL or modified by SYMUPDTE program.refer SYS1.SAMPLIB(IEASYMUP) Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/OS 1.9 ISPF or SMS irritant
Hi Cathy, that SMS managed dataset restriction has been around a very long time. You can only access an SMS managed dataset like that if no same-named datasets exiswt on the system you are using. An never do it to access PDS/E datasets. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: zSecure Audit Concern with EJES SVC
Graeme, shame on you.you have recommended the wrong vendor! Ulrich's question regarded a report by zSecure.that is who he should be requesting (demanding) and explanation from, well before he goes chasing any other vendor. On Sat, 24 Jan 2009 11:26:34 +1100, Graeme Gibson gra...@ase.com.au wrote: Hi Ulrich, I'm surprised at your curious ad hominem response to Shane's quite reasonable question. I would also have imagined that the vendor would be the first place to go for answers. Was this issue raised directly with the vendor of EJES? If it was, then what was their response? If it wasn't, then was there a specific reason for that, or was it a simple oversight? Regards to all in this newest of years, Graeme. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: zSecure Audit Concern with EJES SVC
Ulrich, what I noticed is that this was a dynamically installed SVC. refer to SVCUPDTE comment. I dont read that report as saying the SVC itself was funny, only that since it was dynamically installed you need to look closer at it. You might check with the zSecure documentation for this spin! Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: First z/OS 1.9 IPL Problem
o new system1st IPL...JES2 starts but does not initialiseno obvious WTORs or erro messages. o D A,JES2 shows JES2 task active options: 1. Take Stand Alone DUMP. Use your current system SA-DUMP if you have to. It will, at a minimum, let your review SYSLOG messages. 2. Is there any Enqueue Contention? D GRS,C 3. STOP/CANCEL/(FORCE??) JES2 task off system. 4. restart JES2 with RD mode consolesee what happens. 5. Do you really need a NIPCONs console remove NIPCON entries from IODF and ignore the Production IODF Build warning messages. Then all IPL related message appear on HMC. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Need TN3270e software
Guys, why but 2074? or any other hardware based console support. In any multi-system sysplex environment, there should always be at least one system active. That means that there is always SMCS console support in VTAM. And having zero NIPCONS defined in IODF, means that when you IPL a system from HMC, you can see all related messages on the same screen. No need to go find that other NIP console. I find it very difficult to even consider justifying unneeded expenditure. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Comparing Mainframe and Windows Server CICS Transactions per kWh
Hi Fred, Good to see you are still enjoying tropical Darwin. My thoughts are they selected a small z9 (2094-704) as their target mainframe processor.but you could double the processor power, to 708, without increasing the power consumption! Adding extra books could see increased power consumption.but a 2 book configuration does not double the power load, but does almost double the processor throughput. so how does that screw up their PR spin. Best wishes Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Dump management
I keep dumps for 6 months, as I recall reading that is how long DAE remembers an SVC dump occurred... Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Multi CSS configuration on z9 processor
Hi folks, just starting to build a second channel subsystem on a z9 box. o I know you cannot span ESCON channels. o I know you can span FICON channels. but can you span OSA channels? What about hipersocket channels (IQD), can they connect between different Channel Subsystems? Have been considering keeping z/OS LPARs in one CSS and the zVM/zLinux LPARs in a second CSS. Thanks in advance for any good pointers. Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: ALLOWUSERKEYCSA(NO) was (Re: CA Jobtrac 3.5 Off Support)
It is real fun to send dumps to vendors who have used Key 8 CSA to store
programs
I have used Omegamon MVS classic to get a list of such storage areas
then via TASID option 7, gone to that area in storage, and then overlayed the
area with nulls ('00'x). The resulting abends are good to send to vendors.
This was done in our sandbox just to prove the point, that is was REAL EASY
to break their code, and suggest the possibility it could break other stuff.
Regards
Bruce Hewson
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: When will ADRDSSU start to ENQUEUE on data sets?
Hello Johhny, over in IBM-MAIN-ARCHIVES http://bama.ua.edu/cgi-bin/wa?A2=ind0211L=ibm-main-archivesP=R107226 http://bama.ua.edu/cgi-bin/wa?A2=ind0202L=ibm-main-archivesP=R120423 There is a reference to Marketing Request MR00058723 On Wed, 30 Apr 2008 19:37:47 +0800, Johnny Luo [EMAIL PROTECTED] wrote: Bruce, 'Search the archives for earlier posts on DF/DSS using the older SVC26 interface to retrieve CATALOG data' I have tried various keywords but sill can not find the thread. Can you give more hints? Thanks. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: When will ADRDSSU start to ENQUEUE on data sets?
Hello Johnny, Does your backup job use generic dataset masks for the INCLUDE list? Search the archives for earlier posts on DF/DSS using the older SVC26 interface to retrieve CATALOG data. In one case here a job took 2 hours to build the dataset list before mounting the first output tape. Changing the job by adding build-include-list step, before calling ADRDSSU, which uses REXX to call the IGGCSI00 Catalog Search Interface and built an explicit filter list (FILTERDD), reduced that wait time to 2 minutes. If you need to ENQUEUE on the dataset, just add //DD001 DD DISP=SHR,DSN=dataset1 etc to your backup JCL. On Wed, 30 Apr 2008 11:08:56 +0800, Johnny Luo [EMAIL PROTECTED] wrote: Hi, We encountered a problem on our production system. A job was using DSS to backup a lot of data sets (logical dump) and we got ADR321E for one extended format PS data set: the data set was not on the supposed volume. This job will run more than 3 hours and we found out that another job will delete the data set and re-create it during that time (1.5 hours after the dump job starts). It might be the cause of ADR321E. snip Best Regards, Johnny Luo Regards Bruce Hewson //MYUSERBLD JOB (ACCT#),'BUILD FILTER LIST', // CLASS=I, // MSGCLASS=X, // NOTIFY=SYSUID //* //* //BGTSOEXEC PGM=IKJEFT01,DYNAMNBR=100 //* //MASKLIST DD * SA%%.CICS.%%.DFHCSD SE%%.CICS.%%.DFHCSD SC%%.CICS.%%.DFHCSD /* //SYSTSIN DD * %BILDFILT MASKLIST /* //* //FILTERDD DD DISP=(NEW,PASS), // SPACE=(TRK,(1,1)), // DSORG=PS,LRECL=80,RECFM=FB,BLKSIZE=0, // DSN=amp;FILTERDD //* //* //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSPROC DD DISP=SHR,DSN=MYUSER.USER.CMDPROC //* //* //DUMPEXEC PGM=ADRDSSU,PARM='TYPRUN=NORUN' //FILTERDD DD DISP=(OLD,DELETE), // DSN=amp;FILTERDD //SYSPRINT DD UNIT=SYSDA,DISP=(NEW,CATLG),SPACE=(CYL,(2,1),RLSE), // DSN=MYUSER.DFDSS.TESTRUN.SYSPRINT,DCB=DSCB, // RECFM=VFB,LRECL=137,DSORG=PS //BACKUPDD DSN=MYUSER.DFDSS.TESTRUN.BACKUP, // UNIT=3390,SPACE=(CYL,(100,20),RLSE), // DISP=(,CATLG,DELETE) //SYSINDD * DUMP DATASET( - FILTERDD(FILTERDD) - ) - OUTDDNAME(BACKUP) - TOLERATE(ENQFAILURE) - SPHERE- CONCURRENT- SHARE /* //* // -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Help with applying maintenance
Hello Jerry, I use this JCL. It does require the BYPASSSNQ APF authourized program from the Free Software written by Gilbert Saint-Flour available on CBT file 183. BYPASSNQ Assembler program. Scratch or Rename a Data Set without SYSDSN ENQ BYPASSNQ is a driver that allows you to run any utility program (such as IEHPROGM or IDCAMS) and bypass dsname ENQ that is normally performed by the DYNALLOC, SCRATCH and RENAME SVCs. This technique allows data sets to be deleted or renamed using standard MVS services and is fully compatible with indexed VTOCs and SMS. Regards Bruce Hewson Set the Variables to required values, and do C ALL 'SYSRES' 'your_volser' //SYDBHBIG JOB (ACCT#),'Enlarge APPC.ISPCLIB', // CLASS=A, // MSGCLASS=X, // NOTIFY=SYSUID //* //*--* //* Make dataset single extent. * //*--* //* Tracks % XT Device Dsorg Recfm Lrecl Blksz //* -- //* SYS1.DATASET //* 450 9 1 3390 PO FB 80 10720 //* -- //* // SET PRIMSPC=450 // SET SECSPC=15 // SET SPCUNIT=TRK // SET DIRBLKS=90 //* // SET RECFMT=FB // SET RECLEN=80 // SET BLKSIZ=10720 //* //* //* * //* Allocate dataset large enough for all data within a single extent //* * //* //* //DEFINE EXEC PGM=IEFBR14 //NEWDSN DD DISP=(NEW,KEEP), //DSN=SYS1.DATASET.BIGGER, //UNIT=3390, //VOL=SER=SYSRES, //SPACE=(SPCUNIT,(PRIMSPC,SECSPC,DIRBLKS)), //RECFM=RECFMT, //LRECL=RECLEN, //BLKSIZE=BLKSIZ //* //* //* //COPY EXEC PGM=IEBCOPY,COND=(0,NE,DEFINE) //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=SHR, // UNIT=3390, // VOL=SER=SYSRES, // DSN=SYS1.DATASET //SYSUT2 DD DISP=SHR, // UNIT=3390, // VOL=SER=SYSRES, // DSN=SYS1.DATASET.BIGGER //SYSINDD * COPY INDD=SYSUT1,OUTDD=SYSUT2 /* //* //* * //* Delete dataset
Re: Workable Mainframe Debuggers
A lot of this is personal preference.and now I have to live with another group's preference...I can live with that. (i.e. I get to support SYS3.*, SYS5.*, SYS7.* and SYS9.* as well) In the area of change all ServerPac (IBM Product) HLQs to SYS1.*, this meant that a single RACF rule protected ALL system datasets. I did understand the packaging rules required the shipped prodcut datasets use the 3char product identifier as the usual HLQ. It also meant that the special support for SYS1.* datasets built into DFDSS worked. Personally, I liked coding a human-readable second level qualifier, like SYS1.ISPF.SISP*those people who didn't understand IBM 3/4 char product identifiers could at the least suss out which product a dataset belonged to, using a quailifier that matched the product acronym. On Sun, 13 Apr 2008 02:51:34 +, Ted MacNEIL [EMAIL PROTECTED] wrote: I often see SYS1.ISF.SISF* , SYS1.ISP.SISP*, SYS1.GIM.SGIM* etc. even though the MLQ is redundant. I agree with the redundancy argument; what's wrong with each product having the same library name(s) at every site? Hard to change that stuff in a production environment... well, maybe not hard, just a PITA when there are batch processes and people with their own clists etc. In production, standards should be enforced, so it won't become a PITA. If unsupported software breaks, you get to keep both parts. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IBMLink, again
Hi Gil, I would assume, like on some web screens we use here, that the text input fields are not transparent. By that I mean the characters entered are treated as HTTP control characters, or something like that. I am trying to convince some of our local system builders that text input fields should allow ANY character to be enteredbut they keep saying cannot. I see that IBM have said they would correct the problem. But that wont help my local code problem. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Stand alone Dump with ICC cards
Hello Rick, StandAlone Dump dasd striping is not the same as DFSMS dataset striping. To build the SAD datasets onto multiple volumes you run something like this:- //STEP1EXEC PGM=IKJEFT01 //SYSPROCDD DISP=SHR,DSN=SYS1.SAMPLIB //SYSTSPRT DD SYSOUT=* //SYSTSINDD * %AMDSADDD DEFINE + (SBXDM2,SBXDM3,SBXDM4,SBXDM5,SBXDM6)(SYS1.SADMP) + 3390 3335 N /* // SAD will then run 6 separate data streams to write to the six volumes in parallel. IPCS will merge and sort the records from all six datasets/volumes into a coherent image when you access or copy the SADump. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Stand alone Dump with ICC cards
Hello Andy, I also use only the HMC for SAD support our basic operator instructions: 1. logon to HMC as OPERATOR 2. logon to MVS Console on SYSPLEX partner system 3. Select SAD_sysname HMC Icon. 4. Perform RESET-NORMAL, Answer YES and OK. 5. On MVS Console, reply to IXC402D or IXC102A messages, or issue V XCF,sysname,OFFLINE (reply is SYSNAME=sysname) Actions 3-5 expedite sysplex system recovery actions. 6. Perform ACTIVATE SAD_sysname HMC ICON, Answer Yes and OK. 7. Start Operating System Messages (double-click with SAD_sysname Icon highlighted) 8. Enter a NULL command, by clicking on SEND COMMAND and then clicking on SEND button. 9+++ now answer SAD prompts as required. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Execution job class restriction
Hi folks, for our systems we CHOSE to perform some checking in JES2 EXIT6. This is to catch problem jobs at submission, and to allow operations staff to later modify those parameters if required. the current exit performs checks on: oJob Class - FACILITY JOBCLASS.x oTime parm authorization - FACILITY [EMAIL PROTECTED] These are to enable enforcement of local standards. As yet we have been able to NOT implement RACF checking for permission to code REGION parms. Such checking is being performed via the change management process before the JCL gets promoted. Using the exit made it simple to implement our requirements. Regards Bruce Hewson ps: the RACROUTE call checking job class parm! *** * * *validate job class card * * * *** MVC X6RACROUTE (RACF_RACROUTE_LENGTH),RACF_RACROUTE OIX6RACROUTE+116,X'10'REQUEST WARNING STATUS IF SET RACROUTE REQUEST=AUTH,C MF=(E,X6RACROUTE), C USERID=X6USERID,C ATTR=READ, C LOG=NOSTAT, C ENTITY=(X6JOBCLASS),C CLASS=RACF_CLASS, C WORKA=X6RACWRK, C RELEASE=1.9 * * LAR15,X6RACROUTE USING SAFP,R15 * CLC SAFPRRET,=F'0' Racf RC = 0 BNE JOB_CLASS_NOT_AUTH No - Cancel job * CLC SAFPRREA,=F'0' RACF reason code = 00 BECLASS_OKYes * CLC SAFPRREA,=F'4' RACF reason code = 04 BECLASS_OK_WARNINGYes * -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: clock, daylight savings time
But Rick, do your users all reside in different time zones like mine do??? Isn't amazing how much railroad schedules and saving daylight make our lives so difficult at times. Decisions, decisions! On Wed, 12 Mar 2008 10:13:51 -0500, Rick Fochtman [EMAIL PROTECTED] wrote: ---snip--- I hereby declare that from now on, daylight savings is banned and all clocks shall be set to GMT only, worldwide. Signed, Doc Farmer Benevolent Dictator and Confirmed Horophile (stop snickering, I'm *not* a NY Governor) -unsnip--- I disagree. Let all HARDWARE clocks be set to GMT and use PARMLIB OFFSET values to adjust to local time. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
RMF Monitor III - job UNKNOWN delay.
Hi folks, Want to confirm that, at z/OS 1.7, RMF Monitor III is not able to identify delays due to PDSE latch contention. We had a lot of batch jobs, all hung, with RMF showing them all 100% Unknown delay. Before I go chasing IBM I just wanted to check that this is still the same at later levels of RMF. I am sure that RMF should be able to detect job delay due to: 1. PDSE latch contention. 2. OMVS delays 3. maybe even TCPIP delays. and it would be real nice if it could make a guess at delays due to 3rd party software ( wishful thinking?? ) Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IBM Tivoli Monitoring (ITM for short) (was: Is IBM/Tivoli turning into CA?)
Hello Andrew, install the IBM JRE 142 - stop right here! I don't have Administrator rights on my work PC. And I am not permitted to install software that has not been processed/validated/wrapped by another team. lastly, I am not certain we are licensed to the Omegamon XE products. On Mon, 3 Mar 2008 13:56:51 -0500, Andrew McIntyre [EMAIL PROTECTED] M.COM wrote: Absolutely the first time you run the TEP browser client, it will automatically pull down (from the TEPS) and install the IBM JRE 142, which will coexist just fine with your other JREs. This hasn't been an issue that I've noticed anywhere. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
IBM Tivoli Monitoring (ITM for short) (was: Is IBM/Tivoli turning into CA?)
Hello Andrew, And so we have a case of us customers being ignored... :-) The PC I use has only got Company mandated and wrapped products installed. We don't get to have any Tivoli product installed onto them.We cannot just install your lovely products onto these PCs..Let alone they would have to pay licence fees for such. Hard to justify when we have the Omegamon product installed under z/OS... So there is no way I get to access Tivoli Enterprise Portal (TEP).. You are going to have to do far better to enable us poor z/OS Sysprogs access to software not running under z/OS Maybe if the whole Omegamon product suite was better documented, and that is one thing I do believe will improve now that it is IBM owned, we would be able implement TEP and Omegamon XE and JUSTIFY such extra costs for all Sysprogs and selected Application Programmers. (It may be simpler for you to code these new functions in these off-box products, but it is hard not to think they are just ways to make more money!) Include in all of this the pain of using ICAT to manage multiple system copies of the Omegamon product suites, it is no wonder I have not been able to investigate well the world of Omegamon outside of the classic interfaces. I have not got past performing a complete Run Time Environment rebuild every time we get a maintenance/release upgrade to our product set. The opportunities for regressed changes are immense. The same as Doug, I only use the VTAM interfaces to the Omegamon product suite. On Tue, 26 Feb 2008 13:39:06 -0500, Andrew McIntyre [EMAIL PROTECTED] wrote: Doug Fuerst wrote: ICKY. So I have to put in the XE piece and access the TEMS to look at anything. The setup for that has pretty bad and confusing documentation, and is an unwieldy implementation. Besides, I was told by Omegamon support that there was nothing in the GUI that I couldn't get to in the VTAM classic sessions, it would just look better and could be analyzed using Excel and the like. Did it occur to anyone in Omegamon support that I might like to look at the TSO/VTAM CUA type display? I GUESS NOT Doug I certainly don't want to step into a messy thread here (why do I feel that it's to late?) but here goes The XE levels of the V41 OMEGAMONs are where all the power of the products are. They allow you to use the Tivoli Enterprise Portal (TEP) and it's single pane of glass architecture to combine distributed monitoring and System z OMEGAMONs all on one GUI. The overall technology is called IBM Tivoli Monitoring (ITM for short). Once you are comfortable with the attributes (metrics), workspaces, situations and queries of one product, you can jump over to any other product without any problems. As far as VTAM monitoring, the OMEGAMON XE for Mainframe Networks includes the MFN II (CUA) 3270 based product, which still provides VTAM monitoring. However, there are a lot more features available if you implement the XE agent and the TEP. For instance, FTP session monitoring and VTAM EE and HPR connection. Here's the latest ITM doc, which has some excellent manuals in it. Especially the installation manual: http://publib.boulder.ibm.com/infocenter/tivihelp/v15r1/index.jsp?topic=/com.ibm.itm.doc/understand.htm -- Andrew McIntyre - Consulting IT Specialist IBM System z Software Technical Sales SMPO (Software Migration Project Office) TMT (Tivoli Migration Team) 404-487-2477 or tie 546-2477 [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Netview problem
Hello Rafal, Are you running your Netview task as SUB=MSTR? Please provide sample of duplicated messages. Thanks Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: DFSMS APAR OA22738 - IGD17295I
Hello Mathew, But when using IDCAMS Define with MODEL even SMS doesn't know what type of cluster is being created. This shortcoming required the development of an IGDACSDC sms exit in our site to determine what RECORG described the model dataset, so that the correct Data Class could be assigned. I wonder if the same exit could be used when LIKE= is being used. In case you are wondering, the IGDACSDC routines calls IGGCSI00 for the model dataset name and retrieves the VSAMTYPE field. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: SDSF
And for a second opinion, I monitor the Omegamon II for z/OS (classic) interface command LPAR. It makes a good effort of displaying LPAR physical CP utilization as well as the logical or MVS consumption. If your weights are set up so that they look like percentages (i.e. all active LPAR weights add up to 100 or 1000) then matching the physical CP utilization to the LPAR weight can tell you if you are below, on, or over weight. For CAP=YES then you can see how close to CAP you are. Real time. Regards Bruce -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: CPU time differences for the same job
Guys, One point to consider when the physical processor is changed, is that times to reinstate the environment on the next physical processor can be quite variable, especially if the next processor is NOT in the same book. Cross book movement can take some time depending on proximity, i.e. adjacent book, or not. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: identify sas uage by component
In regards to Ed's comments: If your company wanted to write SMF records for internal applications, then instead of assigning a unique SMF record type to each application, it would be better to assign 1 SMF type, and then assign each application a unique subtype number. That way your company's internal applications only tie up 1 SMF record type. Regards Bruce Hewson. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Dynamic tape in Rexx?
Hello Jeffrey, I know this one! 1. Running REXX in batch and using ALLOC assume you are running in a background TSO session. 2. The user running the job must have MOUNT authority to request allocation of TAPE devices. 3. The userid running the job must not exceed 7 characters, otherwise the mounts wont happen. An 8 character userid is not accepted as a TSO user. This one is tricky! 4. If you use the ID that has MOUNT authority interactively be very careful about allocations of offline devicesyour TSO session will go into a WAIT until a reply is made to the IEF238D WTOR message. 5. As others have said you also need to correct your ALLOC paramaters. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Parm Length restriction was Re: Using an InfoPrint 6500 with PSF
Hi Gil,
I wonder if your null parameter is misinterpreting your quotes...something like
the rule that to support imbedded quote, you must code two in sequence, the
first as an escape character..
normally I have seen a null parm coded as adjacent comma's.
//OUT01OUTPUT USERDATA=('A',,'C')
On Thu, 24 Jan 2008 18:07:41 -0600, Paul Gilmartin
[EMAIL PROTECTED] wrote:
snip
I HATE JCL!
3 //STEP EXEC PGM=IEFBR14
//*
4 //OUT00OUTPUT USERDATA=('A','B','C')
//*
5 //OUT01OUTPUT USERDATA=('A','','C')
//*
//* :w ! submit lstc3mvs
STMT NO. MESSAGE
-
5 IEF641I IMPROPER SUBPARAMETER LIST IN THE USERDATA FIELD
Yes, it's documented that way.
No, there's no reason they had to do it that way, other
than to deprive the customer of some flexibility. (Well,
maybe in some of their processing loops they use a null
subparameter as a list terminator. But that could have
been done otherwise. Or did they want the subparameter
values to be MVC-eligible? Still, that coding shortcut
doesn't justify the abandoning of generality.)
Would any IBM representative care to supply a rationale for
the restriction?
-- gil
Regards
Bruce Hewson
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: SMP/E HOLDs: ACTION vs. IPL
Hello Marna, I take it that from your comments re: RMF that you are advocating performing SMPE APPLY processing to update datasets in use by the current/active system. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Encrypted transfers to/from vendors
Looks good except for:- Please note that due to web browser limitations only files up-to 2 GByte can be uploaded. not much good when you're trying to upload dumps. On Mon, 14 Jan 2008 10:48:19 -0600, Aaron Walker [EMAIL PROTECTED] wrote: snip If you are sending data to ECuRep, it supports HTTP, HTTPS, FTP, FTPS, SFTP, and email. http://www-05.ibm.com/de/support/ecurep/index.html Aaron Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: help with IEBCOPY: selective load module copies
I cheat :-) StarTools automatically ensure ALIAS entries get copied. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: What can be possible deployment schema for Websphere and DB2 on a mainframe?
Hello Legolas :-D Look into Network Deployment nodes in a Parallel Sysplex, with DB2 in a Data Sharing Group, also with CICS in CICSPLEX enabled environment, to see how WebSphere Application Server for z/OS exploits the capabilities of sysplex and WLM. It is a bit different from clustering, in fact I would say it was a big step up from clustering. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: DFDSS and Copy of Offline Volumes
EMC's Infomover product accesses OFFLINE products from the mainframe... and as a result doesn't support dynamic path. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Possible change to MCSOPER processing
Hello Kevin, We are required to have LOGON REQUIRED on all consoles, including SYSCONS. (HMC Operating System Messages). This allows us to IPL and reply to messages until RACF starts up and locks up the console until you sign in.but, tragically, there is no LOGON command available via SYSCONS (not 3270). Since we issue V CN(*),ACTIVATE to establish the SYSCONS, we are not able to issue the DEACTIVATEsince by this time we are not logged in. Maybe we could issue the DEACTIVATE via the process you are considering removing. Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: No z/OS UNIX Support in System REXX?
Hi Ed, Your address space AXR04 does not have a RACF identitywhich is why the ICH408I is reporting JOB and STEP and not USER and GROUP. Either use a STARTED class entry to assign a User/Group with OMVS segment, or, somehow, get the Default OMVS UID and GID set up. But I am not sure that the default UID/GID would get used since the address space does not have valid ACEE. On Tue, 4 Dec 2007 16:12:13 -0800, Edward Jaffe [EMAIL PROTECTED] wrote: IEF196I IGD103I SMS ALLOCATED TO DDNAME SYS00110 ICH408I JOB(AXR04 ) STEP(AXR04 ) CL(PROCESS ) OMVS SEGMENT NOT DEFINED Anyone got this to work? -- Edward E Jaffe Phoenix Software International, Inc Regards Bruce Hewson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
