An USS Question
I have received a private e-mail with a question which ought to be asked in the list, the reasons being 1. A question and answer in the archives potentially helps anyone 2. We who generally answer questions do *not* participate in the list in order to be identified as consultants for private work - if indeed private work without recompense can be described as work rather than charity which, for business, is surely an oxymoron! The question was as follows: We have got a new test environment built, and I need to add the option on the logon screen. Where do I have to check to find out? Do I have to edit the USSTAB or Modetab?? I will now address the original poster. Irfan As so very often, I need to try to extract what is really being talked about from approximate terminology. I assume, particularly since the USSTAB is mentioned later, that logon screen refers to USS message 10. I also have to assume that option refers to the possibility to enter a token which USS processing in VTAM will cause logon to an application, possibly with some text in the USS message 10 that this token can be entered. Indeed, this involves customisation of the USS table - and *not* generally the mode table.[1] I can also guess that the installation already has an USS table which has been set up by someone who has been let go without having left adequate documentation over the USS table customisation and cannot now be contacted. Since the USS table needs to be assembled and linkage edited ideally into a VTAMLIB data partitioned data set concatenated with the supplied VTAMLIB partitioned data set, it is first necessary to find the source of the existing USS table. In order that I could always find it along with encouragement to students to do the same, I always put the USS table source - along with the mode table source (and interpret table when it had a role worth mentioning) - in the VTAMLST partitioned data set - although it was of no use to VTAM there. At the customer where I work from time to time, the source of these VTAM tables was *not* stored in the VTAMLST partitioned data set and it was a magnifying glass job to try to find one of them in amongst a range of possible source partitioned data sets, always hoping that, when found, it was the version of the source corresponding to the load module. This could actually be confirmed - by and large - by eyeballing the hexadecimal of the load module with the source statements! Once you have found the source, you can introduce the changes. It may be that the source helps you because an exiting sequence of USSCMD and USSPARM statements shows you how to set up a new set and actually understanding precisely how it is done can be postponed. However if you need actually to understand what you are doing, the relevant reading can be found in the z/OS Communications Server (CS) SNA Resource Definition Reference manual under Unformatted system services tables in Chapter 5, User- defined tables and data filter. In case you do refer to the manual and, as seems likely, it is the first time looking into this topic, be aware that you are working with a Session-level table and you can ignore all the distractions which concern Operation-level tables. I almost forgot that you may want to add text to the USS message 10. Again, the existing USS message 10 text may be sufficient of a guide. If the text is SNA Character String (SCS) (corresponding to SSCPFM=USSSCS), then this is relatively easy. If the text is 3270 data stream (corresponding to SSCPFM=USS3275 probably rather than SSCPFM=USS3270), then you may need to become an instant specialist in 3270 data stream programming - in other words, it can be a bit more complicated! If you need more help, please post again as a reply to this post rather than privately and say whether your USS table is for use with CS SNA (VTAM) or CS IP TN3270. If the latter then what I said earlier concerning VTAMLIB actually concerns a load module partitioned data set associated with your TN3270 server application. Chris Mason [1] Because it is possible to enter a mode name as part of the character string used in order to log onto an application, it is possible to create mode table entries with perhaps more user-friendly names as part of the process of setting up user-friendly logons. Long ago, before the days of what I used to teach as the unspecified screen size BIND, this was indeed a likely part of USS design - or should have been. These days, there is much less call to bother about setting up mode table entry names along with USS customisation. -- 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: COUPLE DATA SET TIME STAMPS
We also have LOGR and WLM CDS data sets, and making new versions of these is not so easy. Can anyone reliably advise whether the LOGR and WLM data sets have the same sort of time checks as the XCF ones do, or can we expect them to happily accommodate the clock going backwards. You may run into problems with the LOGR CDS. Check out II5 if that applies to you. IIRC, the problem was going forward in time for LOGR. If there are WLM problems, it is fairly easy to unload the current WLM policy, come up after IPL with an empty, freshly formatted WLM CDS, and then 'load' the policy into it from your saved copy. There may even be a programmatic interface to do that so you don't need to come up with an empty WLM CDS. Regards, Barbara Nitz -- 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: IEFUSI - RESERVE SPACE
For below the line you should reserve at least a few hundred KiB and above the line you could reserve several MiB without hurting anyone's feelings. Says he. I was expressly forbidden to 'decrease region size' via IEFUSI by my management. To the tune of 878, 80A, scheduled dumps for whatever components (see the thread 'doofus recovery') and more severe, abend40D. My comments fall onto deaf ears here. As for the REGIONLOSS thing: Imagine my surprise when Unix System Services could not handle the initiator terminating due to region loss. BPXsomething got upset and threw a dump complaining. Regards, Barbara Nitz -- 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's behaviour when no paths available
IBM has accepted apar OA32676 for this problem. We did not agree to a FIN closure as that would mean release 13 or later with no local fix. Thanks to all that got involved and made it A LOT easier to get the problem across! Best regards, Barbara -- 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: Arithmetic on COBOL usage is pointer
On Fri, 16 Apr 2010 11:28:32 -0400, Joe Reichman joereich...@optonline.net wrote: Are there any rules for doing math on Usage is pointer Only one: Don't do math on a pointer. Jantje. -- 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: Arithmetic on COBOL usage is pointer
On Fri, 2010-04-16 at 20:33 -0400, Clark Morris wrote: The more interesting question is why use a pointer when reference modification works well for playing with the SMF30 records? 'splainey? (That was the first COBOL I'd written in a very long time, and I was delighted to find pointers at all. If there's a better way to handle SMF30 records I'm all ears.) -- David Andrews A. Duda and Sons, Inc. david.andr...@duda.com -- 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: Arithmetic on COBOL usage is pointer
-Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of David Andrews Sent: Monday, April 19, 2010 7:55 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Arithmetic on COBOL usage is pointer On Fri, 2010-04-16 at 20:33 -0400, Clark Morris wrote: The more interesting question is why use a pointer when reference modification works well for playing with the SMF30 records? 'splainey? (That was the first COBOL I'd written in a very long time, and I was delighted to find pointers at all. If there's a better way to handle SMF30 records I'm all ears.) -- David Andrews I use Reference Modification and not pointers. You'll need to accept that I have all the proper WORKING STORAGE definitions as posting them for this would be too large. But in my code, I have something like: IF SMF30ION IS NOT EQUAL TO ZERO THEN IF LENGTH OF SMF30ID IS NOT EQUAL TO SMF30ILN THEN DISPLAY 'ERROR. SMF TYPE 30 RECORD MISMATCH.' UPON SYSOUT DISPLAY 'SMF30ILN = ' SMF30ILN UPON SYSOUT DISPLAY 'LENGTH OF SMF30ID = ' LENGTH OF SMF30ID UPON SYSOUT DISPLAY 'RUN ABORTED.' UPON SYSOUT MOVE +16 TO RETURN-CODE GOBACK END-IF SUBTRACT BINARY-THREE FROM SMF30IOF GIVING UNSTRING-OFFSET MOVE LARGEST-INPUT-RECORD (UNSTRING-OFFSET: LENGTH OF SMF30ID) TO SMF30ID MOVE SMF30JBN TO STEP-JBN MOVE SMF30PGM TO STEP-PGM MOVE SMF30JNM TO STEP-JNM MOVE SMF30CLS TO STEP-CLS MOVE SMF30SIT TO STEP-SIT MOVE SMF30STD TO STEP-STD MOVE SMF30RST TO STEP-RST MOVE SMF30RSD TO STEP-RSD MOVE SMF30UIF TO STEP-UIF MOVE SMF30GRP TO STEP-GRP MOVE SMF30RUD TO STEP-RUD MOVE SMF30STN TO STEP-STN MOVE SMF30STM TO STEP-STM MOVE SMF30PGN TO STEP-PGN MOVE SMF30AST TO STEP-AST MOVE SMF30PPS TO STEP-PPS END-IF. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * (817)-961-6183 cell john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -- 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: Recataloging VSAM Dataset
Try one of these. The first is a standard dataset and the second is a linear dataset. //STEP01 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DEFINE CLUSTER - (NAME(|) - VOLUMES(Z9CI32) - INDEXED RECATALOG) - DATA (NAME(|.DATA)) - INDEX (NAME(|.INDEX)) - CATALOG(XYZZY) DEFINE CLUSTER - (NAME(|) - VOLUMES(Z8DB82) - LINEAR RECATALOG) - INDEX - (NAME(XYZZY)) Regards, Kevin Kinney -- 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: Recataloging VSAM Dataset
I restored the dataset from a DFDSS full-volume backup. DFDSS won't allow a rename for a VSAM dataset coming from a full-volume backup and won't catalog the dataset when the catalog name from the backup didn't match the catalog I now have it's high-level alias pointing to. IDCAMS DEFINE with RECATALOG has the same issue. I did get over this when a coworker showed me a fixcat utility he has that lets me change the catalog the VVDS has recorded for the dataset. I changed it to the new catalog name and was able to use IDCAMS to catalog what I needed. -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Lizette Koehler Sent: Friday, April 16, 2010 1:03 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Recataloging VSAM Dataset What was used to restore the dataset? FDR, DFDSS, ??? Some have RENAME capability that can be used to put it down as a cataloged vsam dataset, then you could copy (REPRO) to the correct dataset name. There is also a RECAT option on the DEF VSAM function. You might want to review that. Lastly is the VSAM dataset on the same volser name it was before it was deleted? Or did you restore it to a whole new volume? Lizette Behalf Of Klein, Kevin Wrote Is there a way to recatalog a VSAM dataset (non-SMS) that I've restored from an old backup tape? The original volume and catalog for these datasets no longer exist. -- 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 Attention: The information contained in this message and or attachments is intended only for the person or entity to which it is addressed and may contain confidential and/or privileged material. Any review, retransmission, dissemination or other use of, or taking of any action in reliance upon, this information by persons or entities other than the intended recipient is prohibited. If you received this in error, please contact the sender and delete the material from any system and destroy any copies. (GWCC) -- 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: Arithmetic on COBOL usage is pointer
On Mon, 2010-04-19 at 09:06 -0400, McKown, John wrote: MOVE LARGEST-INPUT-RECORD (UNSTRING-OFFSET: LENGTH OF SMF30ID) TO SMF30ID I dig now; you're moving the segments to a separate segment-defining record in order to gain field addressability. Using pointers (and redefines) I'd address that ID segment directly: 01 SMF30-ADDRVAL COMPPIC 9(8). 01 SMF30-ADDRPTR REDEFINES SMF30-ADDRVALPOINTER. 01 SMF30-ID-ADDRVALCOMPPIC 9(8). 01 SMF30-ID-ADDRPTRREDEFINES SMF30-ID-ADDRVAL POINTER. IF (SMF30ION = 1) COMPUTE SMF30-ID-ADDRVAL = SMF30-ADDRVAL + SMF30IOF - 4. SET ADDRESS OF SMFREC-30-IDENTIFICATION TO SMF30-ID-ADDRPTR. I kinda like my way better, but as others have pointed out it isn't all that future-proof. Guess I should fix that if I ever have to crack that code open again. -- David Andrews A. Duda and Sons, Inc. david.andr...@duda.com -- 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
RMM EDGRRPTE printing Problem
I have been using EDGRRPTE Report 14 for a few years. I now want to print the report and I find that the print control characters appear to be in 2 and not column 1 where I would expect them to be. Can someone help me understand what I am doing wrong Crispin Hugo Systems Programmer Macro 4 Limited Direct Line: +44 (0)1293 872121, Switchboard: +44 (0)1293 872000, Fax: +44 (0)1293 872001 A Division of the UNICOM Group of Companies www.macro4.com Macro 4 Registered office :The Orangery, Turners Hill Road, Worth, Crawley, West Sussex, RH10 4SS Registered in England no. 927588 Please consider the environment and THINK before you print this email. Email Disclaimer - This email has been scanned for all known viruses by the MessageLabs Email Security Service and the Macro 4 internal virus protection system. . -- 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: Arithmetic on COBOL usage is pointer
-Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of David Andrews Sent: Monday, April 19, 2010 8:30 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Arithmetic on COBOL usage is pointer On Mon, 2010-04-19 at 09:06 -0400, McKown, John wrote: MOVE LARGEST-INPUT-RECORD (UNSTRING-OFFSET: LENGTH OF SMF30ID) TO SMF30ID I dig now; you're moving the segments to a separate segment-defining record in order to gain field addressability. Using pointers (and redefines) I'd address that ID segment directly: 01 SMF30-ADDRVAL COMPPIC 9(8). 01 SMF30-ADDRPTR REDEFINES SMF30-ADDRVALPOINTER. 01 SMF30-ID-ADDRVALCOMPPIC 9(8). 01 SMF30-ID-ADDRPTRREDEFINES SMF30-ID-ADDRVAL POINTER. IF (SMF30ION = 1) COMPUTE SMF30-ID-ADDRVAL = SMF30-ADDRVAL + SMF30IOF - 4. SET ADDRESS OF SMFREC-30-IDENTIFICATION TO SMF30-ID-ADDRPTR. I kinda like my way better, but as others have pointed out it isn't all that future-proof. Guess I should fix that if I ever have to crack that code open again. -- David Andrews That is a good way too. And more efficient due to not moving data around. I don't consider using SET WS-POINTER TO ADDRESS OF WS-VAR and SET ADDRESS OF LS-VAR TO WS-POINTER to be doing arithmetic on a pointer. Arithmetic on a pointer is defining a USAGE BINARY variable on top of a POINTER, then using the ADD and SUBTRACT verbs to manipulate it. That is no longer necessary. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * (817)-961-6183 cell john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -- 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
IBM Defaults (spinoff from FTP to z/OS Problem)
... and the IBM defaults are assumed to be right until they are proven wrong; right? is a line taken for the thread FTP to z/OS Problem which I think deserves wide airing. I always used to tell my students - principally when teaching SNA topics and products such as VTAM - that defaults always work (nearly always[1]) but probably give the worst performance. The reason I made that statement is in order to justify taking up the students' time with explaining mechanisms such as pacing and why it makes sense either to eliminate pacing altogether - for self-paced (through definite responses) 3270 data stream traffic for example - or take the trouble to set a higher value than the restrictive default of 1 or 2. But there are other defaults. The developers would never say it - publically - but there can be times when a design is improved where the default specification of often a new parameter is the bad old way. Thus the recommendation is not to accept the default but always to specify the parameter so that the improvement can be employed. OSA behaviour was vastly improved by doing what should have been done in the first place. When an OSA feature port is shared, the bad old way was to have to check every packet against a destination IP address list in order to know to which OSA feature port user to pass the packet, The good new way is to use a different MAC address for each user so that the destination is evident without needing to check against the list of IP addresses. All this is a bit of a no-brainer when it comes to deciding which is better. However, if you don't add the VMAC parameter explicitly, you're stuck with the bad old way. Sometimes the developers are a bit sneaky and slip in an improvement - and - change the default so that the improvement is used - with crossed fingers that the law of unintended consequences, aka Murphy, is not looking! One case of this is the VTAM start option PSWEIGHT. When the LESSTHAN option was introduced it was made the default. According to the usual IBM principle, it should have been EQUAL (as opposed to SAMEROUT) as it was before. Sometimes developers can try to sneak in a supposed enhancement without providing an option not to use it and, in principle, setting the default option not to use it. Such an enhancement was the VTAM APPL statement FASTPASS operand, to which reference can only be made using the operand name *because* providing an operand was imposed upon the VTAM developers and an APAR was scrambled out. The idea was that it was unnecessary to start a session when logging on to an application such as TSO before immediately ending the session and setting up another session. All very sensible until it was discovered too late not to cause massive disruption that NetView Access Services depended on the old method. NetView Access Services had some checking logic that was incompatible with the change. Murphy had a terrific day when that decision was made! Note however that the default for FASTPASS is YES and the improved pattern of session setup is selected by default. Chris Mason [1] I'm always reminded of a certain song from HMS Pinafore when I am obliged to add this sort of qualification to an assertion! -- 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: FTP to z/OS Problem
Frank EZY2640I Using 'PROD.FTP.DATA' for local site configuration parameters. The search order for the file FTP DATA is given in Table 3, TCP/IP configuration data sets in a section of the same name under Configuration data set naming conventions under Understanding search orders of configuration information in Chapter 2, IP configuration overview of the z/OS Communications Server IP Configuration Guide as follows: quote Name (search order) FTP.DATA 1. -f command line parameter (FTP client only) 2. The MVS data set or z/OS UNIX file specified on the SYSFTPD DD statement in the FTP server started procedure 3. userid/jobname.FTP.DATA 4. /etc/ftp.data 5. SYS1.TCPPARMS(FTPDATA) 6. hlq.FTP.DATA Copied from SEZAINST(FTCDATA) for the client and (FTPSDATA) for the server Usage Overrides default FTP client and server parameters for the FTP server. For more information about the hlq, jobname, or userid values, see Chapter 11, Transferring files using FTP, on page 661. /quote I have had to disentangle the table format to some extent. I also suspect that the (FTPSDATA) for the server should be SEZAINST (FTPSDATA) for the server. You need to acquaint yourself with the whole Understanding search orders of configuration information and some following sections in Chapter 2, IP configuration overview, if not the whole of the chapter. I suspect that nearly all of your questions are answered there. Well, barely customised. The resolver is considered customised if you change the SYS1.PARMLIB BPXPRMxx RESOLVER_PROC statement from RESOLVER_PROC(DEFAULT) to RESOLVER_PROC(something) where something is typically RESOLVER. You will then necessarily create a RESOLVER procedure and typically add a SETUP DD- statement which needs to refer to something. Having gone to this much trouble, it is then usual to consider how one might benefit from all this toil and sweat! ... and the IBM defaults are assumed to be right until they are proven wrong; right? This is such an interesting topic I have created a separate thread in order to attract comments from at least the usual suspects. Note that the DATASETPREFIX value is not used as the high-level qualifier of the data set name used as the last step in the search order for the PROFILE.TCPIP and TCPIP.DATA configuration files. That last bit is certainly of interest. The what does this mean: quote PROFILE.TCPIP search order The search order for accessing PROFILE.TCPIP information is as follows. The first file found in the search order is used. 1. //PROFILE DD statement 2. job_name.node_name.TCPIP 3. hlq.node_name.TCPIP 4. job_name.PROFILE.TCPIP 5. hlq.PROFILE.TCPIP /quote In this case where does HLQ come from? I thought this was a good question and it sort-of is. Our dear friends the manual authors have made a mess yet again. Having spent quite a while checking this out, I now think we have a failure fully to update the manuals when it was decided to hardcode that last step in the search order. Note that, if you have decided on using the PROFILE DD-statement all of this complicated discussion regarding hlq and node-name is moot and is, frankly, best left buried in the detritus of past and gratefully long-forgotten manifestations of TCP/IP for MVS/the z/OS Communications Server IP component. The PROFILE data set search order is defined twice in the Configurations Guide and twice in the Configuration Reference. Although not at all democratic, since it is a minority of three to one, I believe the most correct version of the four is the following taken from PROFILE.TCPIP search order in Configuration files for the TCP/IP stack, just after the famous Table 3 which contains the version you quoted in fact, in Chapter 2, IP configuration overview in the Configuration Guide: quote - //PROFILE DD DSN=aaa.bbb.ccc(anyname) - jobname.nodename.TCPIP - hlq.nodename.TCPIP - jobname.PROFILE.TCPIP - TCPIP.PROFILE.TCPIP /quote The version you quoted can be found in the famous Table 3 in the Configuration Guide and twice in the Configuration Reference. I suspect, as usual, that the manual authors just forgot - a change of shift with no collective memory - that there was more than one version of this search order provided in the manual. In the beginning - or as far back as I can vaguely remember - TCP/IP for MVS was hardcoded with an hlq of TCPIP. There was an SMP USERMOD-style job that could be run in order to change this. The circumstances of my teaching systems was that they were copies of a production system that was post-SMP and so I could not run this SMP job. Instead I set up a massive SUPERZAP job which changed the upper teens number of instances where I was able to identify TCPIP in the load modules - just to show that the hlq could be changed. Then along came DATASETPREFIX and the hlq problem was largely solved. Probably at about the same time to the very many dynamically allocated data sets was
USSTAB Message Corruption Revisited
Last August I worked with Chris Mason on a USS table issue. A brief recap: TCPIP provides symbol substitution in USS messages which contain system symbols and certain defined character strings that start with two or more '@' characters. VTAM also provides symbol substitution for defined character strings, but not for system symbols. With 3270 data stream formats, certain control characters can be mistaken for the ampersand and at-sign characters. Set buffer address (SBA), erase unprotected to address (EUA), Repeat to address (RA) and start field (SF) can potentially cause this problem. I ran a number of tests on my sandbox, and demonstrated that, for example, a SBA for row 14 column 1 on a 80-character wide screen results in a hex address of '5050', which is a double ampersand. If this were followed by the characters 'SYSNAME IS TESTXYZ', and the system name were 'TST1', then the SBA field would be corrupted with the second x'50' being replaced with x'E3' followed by the characters 'ST1'. The resulting display would put 'ST1 IS TESTXYZ' at row 14, column 20. I saw that as a problem. I opened a problem with IBM back then, and after a long, slow process, I managed to convince them that this is not how the function should work. This month I got a usermod to test. It did not address this specific problem. All it addressed was the truncation of data. In the example above, the text is actually shortened to match the length of the substituted value, which can adversely affect alignment on a formatted screen, even when the substitution was intended by the programmer. The second part of the fix was to update the documentation so that the handling of system symbols and TCPIP variables is more specific. System variables are ALWAYS replaced in the TCPIP environment and other TCPIP variables are only replaced when requested by a parameter on the USSMSG macro, but that's not how the documentation reads without the changes. No attempt was made to address unexpected variable substitution, and I have had to open a second new problem to initiate a requirement. The requirement is that the code should work as expected and not astonish the programmer with unexpected results. For our environment I use macros to generate 3270 control codes, and I wrote a program that reads a generated USS table to display the message 10, so I can verify that it appears as expected. It's great for testing, but when TCPIP might randomly alter the data after I implement in production, it can get really frustrating. In summary, you can expect the documentation changes within a few years, and you might see a PTF or two some day as well. In the meantime, if you think something might be wrong with your USS tables, call IBM. They would be happy to walk you through the process of checking every SBA, EUA, RA and SF for special characters and help you build a work-around. -- 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: Arithmetic on COBOL usage is pointer
I believe using USAGE COMP-5 removes all truncation issues. IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 04/16/2010 11:47:09 AM: From: David Andrews d...@lists.duda.com Subject: Re: Arithmetic on COBOL usage is pointer On Fri, 2010-04-16 at 11:28 -0400, Joe Reichman wrote: I redefined a usage pointer to PIC 9(8) comp to do arithmetic Have you compiled with TRUNC(BIN)? David Andrews - 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
Re: Arithmetic on COBOL usage is pointer
Also be aware that I recently shot a bug for a compatriot where having an unsigned binary number defined made a If numeric fail. never went to root cause but it seemed there might be an issue of moves between binary fields being handled by cobol using MVC instead of ZAP. GOKW IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 04/16/2010 12:15:53 PM: From: Chase, John jch...@ussco.com Date: 04/16/2010 12:16 PM Subject: Re: Arithmetic on COBOL usage is pointer -Original Message- From: IBM Mainframe Discussion List On Behalf Of Joe Reichman I redefined a usage pointer to PIC 9(8) comp to do arithmetic and got weird results Are there any rules for doing math on Usage is pointer Compiler option TRUNC(BIN) would be a friend, but specifying COMP-5 on your REDEFINE would be better. -jc- - 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
Re: Arithmetic on COBOL usage is pointer
-Original Message- From: IBM Mainframe Discussion List On Behalf Of Kirk Talman Also be aware that I recently shot a bug for a compatriot where having an unsigned binary number defined made a If numeric fail. never went to root cause but it seemed there might be an issue of moves between binary fields being handled by cobol using MVC instead of ZAP. I doubt you'd really want to ZAP (Zero and Add Packed) a (numeric) binary field -- for one, ZAP puts the sign on the wrong end of the field (and uses more than one bit for the sign). -jc- GOKW IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 04/16/2010 12:15:53 PM: From: Chase, John jch...@ussco.com Date: 04/16/2010 12:16 PM Subject: Re: Arithmetic on COBOL usage is pointer -Original Message- From: IBM Mainframe Discussion List On Behalf Of Joe Reichman I redefined a usage pointer to PIC 9(8) comp to do arithmetic and got weird results Are there any rules for doing math on Usage is pointer Compiler option TRUNC(BIN) would be a friend, but specifying COMP-5 on your REDEFINE would be better. -jc- - 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 -- 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: IEBCOPY losing APF authorisation in middle of JOB - etc
Ok, I am puzzled. Whether there is or is not an I/O appendage routine hidden away inside of dear old IEBCOPY seems immaterial. APF authorization is not something that just comes and goes within a step. Every new step can be authorized or not, but if the JOBLIB, STEPLIB or application specific library concatenations are the same for each step in the job, the system is going to get the same answer each time. There's just no such thing as losing APF authorization. For any new job step the system checks the AC attribute of the incoming job step program. If that's AC(1) then the system checks that the load library is APF authorized. If it IS then the job step is given control in an APF Authorized condition (i.e. JSCBAUTH=1) otherwise it is given control completely non-authorized. Now there are some gotchas of course. The one that trips up most young players is that for a load library to be considered APF authorized, EVERY dataset in the concatenation must be APF authorized. So even if you're fetching IEBCOPY from a righteously APF authorized library, if you have that library concatenated (e.g. in a JOBLIB or STEPLIB DD) with a non-authorized library then the entire concatenation is considered non-authorized and IEBCOPY won't run authorized. So assuming IEBCOPY is doing the right thing (FSVO the right thing) on some steps and not others, I'd be looking for a difference in libraries between those steps. -- This email might be from the artist formerly known as CC (or not) You be the judge. -- 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.11
Andy, thanks for the info. That's one of my apars. :) Right now it's looking like the Hiperdispatch hang is related to a two-cp LPAR and running an OEM product that we are just now trial-ing. FYI, I didn't say the install was a problem. On the contrary, install was smooth, and testing was smooth. Every thing looked great till we went to productionI should have added that in my previous post. MA -- 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: IEFUSI - RESERVE SPACE
Thanks to all for the input. We do use the checkregionloss option in diag. We set up a monitor the activity initiated by the checkregionloss parm and in our shop it restarts inits on a regular basis. I always check anytime these type of things show up to ensure that it is still actively running. Our current USI exit takes those excluded program from USI control and passes the request on and when these programs get everything and use it we have crazy issues. Because USI is what it is and can effect everything in the shop just wanted to get some ideas if this was something that others were doing. Thanks for everything. Casey -- 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
DFHSM QUESTION - MOVING TO DASD FROM TAPE - ML2
Good Morning Gentle Readers, Because of incessant problems with tapes (3590-1) we are looking at using DASD for ML2 migration as well as BACKUP. Besides changing the following commands is there something else I could have overlooked? SETSYS ARECOVERUNITNAME(3590-1) SETSYS ARECOVERML2UNIT(3590-1) TAPEMIGRATION(ML2TAPE(TAPE(A19840C)) RECONNECT(ALL)) MIGUNITNAME(A19840C) SETSYS BACKUP(TAPE(A19840C)) RIDF(BACKUP(1)) - UNITNAME(A19840C) - SETSYS DSBACKUP (DASDSELECTIONSIZE(0 0) TAPE(TASKS(2) If anybody has been down this road I would appreciate it if you could warn me of any potential problems that you have encountered. Thanks __ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com -- 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: RMM EDGRRPTE printing Problem
Crispin, The reports are LRECL=133,RECFM=FBA - so first char is a ANSI print control character when the records are written by the exec EDGRRPTE. If you are creating a DASD data set then subsequently printing that, be sure the utility you use understands there is an existing print control character in each record. Similarly, if created as a SYSOUT file and now you are printing from the spool Mike Wood RMM Development On Mon, 19 Apr 2010 14:38:57 +0100, Crispin Hugo crispin.h...@macro4.com wrote: I have been using EDGRRPTE Report 14 for a few years. I now want to print the report and I find that the print control characters appear to be in 2 and not column 1 where I would expect them to be. Can someone help me understand what I am doing wrong Crispin Hugo Systems Programmer Macro 4 Limited -- 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 QUESTION - MOVING TO DASD FROM TAPE - ML2
Because of incessant problems with tapes (3590-1) we are looking at using DASD for ML2 migration as well as BACKUP. Besides changing the following commands is there something else I could have overlooked? If anybody has been down this road I would appreciate it if you could warn me of any potential problems that you have encountered. If I understand this correctly, you're going to have 2 levels of migration both on Disk? Even if that's possible, what does it gain you? Wouldn't it make more sense to just have an ML1 and then no ML2? And again, I question whether that's even possible with HSM. I do seem to remember this same discussion in the past, so you should probably check out the archives. We're actually going the other route - we're moving to a 'tapeless' virtual tape system I'm eliminating ML1. ddk This e-mail message and all attachments transmitted with it may contain legally privileged and/or confidential information intended solely for the use of the addressee(s). If the reader of this message is not the intended recipient, you are hereby notified that any reading, dissemination, distribution, copying, forwarding or other use of this message or its attachments is strictly prohibited. If you have received this message in error, please notify the sender immediately and delete this message and all copies and backups thereof. 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: DFHSM QUESTION - MOVING TO DASD FROM TAPE - ML2
Darth, Yes, we are aiming to maintain both levels of migration. Is this doable? --- On Tue, 4/20/10, Darth Keller darth.kel...@assurant.com wrote: From: Darth Keller darth.kel...@assurant.com Subject: Re: DFHSM QUESTION - MOVING TO DASD FROM TAPE - ML2 To: IBM-MAIN@bama.ua.edu Received: Tuesday, April 20, 2010, 5:07 AM Because of incessant problems with tapes (3590-1) we are looking at using DASD for ML2 migration as well as BACKUP. Besides changing the following commands is there something else I could have overlooked? If anybody has been down this road I would appreciate it if you could warn me of any potential problems that you have encountered. If I understand this correctly, you're going to have 2 levels of migration both on Disk? Even if that's possible, what does it gain you? Wouldn't it make more sense to just have an ML1 and then no ML2? And again, I question whether that's even possible with HSM. I do seem to remember this same discussion in the past, so you should probably check out the archives. We're actually going the other route - we're moving to a 'tapeless' virtual tape system I'm eliminating ML1. ddk This e-mail message and all attachments transmitted with it may contain legally privileged and/or confidential information intended solely for the use of the addressee(s). If the reader of this message is not the intended recipient, you are hereby notified that any reading, dissemination, distribution, copying, forwarding or other use of this message or its attachments is strictly prohibited. If you have received this message in error, please notify the sender immediately and delete this message and all copies and backups thereof. 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 __ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com -- 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: Internal (program) start of an STC - MGCRE vs. ASCRE
-Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of McKown, John Sent: Friday, April 16, 2010 9:30 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Internal (program) start of an STC - MGCRE vs. ASCRE -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Rob Scott Sent: Friday, April 16, 2010 8:59 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Internal (program) start of an STC - MGCRE vs. ASCRE John Yeah RACROUTE VERIFY(X) is the fella - see the RACROUTE manual for more info - not exactly a for dummies book though :-) Obviously with a multi-user address space you would need to wrap somnething like a task-level RESMGR around each TCB that is created for the user signon. If there is no z/OS-supplied cleanup of ACEE, then your RESMGR could perform the VERIFYX ENVIR=DELETE - in fact this is probably a good idea anyway. Another job for the RESMGR could be to cut a sign-off SMF record (and you could cut a sign-on when you perform the VERIFYX ENVIR=CREATE). Really getting complicated! If you go down the START command route and your method of assigning ownership to the created address space is a parameter on the START command - what is to stop any bozo who has opercmd authority from spoofing a userid on to one of your address spaces ? Not a parm on the START command. The listener will establish a TCP connection to the client. After it does the START, the listener would do a GIVESOCKET. The started task would then do a TAKESOCKET. The desktop client would then send the RACF id / password over the socket. The started task would then use BPX1SEC or IRRSIA00 to logon using the supplied userid/password. If this works (good user/password), the STC sends a message to the client that the connection is complete. The client on the desktop then daemonizes itself to detach from the shell, retaining the socket to the STC. This daemon is then used as a relay for other commands in order to talk to the z/OS STC. But, now that I think about what happens in CICS, if I don't do the equivalent of a ENVIR=DELETE before terminating the STC, I won't get the RACF SMF record that I would like. rats/ There is something that makes me uneasy about an address space that spawns other address spaces in the fashion that you describe - maybe I am concerned about ASVT slot shortages if the spawn process gets into trouble or any x-memory coding errors that could mark these ASIDs as non-reusable. The started task(s) involved do not use x-memory coding. They don't talk to each other after the START is done at all. They are totally independant. And they would be subject to a z/OS CANCEL command. Rob Scott -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * (817)-961-6183 cell john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM - Have you considered if a web server running on z/OS would do what you want? It does run under USS, can serve mainframe data and use SAF security. -- 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: Internal (program) start of an STC - MGCRE vs. ASCRE
-Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Williamson, James R Sent: Monday, April 19, 2010 3:44 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Internal (program) start of an STC - MGCRE vs. ASCRE snip Have you considered if a web server running on z/OS would do what you want? It does run under USS, can serve mainframe data and use SAF security. I've been considering using a CGI on a Web server, implementing an AJAX type connection for efficiency. But this will complicate things a bit because I don't want the end user actually using a Web browser, although that is also a possibility. I actually have written a very small AJAX application using the HTTP server already. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * (817)-961-6183 cell john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -- 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 QUESTION - MOVING TO DASD FROM TAPE - ML2
Darth, We're looking at doing the exact same thing as Esmie. As to your asking why, here is our reasoning. All we have left on the 3590s is DFHSM processing. We have moved our system backups to TS1120 media, but don't want to use the same library for DFHSM as our backups. If we can move the HSM ML2 to disk, we can eliminate the hard costs of maintaining the 3590s, reclaim the floor space, eliminate the operator intervention for doing recalls, tape recycles, and all that fun stuff. As far as why we're looking at leaving ML1/ML2, we have just migrated all our production data (including ML1) from one disk array to another. My plan is to take the older array (still quite servicable and usable DS6800), reconfigure it as all MOD 54 devices, and move my ML2 to this array. I can then back these MOD 54 devices up to tape for offsite, and the ML2 is on a different array from my production and ML1 devices. My ML1 is a lot more dynamic than my ML2, so I can't see using the MOD 54 devices for ML1 due to the VTOC size. (I don't have PAV). Rex -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Darth Keller Sent: Monday, April 19, 2010 12:08 PM To: IBM-MAIN@bama.ua.edu Subject: Re: DFHSM QUESTION - MOVING TO DASD FROM TAPE - ML2 Because of incessant problems with tapes (3590-1) we are looking at using DASD for ML2 migration as well as BACKUP. Besides changing the following commands is there something else I could have overlooked? If anybody has been down this road I would appreciate it if you could warn me of any potential problems that you have encountered. If I understand this correctly, you're going to have 2 levels of migration both on Disk? Even if that's possible, what does it gain you? Wouldn't it make more sense to just have an ML1 and then no ML2? And again, I question whether that's even possible with HSM. I do seem to remember this same discussion in the past, so you should probably check out the archives. We're actually going the other route - we're moving to a 'tapeless' virtual tape system I'm eliminating ML1. ddk This e-mail message and all attachments transmitted with it may contain legally privileged and/or confidential information intended solely for the use of the addressee(s). If the reader of this message is not the intended recipient, you are hereby notified that any reading, dissemination, distribution, copying, forwarding or other use of this message or its attachments is strictly prohibited. If you have received this message in error, please notify the sender immediately and delete this message and all copies and backups thereof. 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 -- 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
Link Failure IOS581E
I am trying to understand what this message is telling me and if it is serious. IOS581E LINK FAILED REPORTING CHPID=11 328 INCIDENT UNIT TM=0MDS9K/509 SER=CSC00-0989C3 IF=00E4 IC=03 INCIDENT UNIT LIF=E4 ATTACHED UNIT TM=0MDS9K/509 SER=CSC00-1A0043 IF=00E4 ATTACHED UNIT LIF=E4 IOS581E LINK FAILED REPORTING CHPID=11 752 INCIDENT UNIT TM=0MDS9K/509 SER=CSC00-1A0043 IF=00E4 IC=04 INCIDENT UNIT LIF=E4 ATTACHED UNIT TM=0MDS9K/509 SER=CSC00-0989C3 IF=00E4 ATTACHED UNIT LIF=E4 We have a z9 connected to a z10 through a Cisco Router and DWMW (Dense Wave?) hardware. The group that handles the Cisco says they are not seeing any errors on the Cisco. Some fluttering, but no failures. I do not know about the Dense Wave device yet. Are these are serious as I assume or are they just something that happens and it does not impact my processes running on the Mainframe? I am thinking it might impact my DASD but I am not sure. We are running a DMX4500 so we have traffic needed for our applications running from the z9 to the z10 and back. Mostly DB2 Stored procedures. I am pulling logrec and trying to see if there is anything interesting there. Just looking for guidance on what the IOS581E is trying to tell me. Lizette -- 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: 45 years of Mainframe
I, alas, started on a much slower machine, the 650, about which I feel *no* nostalgia. I do, however, have fond memories of the 7094. Nice. My first job as a coop student at IBM was to convert a 650 SOAP program that ran the Toronto plant to a 1401 card system Autocoder program. I think I still have the card systems Autocoder compiler decks somewhere. I did read the SOAP program to figure out what the program did, but never wrote any 650 code myself. Not a fond memory, but an interesting one. The 650 we were taking out had a 2 (4?) KB drum memory. The autocoder (think BAL) program I wrote to replace it was for a 4 KB 1401 card system. High/Low/Equal compare was a special feature on a 1401. Tom Russell Stay calm. Be brave. Wait for the signs. ─ Jasper FriendlyBear ... and remember to leave good news alone. ─ Gracie HeavyHand
Re: 45 years of Mainframe
That's a great story. My first job was with a service bureau, with the main client being Grove Press in NY. I was an operator working on a 360/20, 360/30 and 360/40. About 25 years ago after a Share meeting in Boston, a friend and I went to their Computer Museum and I saw all 3 systems on display. That's when I realized how long I've been in the business. Thanks for the memories, George Rodriguez Specialist II - IT Solutions Application Support / Quality Assurance PX - 47652 (561) 357-7652 (office) (561) 707-3496 (mobile) School District of Palm Beach County 3348 Forest Hill Blvd. Room B-332 West Palm Beach, FL 33406-5869 Florida's Only A-Rated Urban District For Five Consecutive Years - Original Message - From: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To: IBM-MAIN@bama.ua.edu IBM-MAIN@bama.ua.edu Sent: Mon Apr 19 18:06:00 2010 Subject: Re: 45 years of Mainframe I, alas, started on a much slower machine, the 650, about which I feel *no* nostalgia. I do, however, have fond memories of the 7094. Nice. My first job as a coop student at IBM was to convert a 650 SOAP program that ran the Toronto plant to a 1401 card system Autocoder program. I think I still have the card systems Autocoder compiler decks somewhere. I did read the SOAP program to figure out what the program did, but never wrote any 650 code myself. Not a fond memory, but an interesting one. The 650 we were taking out had a 2 (4?) KB drum memory. The autocoder (think BAL) program I wrote to replace it was for a 4 KB 1401 card system. High/Low/Equal compare was a special feature on a 1401. Tom Russell Stay calm. Be brave. Wait for the signs. - Jasper FriendlyBear ... and remember to leave good news alone. - Gracie HeavyHand -- --Palm Beach County Schools- Rated A by the Florida Department of Education 2005-2009 -Home of Florida's first LEED Gold Certified School- ---http://www.palmbeachschools.org- The District of Palm Beach County is an Equal Education Opportunity Provider and Employer. Under Florida law, e-mail addresses are public records. If you do not want your e-mail address released in response to a public records request, do not send electronic mail to this entity. Instead, contact this office by phone or in writing. -- 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: Link Failure IOS581E
The group that handles the Cisco says they are not seeing any errors on the Cisco. Some fluttering, but no failures. I would call fluttering a failure (albeit one which was recovered). My opinion. Ask your Cisco team to show you the FICON log from the MDS 9509 devices (both local and remote). In similar circumstances on our system, we saw FICON events in the logs in the MDS 9509 devices that exactly correlated to IOS581E messages on z/OS. On our version of Cisco Device Manager 3.3(1c), the path to view the FICON events was Logs -- Switch Resident -- FICON Link Incidents Brian On Mon, 19 Apr 2010 17:46:54 -0400, Lizette Koehler wrote: I am trying to understand what this message is telling me and if it is serious. IOS581E LINK FAILED REPORTING CHPID=11 328 INCIDENT UNIT TM=0MDS9K/509 SER=CSC00-0989C3 IF=00E4 IC=03 INCIDENT UNIT LIF=E4 ATTACHED UNIT TM=0MDS9K/509 SER=CSC00-1A0043 IF=00E4 ATTACHED UNIT LIF=E4 IOS581E LINK FAILED REPORTING CHPID=11 752 INCIDENT UNIT TM=0MDS9K/509 SER=CSC00-1A0043 IF=00E4 IC=04 INCIDENT UNIT LIF=E4 ATTACHED UNIT TM=0MDS9K/509 SER=CSC00-0989C3 IF=00E4 ATTACHED UNIT LIF=E4 We have a z9 connected to a z10 through a Cisco Router and DWMW (Dense Wave?) hardware. The group that handles the Cisco says they are not seeing any errors on the Cisco. Some fluttering, but no failures. I do not know about the Dense Wave device yet. Are these are serious as I assume or are they just something that happens and it does not impact my processes running on the Mainframe? I am thinking it might impact my DASD but I am not sure. We are running a DMX4500 so we have traffic needed for our applications running from the z9 to the z10 and back. Mostly DB2 Stored procedures. I am pulling logrec and trying to see if there is anything interesting there. Just looking for guidance on what the IOS581E is trying to tell me. Lizette -- 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: Internal (program) start of an STC - MGCRE vs. ASCRE
McKown, John wrote: -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Williamson, James R Sent: Monday, April 19, 2010 3:44 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Internal (program) start of an STC - MGCRE vs. ASCRE snip Have you considered if a web server running on z/OS would do what you want? It does run under USS, can serve mainframe data and use SAF security. I've been considering using a CGI on a Web server, implementing an AJAX type connection for efficiency. But this will complicate things a bit because I don't want the end user actually using a Web browser, although that is also a possibility. I actually have written a very small AJAX application using the HTTP server already. Are you referring to the code you mentioned on ibm-main back in 2006? That ultimately was the inspiration for my work with that, culminating in the paper Coding AJAX Applications at http://www.trainersfriend.com/Papers/CodingAJAX_Applications.pdf I took things in a little different direction, using a CGI coded in COBOL, but you provided that start. You might re-visit that paper. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * (817)-961-6183 cell john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -- 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 -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-393-8716 http://www.trainersfriend.com * z/OS application programmer training + Instructor-led on-site classroom based classes + Course materials licensing + Remote contact training + Roadshows + Course development -- 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 QUESTION - MOVING TO DASD FROM TAPE - ML2
Darth, The ML1 and ML2 are usually cheaper and lower performance than Primary Storage. ML1 cost efficiency is usually achieved through compression, whereas ML2 is a change in media. ML2 Tape can easily be replaced with Tier 2 disk using internal SATA, external virtualized midrange storage, or earlier generations of DASD disk systems with a reduced maintenance cost (I think Radoslaw did this with 7700E). Ron If I understand this correctly, you're going to have 2 levels of migration both on Disk? Even if that's possible, what does it gain you? Wouldn't it make more sense to just have an ML1 and then no ML2? And again, I question whether that's even possible with HSM. I do seem to remember this same discussion in the past, so you should probably check out the archives. We're actually going the other route - we're moving to a 'tapeless' virtual tape system I'm eliminating ML1. ddk -- 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: 45 years of Mainframe
On 04/19/2010 05:06 PM, Tom Russell wrote: I, alas, started on a much slower machine, the 650, about which I feel *no* nostalgia. I do, however, have fond memories of the 7094. Nice. My first job as a coop student at IBM was to convert a 650 SOAP program that ran the Toronto plant to a 1401 card system Autocoder program. I think I still have the card systems Autocoder compiler decks somewhere. I did read the SOAP program to figure out what the program did, but never wrote any 650 code myself. Not a fond memory, but an interesting one. The 650 we were taking out had a 2 (4?) KB drum memory. The autocoder (think BAL) program I wrote to replace it was for a 4 KB 1401 card system. High/Low/Equal compare was a special feature on a 1401. Tom Russell IBM 650 drum memory was in 40 tracks or 50 words, containing decimal digits, not Bytes. Total capacity was 2000 words, with each word an instruction or data, 10 decimal digits plus sign, each digit represented by bi-quinary encoding (7 bits). It could be thought of as roughly equivalent to 20K decimal digits or 10K characters. Around 1961-1962 as a high school student in Norman, OK, I read the IBM 650 manuals and wrote some simple code examples for the 650 at O.U.; but it was an expensive and temperamental beast with no free time, so I was steered toward a new IBM 1620 that had much idle time, and learned to do my first real programming on that machine. The IBM 650 was replaced not that long after with an IBM 1410. I can still recall people discussing research that was negatively impacted by the need to re-write application code whenever a new machine was acquired. -- Joel C. Ewing, Fort Smith, ARjremoveccapsew...@acm.org -- 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 out of the office.
I will be out of the office starting 04/19/2010 and will not return until 04/20/2010. I will be at our Chicago location on Tuesday, April 20th. I will occasionally check emails. I will return on Wednesday, April 21st. Thanks. HCSC Company Disclaimer The information contained in this communication is confidential, private, proprietary, or otherwise privileged and is intended only for the use of the addressee. Unauthorized use, disclosure, distribution or copying is strictly prohibited and may be unlawful. If you have received this communication in error, please notify the sender immediately at (312) 653-6000 in Illinois; (800)835-8699 in New Mexico; (918)560-3500 in Oklahoma; or (972)766-6900 in Texas. -- 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: 45 years of Mainframe
I wrote the mainframe history presentation originally to present to the University of Waterloo computer science club about 10 years ago. I have been updating it ever since and I have two versions now (one general and one with additional VM information). I used it at a special session at SHARE in Boston for the 50th anniversary of SHARE and did another major update for the 45th anniversary of S/360 last year. I have not been around IBM quite as long as Tom (only 37 years for me) but our team here in Toronto has a lot of long-serving mainframers. My first computer was an IBM S/360-75 (remote via cards at the North York ON school board) and an IBM 1130 at my high school in Don Mills ON (near the then IBM plant and lab, we were spoiled by IBM). This was back in 1969/1970. When I went to college it was a step back to accounting machines (yes, a 407 and a 514) then to a 1620 and finally a S/360-30. My first job as a co-op was a further step back to a 650 at Defense Research in Victoria, BC. When I joined IBM in 1973 it was to work as an operator on a S/360-20 and a S/360-67. -- 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
(slightly OT - Linux) Did IBM bet on the wrong OS?
http://www.informationweek.com/news/software/open_source/showArticle.jhtml?articleID=224400309 Linux Graybeards? Yes, But Also A Wisdom Circle -- 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: IEBCOPY losing APF authorisation in middle of JOB - etc
Yes to all of that Puzzled me too ... Never seen it before I am aware of the concatenation restriction on APF authorised load libraries (and the integrity reasoning behind it), but there are no steplibs in the job and the Joblib is, obviously, the same for all steps. I will chase it up with our sysprogs today, and see if they have found out anymore. PDSMAN does seem to be the main suspect here though. Cheers, Peter Chris Craddock crashlu...@gmail.com Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu 19/04/2010 05:54 PM Please respond to IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To IBM-MAIN@bama.ua.edu cc Subject Re: IEBCOPY losing APF authorisation in middle of JOB - etc Ok, I am puzzled. Whether there is or is not an I/O appendage routine hidden away inside of dear old IEBCOPY seems immaterial. APF authorization is not something that just comes and goes within a step. Every new step can be authorized or not, but if the JOBLIB, STEPLIB or application specific library concatenations are the same for each step in the job, the system is going to get the same answer each time. There's just no such thing as losing APF authorization. For any new job step the system checks the AC attribute of the incoming job step program. If that's AC(1) then the system checks that the load library is APF authorized. If it IS then the job step is given control in an APF Authorized condition (i.e. JSCBAUTH=1) otherwise it is given control completely non-authorized. Now there are some gotchas of course. The one that trips up most young players is that for a load library to be considered APF authorized, EVERY dataset in the concatenation must be APF authorized. So even if you're fetching IEBCOPY from a righteously APF authorized library, if you have that library concatenated (e.g. in a JOBLIB or STEPLIB DD) with a non-authorized library then the entire concatenation is considered non-authorized and IEBCOPY won't run authorized. So assuming IEBCOPY is doing the right thing (FSVO the right thing) on some steps and not others, I'd be looking for a difference in libraries between those steps. -- This email might be from the artist formerly known as CC (or not) You be the judge. -- 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 This e-mail message, including any attachments transmitted with it, is CONFIDENTIAL and may contain legally privileged information. This message is intended solely for the use of the individual or entity to whom it is addressed. If you have received this message in error, please notify us immediately and delete it from your system. Please visit our website to read the full disclaimer: http://www.euroclear.com/site/public/disclaimer