Re: Truly detecting that an LPAR is capped
We have developped a little tool to monitorize the amount of MSU's used and a consecuence of this we can obtain the CAPPED value and others. You can download all the code, sorry in spanish, from the following url http://perso.wanadoo.es/rptv2005/msumon/index.html angel luis domínguez bbva-spain As an example, the information obtained about all CPC, from only one LPAR, is the following (copy an put with courier font to column it) MSUM001I MONITOR INICIALIZADO MSUM001I TIMERINICIALIZADO MSUM001I LISTENER INICIALIZADO MSUM002I EMPIEZA LA MONITORIZACION DE MSU'S --START--ZOS140P NOMBRE DEL HARDWAREMIZAR2094 708 00065976 QVSCECCAPACITY (MSU'S) 532 LPDATPHYCPUADJFACTOR 86614/12/2006 08:10:47 LPDATFLAGS POR DEFECTO PROCESADORES FISICOS: 011 (CP: 008 ICF/IFL: 003) === === = === === = = = SYSPLEX ??? LP. PROCS MSUS. MSUS. LPARNAME NAME SYSNAME ID. ID. LOGI. CAP PESO MEMORIA LPAR. HMC NOTAS === === = === === = = = MIZAR26 PLXSYS TC0Z 0C 06 020020 0002048 00133 0 MIZAR2A01 00 00 000 0 MIZAR2B02 00 00 000 0 MIZAR2C03 00 00 000 0 MIZAR2D04 0D 01DED. 0008192 0 MIZAR2E05 0E 01DED. 0008192 0 MIZAR2F06 0F 01DED. 0006144 0 MIZAR21 PLXPRD CR02 07 01 08YES 0586 0010240 0 MIZAR22 PLXPAR PAR1 08 02 020052 0004096 0 MIZAR23 PLXDYD DYD2 09 03 030213 0007168 0 MIZAR240A 00 00 000 0 MIZAR250B 00 00 000 0 MIZAR27 PLEX01 FOR1 0D 07 020015 0002048 0 MIZAR28 PLXBKP BK02 0E 08 010008 0002048 0 MIZAR290F 00 00 000 0 MIZAR3110 11 010104 064 0 MIZAR3211 00 00 000 0 MIZAR3312 00 00 000 0 --- - TOTALES DEFINIDOS .0998 0050240 0 NO VERIF. --- Shannon Collinson, from SunTrust Bankwrote Does anyone know a field in a control block somewhere that I can check to see if an LPAR is currently capped? I was using the IRALPDAT data area and comparing the defined capacity to the 4-hour average to determine capping, but of course if we drop our defined capacity down after a period of heavy activity, that info tells me we're capping when somehow RMF and WLM know that we're not. I think it has something to do with LPDATSERVICECAPPEDTIME, but I'm not sure how the LPDATSERVICETABLE is updated so don't know where I should be looking. A flag that indicates capping! for this service period would be ideal, but I'm open to any suggestions. Thanks! - LLama Gratis a cualquier PC del Mundo. Llamadas a fijos y móviles desde 1 céntimo por minuto. http://es.voice.yahoo.com -- 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
STEPLIB CLIST or REXX Command
Have a look at TSOLIB command, that is included in IBM libraries. You can use in CLIST or REXX but OUT of ISPF, in the ready of TSO. Depend upon you need, it presents some difficulties and porobably you need to use the stack to target your needings. Sincerely angel luis domínguez bbva - spain Dean Montevago said Hi, Where is this command located what release of z/OS did it become available. TIA Dean - LLama Gratis a cualquier PC del Mundo. Llamadas a fijos y móviles desde 1 céntimo por minuto. http://es.voice.yahoo.com -- 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
OPERLOG search filter in batch
You have some programs in SAMPLIB and can have some usefull information at CBT TAPE Files 513 (ispf and batch) and 642. angel luis dominguez bbva - spain Hi Is there any tool to search or filter messages from the operlog (in batch ) ? -- Miklos Szigetvari - LLama Gratis a cualquier PC del Mundo. Llamadas a fijos y móviles desde 1 céntimo por minuto. http://es.voice.yahoo.com -- 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: Read jes spool file before job ends
In case you need acceess to Return Codes of previous steps, I have a piece of code (assembler) based in an REXX idea of THOMAS RAMSEIER i can send you. If you need to access a wholw output you can use SDSF. There is an REXX from Lionel B. Dyck to do that i don't remeber where it is, but I can send you. Contact me directly in case you are interested. angel luis domínguez bbva - spain From: [EMAIL PROTECTED] Does anyone know of an API that exists so I can read a jes pool file while a batch job is still active? I can read a spool file using the subsystem interface 79 function, however it only allows spool files to be read once the batch job finishes. I know I can do it using SDSF, however I can't rely on that. Any help would be greatly appreciated. -- - LLama Gratis a cualquier PC del Mundo. Llamadas a fijos y móviles desde 1 céntimo por minuto. http://es.voice.yahoo.com -- 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
SMP Lines per Page problem
You should use the SMPE-ISPF aplicattion to modify , accessing the appropriate OPTIONS you are using in subject GENERAL (Option 4) there is PAGELEN setting. angel-luis dominguez bbva -spain From: [EMAIL PROTECTED] I've just done some SMP Runs and although my JES2 page height is 60 lines per page, SMP seems to think it is 66 lines per page so for each page on SMPOUT and SMPRPT the last 6 lines of each page end up on a second printed page. How do I tell SMP to just print 60 lines (maximum) per page? I can not find the correct setting (although I might have missed it in looking in the SMP Manuals). Thank you. - LLama Gratis a cualquier PC del Mundo. Llamadas a fijos y móviles desde 1 céntimo por minuto. http://es.voice.yahoo.com -- 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
VPW-Virtual Paper Writer
Hello listers, does anybody remember this old product? VPW. formely VIRTUAL PAPER WRITER was, even is, an IBM product in the 80's to recover data automatically from JES2-SPOOL and put into PO libraries. We abandon using it in 2001 but now we want to recover for a simple and specific task in our environment. We have installed in z/OS 1.7 and it works fine, but we haven´t the manual about how to define the process options. doses anybody have this (ancient) manual? any link to it? Thanks a lot in advance angel-luis dominguez bbva - spain - LLama Gratis a cualquier PC del Mundo. Llamadas a fijos y móviles desde 1 céntimo por minuto. http://es.voice.yahoo.com -- 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
Rexx Query
Althoug I think this is not a good practice sending a job and wait and capture return codes, here is a little REXX we use to do this angel luis dominguez bbva - spain /* --- REXX --- * * * * EXample to submit a JOB and after capture the result from* * spool to a user file to investigate Steps Retun Codes* * * * -*/ say ' ' say 'Sending the job ' timew = '02' ADDRESS LINKMVS 'MDTWAIT timew' queue '//U341310@ JOB MSGCLASS=X,CLASS=S' queue '//PASO0020 EXEC PGM=IEFBR14' queue '//PASO0030 EXEC PGM=IEBGENER' queue '//PASO0040 EXEC PGM=IEBPTPCH' queue '//PASO0050 EXEC PGM=IEBCOPY' queue '$$' x = OUTTRAP('ldat.',2) ADDRESS TSO 'SUBMIT * END($$)' parse var ldat.2 . . joball . Parse Var joball jobnm '(' jobid ')' . say ' ' say 'The job was sent .' jobnm ' ' jobid /* --- * * Capture from spool * * --- */ 'Free f(isfin isfout isfpt) delete' ADDRESS TSO 'Alloc f(isfpt) new spa(1,1) cyl reuse' , 'recfm(f b) lrecl(133) blksize(0)' ADDRESS TSO 'Alloc f(isfin) new spa(1,1) tr reuse' , 'recfm(f b) lrecl(80) blksize(3200) ' ADDRESS TSO 'Alloc f(isfout) new spa(15,15) tr reuse' isfindat.1 = 'PRE' jobnm isfindat.2 = 'OWNER' isfindat.3 = 'H' isfindat.4 = 'PT FILE ISFPT' isfindat.5 = 'SORT OFF' isfindat.6 = 'Set Display On' isfindat.7 = 'SELECT' jobnm jobid isfindat.8 = 'FIND' jobnm isfindat.9 = '++S' isfindat.10 = 'PT' isfindat.11 = 'PT CLOSE' 'Execio * diskw isfin (finis stem isfindat.)' linobt = 0 intnume = 3 /* trying number */ inttime = '10' /* wait between */ Do I=1 to intnume by 1 until linobt0 ADDRESS LINKMVS 'MDTWAIT inttime' say ' ' say 'Capturing Step ' i ADDRESS LINKMVS 'ISFINIT' 'Execio * diskr isfpt (finis stem isfptdat.)' linobt = isfptdat.0 end If i intnume then say 'JOB not found in spool ' else do I=1 to linobt if pos('IEF142I',isfptdat.i) = 0 then iterate else do parse var isfptdat.i . wjob wpas . . . . . . . wcod . say ' ' say wjob ' ' wpas ' ' wcod end end exit From: [EMAIL PROTECTED] To: IBM-MAIN@BAMA.UA.EDU Date: Tue, 9 May 2006 10:59:22 +0530 Subject: ReXX query Message-Id: [EMAIL PROTECTED] Reply-To: IBM-MAIN@BAMA.UA.EDU Sender: IBM-MAIN@BAMA.UA.EDU Hi all, I am submitting a job say job1 through my ReXX program. If the RC of job1 is 0, I am submitting job2. This works fine if job1 encounters some abend. In this case job2 is not submitted. But if job1 has some JCL error then job2 is being submitted which should not happen. Is there any way to check for JCL error as well? Thanks, Rashmi - LLama Gratis a cualquier PC del Mundo. Llamadas a fijos y móviles desde 1 céntimo por minuto. http://es.voice.yahoo.com -- 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
Master Catalog maxed out w/19k Alias.
Even I think there is in not problem with catalogs, It is a good solution to design the TSO / ISPF under quite a few groups. We implemented this solution 13 years ago, using ten groups and so defining only then user alias. For example, my gorup is USTS and my user is U0Z72B6 so my TSO files where in the form USTS.U0Z72B6..... With this, no more act in user catalogs when ADD/DEL TSO users. Of course you need some changes in our implemented CLIST/REXX to permit this, some SMS rules probably and users must use TSO PROFILE PREFIX clause (TSO PROFILE(USTS) in my case and some other little things, but the benefits are good. Item more, ISPF and almost all products manage automatically this form when detectes that PREFX and TSOUSERID does not match. angel luis dominguez bbva - spain == From: [EMAIL PROTECTED] Date: Wed, 26 Apr 2006 11:47:25 -0400 Subject: Master Catalog maxed out w/19k Alias. Hello all, I have a current work around for this issue : (delete all unused aliases around 10k.) My question(s) : What if I had 19K active TSO users. Say 30,000. My Coworker says that we would have to reengineer our dataset naming standards and make TSO alias another qualifier other the HLQ. So: DSN= TSO.TSOU002.JCL.CNTL. Would be required, instead of TSOU002.JCL.CNTL. This solution would reduced my MCAT aliases of TSO users down to 1 from 19K by using TSO as the HLQ/ALIAS. Are there any sites that have more then 19,000 TSO aliases defined on this Listserver or has somewhat heard of a solution ? - LLama Gratis a cualquier PC del Mundo. Llamadas a fijos y móviles desde 1 céntimo por minuto. http://es.voice.yahoo.com -- 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-TSO COLUMNS Command
As an appointment, I use an EDIT MACRO from Mark Zelden (thanks a lot Mark) named COLUTIL that is one of the most usefull piece of code I have. ISPF Edit is really enhancend with this macro. You can download from http://home.flash.net/~mzelden/mvsutilr.html#macros Angel Luis Domínguez bbva - spain - gestión integrada de sistemas Las actitudes son más importantes que las aptitudes Winston Chrchill. -Mensaje original- De: willie bunter [mailto:[EMAIL PROTECTED] Subject: TSO COLUMNS Command Hi, Can anybody please jog my aging memory. I would like to just view columns 50 -55 when in edit/browse mode in a dsn. Can you please tell me the command that I can use. Also, can we do an INCLUDE or EXCLUDE when performing a FIND command. I remember I could do this in ROSCOE.a... the good old days. Pardon me for reminiscing. Thanks in advance. - - LLama Gratis a cualquier PC del Mundo. Llamadas a fijos y móviles desde 1 céntimo por minuto. http://es.voice.yahoo.com -- 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