Stems as associative memory (Was: Multi-dimensional arrays in REXX)
One sort of applying this technique of stems is to use the as associative memory - where the content of a storage location is used as an address. Ther rules for resolving elements of a stem variable state that all parts after the first part of a stem are subject to be resolved. As shown in ISDA (the small interactive disassembler in cbttape), which is completely written in Rexx, it works as folllows: Consider a hexcode sequence containing the following (hex)-characters: 0E1A this is resolved to: MVCL R1,R10 Internally it is accomplished by looking for the symbolic representation of x'0E' : OPCODE.0E.FORMAT = 'RR' ; OPCODE.0E.MNEMO = 'MVCL' the Rexx-instructions are: Inst_Form = getInstruction_Format(hexaopcod) . . . getInstruction_Format: arg hxo /* hexadecimal Opcode */ oform = opcode.hxo.fomat return oform /*returns 'RR'*/ . . . IMnemo = opcode.hxo.mnemo /* IMenmo = 'MVCL' */ -- 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
SDSF problems in z/OS 1.9
Hi, We cut over to z/Os 1.9 last week and we’re have some problems: 1. Performance on the Output screen is slow. 2. The order in which multiple SYSOUTS from the same job are displayed on the output screen is wrong. We have jobs that create many sysouts. All of the sysouts have the same parameters (CHARS, FORMDEF, PAGEDEF, CLASS). The job has FREE=CLOSE coded. Once the job finishes and we look at the sysouts in the output screen we see that instead of the order being 1,2,3… it is 1,10,11,2,3…, Or in other words, the sysouts are sorted textually instead of numerically. 3. The order of the jobs on the Status screen is different than it was previously. For example, if I submit a job and it is assigned job number 65000, I wait a while, submit another job and it is assigned job number 100, then the first job (number 65000) will be displays below the second job (number 100). I would like the jobs to be displayed in the order that they were submitted. Our previous operating system was z/OS 1.7, where we had none of the problems. Has anyone seen these problems? Do you know of a fix? Yes, I’ve opened problems with IBM. TIA Gadi -- 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
How to protect with RACF an XCF group ?
Good morning list, Is there a way to protect with RACF whether (or not) one can connect to an XCF group ? I found in SYS1.MACLIB(IXCYCON) a reason code of IXCRSNCODENOSAFAUTH EQU X'084C' but was unable to find a RACF profile that protects the groups Any ideas ? Mauri. -- 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 problems in z/OS 1.9
Gadi, Yes, it is a known issue. We have been fighting it for almost a year. Check into OA24615, PK69442 and especially OA25498. I have been told that the issue does not exist in 1.10 Bob -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of gad...@malam.com Sent: Thursday, March 19, 2009 4:17 AM To: IBM-MAIN@bama.ua.edu Subject: SDSF problems in z/OS 1.9 Hi, We cut over to z/Os 1.9 last week and we're have some problems: 1. Performance on the Output screen is slow. 2. The order in which multiple SYSOUTS from the same job are displayed on the output screen is wrong. We have jobs that create many sysouts. All of the sysouts have the same parameters (CHARS, FORMDEF, PAGEDEF, CLASS). The job has FREE=CLOSE coded. Once the job finishes and we look at the sysouts in the output screen we see that instead of the order being 1,2,3... it is 1,10,11,2,3..., Or in other words, the sysouts are sorted textually instead of numerically. 3. The order of the jobs on the Status screen is different than it was previously. For example, if I submit a job and it is assigned job number 65000, I wait a while, submit another job and it is assigned job number 100, then the first job (number 65000) will be displays below the second job (number 100). I would like the jobs to be displayed in the order that they were submitted. Our previous operating system was z/OS 1.7, where we had none of the problems. Has anyone seen these problems? Do you know of a fix? Yes, I've opened problems with IBM. TIA Gadi -- 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: Any Batch Pipes experience?
Ah, to keep with the 80's theme, way, dude if you have lots of time on your hands. Yes, the user could insert another JOB card, but with thousands of jobs executing, and not being a consultant, I have better things to do than waste my company's dollars trying to manually streamline my batch processes. And of course there are no IO savings by inserting another JOB card. MAINVIEW Batch Optimizer provides the ability to pipe around DB2 or IMS steps to negate any negative impact. It's all a very simple process to implement. Michael Spencer BMC Software -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Nemo Sent: Wednesday, March 18, 2009 12:59 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Any Batch Pipes experience? On Wed, 18 Mar 2009 07:45:09 -0500, Spencer, Mike wrote: Batch Pipes can only move data between two different jobs. It cannot move data between steps because in a Batch Pipes world, there is no way to get multiple steps running in parallel for the pipe to work. no way?!? All the user needs to do is insert another JOB card (non-duplicate name is a plus but not a requirement if JES' duplicate jobs are allowed to execute concurrently). That sounds like a way to me. MAINVIEW Batch Optimizer from BMC will run steps in parallel, entire jobs in parallel, and optimizes QSAM and native VSAM I/O processing among other items. Does BMC's MAINVIEW Batch Optimizer have a clue if more than one of those parallel job steps are updating the same DB2 table (and thus potentially causing damage)? Some steps have implicit serialization requirements. How does BO cope with those? -- 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
Re: Multi-dimensional arrays in REXX
On Thu, 19 Mar 2009 01:11:23 -0400, Gerhard Postpischil wrote: Ian S. Worthington wrote: I'm aware of the distinction, but have always felt that that's a fairly reasonable working definition of default, at least up until a reassignment. I suspect that he considers the language assignment of the upper-cased variable name to be the default, hence the distinction? While that's true, it's the lesser concern. Misusing default to describe the universal assignment can mislead the reader to believe that the construct merely defines a value to be used for members otherwise undefined. With this assumption, readers of the following program: /* Rexx */ signal on novalue; /* Universal assignment is not a default value. */ trace R X.42 = 'specific ' say symbol( 'X.42' ) value( 'X.42' ) X.42 = 'universal' say symbol( 'X.42' ) value( 'X.42' ) drop X.42 say symbol( 'X.42' ) value( 'X.42' ) ... may expect incorrect results from the second and/or third say instructions. This is more likely for readers with some programming experience, who are likely to make incorrect and oversimplified assumptions about the implementation mechanism. Even IBM developers have fallen victim: at one point an attempt to optimize storage management caused Rexx to give incorrect results for the third say instruction. This appears to have been repaired by APAR. --gil -- 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 protect with RACF an XCF group ?
Mauri Kanter wrote: Is there a way to protect with RACF whether (or not) one can connect to an XCF group ? I found in SYS1.MACLIB(IXCYCON) a reason code of IXCRSNCODENOSAFAUTH EQU X'084C' but was unable to find a RACF profile that protects the groups Check profile IXLSTR.structure-name in the FACILITY class. There may be others too... HTH! Groete / Greetings Elardus Engelbrecht -- 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: Multi-dimensional arrays in REXX
Paul -- What you say, viz: Misusing default to describe the universal assignment can mislead the reader to believe that the construct merely defines a value to be used for members otherwise undefined. is absolutely true, but I would hazard a guess, based on my own 20+ years of rexx experience, that the vast majority of programmers only use, if they use at it at all, the construction x. = 'something' at the top of their programs, and then never change it. Is calling that a default strictly accurate? Of course not. But in the context of the original discussion, does rexx support multi-dimensional arrays? I think that to describe it otherwise in a list of additional features which might be of interest to a newcomer would be a severe case of TMI. BTW, Unless I've misunderstood your point, I'm not sure that your sample program demonstrates the language feature we're discussing. (x. = 'universal' perhaps?) i -- Original Message -- Received: Thu, 19 Mar 2009 06:55:22 AM COT From: Paul Gilmartin paulgboul...@aim.com To: IBM-MAIN@bama.ua.edu Subject: Re: Multi-dimensional arrays in REXX On Thu, 19 Mar 2009 01:11:23 -0400, Gerhard Postpischil wrote: Ian S. Worthington wrote: I'm aware of the distinction, but have always felt that that's a fairly reasonable working definition of default, at least up until a reassignment. I suspect that he considers the language assignment of the upper-cased variable name to be the default, hence the distinction? While that's true, it's the lesser concern. Misusing default to describe the universal assignment can mislead the reader to believe that the construct merely defines a value to be used for members otherwise undefined. With this assumption, readers of the following program: /* Rexx */ signal on novalue; /* Universal assignment is not a default value. */ trace R X.42 = 'specific ' say symbol( 'X.42' ) value( 'X.42' ) X.42 = 'universal' say symbol( 'X.42' ) value( 'X.42' ) drop X.42 say symbol( 'X.42' ) value( 'X.42' ) .. may expect incorrect results from the second and/or third say instructions. This is more likely for readers with some programming experience, who are likely to make incorrect and oversimplified assumptions about the implementation mechanism. Even IBM developers have fallen victim: at one point an attempt to optimize storage management caused Rexx to give incorrect results for the third say instruction. This appears to have been repaired by APAR. --gil -- 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
Is there a Web enabled TN3270 on z/10's running z/OS 1.9
Hi Cynthia, Under the web-enabled heading are a several solutions that provide TN3270 emulator, or emulator-like access to Z. IBM does not ship one with Z but has Host on Demand and HATS. Since you are going to replace a real emulator with a web-enabled one, opt for a product that downloads a client to the PC and runs it either inside the browser or as a separate window. There are a variety of ActiveX, Java, and Win32 web-enabled terminal emulators on the market that run directly from the Z/OS HTTP server. Some require the Web Sphere Application Server, while others will run from the Z/OS HTTP server, and do not require an application server. HTML emulators are not really suitable as a general emulator replacement, but are geared more toward casual use, anonymous use, or as the basis for GUI web enablement. Heads-down emulator users will find the HTML emulator too slow and that it operates differently from a real emulator. HTML emulators have their place, but not as an overall replacement for Aviva. Your Aviva users will probably expect a high level of functionality in any replacement you choose. Depending on the size of your organization, there may be some custom applications, macros, scripts, and other automation that have become part of daily operations. These will have to be migrated to the new solution to minimize the impact on the users. The migration also provides an opportunity to get these unmanaged or ad hoc processes under control and centrally managed. Good Luck. Steve Bireley VP BlueZone Product Development Rocket Software www.bluezonesoftware.com Emulation, Integration, File Transfer BlueZone Secure FTP is Free -- 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: Stems as associative memory (Was: Multi-dimensional arrays in REXX)
This is a really nice example of the use stems can be put to once one stops thinking of them as arrays. To my mind though it contains one potential bug -- it depends on FORMAT and MNENO remaining uninitialized. I would prefer to prefix such symbols with, eg, a 0 to make sure they couldn't be, eg 0FORMAT and 0MNEMO. Or, in programs with more complex lookups, I would often be more explicit: 0Opcode2Mnemonic and 0Opcode2Format, which helps me to remember what to put in as as well as what (should) come out: useful as my memory fades... i -- Original Message -- Received: Thu, 19 Mar 2009 02:51:09 AM COT From: Arthur Fichtl arthur_fic...@afisumag.de To: IBM-MAIN@bama.ua.edu Subject: Stems as associative memory (Was: Multi-dimensional arrays in REXX) One sort of applying this technique of stems is to use the as associative memory - where the content of a storage location is used as an address. Ther rules for resolving elements of a stem variable state that all parts after the first part of a stem are subject to be resolved. As shown in ISDA (the small interactive disassembler in cbttape), which is completely written in Rexx, it works as folllows: Consider a hexcode sequence containing the following (hex)-characters: 0E1A this is resolved to: MVCL R1,R10 Internally it is accomplished by looking for the symbolic representation of x'0E' : OPCODE.0E.FORMAT = 'RR' ; OPCODE.0E.MNEMO = 'MVCL' the Rexx-instructions are: Inst_Form = getInstruction_Format(hexaopcod) . . . getInstruction_Format: arg hxo /* hexadecimal Opcode */ oform = opcode.hxo.fomat return oform /*returns 'RR'*/ . . . IMnemo = opcode.hxo.mnemo /* IMenmo = 'MVCL' */ -- 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
Re: How to protect with RACF an XCF group ?
Thank you Elardus ... I want to emphasize ... I'm not asking for a XES strucuture but an XCF group ... In assembler language, IXC* services rather than IXL* Mauri. -- 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 protect with RACF an XCF group ?
Mauri Kanter wrote: I want to emphasize ... I'm not asking for a XES strucuture but an XCF group ... In assembler language, IXC* services rather than IXL* Oops, my bad. Try looking for profile MVSADMIN.XCF.CFRM in FACILITY class. As I understand that variable is used by IXCCFCM according to 'MVS Programming: Sysplex Services Reference'. Hope this is the one you're searching... If not sorry... HTH! Groete / Greetings Elardus Engel brecht -- 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 and dynamic allocation (my two cents)
snip--- There is also another side issue I have experienced myself. in the it is extremely common to search proclib for a dest= (for production and non production) chances are with your way moving it to parmlib type dataset this scan will miss the destination you are looking for. unsnip- Putting the DEST= information in the proc is fine for 3-4 destinations. When it gets to several thousand, your procs get to be rather large, and size, in my experience, leads to confusion and errors. Not to mention various limits that might be imposed by z/OS or JES2/JES3. PDS8.x, STARTOOL or my freebee PDSSCAN utility from the CBTTAPE sight can be used to find references to parmlibs or proclibs, or members therein, to help find all the references when changes are made. There are also other tools, I'm sure, that will also accomplish the same tasks. -- Rick -- Remember that if you’re not the lead dog, the view never changes. -- 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 protect with RACF an XCF group ?
Elardus, Thank you again ... We are getting closer ... Seems MVSADMIN.XCF.CFRM is related to the ability to define something in the CFRM dataset ... I need to understand how to protect IXCCREAT Mauri. -- 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: Multi-dimensional arrays in REXX
On Thu, 19 Mar 2009 07:37:08 -0500, Ian S. Worthington wrote: Paul -- What you say, viz: Misusing default to describe the universal assignment can mislead the reader to believe that the construct merely defines a value to be used for members otherwise undefined. is absolutely true, but I would hazard a guess, based on my own 20+ years of rexx experience, that the vast majority of programmers only use, if they use at it at all, the construction x. = 'something' at the top of their programs, and then never change it. Is calling that a default strictly accurate? Of course not. But in the context of the original discussion, does rexx support multi-dimensional arrays? I think that to describe it otherwise in a list of additional features which might be of interest to a newcomer would be a severe case of TMI. The infrequency of use of a facility fails to justify the incorrect description. Rather, it aggravates the astonishment factor when the programmer encounters the behavior, perhaps inadvertently. Suppose: X. = 'something' do I = 1 to 10; X.I = 'defined'; end drop X.7 say X.7 The description in the manual is correct; describing it with the less specific term default might lead the programmer to expect the program to say something rather than X.7, or at least to be uncertain. BTW, Unless I've misunderstood your point, I'm not sure that your sample program demonstrates the language feature we're discussing. (x. = 'universal' perhaps?) I stand corrected. Lazy code copying and inadequate testing. (When corrected, the output is the same.) BTW, the APAR I've mentioned is OA17169, closed SUG in 2006, then The fix for this SUG APAR was shipped in the base for z/OS V1R9. (IBM has lately updated FIN and SUG APARs when/if the fix is shipped. Thanks, IBM.) -- gil -- 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
SMP/E RECEIVE ORDER: Prerequisites?
Hi, All, Can anybody say with certainty whether a subscription to SoftwareXcel Extended (or SoftwareXcel Enterprise Edition) is *required* in order to use SMP/E's RECEIVE ORDER functionality, or the roughly equivalent ShopzSeries RSU Service Order capability? TIA, -jc- -- 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: SMP/E RECEIVE ORDER: Prerequisites?
I do RECEIVE ORDER on a regular basis, and AFAIK we have only BASIC and RESOLVE(?). Chase, John jch...@ussco.com 3/19/2009 10:41 AM Hi, All, Can anybody say with certainty whether a subscription to SoftwareXcel Extended (or SoftwareXcel Enterprise Edition) is *required* in order to use SMP/E's RECEIVE ORDER functionality, or the roughly equivalent ShopzSeries RSU Service Order capability? TIA, -jc- -- 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 CONFIDENTIALITY/EMAIL NOTICE: The material in this transmission contains confidential and privileged information intended only for the addressee. If you are not the intended recipient, please be advised that you have received this material in error and that any forwarding, copying, printing, distribution, use or disclosure of the material is strictly prohibited. If you have received this material in error, please (i) do not read it, (ii) reply to the sender that you received the message in error, and (iii) erase or destroy the material. Emails are not secure and can be intercepted, amended, lost or destroyed, or contain viruses. You are deemed to have accepted these risks if you communicate with us by email. Thank you. -- 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 protect with RACF an XCF group ?
Mauri Kanter wrote: We are getting closer ... Seems MVSADMIN.XCF.CFRM is related to the ability to define something in the CFRM dataset ... I need to understand how to protect IXCCREAT There is nothing about SAF or RACF for that macro IXCCREAT or the XCF group described. Not every IXC* macros have a paragraph about SAF protection according to the same book I mentioned earlier. (I could have missed something while RTFM...) It seemed to me the USAGE of the services are somewhat protected. What you can try, enable logging for all access attempts for RACF class FACILITY, maybe on a test system, put in a temporary backstop profile ** with WARNING on. Then you can search the SYSLOG or SMF for any clues. Maybe you'll discover a profile used by that macro. Remember to remove that backstop profile. Or write your own RACROUTE service. HTH! Groete / Greetings Elardus Engelbrecht -- 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 and dynamic allocation (my two cents)
On Wed, 18 Mar 2009 19:30:40 -0700, Ed Gould wrote: Yes I know you can have multiple destinations in one output statement the problem is how many ? 128. If you have a report that has to go to more than 128 destinations, I question whether this is the best mechanism for it. I like the KISS methodology You and I have a different idea of what is simple. To expect that the program open multiple DCBs to send duplicate copies of the same report to different destinations IMO is not simple. -- Tom Marchant -- 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 protect with RACF an XCF group ?
On Thu, 19 Mar 2009 08:32:10 -0500, Mauri Kanter itzuv...@013.net.il wrote: Elardus, Thank you again ... We are getting closer ... Seems MVSADMIN.XCF.CFRM is related to the ability to define something in the CFRM dataset ... I need to understand how to protect IXCCREAT IXCCREAT is protected by the requirement that a program needs to run in supervisor state or with a PKM allowing system key in order to use that service. -- Walt Farrell, CISSP IBM STSM, z/OS Security Design -- 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: SMP/E RECEIVE ORDER: Prerequisites?
To the best of my knowledge, the sole requirement for RECEIVE ORDER is a certificate issued by the ShopzSeries web site. What happens when you go to ShopzSeries, select Create New Order, and then under z/OS - Service you select Service certificate? That certificate, when installed on your z/OS system, is what makes RECEIVE ORDER act like your userid in ShopzSeries, and allows your RECEIVE ORDER batch job to interact with ShopzSeries (and IBM's back end systems) just like your userid can interact with the ShopzSeries web site directly. This entire process has absolutely no connection or relationship with IBMLink. Or at least that's how I understand it. Brian On Thu, 19 Mar 2009 09:41:02 -0500, Chase, John wrote: Hi, All, Can anybody say with certainty whether a subscription to SoftwareXcel Extended (or SoftwareXcel Enterprise Edition) is *required* in order to use SMP/E's RECEIVE ORDER functionality, or the roughly equivalent ShopzSeries RSU Service Order capability? TIA, -jc- -- 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 protect with RACF an XCF group ?
Elardus and Walter, many thanks. -- 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 problems in z/OS 1.9
Gadi, IBM is aware of this and they are fixing it with APAR OA27885. The SDSF was changed to work on JES2 or JES3 and in the process they left out the positional parameter which was used in default sort before V1.9. HTH Natarajan גדי בן אבי gad...@malam.com 3/19/2009 1:16 AM Hi, We cut over to z/Os 1.9 last week and we’re have some problems: 1. Performance on the Output screen is slow. 2. The order in which multiple SYSOUTS from the same job are displayed on the output screen is wrong. We have jobs that create many sysouts. All of the sysouts have the same parameters (CHARS, FORMDEF, PAGEDEF, CLASS). The job has FREE=CLOSE coded. Once the job finishes and we look at the sysouts in the output screen we see that instead of the order being 1,2,3… it is 1,10,11,2,3…, Or in other words, the sysouts are sorted textually instead of numerically. 3. The order of the jobs on the Status screen is different than it was previously. For example, if I submit a job and it is assigned job number 65000, I wait a while, submit another job and it is assigned job number 100, then the first job (number 65000) will be displays below the second job (number 100). I would like the jobs to be displayed in the order that they were submitted. Our previous operating system was z/OS 1.7, where we had none of the problems. Has anyone seen these problems? Do you know of a fix? Yes, I’ve opened problems with IBM. TIA Gadi -- 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 NOTICE OF CONFIDENTIALITY The information contained in this communication, including but not limited to any accompanying document(s) and/or attachment(s), is privileged and confidential and is intended solely for the above-named individual(s). If you are not the intended recipient, please be advised that any distribution, copying, disclosure, and/or use of the information contained herein is strictly prohibited. If you received this communication in error, please destroy all copies of the communication, whether in electronic or hard copy format, and immediately contact the Security Office at EDFUND at (916) 526-7539 or securityoff...@edfund.org. Thank you. -- 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: SMP/E RECEIVE ORDER: Prerequisites?
-Original Message- From: IBM Mainframe Discussion List On Behalf Of Brian Peterson To the best of my knowledge, the sole requirement for RECEIVE ORDER is a certificate issued by the ShopzSeries web site. What happens when you go to ShopzSeries, select Create New Order, and then under z/OS - Service you select Service certificate? That certificate, when installed on your z/OS system, is what makes RECEIVE ORDER act like your userid in ShopzSeries, and allows your RECEIVE ORDER batch job to interact with ShopzSeries (and IBM's back end systems) just like your userid can interact with the ShopzSeries web site directly. We do / have done all that already. This entire process has absolutely no connection or relationship with IBMLink. Or at least that's how I understand it. I hope that's the case, and is what I'm trying to verify. Our shop is in serious cost-cutting mode, and toward that end we're evaluating downgrading from SoftwareXcel Extended to either Basic, or Resolve. Aside from ordering packaged service (RSU, etc.) via ShopzSeries (and now RECEIVE ORDER), we've found we don't use any of the other Extended features. This document http://www.vm.ibm.com/service/zmatrix.pdf is what's causing us confusion and consternation, for it seems to imply that if we downgrade from Extended (aka Enterprise Edition), we would lose our entitlement to order packaged service via ShopzSeries (and by extension, via RECEIVE ORDER), even though ShopzSeries is not mentioned by name in that document. Sometimes it appears that even IBM doesn't know what IBM is talking about. :-( -jc- -- 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
SAR QUESTION - SAVING LISTING TO A DSN
G'DAY All, When in SAR, in the past when I typed a C at the side of the job name to save the output to a disk dsn - the equivalent of XDC. Now when I do it I get nothing. There is no prompt. Has something changed? I checked the HELP panel but I found nothing that could be helpful. Any suggestions what I should do? Thanks in advance. Stay connected to the people that matter most with a smarter inbox. Take a look http://au.docs.yahoo.com/mail/smarterinbox -- 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: SMP/E RECEIVE ORDER: Prerequisites?
The document you reference accurately describes features of IBMLink. IBMLink has a feature called SRD - Service Request and Delivery. 15-20+ years ago, back in the day when IBMLink was new, SRD was a major innovation - it allowed customers to support their environments and was the first (or second?) method available to customers to download PTFs from IBM electronically. During the subsequent decades, IBM has continued to add enhancements to SRD to add additional functions. Unrelated to IBMLink, IBM's Software Manufacturing and software order placement areas provided a new web based ordering mechanism called ShopzSeries. SMP/E RECEIVE ORDER interacts with IBM Software Manufacturing. RECEIVE ORDER has nothing to do with IBMLink. It became apparent to me that as soon as IBM provided ShopzSeries for ordering service (earlier this decade), and even more obviously because of the more recent addition of the RECEIVE ORDER function, both of which give all customers the ability to get every PTF available for their products, there was absolutely no reason for IBMLink SRD to even exist anymore. It's probably been more than five years since I last ordered a PTF using IBMLink. Ordering PTFs is NOT the justification for IBMLink's various pricing levels. The other features - premium response for ETR, search capabilities for problems, etc., ARE the justifications for IBMLink's various pricing levels. It's absolutely your company's decision how much each of those features are worth to your enterprise. My opinion, obviously. Brian On Thu, 19 Mar 2009 12:04:47 -0500, Chase, John wrote: Our shop is in serious cost-cutting mode, and toward that end we're evaluating downgrading from SoftwareXcel Extended to either Basic, or Resolve. Aside from ordering packaged service (RSU, etc.) via ShopzSeries (and now RECEIVE ORDER), we've found we don't use any of the other Extended features. This document http://www.vm.ibm.com/service/zmatrix.pdf is what's causing us confusion and consternation, for it seems to imply that if we downgrade from Extended (aka Enterprise Edition), we would lose our entitlement to order packaged service via ShopzSeries (and by extension, via RECEIVE ORDER), even though ShopzSeries is not mentioned by name in that document. Sometimes it appears that even IBM doesn't know what IBM is talking about. :-( -jc- -- 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: MY REPLACEMENT
From: Rick Fochtman rfocht...@ync.net Steve, to the best of my knowledge, the only requirements(?) are common sense, working with z/OS, good sportsmanship and professional behavior. While this list does tend to be somewhat z/OS centric, my understanding is that it is open to users of IBM mainframes (or similar) without regard to operating system. I am fairly certain that there a number of contributors to the list that, in fact, do not work with z/OS. -- 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: MY REPLACEMENT
In a message dated 3/19/2009 12:29:08 P.M. Central Daylight Time, da...@reinken.us writes: is that it is open to users of IBM mainframes (or similar) without regard to operating system. I am fairly certain that there a number of contributors to the list that, in fact, do not work with z/OS. When it was started in 1986 it was to encourage cross communication between the different IBM BCP's. We were having trouble with Cross domain and routing print to the users to networked printers and getting all the pagedefs, formdefs, OVERLAYs and PSEGs to match up in a coherent fashion. With HESC there was a lot of available software on VM that we couldn't afford on MVS, so making due with what we had or using VM as a tool to generate usable stuff for MVS was a challenge. As security, TCPIP, middleware and CMOS boxen came down the pipe it got more and more interesting. Fortunately, the list grew and the expertise from the venders contributed to it's success. Hard to believe coming up on 23 years in June. **Great Deals on Dell 15 Laptops - Starting at $479 (http://pr.atwola.com/promoclk/100126575x1220029050x1201385914/aol?redir=http:%2F%2Fad.doub leclick.net%2Fclk%3B212974460%3B34272906%3Bh) -- 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: Multi-dimensional arrays in REXX
On Thu, 19 Mar 2009 09:21:12 -0500, Paul Gilmartin paulgboul...@aim.com wrote: ... The infrequency of use of a facility fails to justify the incorrect description. Rather, it aggravates the astonishment factor when the programmer encounters the behavior, perhaps inadvertently. Suppose: X. = 'something' do I = 1 to 10; X.I = 'defined'; end drop X.7 say X.7 The description in the manual is correct; describing it with the less specific term default might lead the programmer to expect the program to say something rather than X.7, or at least to be uncertain. ... I agree, but I think the astonishment is aimed at the drop rather than the stem assignment. (At least MY astonishment is.) That behavior implies that the interpreter has to maintain both a list of specifically assigned variables and a list of specifically dropped variables (at least for stems that have been assigned). I have no idea how the interpreters actually support the behavior of stem initialization, but I'm quite sure they don't predefine and assign every possible variable for the given stem. They must, in fact, treat the assigned value as a default to be used for each unassigned and undropped variable associated with the stem. Including dropped variables in that behavior just adds work for the interpreter. Collishaw books include a sample of this behavior so there is no doubt he intended the language to work this way, but I am still astonished. Pat O'Keefe -- 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: Multi-dimensional arrays in REXX
On Thu, Mar 19, 2009 at 3:26 PM, Patrick O'Keefe patrick.oke...@wamu.net wrote: I agree, but I think the astonishment is aimed at the drop rather than the stem assignment. (At least MY astonishment is.) That behavior implies that the interpreter has to maintain both a list of specifically assigned variables and a list of specifically dropped variables (at least for stems that have been assigned). I have no idea how the interpreters actually support the behavior of stem initialization, but I'm quite sure they don't predefine and assign every possible variable for the given stem. They must, in fact, treat the assigned value as a default to be used for each unassigned and undropped variable associated with the stem. Including dropped variables in that behavior just adds work for the interpreter. The key is to understand how the variables are maintained: in a b-tree. So x.='foo' sets a node for x.. Once you explicitly set x.banana, a new leaf is created for that. And when you drop a variable, the leaf is maintained/created too. Admittedly, the implementation isn't obvious, but it does allow for arbitrary tails. -- 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 problems in z/OS 1.9
Gadi, For ordering jobs by their submission sequence I sort on ST-Date and ST-Time both descending. The job numbers roll over which makes them a bad choice to sort on only when that actually happens. Paul Gillis 3. The order of the jobs on the Status screen is different than it was previously. For example, if I submit a job and it is assigned job number 65000, I wait a while, submit another job and it is assigned job number 100, then the first job (number 65000) will be displays below the second job (number 100). I would like the jobs to be displayed in the order that they were submitted. Gadi -- 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
Joe, We were told by IBMers that some views were only available from the browser using zLinux. I believe this was views of multiple LPARs. With Mainview you can logon one session at view multiple LPARs and zOS,CICS DB2. While with Omeagmon you could use the browser or logon on multiple times. Gray -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Joseph H Winterton Sent: Thursday, March 12, 2009 12:16 PM To: IBM-MAIN@bama.ua.edu Subject: Re: TMON with OMEGAMON Comparison Kees: ...Or do you mean to say, that we can have this all on z/OS and do not *need* any linux/aix/win/x86 platform? Yes Thank you, I am talking about running OMEGAMON XE, CUA and Classic as it runs today on z/OS. You can continue in the future with no need to require the linux/aid/win/x86 platforms. Does this help? Thanks Gray Maddry Operations System Specialist State of North Carolina Office of Information Technology Services 919-754-6434 Office 919-398-8639 Cell 919-850-2854 Fax 919-754-6000 ITS Service Desk gray.mad...@its.nc.gov http://www.its.state.nc.us E-mail correspondence to and from this address may be subject to the North Carolina Public Records Law and may be disclosed to third parties by authorized state officials -- 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: MY REPLACEMENT
On Thu, 19 Mar 2009 10:28:46 -0700, daver++ da...@reinken.us wrote: ... While this list does tend to be somewhat z/OS centric, my understanding is that it is open to users of IBM mainframes (or similar) without regard to operating system. I am fairly certain that there a number of contributors to the list that, in fact, do not work with z/OS. ... True, but as you say, the topics are at least centered around IBM (or IBM compatable) mainframes. The original posters comments about replacers, ads, economists, politicians, etc. seemed to have little to do with IBM mainframes. Now, I am perhaps even more guilty than most for starting or contributing to off-topic threads, but this one seriously rubbed me the wrong way. It felt very much like spam. (Particularly since it was posted more than once.) And here I am contributing to an off-topic thread again. :-( I'll shut up. Pat O'Keefe -- 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: SMP/E RECEIVE ORDER: Prerequisites?
We had basic support when I was at Washington University. I know how that goes - they tried to cut as many costs as possible. I still think ordering tapes for maintenance is the best option. You have a free archive for the PTFs, and if you need it, IBM gets you the tape the next day, usually in the morning. I remember all the horror stories about the huge HFS file systems needed to receive the PTFs. Often, over double the size of the all of the PTFs. Is that still a problem? Eric Bielefeld Sr. Systems Programmer Milwaukee, Wisconsin 414-475-7434 - Original Message - From: Chase, John jch...@ussco.com Sent: Thursday, March 19, 2009 12:04 PM Subject: Re: SMP/E RECEIVE ORDER: Prerequisites? I hope that's the case, and is what I'm trying to verify. Our shop is in serious cost-cutting mode, and toward that end we're evaluating downgrading from SoftwareXcel Extended to either Basic, or Resolve. Aside from ordering packaged service (RSU, etc.) via ShopzSeries (and now RECEIVE ORDER), we've found we don't use any of the other Extended features. This document http://www.vm.ibm.com/service/zmatrix.pdf is what's causing us confusion and consternation, for it seems to imply that if we downgrade from Extended (aka Enterprise Edition), we would lose our entitlement to order packaged service via ShopzSeries (and by extension, via RECEIVE ORDER), even though ShopzSeries is not mentioned by name in that document. Sometimes it appears that even IBM doesn't know what IBM is talking about. :-( -jc- -- 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: SMP/E RECEIVE ORDER: Prerequisites?
Yes, the HFS used for electronic delivery needs to be double or triple the size of the package being downloaded. Your characterization of this HFS as being huge and a problem are what I would disagree with. I just downloaded z/OS 1.10 plus four XML FMIDs, and it all fit in one zFS (appropriately sized). I don't think that HFS was huge. Brian On Thu, 19 Mar 2009 15:29:00 -0500, Eric Bielefeld wrote: We had basic support when I was at Washington University. I know how that goes - they tried to cut as many costs as possible. I still think ordering tapes for maintenance is the best option. You have a free archive for the PTFs, and if you need it, IBM gets you the tape the next day, usually in the morning. I remember all the horror stories about the huge HFS file systems needed to receive the PTFs. Often, over double the size of the all of the PTFs. Is that still a problem? Eric Bielefeld -- 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: SMP/E RECEIVE ORDER: Prerequisites?
On Thu, 19 Mar 2009 15:38:52 -0500, Brian Peterson brian.peterson.ibm.m...@comcast.net wrote: Your characterization of this HFS as being huge and a problem are what I would disagree with. I just downloaded z/OS 1.10 plus four XML FMIDs, and it all fit in one zFS (appropriately sized). I don't think that HFS was huge. It's a generational / platform problem. It seems that even the younger (relative term) mainframe people I work with just can't grasp the concept that 3390-9 isn't huge.We were just going through an internal battle trying to talk our storage management folks - aka DASD freaks :-) - into 3390-54 instead of 3390-27 for a migration that is starting. Because these folks have micro-managed mainframe storage for so long they are afraid to do it any other way. There were issues raised like what will we do when application abc requests 5G of storage for project xyz when they are on mod-54s and out of space? We'll have to add another volume with all that wasted space. Of course this comes from micro-managing the SMS storage pools also. And as far as I know, we don't even do are charge back using that method anyway (I think there is an after the fact process that goes by data set name). The distributed folks would laugh at us if they sat in some of the meetings I have sat in. I'm glad we're not ready for EAVs! :-) Mark -- Mark Zelden Sr. Software and Systems Architect - z/OS Team Lead Zurich North America / Farmers Insurance Group - ZFUS G-ITO mailto:mark.zel...@zurichna.com z/OS Systems Programming expert at http://expertanswercenter.techtarget.com/ Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.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
Share Spool
Question on node numbers being defined... understand the NJEDEF.. OWNNODE s/b same on both JES2parms But in the case of the NODE(nn) are they not still defined as seperate NODEnumber and NAME being the name of that system ? same question on the TCPip NJE setup ..are the names and node number still used as before ... -- Email Disclaimer This E-mail contains confidential information belonging to the sender, which may be legally privileged information. This information is intended only for the use of the individual or entity addressed above. If you are not the intended recipient, or an employee or agent responsible for delivering it to the intended recipient, you are hereby notified that any disclosure, copying, distribution, or the taking of any action in reliance on the contents of the E-mail or attached files is strictly prohibited. -- 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
Cowlishaw vs Collishaw
For the record and for those who wish to GOOGLE him or his books, Michael Cowlishaw, an IBM Fellow, devised REXX. John Gilmore Ashland, MA 01721-1817 USA _ Windows Live™ Groups: Create an online spot for your favorite groups to meet. http://windowslive.com/online/groups?ocid=TXT_TAGLM_WL_groups_032009 -- 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: SMP/E RECEIVE ORDER: Prerequisites?
I'm tired of my belly hurting from laughing at them. Let them cramp up for a change. ;-) . . JO.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 626-302-7535 Office 323-715-0595 Mobile jo.skip.robin...@sce.com Mark Zelden mark.zel...@zuri CHNA.COM To Sent by: IBM IBM-MAIN@bama.ua.edu Mainframe cc Discussion List ibm-m...@bama.ua Subject .edu Re: SMP/E RECEIVE ORDER: Prerequisites? 03/19/2009 02:25 PM Please respond to IBM Mainframe Discussion List ibm-m...@bama.ua .edu On Thu, 19 Mar 2009 15:38:52 -0500, Brian Peterson brian.peterson.ibm.m...@comcast.net wrote: snip The distributed folks would laugh at us if they sat in some of the meetings I have sat in. snip -- 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: SMP/E RECEIVE ORDER: Prerequisites?
On Thu, 19 Mar 2009 16:25:12 -0500, Mark Zelden wrote: It's a generational / platform problem. It seems that even the younger (relative term) mainframe people I work with just can't grasp the concept that 3390-9 isn't huge.We were just going through an internal battle trying to talk our storage management folks - aka DASD freaks :-) - into 3390-54 instead of 3390-27 for a migration that is starting. Because these folks have micro-managed mainframe storage for so long they are afraid to do it any other way. And some of them were likely carrying twice the storage of a mod-54 in their shirt pockets. However, SMP/E's design is short of ideal. The scheme is to unpack all the SMPPTFIN files to HFS; dynalloc all concatenated to SMPPTFIN and do the RECEIVE. In a test, I have even exceeded the OS limit on DD concatenations. A more economical approach would be to allocate SMPPTFIN to the output of a POSIX pipe and in a concurrent process unpack each SMPPTFIN archive, write it to the input of the pipe, and delete before unpacking the next. Yah, I know, this would create new error scenarios where an unpack failed midway in the process. It can be dealt with. -- gil -- 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: SMP/E RECEIVE ORDER: Prerequisites?
Huge depends on what you have available for DASD at the time. If most of your volumes are allocated, and there is little room for anything new, 2 3390 Mod 3s to hold the HFS (now probably ZFS) could be huge. At my last contract job, we just got a new Shark when I started, and at that time there was triple the amount of DASD space. They decided to flash everything as a test, which gave me a GREAT test sysplex - all dasd was copied and totally separate from the production sysplex. Every time they asked me to allocate another 5 Mod 9s for something, there was plenty of room. Contrast that to my last full time job where in 1996 they still had lots of real 3380s and 3390s in their newly built datacenter. The dasd to hold double the amount of data just to hold an order wasn't available. Of course, neither was ShopZ back then, but a lot of smaller shops are still in that kind of situation. DASD is a lot cheaper now, but adding more still costs real money that many shops are unwilling to spend. Eric Bielefeld Sr. Systems Programmer Milwaukee, Wisconsin 414-475-7434 - Original Message - From: Brian Peterson brian.peterson.ibm.m...@comcast.net Newsgroups: bit.listserv.ibm-main To: IBM-MAIN@bama.ua.edu Sent: Thursday, March 19, 2009 3:38 PM Subject: Re: SMP/E RECEIVE ORDER: Prerequisites? Yes, the HFS used for electronic delivery needs to be double or triple the size of the package being downloaded. Your characterization of this HFS as being huge and a problem are what I would disagree with. I just downloaded z/OS 1.10 plus four XML FMIDs, and it all fit in one zFS (appropriately sized). I don't think that HFS was huge. Brian -- 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: Multi-dimensional arrays in REXX
On Thu, 19 Mar 2009 14:26:53 -0500, Patrick O'Keefe wrote: The description in the manual is correct; describing it with the less specific term default might lead the programmer to expect the program to say something rather than X.7, or at least to be uncertain. ... I agree, but I think the astonishment is aimed at the drop rather than the stem assignment. (At least MY astonishment is.) That behavior implies that the interpreter has to maintain both a list of specifically assigned variables and a list of specifically dropped variables (at least for stems that have been assigned). I have no idea how the interpreters actually support the behavior of stem initialization, but I'm quite sure they don't predefine and assign every possible variable for the given stem. They must, in fact, treat the assigned value as a default to be used for each unassigned and undropped variable associated with the stem. Including dropped variables in that behavior just adds work for the interpreter. Collishaw books include a sample of this behavior so there is no doubt he intended the language to work this way, but I am still astonished. You have a pretty good description of how the misunderstanding arises: journeyperson programmers attempt to infer an mechanism of implementation, then erroneously assume the developers take shortcuts because it's too complicated to do it right. I confess I often do the same. But then I test. Sometimes I'm plesantly surprised to find the implementation meets the specification. Other times, I find that the implementor took the shortcut, and I submit a PMR. This thoroughly annoys the support people who argue that I should expect that it would be implemented in the simple and obvious way, not as specified. I may not be able to do that much longer. -- gil -- 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: MY REPLACEMENT
---snip- daver++ wrote: From: Rick Fochtman rfocht...@ync.net Steve, to the best of my knowledge, the only requirements(?) are common sense, working with z/OS, good sportsmanship and professional behavior. While this list does tend to be somewhat z/OS centric, my understanding is that it is open to users of IBM mainframes (or similar) without regard to operating system. I am fairly certain that there a number of contributors to the list that, in fact, do not work with z/OS. ---unsnip-- That's true, although I THOUGHT that a link with z/OS, however tenuous, was still a preferred attribute. I stand corrected; hope I haven't spoiled anyone's interest. I HOPE that the remainder of my comments aren't misconstrued or offensive; there was certainly no offensive intent. -- Rick -- Remember that if you’re not the lead dog, the view never changes. -- 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 and dynamic allocation (my two cents)
If I remember the OP correctly, s/he wanted to do some kind of table lookup to determine where to send output. We have an immense universal system to do this used on multiple plexes/lpars/... The core concept is to store the rules and related information somewhere and use that information to build the JCL. For us it is the distribution JCL. It could be just as well for a much smaller shop be to build the production JCL. In our case almost nothing is hardcoded except edit rules. (e.g. The class must be alphanumeric.) Tables built on main plex are sent to other plexes once a day. The only caution for an automated system like this is leave breadcrumbs everywhere. The constant complaint I didn't get my report can only be answered with hard data. I even have a way for a report program to very quickly use a subroutine to interrogate a file to see if there is a rule for the report. If not the report program does not run. At one item we had a billion lines a day backed up and going nowhere. IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 03/16/2009 10:22:01 PM: Yahoo is not putting the text of the original message for some reason. COBOL is a side issue (albeit small) in this case. Personally I find it abhorrent to hard code anything like destination in any programs. JCL is the ONLY way to go. It can be searched with multiple utilities (FILEAID and others) rather easily. This issue is that when (I did not say IF) a destination changes you must remember to recompile the program. If you do it in JCL then there is now recompilation and the change can be made with minimal impact. I had a programmer come to me a few years ago and he wanted to write a report that could go to multiple places. He wanted to do dynamic allocation (we were a strict COBOL shop). I do not have the memo I wrote him now or else I would paste in in here. To make things really simple just code a DDNAME and a DD and sysout=whatever, dest=newyork1 ddname2 DD sysout=whatever,dest=newyork2 etc etc and then in you COBOL program have an FD for each possible destination. The only rub to this is that there is a unknown (back then I came up with a number) max number of FD's IIRC it is around 1200. You may also want to code free=close on the DD statement. Yes it is a lot of JCL but a COBOL program that does dynamic allocation (even if its written in assembler or some other language) is a hard to maintain animal. Trying to change JCL in the middle of the night is easy compared to recompile and link edit and hey don't forget testing. If you set up the JCL correctly in the test phase it is a cake walk to production. I am not bad mouthing COBOL I am just say get realistic and look beyond coding and testing. It will make life a lot easier. Plus if you want you can dd dummy out the DDNAMES in testing and when the JCL goes to QA it will be easy, IMO. Ed ps: Do NOT forget reruns this brings up side issues as well. -- 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 - The information contained in this communication (including any attachments hereto) is confidential and is intended solely for the personal and confidential use of the individual or entity to whom it is addressed. If the reader of this message is not the intended recipient or an agent responsible for delivering it to the intended recipient, you are hereby notified that you have received this communication in error and that any review, dissemination, copying, or unauthorized use of this information, or the taking of any action in reliance on the contents of this information is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail, and delete the original message. Thank you -- 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