Re: mainframe "selling" points
On 1/28/2013 7:22 PM, Don Williams wrote: I'm not sure that the statements are blatantly false. My career has been based on z/OS (a.k.a. MVS, MVS/ESA, MVS/SP, MVS/SE, OS/VS2, etc.) and System z (a.k.a. z10, z9, zSeries, s/390, s/370, etc.), so I tend to be heavily biased toward z/OS and System z. I love zMan's tag line -- "I've got a mainframe and I'm not afraid to use it" In the distant past, companies seemed to have selected the best platform (hardware and operating system), then searched for (or wrote) applications to run on it. Now days, companies seem to select the best applications, then acquire the required platform(s) to run them. Of course, that is an over simplification, but it seems to more or less apply to a lot of companies (admittedly not the Fortune 1000 variety). I work for a large hospital that has recently selected a new Electronic Medical Records (EMR) vendor. While their decision process considered the infrastructure, the weight of all the other factors effectively ignored any platform advantages/disadvantages. They were far more concerned about whether the application best meets the needs of the doctors, nurses, clinics, etc. than whether the hardware be the best available. Are you saying it's wrong to meet the needs of the customers first? If I ran a hospital of course I would choose applications that helped my staff most, and I would not care about the platform - just as long as the applications worked correctly and were available when needed. A former colleague brought it to my attention that many hospitals have started switching to the same EMR vendor away from mainframe based applications, and that I should have my resume at the ready. After talking to other former colleagues, I discovered that the hospital industry is not the only industry trying to move to slicker, nicer applications even if they have to switch to another platform. This implies that the software vendor is indirectly selecting the platform. Yes, and that's the way it should be. While my analysis is based on antidotal evidence, I believe that the young ITYM "anecdotal"; "antidotal" might keep you from dying due to poisoning new developers of these slicker, newer applications want to develop on a familiar platform (i.e., their school did not use a mainframe). IBM blew it 20-30 years ago when they stopped being generous to colleges and universities. Looking at the short term. They want to choose a platform that minimizes their development cost (again not a mainframe), yet is sufficient for a production environment. Historically, PC, blade servers, etc. simply were not robust enough to handle medium to large companies. PC/blades/etc. have become larger and clustered, etc., so that now days they can handle a large company (this does not apply to the Fortune 1000 variety, because they are beyond large). Therefore vendors seem far more willing to develop for a non-mainframe environment. IBM seems to have extended the mainframe with specialty processors like the IFL processors for zLinux support, and Ensembles for blade support as a hedge against the other platforms. I'm not saying that IBM's mainframe market is about to dry up and disappear. The Fortune 1000 size companies alone will keep the mainframe market healthy for many years to come, but I do think the other platforms are beginning to make a serious dent in the lower side of the traditional mainframe market. Where have you been? Of course that's what's been happening for 10 years or so. And IBM, generally speaking, is indifferent to the trend as long as they get their share of the non-mainframe market. Pay me for mainframes or pay for AIX, same results. Don -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Ron Wells Sent: Monday, January 28, 2013 8:47 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: mainframe "selling" points someone--needs to tell BBC about false statements. From: Mike Schwab To: IBM-MAIN@LISTSERV.UA.EDU Date: 01/25/2013 05:47 PM Subject:Re: mainframe "selling" points Sent by:IBM Mainframe Discussion List Card reader / punch, lineprinter, reel tapes, unmounted 3330 disk pack. Things have sure progressed since then. On Fri, Jan 25, 2013 at 12:39 PM, Don Williams wrote: The article below does not paint a good future for the mainframe...I hope the analysts are wrong. http://www.bbc.co.uk/news/technology-19399368 -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html
Re: mainframe "selling" points
On 1/29/2013 10:40 AM, Don Williams wrote: Hi Steve, Thanks for great reply. More below... Don -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Steve Comstock Sent: Monday, January 28, 2013 11:36 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: mainframe "selling" points On 1/28/2013 7:22 PM, Don Williams wrote: I work for a large hospital that has recently selected a new Electronic Medical Records (EMR) vendor. While their decision process considered the infrastructure, the weight of all the other factors effectively ignored any platform advantages/disadvantages. They were far more concerned about whether the application best meets the needs of the doctors, nurses, clinics, etc. than whether the hardware be the best available. Are you saying it's wrong to meet the needs of the customers first? If I ran a hospital of course I would choose applications that helped my staff most, and I would not care about the platform - just as long as the applications worked correctly and were available when needed. I agree, the staff needs far out weight the choice of platform. What I omitted, was there was no viable EMR software based on z/OS. A former colleague brought it to my attention that many hospitals have started switching to the same EMR vendor away from mainframe based applications, and that I should have my resume at the ready. After talking to other former colleagues, I discovered that the hospital industry is not the only industry trying to move to slicker, nicer applications even if they have to switch to another platform. This implies that the software vendor is indirectly selecting the platform. Yes, and that's the way it should be. My real questions are -- Why no EMR vendor chose the z/OS platform? And are vendors in other industries starting to avoid z/OS? If so, why? While my analysis is based on antidotal evidence, I believe that the young ITYM "anecdotal"; "antidotal" might keep you from dying due to poisoning Thanks for catching my wrong word. It did not look quite right, but I was too lazy to double check it. (or was I subconsciously looking for an antidote for the current state of affairs? :-) new developers of these slicker, newer applications want to develop on a familiar platform (i.e., their school did not use a mainframe). IBM blew it 20-30 years ago when they stopped being generous to colleges and universities. Looking at the short term. Boy do I agree. IIRC, the university I attended got a 60% to 70% (maybe more) discount for their s/360 Mod 50. I expect the various antitrust suits against IBM, esp. one in 1969 forced IBM to reduce/eliminate their generosity. They want to choose a platform that minimizes their development cost (again not a >> mainframe), yet is sufficient for a production environment. Historically, PC, blade servers, etc. simply were not robust enough to handle medium to large companies. PC/blades/etc. have become larger and clustered, etc., so that now days they can handle a large company (this does not apply to the Fortune 1000 variety, because they are beyond large). Therefore vendors seem far more willing to develop for a non-mainframe environment. IBM seems to have extended the mainframe with specialty processors like the IFL processors for zLinux support, and Ensembles for blade support as a hedge against the other platforms. I'm not saying that IBM's mainframe market is about to dry up and > disappear. The Fortune 1000 size companies alone will keep the mainframe market healthy for many years to come, but I do think the other platforms are beginning to make a serious dent in the lower side of the traditional mainframe market. Where have you been? Of course that's what's been happening for 10 years or so. And IBM, generally speaking, is indifferent to the trend as long as they get their share of the non-mainframe market. Pay me for mainframes or pay for AIX, same results. I'm not sure I agree with "Pay me for mainframes or pay for AIX, same results." Which platform provides IBM the best profit margin? Hardware-wise, I would guess the System z. Operating System-wise, I would guess z/OS. Yes. But perhaps they are thinking "better to get a little margin than no margin". Hmmm. That may be a little weak. Therefore I would expect IBM to promote vendor and education activities that would enhance those lines of business. I'm not sure high level management in IBM really "gets it" wrt z/OS. Don -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Ron Wells Sent: Monday, January 28, 2013 8:47 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: mainframe "selling" points someone--needs to tell BBC about false st
Re: FW: mainframe "selling" points
On 1/31/2013 7:32 AM, Don Williams wrote: Interesting note from a list reader... BTW David, IBM Main list membership is free. The only membership requirement is to be interested in the list. Don -Original Message- From: david kramf [mailto:dakr@gmail.com] Sent: Thursday, January 31, 2013 4:56 AM To: donb...@gmail.com Subject: mainframe "selling" points Hi Don, My name is David Kramf .I picked your name as one of the participants to this conversation that on the IBM mailing list digest. Hope I am not intruding. I am a very experienced MF developer . I quit my job several months ago to do more interesting stuff and trying to develop on my own. This is impossible to do on the MF platform because the MF is not accessible . You need to invest about 5K to 10K just to to have it (legally ) on your personal pc based, and there is no freely, updated and convenient system where you can buy your virtual server at a reasonable price. ( I pay 20 dollars a month for a linux VS. This is a reasonable price ). So I migrated myself to other platforms (OS X , LINUX , RUBY ) where you can easily get access to development platforms and can later distribute your product. If IBM won't make an effort to open the MF platform for the huge multitude of developers working and developing around the world on LINUX , smartphones , and tablets , then the MF is doomed. Well, the mainframe is doomed for those who think small. The mainframe is not the platform for small. Thank You very much for reading , and I will be much obliged if you send this message to the mailing list ( I am not a member myself ). David Kramf Tel-Aviv , ISRAEL = -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: My Last Days as a Sysprog
On 2/1/2013 4:15 PM, Grinsell, Don wrote: Hah! When I worked in Minneapolis I always felt sorry for the people in Chicago. Now I'm living in the hinterlands and loving every minute of it. Our rush hour lasts all of 10 minutes and my office is a 15 minute jog from the National Forest boundary. It doesn't get much better than that. -- Donald Grinsell State of Montana 406-444-2983 dgrins...@mt.gov "The limits of my language are the limits of my world." ~ Ludwig Wittgenstein Eye of the beholder. Denver is great; I love living here. On the other hand, Chicago is where I grew up and I still love the city. Living in the hinterlands would drive me nuts. (OK, it is Friday.) -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Rejoice! z/OS 2.1 addresses some long term JCL complaints from here:
On 2/5/2013 6:44 AM, Richard Pinion wrote: Creating JES2 was a half ASP job. Actually, my understanding was that it went the other way: lots of HASP code was lifted into ASP. There was probably some borrowing in the other direction, too, I would imagine. (For the relative newcomers in the group, HASP was the ancestor of JES2 and ASP was the ancestor of JES3) Perhaps Lynn has some historic background available. --- steve_con...@ao.uscourts.gov wrote: From: Steve Conway To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Rejoice! z/OS 2.1 addresses some long term JCL complaints from here: Date: Tue, 5 Feb 2013 08:39:10 -0500 Lots of JES2 and JES3 work being done, a lot of it pointing to convergence of the two products. Interesting stuff. Cheers,, -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Rejoice! z/OS 2.1 addresses some long term JCL complaints from here:
On 2/5/2013 12:44 PM, Anne & Lynn Wheeler wrote: st...@trainersfriend.com (Steve Comstock) writes: Actually, my understanding was that it went the other way: lots of HASP code was lifted into ASP. There was probably some borrowing in the other direction, too, I would imagine. (For the relative newcomers in the group, HASP was the ancestor of JES2 and ASP was the ancestor of JES3) Perhaps Lynn has some historic background available. my wife was in the gburg JES group for awhile ... before being con'ed into going to POK to be responsible for loosely-coupled architecture ... (where she did peer-coupled shared data architecture ... saw very little uptake except for IMS hot-standby, until sysplex & parallel sysplex) http://www.garlic.com/~lynn/submain.html#shareddata one of her tasks in the JES group was part of the ASP catchers to turn it into JES3 ... she did a lot of the initial type-1 documentation. she then did JESUS ... JES Unified System ... the essential features from both JES2 & JES3 that the respective customers couldn't live w/o ... internal politics prevented it from getting very far. old post http://www.garlic.com/~lynn/2011d.html#73 Multiple Virtual Memory with lots of old tales ... justification for adding virtual memory to MVT, other stuff. I had done various stuff with HASP as undergraduate in the 60s. Simpson, Crabtree and others at Houston Manned Space Center, used their experience on Moonlight (DCS) system for HASP (Houston Automatic Spooling Priority System). At the same time, west region used their experience with Moonlight to create ASP. This seems to support my recollection that HASP came first, or at least at the same time; HASP is not Half-ASP as the almost clever saying goes. ASP is half-HASP, perhaps. some more discussion of "Project Moonlight" (effort to extend life of 7090/7094) ... says somebody's notes from a share 79 presentation: http://computer-programming-forum.com/10-asm370/c0d31d8bd52f759c.htm session O441 - The History of HASP and JES2 Which includes: "Later when the S/360 was out, the former Project Moonlight team from Houston went to Los Angeles to build the "Attached Support Processor" for S/360. They took ASP back with them to Houston" So this is a little ambiguous - as almost all good history is! ... SHARE 79 http://www.redbug.org/dba/sharerpt/share79/o441.html I was has at the March 1968 houston share meeting ... I had done a whole lot of work on HASP & MFT ... but I was also doing a lot of work on cp67 ... I was at the session for the science center announcement for (virtual machine) cp67 ... but also went to HASP sessions. other trivia mentioned in above ... refers to HASP networking turning into JES2 networking coming from a univ. for long time the code running on the internal network nodes still carried "TUCC" identifier in all the source cards. problem was thatq the networking support JES2 inherited used left-over entries in the 255-slot psuedo device table and would trash traffic where either the origin &/or destination was defined in the table (usually limited to around 160 entries). the internal network was very quickly more than 255 entries ... so required limiting HASP/JES2 nodes to boundaries to keep them from excessively trashing traffic. The other characteristic was that header had mixed up JES2 and networking information ... and traffic between different JES2 systems could result in system crashes and requiring MVS to be rebooted. misc. past posts mentioning HASP &/or JES2 http://www.garlic.com/~lynn/submain.html#hasp misc. past posts mentioning internal network http://www.garlic.com/~lynn/subnetwork.html#internalnet -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: JSON format in ISPF Services Guide?
On 2/7/2013 5:23 AM, nitz-...@gmx.net wrote: Has anyone been able to find the JSON format for ISPF dialogs that is supposedly documented in the ISPF services guide (I was unable to find it in SC34-4819-10), referenced there from Callable services for HLLs (SA22-7613-10)? Thanks, Barbara Nitz Barbara, Go to http://www-03.ibm.com/systems/z/os/zos/bkserv/ and in the search box in the upper right hand corner do a search on ispf client gateway one of those docs probably has what you're looking for. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: 2.1 UNIX Enhancements
On 2/13/2013 7:53 AM, Kirk Wolf wrote: Gil, See: http://publib.boulder.ibm.com/infocenter/zosmf/vxrx/index.jsp?topic=%2Fcom.ibm.zosmf.configguide.help.doc%2FIZUHPINFO_API_RESTJOBS.html These are "restful" web services APIs, for interfacing with JES2 or JES3. Kirk Wolf Dovetailed Technologies http://dovetail.com Hmmm. Looks like it requires WebSphere, is that right? "Generally, your user ID requires the same authorizations for using the z/OS jobs REST interface services as when you perform these operations through a TSO/E session on the system. For example, submitting a job through the z/OS jobs REST interface requires that your user ID be authorized to run jobs on the system and be able to access any protected resources that the job might require. In addition, your user ID requires authorization to the WebSphere® SAF profile prefix on the target z/OS system, as follows: READ access to in the APPL class. READ access to the .izuUsers profile in the EJBROLE class. By default, the WebSphere SAF profile prefix is BBNBASE." On Wed, Feb 13, 2013 at 8:44 AM, Paul Gilmartin wrote: On Wed, 13 Feb 2013 13:32:04 +0800, Timothy Sipples wrote: My shorthand is this long(er)hand in the announcement: "In z/OS V2.1 with z/OSMF V2.1, the z/OS Jobs REST Interface is planned to be extended to add support for submitting jobs from data sets and z/OS UNIX files" What's new there? I regularly submit jobs "from data sets and z/OS UNIX files" using IEBGENER and/or ISPF edit. (IEBGENER is better; it doesn't impose an archaic LRECL/RECFM constraint.) What's the "z/OS Jobs REST Interface", anyway? Sounds like a feature relevant more to batch than to UNIX. -- gil -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Article for the boss: COBOL will outlive us all
On 2/16/2013 12:25 PM, John Gilmore wrote: Tony H wrote | Now back to our regular COBOL, uh, programming. thus alluding to how many of us view of the language. Over a now long career I never took COBOL seriously. I was aware of it, and I even learned to write it by helping COBOL programmers with their problems. It is a verbose but finally very simple language. That said, I could not, and did not, think much of a language without real storage management, strings, pointers, booleans, etc., etc. It was move-oriented, compile-time bound, and synchronous, and I find these characteristics despicable. Recently, however, it has been greatly improved, making, for example, usable pointers and LIFO, local, i.e., 'automatic', storage available. It is now often possible to write something the way one wishes to write it in COBOL. These new facilities are not yet much used. Some shops indeed interdict their use as 'unnecessary'. Their availability does nonetheless make it possible to update a COBOL application using appropriate, adult technology; and this is important because many COBOL applications are so large that jettisoning them is, at least in the short term, economically impractical. Able but naif people often radically underestimate the resources and time that will be required to convert a COBOL application to, say, C/C++; and in the upshot they fail in their attempts to do so. I know of shops in which there have been four (sic) such failed attempts. New CIOs often launch a new one, the smartest of them going on to greener pastures before its failure too becomes obvious. It is, however, possible to refurbish and extend COBOL systems in COBOL. The trick in doing so is to use able programmers trained in a different tradition whom you bribe to learn COBOL, avoiding [most] experienced COBOL programmers as plague carriers or, better, using the best of them only as consultants about how an application currently works. John Gilmore, Ashland, MA 01721 - USA John, We have been fighting that battle for, oh, twelve years or more. We have courses that teach COBOL programmers how to use the latest facilities in general and then courses that teach specifics (especially handling XML, working with Unicode, using LE services where appropriate, coding and using DLLs, coding and running using z/OS UNIX services, coding CGIs in COBOL, and more). But we don't see much interest or enlightenment. Very frustrating. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: USPTO does another goodie.
On 2/20/2013 1:53 PM, John Gilmore wrote: And there are situations in which such a network-oriented scheme is an excellent idea. I do have a quibble. I suspect that an implementation "by figuring out the most recent modification date/time among all the chunks of the file, across all the relevant servers, and comparing that with the time-to-live value." should be replaced by the testing of a last|latest update-time value that is replaced unconditionally every time an update operation ends successfully. John Gilmore, Ashland, MA 01721 - USA Maybe you should patent _that_ idea. ;-) -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Secure Service Delivery
On 2/22/2013 6:10 AM, Donald J. wrote: Instead of asking customers to spend a lot of time, money and grief on certificates, isn't it about time we stop fighting the FTPS vs SFTP battle? SFTP clearly prevails, Speaking of grief, ask a Cobol programmer to write to an OMVS Unix file. Why? there's no problem writing to a z/OS UNIX file from COBOL. They need to add support for z/OS files before SFTP can be a suitable replacement for FPTS. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Secure Service Delivery
On 2/22/2013 7:34 AM, Donald J. wrote: I didn't say there was a problem. Our applicatons mgmt does not want to spend the time to train programmers on how to do it. Ah. Even by using the QSAM interface? That just requires a JCL change; no COBOL change. And it's probably not time but money they don't want to spend. Sigh. I will check out the Dovetailed Tech mod recommended by John M. in the other post. Thanks, John, for the info. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Secure Service Delivery
On 2/22/2013 8:10 AM, John Gilmore wrote: More crackpot realism! A shop that does not allocate 20% (sic) of its programmers' time to training and professional development is a mismanaged and uneconomically organized one. John Gilmore, Ashland, MA 01721 - USA Hmmm. That's 10 weeks in a year. Maybe a little high. I agree there should be some percentage, even 5% (~2.5 weeks) would be pretty good. But not 0%. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Secure Service Delivery
On 2/22/2013 10:14 AM, John Gilmore wrote: I have experimented with this number---Note that it includes professional development, e.g., journal reading, web browsing, meeting attendance and the like, things that are not immediately relevant to the task at hand ---and I do not think 5% is enough. It is low by the standards of other professions. Medical doctors, for example, devote as much as 25% of their time to this sort of thing. John Gilmore, Ashland, MA 01721 - USA Ah. I was not clear on what you included in the category. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Where are the zOS elements and features?
On 2/27/2013 6:02 AM, jan de decker wrote: Hi list, Since a few days I have www-03.ibm.com not found problems. Looking up zOS Elements and features on Google all point to this link. I use the site daily in my work as a zOS systems programmer. And I prefer the simulated BookManager since it allows you to search an entire shell. Anybody knows what is going on? Best regards, jan I always start here: http://www-03.ibm.com/systems/z/os/zos/bkserv/ and it still works. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SAVE macro
On 2/27/2013 7:42 AM, Phil Smith wrote: In one of the IBM sample exits for DB2 (DSNA10.SDSNSAMP(DSN8FPRC)) we find: SAVE (14,12),,'''&SYSPARM &SYSDATE &SYSTIME''' ...which won't assemble, generating: 15 142+ DCCL8'3 08.36'' ** ASMA063E No ending apostrophe - 3 ** ASMA435I Record 62 in SYS1.MACLIB(SAVE) on volume: VTMVSC 15 143+ DCCL1''' ** ASMA063E No ending apostrophe - ' ** ASMA435I Record 58 in SYS1.MACLIB(SAVE) on volume: VTMVSC So I changed it to just SAVE (14,12) and of course that works, but I can't find any documentation for SAVE that includes a second or third operand! I've looked at the macro, and it's pretty opaque and poorly commented (though I do like one item under "CHANGE ACTIVITY": $01 = OW54354 HBB7706 020419 PDXB: FIX "J" - wonder what that means?). Anyway, can anyone point to real doc for SAVE? Surely after almost 50 years it exists... -- ...phsiii Phil Smith III p...@voltage.com<mailto:p...@voltage.com> Voltage Security, Inc. www.voltage.com<http://www.voltage.com/> MVS Programming: Assembler Services Reference, Volume 2 (IAR-XCT) - iea2a9c1.pdf for z/OS 1.13 Chapter 79 - SAVE the operands are listed as: (reg1) | (reg1,reg2) reg1 and reg2: Decimal digits, and in the order 14, 15, 0 through 12. , ,T ,id name id name: Character string of up to 70 characters or as an *. so the sample exit code is using the &SYS... info in the 'id' string; but there seems to be a punctuation issue in their coding. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Where current HLASM doc?
On 3/4/2013 8:26 AM, Charles Mills wrote: My z/OS R13 collection contains HLASM documentation from 2008. Is there current HLASM documentation? Or has HLASM just not been updated? (I notice my z/OS R13 listings say "R6.0.") I find that hard to believe. There could not possibly be no HLASM that supported post z10 op codes. Charles The "post z10 op codes" are found in the PoO (PoOps, ...) not the HLASM docs. The current version of HLASM is 1.6. The HLASM docs are only updated when the Assembler is updated in a way that affects usage; adding new hardware ops doesn't change the Assembler interfaces. John Ehrman once pointed out to me that even some of the new extended mnemonics are found in the PoO, not the HLASM docs (which is where I expected to find them). -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: LE dump (CEE3DMP) performance
On 3/5/2013 3:32 AM, Miklos Szigetvari wrote: Hi We are using the CEE3DMP (LE dump) routine to dump the call stack in some C/C++ program to the SYSPRINT file It is terrible slow, no CPU just wait (for what ?) Without this CEE3DMP calls, the program runs in 6 seconds , with dump in 30 minutes, producing 70 small dump (every dump about 60-80 lines). Well, it's hard to tell with what you've given us. You do know that by default CEE3DMP writes to CEEDUMP DD, not SYSPRINT, right? Also, there can be contention to the dump dataset, whichever it is. So some possiblities: * re-examine your CEE3DMP parameters (although based on your comment, they are probably good), however, think about: * in your invocation of CEE3DMP, use a separate DDname for each dump (FNAME parameter) * pre-allocate these separate dump data sets * perhaps your MSGFILE is causing contention; the default DD name is SYSOUT; if you have changed it using run time parameters, consider adding NOENQ, maybe: MSGFILE(SYSPRINT,,,NOENQ) * look at your collective runtime options; maybe there are some bad choices / defaults for your environment especially consider: ALL31, HEAPCHK, MSGQ, RPTOPTS, RPTSTG, STACK, STORAGE, THREADHEAP, THREADSTACK, TRAP, XPLINK, HEAPPOOLS as well as MSGFILE Hoe this helps. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: iewl syslin
On 3/9/2013 12:52 PM, Ben Chin wrote: Hello, It's been a some time (semi-retired), but I have a cobol program which has many sub-programs. The problem I'm having is both includes have same sub-program one old and newer. The sub-program is not defined as an csect in either programs, when attempting to change / replace in IEWL sub-program is NOT a CSECT OR SYMBOL WAS NOT FOUND. Is there a way to extract/replace sub-program old for newer without sub-program being a csect? Thx Not exactly sure what you're saying, but it sounds like you're talking about nested programs; in this case no CSECT is created for the nested programs, so, no you can't replace using the binder (nee Linkage Editor). Do you have the source? Are you really talking about nested programs? That's the only way I know of for a subprogram to be "not defined as an csect". -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: iewl syslin
On 3/9/2013 4:28 PM, Charles Mills wrote: Like others I don't fully understand the question, but I can say that I think a CSECT is the smallest chunk of "stuff" that the link editor can manage. I don't think it can ever replace part of a CSECT. That's correct. All, perhaps what he is saying is this? He includes module A with entry points X and Y He wants to include another module B with entry point Y (and perhaps others) and use that Y, not the one in A (but still keep the X from A). In which case you should be able to do something like (from memory -- look up the exact syntax) REPLACE Y(NOUSEME) INCLUDE A ... Charles Hmm. Alternate entry points. Hadn't considered that, but it's possible, I guess. Let's see how this might be done using binder control statements ... INCLUDE SYSLIB(B) <-- to do automatic replace, bring in the version you want to win first; B includes Y INCLUDE SYSLIB(A) <-- now bring in A containing X and Y; the binder will resolve references to 'y' to be 'Y' in 'B' ENTRY A <-- establish the main entry point NAME A(R) <-- establish the name the module is saved under The syntax is good, and automatic replace works with CSECTs, but I'm not really sure if the binder supports automatic replacement for alternate entry points. I'm unable to test that; perhaps someone in the list can do that. And, of course, this is all guesswork about what the OP is trying to say! -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Ben Chin Sent: Saturday, March 09, 2013 11:52 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: iewl syslin Hello, It's been a some time (semi-retired), but I have a cobol program which has many sub-programs. The problem I'm having is both includes have same sub-program one old and newer. The sub-program is not defined as an csect in either programs, when attempting to change / replace in IEWL sub-program is NOT a CSECT OR SYMBOL WAS NOT FOUND. Is there a way to extract/replace sub-program old for newer without sub-program being a csect? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: iewl syslin
Well your notes are confusing. First in your original post you implied the subroutine is not a CSECT, but it clearly is. Now it looks like you are trying to say that OLDPGM calls SUBPGM (the old version), then you switch to say NEWPGM calls PROGRAM1 and SUBPGM (the new version), is that correct? So are you trying to extract SUBPGM from NEWPGM and put that version into OLDPGM, leaving NEWPGM unchanged? Do you have the object or load module of the new SUBPGM? You really aren't clear about what you have and what you want. Please take the time and be more specific. On 3/10/2013 7:02 PM, chin ben wrote: Sources are not available, vender loadlib are shipped. Sorry, had to change name of programs (Ie. vender): In old.vender.loadlib(oldpgm): Symbol Type Offset Length Textclass Translator VV MM Date A/M R/M oldpgmSD 00 FB79 B_TEXT COBOL II 14 00 2002/07/12 24 24 subpgmSD 1E3608448 B_TEXT COBOL II 14 00 1995/10/10ANY 24 In new.vender.loadlib(newpgm): Symbol Type Offset Length Textclass Translator VV MM Date A/M R/M program1 SD 001079 B_TEXT COBOL II13 02 1992/06/17ANY 24 subpgm SD99808A09 B_TEXT COBOL II14 00 2011/09/26ANY 24 oldpgm source is available, but several calls are vender sub-programs. Vender's subpgm has been updated and has to be replaced in oldpgm. IEW2278I B352 INVOCATION PARAMETERS - XREF IEW2322I 1220 1INCLUDE OBJECT IEW2322I 1220 2INCLUDE SYSLIB(OLDPGM) <- 1995 IEW2322I 1220 3INCLUDE SYSLIB(NEWPGM) <- 2011 IEW2322I 1220 4CHANGE SUBPGM(SUBPGM) <- replace with 2011 IEW2403W 5E12 A REQUEST TO CHANGE CSECT OR SYMBOL SUBPGM WAS RECEIVED, AND THE OLD CSECT OR SYMBOL WAS NOT FOUND. IEW2322I 1220 6ENTRY PROGRAM1 IEW2322I 1220 7 NAME OLDPGM(R) Thx all for input. Date: Sun, 10 Mar 2013 10:48:19 -0500 From: jwgli...@gmail.com Subject: Re: iewl syslin To: IBM-MAIN@LISTSERV.UA.EDU Shmuel wrote: INCLUDE specifies the name of a member, not the name of a CSECT, and you nost certainly can have two members of a library containing the same CSECT name. The OP needs to disclose more data in order to diagnose his problem. and he is of course quite right. It is occasionally convenient to have two differently named object modules for two different versions of the same CSECT, RSECT, or the like in a PDS[E], but this scheme should really only be used by very knowledgable and experienced people; and even for them there are better, more robust ways to do such things. If, as I suspect, the OP is trying to replace an entry point and its associated code that does NOT correspond to a separate CSECT, he can do that too. The binder's inclusion unit is indeed a CSECT, RSECT, or the like; but it can resolve external references in one of them to one of N others. As Shmuel says, we need to know more. John Gilmore, Ashland, MA 01721 - USA -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: iewl syslin
On 3/10/2013 8:14 PM, chin ben wrote: Steve, Just want to replace subpgm in oldpgm with subpgm from newpgm. Thx OK, but it is still not clear to me: do you have the new subpgm as a separate load module or object module? If you have the new SUBPGM in a load module library, say MY.LOADLIB and if both OLDPGM and NEWPGM are in VENDOR.LOADLIB, this should work: //STEPEXEC PGM=IEWL,PARM='XREF,LIST' //SYSPRINT DD SYSOUT=* //SYSLIB DD DSN=MY.LOADLIB,DISP=SHR //SYSLMOD DD DSN=VENDOR.LOADLIB,DISP=SHR //SYSLIN DD * INCLUDE SYSLIB(SUBPGM) INCLUDE SYSLMOD(OLDPGM) ENTRY OLDPGM NAME OLDPGM(R) Or do you have to try and extract the new subpgm from newpgm and then replace the old subpgm in oldpgm with the new subpgm from newpgm? That's a little trickier, but here is one way that should work: //STEPEXEC PGM=IEWL,PARM='XREF,LIST' //SYSPRINT DD SYSOUT=* //SYSLIB DD DSN=VENDOR.LOADLIB,DISP=SHR //SYSLMOD DD DSN=VENDOR.LOADLIB,DISP=SHR //SYSLIN DD * REPLACE pgm1 <-- put a REPLACE statement for each CSECT . <-- in NEWPGM that is not needed in OLDPGM . . INCLUDE SYSLIB(NEWPGM) INCLUDE SYSLMOD(OLDPGM) ENTRY OLDPGM NAME OLDPGM(R) in both cases you may need to add your SCEELKED library to the SYSLIB concatenation Date: Sun, 10 Mar 2013 20:10:00 -0600 From: st...@trainersfriend.com Subject: Re: iewl syslin To: IBM-MAIN@LISTSERV.UA.EDU Well your notes are confusing. First in your original post you implied the subroutine is not a CSECT, but it clearly is. Now it looks like you are trying to say that OLDPGM calls SUBPGM (the old version), then you switch to say NEWPGM calls PROGRAM1 and SUBPGM (the new version), is that correct? So are you trying to extract SUBPGM from NEWPGM and put that version into OLDPGM, leaving NEWPGM unchanged? Do you have the object or load module of the new SUBPGM? You really aren't clear about what you have and what you want. Please take the time and be more specific. On 3/10/2013 7:02 PM, chin ben wrote: Sources are not available, vender loadlib are shipped. Sorry, had to change name of programs (Ie. vender): In old.vender.loadlib(oldpgm): Symbol Type Offset Length Textclass Translator VV MM Date A/M R/M oldpgmSD 00 FB79 B_TEXT COBOL II 14 00 2002/07/12 24 24 subpgmSD 1E3608448 B_TEXT COBOL II 14 00 1995/10/10ANY 24 In new.vender.loadlib(newpgm): Symbol Type Offset Length Textclass Translator VV MM Date A/M R/M program1 SD 001079 B_TEXT COBOL II13 02 1992/06/17ANY 24 subpgm SD99808A09 B_TEXT COBOL II14 00 2011/09/26ANY 24 oldpgm source is available, but several calls are vender sub-programs. Vender's subpgm has been updated and has to be replaced in oldpgm. IEW2278I B352 INVOCATION PARAMETERS - XREF IEW2322I 1220 1INCLUDE OBJECT IEW2322I 1220 2INCLUDE SYSLIB(OLDPGM) <- 1995 IEW2322I 1220 3INCLUDE SYSLIB(NEWPGM) <- 2011 IEW2322I 1220 4CHANGE SUBPGM(SUBPGM) <- replace with 2011 IEW2403W 5E12 A REQUEST TO CHANGE CSECT OR SYMBOL SUBPGM WAS RECEIVED, AND THE OLD CSECT OR SYMBOL WAS NOT FOUND. IEW2322I 1220 6ENTRY PROGRAM1 IEW2322I 1220 7 NAME OLDPGM(R) Thx all for input. Date: Sun, 10 Mar 2013 10:48:19 -0500 From: jwgli...@gmail.com Subject: Re: iewl syslin To: IBM-MAIN@LISTSERV.UA.EDU Shmuel wrote: INCLUDE specifies the name of a member, not the name of a CSECT, and you nost certainly can have two members of a library containing the same CSECT name. The OP needs to disclose more data in order to diagnose his problem. and he is of course quite right. It is occasionally convenient to have two differently named object modules for two different versions of the same CSECT, RSECT, or the like in a PDS[E], but this scheme should really only be used by very knowledgable and experienced people; and even for them there are better, more robust ways to do such things. If, as I suspect, the OP is trying to replace an entry point and its associated code that does NOT correspond to a separate CSECT, he can do that too. The binder's inclusion unit is indeed a CSECT, RSECT, or the like; but it can resolve external references in one of them to one of N others. As Shmuel says, we need to know more. John Gilmore, Ashland, MA 01721 - USA -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Kind regards, -Steve Comstock -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 h
Re: Enqueue during VSAM REPRO - Who is the culprit
On 3/11/2013 9:55 AM, Paul Gilmartin wrote: On Mon, 11 Mar 2013 10:44:59 -0500, David Devine wrote: I think DanD hit it on the head with his suggestion about using infile & outfile dd statements instead of ids & ods. Ids & Ods use a disp of "old" during dynamic allocation. IDS, even? I'd expect SHR to suffice for IDS. Yes, one would. But OLD is used even for ids. I have a sneaky feeling that your job is contending with itself because grs or mim can't always see quickly enough that the dataset is free'd after the del/def. As the message is an IKJ its implying that its all done within a TSO rexx routine and rexx is quite well know for erratic behaviour. I believe Rexx messages are IRX; TSO are IKJ. The news of Rexx's "erratic behavior" hadn't reached me. Can you cite an example? Do you have explicit close & free's coded in your rexx for the dataset prior to the final repro? Can contention occur within a single address space? In any event, I'd suggest changing your repro to hardcoded infile outfile dd's with a disp of shr. Wouldn't EXC be safer for OUTFILE? The Info cited earlier says that VSAM ENQs on QNAME VSAM; allocation ENOs on SYSDSN. Does VSAM additionally ENQ on SYSDSN? Which does REPRO use? -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: USS "date" command, subtract one day
On 3/14/2013 7:10 AM, Elardus Engelbrecht wrote:
John McKown wrote:
What I do is use REXX. A UNIX REXX shell script is rather easy:
Agreed. REXX can do things an achieve results in one single command line. Use
the pipe thing to send and receive keywords/parms to different commands.
/* rexx */
today=date('b') /* today's date in base form */
yesterday = today - 1
say date('s',yesterday,'b') /* yesterday in mmdd form */
Will above takes Leap Year in account? I have a version of that example, but
must receive Julian dates from a product and gives Julian date back, taking
Leap Year in account.
For example, if today is 2012/03/01, it must accept it as 12061 and gives back
12060 for 2012/02/29.
And 2013/03/01 must be accepted as 13060 and gives back 13059 as yesterday.
Just something for you to think about...
Groete / Greetings
Elardus Engelbrecht
If you're coding in C, Assembler, COBOL, or PL/I, you can use
the Language Environment date functions, which can do what
you want pretty simply.
call CEELOCT to get today's date in Lilian format
subtract 1
call CEEDATE to convert to a formatted date in a wide
variety of options
this does account for leap years and such.
It's not a shell command, but you could write a very
short program that returns the output from the CEEDATE
call and then just invoke the program from a shell
script.
--
Kind regards,
-Steve Comstock
The Trainer's Friend, Inc.
303-355-2752
http://www.trainersfriend.com
* To get a good Return on your Investment, first make an investment!
+ Training your people is an excellent investment
* Try our tool for calculating your Return On Investment
for training dollars at
http://www.trainersfriend.com/ROI/roi.html
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Parameter list changes between calling and called program
On 3/15/2013 4:56 AM, jan de decker wrote: Hi list, I am struggling with a curious phenomenom: Program YEMI0070 builds a parameter list for program YEXC using macro YEIOWTOD. The last things YEIOWTOD does is to point register 1 to the parameter list and BALR into YEXC. This created ABEND's. I dumped just before the BALR and the parameter list was OK. I dumped at entry of YEXC and the parameter list was corrupted. Any, really any idea would be highly appreciated. I will cross-post this to the assembler list. Best regards, jan I'm thinkin' we need way more information. For starters, show us the code in the calling program: * Building of the parameter list * Related data areas * instructions just before the BALR (why are you not using BASR, at the least? * What are the AMODE and RMODE settings in the called program show us your entry linkages and the AMODE and RMODE settings What kind of Abends are you getting? -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Q re attaching COBOL program
On 3/18/2013 2:29 PM, Victor Gil wrote: We have a need to call a COBOL subroutine by attaching it as a subtask, so the call is done through an Assembler stub that issues the Attach, Waits on the termination ECB and Detaches the subtask. The subroutine gets the parms, does what it's job and returns back with an RCfield which is a part of the passed structure. However, the caller *does not* see this RC! Is the LE making a local copy of the parms? And if yes - how to workaround this issue? TIA, -Victor- Sounds like you possiblye are not passing and receiving the structure in the same way. If your COBOL program is moving the return code value into the RC field in your structure, but on return you do not see the value: are you passing by reference or by content? are you receiving by reference or by content? On the other hand, if your COBOL program is just setting the RETURN-CODE special register, that value is not passed back in your passed structure automatically. So it would help to see some code: how your Assembler routine sets up the passed parms and how it examines these after the CALL; then how your COBOL routine sees the passed parms (show us the linkage section, the using statement, and the point in the code where you think RC is getting set. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Q re attaching COBOL program
On 3/18/2013 4:36 PM, Victor Gil wrote: As I said, the subroutine response via a field in the passed comarea. The commarea is just ONE parm and the resopnse field is part of the commarea, not the RETURN REGISTER 03 TPTAPI-RETURN-PARAMETERS. 05 TPTAPI-RETURN-CODE PIC X(02). 88 TPTAPI-SUCCESSFULVALUE '00'. 88 TPTAPI-WARNING VALUE '04'. 88 TPTAPI-INVALID-PARM VALUE '08'. -Victor- Hey, chill, man. You still have not given us enough info. 1. show us your ATTACH(X) invocation 2. show us the code where your Assembler routine is looking at the return value 3. show us your procedure division header 4. show us where your COBOL program sets the return code we may need more to see the problem, but this is a start (and, no, LE is not making local copies of your parameter). -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Convert 64 bit to decimal in Assembler
On 3/20/2013 3:03 AM, Donald Likens wrote: Has anyone come up with a better way to convert a 64 bit binary number to decimal then the way I did it? Here is what I did: LGR1,WKCELLD CVDG R1,LONG * UNPK 0(11,R7),LONG(6) FIRST 6 BYTES ARE ALWAYS ZERO UNPK 0(11,R7),LONG+5(6) UNPK 10(11,R7),LONG+10(6) OI20(R7),X'F0' To be precise, you are converting 64bit binary to zoned decimal unedited. How about: LGR1,WKCELLD CVDG R1,LONG mvc 0(17,R7),edpat ed0(17,R7),long edpat dcx'4020202020202020202020202020202020' You haven't told us how long the target field pointed at by R7 is, but it's at least 21 bytes judging by your OI instruction. So I've just used the first 17 bytes. The field LONG must, of course, be 16 bytes on a quadword boundary. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Convert 64 bit to decimal in Assembler
On 3/20/2013 6:22 AM, Steve Comstock wrote: On 3/20/2013 3:03 AM, Donald Likens wrote: Has anyone come up with a better way to convert a 64 bit binary number to decimal then the way I did it? Here is what I did: LGR1,WKCELLD CVDG R1,LONG * UNPK 0(11,R7),LONG(6) FIRST 6 BYTES ARE ALWAYS ZERO UNPK 0(11,R7),LONG+5(6) UNPK 10(11,R7),LONG+10(6) OI20(R7),X'F0' To be precise, you are converting 64bit binary to zoned decimal unedited. How about: LGR1,WKCELLD CVDG R1,LONG mvc 0(17,R7),edpat ed0(17,R7),long edpat dcx'4020202020202020202020202020202020' You haven't told us how long the target field pointed at by R7 is, but it's at least 21 bytes judging by your OI instruction. So I've just used the first 17 bytes. The field LONG must, of course, be 16 bytes on a quadword boundary. Whoops. Coded too fast. LONG being 16 bytes means it will contain 31 digits, so maybe: LGR1,WKCELLD CVDG R1,LONG mvc 0(32,R7),edpat ed0(32,R7),long edpat dcx'40',31x'20' Now I hope the area pointed at by R7 is at least 32 bytes long; or, as you suggested, you could adjust accounting for known leading zeros. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Convert 64 bit to decimal in Assembler
On 3/20/2013 6:52 AM, Tom Marchant wrote: On Wed, 20 Mar 2013 06:22:29 -0600, Steve Comstock wrote: CVDG R1,LONG The field LONG must, of course, be 16 bytes on a quadword boundary. Certainly it must be 16 bytes, but the POO does not specify a quadword boundary. It also does not say that a specification exception can occur. Well, you're right. I went and checked the -08 and -09 versions of the POO and no mention was made of alignment; wonder where I got that idea. Thanks. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Convert 64 bit to decimal in Assembler
On 3/20/2013 7:55 AM, Gerhard Postpischil wrote: On 3/20/2013 8:48 AM, Steve Comstock wrote: edpat dcx'4020202020202020202020202020202020' All three tries at an edit mask so far have been flawed. FSVO 'flawed' If the OP really wants UNPK with leading zeroes, Ah, there we are in the dark, aren't we? The OP did not really specify, although his result will be with leading zeroes. the mask should start with F0,or if a non-blank output for a zero value is wanted, the last two bytes should be 2120. Agree The 4020.2021 suggestion doesn't result in non-blanks for a zero value. True Gerhard Postpischil Bradford, Vermont -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: COBOL listserv?
On 3/25/2013 9:17 AM, Bill Ashton wrote: Hi guys...I have been asked to do some COBOL coding, and I have not done some for quite a few years. Is there a COBOL listserv available, and is there any other website that would have recommended best practices? For example, I used to try to code all my working storage under a very few 01 levels, to keep the storage contiguous. I now see lots of 77 levels in sample programs. Which is better and why - can someone point me toward a best practices website? Well, there are some short pieces here: http://www.trainersfriend.com/General_content/VSP_site.htm I wrote these then got other directed, never came back to finish them up. There is a COBOL newsgroup; so get yourself a newsgroup reader and find 'em. They used to be fairly active. I haven't been there since AOL stopped supporting newsgroups, which has been quite a few years now. (something like comp.lang.cobol). -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: "The digital arms trade", article in the Economist, 2013 March 30
On 4/2/2013 2:21 PM, John Gilmore wrote: This piece will repay your attention. It is the first open-literature discussion of the market for 'exploits' and who is selling what to whom for how much that I have seen. An 'exploit' is a piece of software that can be used by its developer or a purchaser to penetrate a computer that is using software that has a 'vulnerability', i.e., a design defect, that can be exploited to do so. The largest market---governments are among the customers in it--is for Internet Explorer exploits, but the one for Chrome exploits is growing. There is no discussion of z/OS exploits, but I do not find this reassuring. Our turn will certainly come. John Gilmore, Ashland, MA 01721 - USA Do you have a link for an online version? -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Packed decimal and sign nibble
On 4/24/2013 8:43 AM, Phil Smith wrote: Suppose you have values that you're converting between character and packed decimal, in both directions at various times. You're a middleman, so you don't know what the application is going to be using the values for. For a non-negative value, packed decimal could be either positive or unsigned. Note that character decimal can also be positive or unsigned. PACK and UNPK preserve the sign settings in both directions What do folks usually do? Is it normal for code to actually care? That is, if we say "Heck with it, we can't tell, so we'll just mark it positive", is that likely to cause problems? Or is use of unsigned rare enough that this is essentially a non-issue? (Hint: I'd like that last to be the case!) Obviously a "sign=" value could be passed around with the value, but that kind of metadata isn't in the stream now, so I'd rather not add it. Any and all ideas gratefully accepted... ...phsiii [Note: this is an experiment with Thunderbird, not explicitly setting the Reply-to, so you may need to reset.] -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Packed decimal and sign nibble
On 4/24/2013 9:19 AM, John Gilmore wrote: My understanding of the difference between unsigned and signed packed decimal values is that the rightmost sign nibble in a signed packed value is occupied by a digit in an unsigned value. Consider a four-byte value. The hardware interprets a signed value as |d|d|d|d|d|d|d|s|, a precision of 7 decimal digits. and an unsigned one as |d|d|d|d|d|d|d|d|, a precision of 8 decimal digits. No. The hardward does not recognize any such animal as an unsigned packed decimal digit. All packed decimal data carries a sign in the rightmost hex digit; x'A', x'C', x'E', and x'F' are considered to be positive, x'B', x'D' are considered to be negative, x'0'=x'9' are considered invalid and will abend you if you try to use such data in any packed decimal operation. They are thus easy to distinguish: the decimal digits are in the sequence , 0001, . . . 1001; and the signs are the [logically] larger four-bit values. Vide pp. 9-2ff of the PrOp. I do not recommend mixing them. The OP is not considering mixing them but is considering the vagaries of converting between packed and character numeric strings. John Gilmore, Ashland, MA 01721 - USA -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Packed decimal and sign nibble
On 4/24/2013 9:19 AM, Bernd Oppolzer wrote: My COBOL experience dates from the mid 80s, but - I would suggest to always use signed values with comp-3 (packed), and to mark values as positive, that have no explicit sign information My sense is the OP is not necessarily working in COBOL; probably Assembler. And some questions: - is it possible today to have comp-3 values in COBOL, that have no sign nibble? In PL/1, for example, it is NOT possible to do this ... you have the UNSIGNED attribute only for BIN FIXED numeric data, not (yet) for DEC FIXED (CP et al. cannot handle unsigned decimal data). No. Comp-3 (or, better in today's COBOL, packed-decimal) data will always have a sign nibble; but if you do not include an 'S' in the PICTURE clause, the compiler adds code to force the sign to always be positive after any arithmetic operation. - if so, the generated CLC which compares such packed fields without sign nibbles with fields which have sign nibbles would yield very strange results ... The compiler generates CLC for compares between unsigned packed-decimal data; if at least one of the comparands is signed, the CP instruction will be used, and works just fine, thank you. - I believe that you must make sure that CPs are generated for such comparisons, because it's always possible that you get F sign nibbles instead of C for positive signs (after PACK), and they should compare OK - and only CP tolerates different sign nibbles Kind regards Bernd Am 24.04.2013 16:43, schrieb Phil Smith: Suppose you have values that you're converting between character and packed decimal, in both directions at various times. You're a middleman, so you don't know what the application is going to be using the values for. For a non-negative value, packed decimal could be either positive or unsigned. What do folks usually do? Is it normal for code to actually care? That is, if we say "Heck with it, we can't tell, so we'll just mark it positive", is that likely to cause problems? Or is use of unsigned rare enough that this is essentially a non-issue? (Hint: I'd like that last to be the case!) Obviously a "sign=" value could be passed around with the value, but that kind of metadata isn't in the stream now, so I'd rather not add it. Any and all ideas gratefully accepted... ...phsiii -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Packed decimal and sign nibble
Fixing some typos in my own response: On 4/24/2013 9:34 AM, Steve Comstock wrote: On 4/24/2013 9:19 AM, John Gilmore wrote: My understanding of the difference between unsigned and signed packed decimal values is that the rightmost sign nibble in a signed packed value is occupied by a digit in an unsigned value. Consider a four-byte value. The hardware interprets a signed value as |d|d|d|d|d|d|d|s|, a precision of 7 decimal digits. and an unsigned one as |d|d|d|d|d|d|d|d|, a precision of 8 decimal digits. No. The hardward does not recognize any such animal as an unsigned packed decimal digit. All packed decimal data carries a sign in the rightmost hex digit; x'A', x'C', x'E', and x'F' are considered to be positive, x'B', x'D' are considered to be negative, x'0'=x'9' are considered invalid and will abend you if you try to use such data in any packed decimal operation. should be: No. The hardware does not recognize any such animal as an unsigned packed decimal data item. All packed decimal data carries a sign in the rightmost hex digit; x'A', x'C', x'E', and x'F' are considered to be positive, x'B', x'D' are considered to be negative, x'0'-x'9' are considered invalid and will abend you if you try to use such data in any packed decimal operation. They are thus easy to distinguish: the decimal digits are in the sequence , 0001, . . . 1001; and the signs are the [logically] larger four-bit values. Vide pp. 9-2ff of the PrOp. I do not recommend mixing them. The OP is not considering mixing them but is considering the vagaries of converting between packed and character numeric strings. John Gilmore, Ashland, MA 01721 - USA -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Packed decimal and sign nibble
On 4/24/2013 10:19 AM, Joel C. Ewing wrote: Like Steve my first reaction was also that the hardware only knew about signed packed decimal and that unsigned packed was just a software convention; but I looked at z10 Principles of Op, and it explicitly defines both signed and unsigned packed decimal as zArchitecture data formats. In addition to the ancient Move With Offset, which POp mentions as user of unsigned packed, apparently some of the newer Decimal Floating Point instructions (Convert To/From Unsigned Packed) also work with unsigned packed decimal values. Since MVO never really cared about nibble content at all, it seems a stretch to say it represents support for packed decimal, signed or unsigned; but the newer DFP instructions, which actually force/require valid decimal nibbles, are clearly true hardware support for unsigned packed decimal. OK, fair enough. I went back to the POO and re-read. Kind of a travesty, in my mind. I consider so-called "unsigned packed decimal" to be just a convention; as you say, it's support by MVO is really no more than the support MVO has for any arbitrary bit string; and as an operand for the instructions to convert between decimal floating point and packed decimal, the result of CUDTR and CUXTR instructions is found in a register, not in storage. So-called "unsigned packed-decimal" data is mis-leading at best because it cannot be used in any packed decimal arithmetic or compare operations. It's just a string of hex digits each of which are between x'0' and x'9'. Not related at all to the OP, at any rate. Joel C Ewing On 04/24/2013 10:34 AM, Steve Comstock wrote: On 4/24/2013 9:19 AM, John Gilmore wrote: My understanding of the difference between unsigned and signed packed decimal values is that the rightmost sign nibble in a signed packed value is occupied by a digit in an unsigned value. Consider a four-byte value. The hardware interprets a signed value as |d|d|d|d|d|d|d|s|, a precision of 7 decimal digits. and an unsigned one as |d|d|d|d|d|d|d|d|, a precision of 8 decimal digits. No. The hardward does not recognize any such animal as an unsigned packed decimal digit. All packed decimal data carries a sign in the rightmost hex digit; x'A', x'C', x'E', and x'F' are considered to be positive, x'B', x'D' are considered to be negative, x'0'=x'9' are considered invalid and will abend you if you try to use such data in any packed decimal operation. They are thus easy to distinguish: the decimal digits are in the sequence , 0001, . . . 1001; and the signs are the [logically] larger four-bit values. Vide pp. 9-2ff of the PrOp. I do not recommend mixing them. The OP is not considering mixing them but is considering the vagaries of converting between packed and character numeric strings. John Gilmore, Ashland, MA 01721 - USA -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Packed decimal and sign nibble
On 4/24/2013 11:01 AM, John Gilmore wrote: The PrOp says: | There are two signed-decimal formats, | signed-packed and unsigned-packed. This is clear. It is also clear that mixing them combined with data-type punning can lead to disaster. Finally, it is clear that Mr. Comstock is not so well read in the current, i.e., 2008, PrOp as he should be. He and others should do their homework before they pontificate. In one of John McCarthy's favorite apothegms: Do the math or shut up. Interesting defensive position, John. Attacking in defense of your fastidiousness. I would not call my posts 'pontificating'; I thought we were having a discussion, some give and take, if you will. I actually had read that stuff about unsigned packed decimal some years ago but decided to ignore it because it was not practical from the standpoint of the audience I work with, z/OS applications developers. Perhaps I was wrong in that perception. Let me put it out now: how many people are using decimal floating point in Assembler? I suppose there are some who use it from a high level language, most likely Java, but I suspect it has not caught on in a big way yet, in any language. Clearly the OP was not including what I think I will start calling 'pseudo-packed-decimal' in his question. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Packed decimal and sign nibble
On 4/24/2013 12:43 PM, John Gilmore wrote: zMan accuses me of 'pissiness'. In fact I posted a neutral technical exposition of the two packed-decimal formats. Mr Comstock responded with, "No, ". Now he and others are free use words as they please. There is august precedent for doing so. As Lewis Carroll wrote in TtLG, "When I use a word," Humpty Dumpty said, in a rather scornful tone, "it means just what I choose it to mean—neither more nor less." Still, this forum is [mostly] about zArchitecture machines, and for them there are two packed-decimal formats. My own view of the packed-decimal data type was never enthusiastic and is now very negative. Awww. Storage-to-storage arithmetic was always obscene, but there was a sort of rationale for its use in some business applications: HFP and BFP can yield rounding results that surprise the uninitiated. Mike Cowlishaw's DFP has now dealt definitively with these problems, and any rationale for doing even business arithmetic in anything but DFP has now also been removed. Well, unless you need to work with numeric entities that already exist in non-DFP format, or data that is accessed from programs written in languages that don't [yet] support the DFP format. Of course, those objections are trivial to you, so we'll pass them by. The question how many people use DFP in assembly language is one that I do not really know the answer to. I should guess not many, but that is only a guess, and I myself use it routinely. (It is rather easier to use in assembly language than HFP, and both it and BFP make available conversion instructions the absence of which was the chief obstacle to the use of HFP in assembly language.) Ah, see, now we are talking about something we can focus on objectively, and I'm sure I can learn from you. So, you use DFP routinely. Let me ask, in your code where you use DFP, what format is your data in initially? Does it come to your program in zoned decimal, [classic] packed decimal, binary, HFP, BFP? Or do you only deal with data that is either stored in DFP or data your program defines internally? The way I read the Pops (if you prefer to 'POO'), to get data into DFP, if it is not already in that format, you have to convert from one of these formats: a signed binary integer (fullword or doubleword in a GPR) an unsigned binary integer (fullword or doubleword in a GPR) an eight byte [classic] packed decimal string (in a GPR) a 16 byte [classic] packed decimal string (in a pair of GPRs) an eight byte 'unsigned packed decimal' value (in a a GPR) a 16 byte 'unsigned packed decimal' value (in a pair of GPRs) of course, none of these source formats is available from standard data entry sources (i.e.: keyboards, scanners); ultimately, user data gets into the system by keying or scanning which usually results in character strings in some encoding (most typically EBCDIC). To go from character string to a format that can then be converted to DFP requires, at the least, a PACK instruction. The result there is classic packed decimal, which you could then load into a GPR and thence convert to DFP. Is that the approach you take, then, in your code? Just curious. If there is any significant feeling that I should withdraw from this list too, I am quite willing to do so. It can survive handily without me and I without it. Now now, you're not going to let others dictate your actions are you? Are you a man or a mouse, John? (of course, that may depend on your definitions, as you reference above.) John Gilmore, Ashland, MA 01721 - USA -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Packed decimal and sign nibble
On 4/25/2013 8:01 AM, Tom Marchant wrote: On Wed, 24 Apr 2013 10:38:06 -0600, Steve Comstock wrote: So-called "unsigned packed-decimal" data is mis-leading at best because it cannot be used in any packed decimal arithmetic or compare operations Unsigned-Packed-Decimal was introduced in the sixth edition of the z/Architecture Principles of Operation, SA22-7832-05, along with the Decimal-floating-point facility. The publication date is April, 2007 I understand, I saw. I'm just saying the term is misleading, not-well chosen. But it is what it is, and it is official, so I'll use the term, but only with a slight snarl on my lips. :-) -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FW: Packed decimal and sign nibble
On 4/25/2013 7:56 AM, Elardus Engelbrecht wrote: Clark Morris wrote: There are 66 products that MXG Supports whose SMF/similar data records contain numeric data in that format. What SMF records? Which SMF records have packed decimal without the sign nibble. I don't recall that the 14, 15, 17, 18, 26, 30 or 60 series have that weird format. Neither me. I see in SMF fields like date (0cyydddF) and time (100th of second) for example in packed format. But I'm wondering about SMF21TUS for example which is documented as packed, but layout of contents are not documented. Topic drift: What is the difference between SMF21BRN (unsigned binary) and SMF21BW (binary) in terms of format layout? Groete / Greetings Elardus Engelbrecht Well, forever, the TIME macro with the DEC option has returned the time in packed-decimal-with-no-sign as: HHMMSSTH in R0 Maybe some SMF records use that output. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IBM Enterprise COBOL V5 announced
On 4/25/2013 3:43 PM, John Gilmore wrote: I had hoped that the Enterprise COBOL support for DFP that is apparently in the womb of time would make it into this release, but no . . . Still, COBOL is now a much better language than an examination of most of the source programs written it it would suggest. John Gilmore, Ashland, MA 01721 - USA Probably because the programmers haven't been trained in the latest features and capabilities. :-) -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IBM Enterprise COBOL V5 announced
On 4/25/2013 4:11 PM, John Gilmore wrote: It is certainly because they have not been adequately trained to use what Enterprise COBOL has to offer; but the situation is worse: many shops actively discourage the use of its newer facilities. John Gilmore, Ashland, MA 01721 - USA You're right there. I've seen it myself many times. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Packed decimal and sign nibble
On 4/25/2013 4:13 PM, Frank Swarbrick wrote: That's useful to know. We communicate with Visa and they use this format for many of the fields in their messages. Currently we use some overly clever COBOL to convert these to DISPLAY (zoned decimal) format. When I have time I'll see if I can write a little asm routine to use CDUTR andCSDTR for this. I guess I would have to follow a CDUTR with a CSDTR to convert it to signed-packed, and then use UNPK (if desired) to get it to zoned decimal. Interesting. Hmm. Maybe ED instead of UNPK, I think. From: Tom Marchant To: IBM-MAIN@LISTSERV.UA.EDU Sent: Thursday, April 25, 2013 8:01 AM Subject: Re: Packed decimal and sign nibble On Wed, 24 Apr 2013 10:38:06 -0600, Steve Comstock wrote: So-called "unsigned packed-decimal" data is mis-leading at best because it cannot be used in any packed decimal arithmetic or compare operations Unsigned-Packed-Decimal was introduced in the sixth edition of the z/Architecture Principles of Operation, SA22-7832-05, along with the Decimal-floating-point facility. The publication date is April, 2007 -- Tom Marchant -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IBM Enterprise COBOL V5 announced
On 4/26/2013 3:10 PM, John Gilmore wrote: I am glad that Tony Harminc responded to Frank Swarbrick's question, and his Cowlishaw reference is an excellent one. There is another, summary answer to Frank's question. All arithmetic that is currently done in packed decimal can better and should be done instead in DFP. John Gilmore, Ashland, MA 01721 - USA Tweet! Time out! OK, John, in what sense can existing arithmetic done in packed decimal being converted to DFP be considered "better"? More accurate? Faster? More aesthetically pleasing? Simpler to code / understand / maintain? And 'should'? Really? Is that intended as a moral imperative? Is there a business case for converting existing records with packed decimal into DFP and then converting the code to work with that? Using any language other than Assembler? Hmmm. Who's imperious here? Who's practical? -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: PDS searches
On 4/29/2013 2:40 PM, Graham Hobbs wrote: Hello, Another question .. I have four PDS's of copybooks, pgms, sysexec, proclib. I'd like to search the four for something. Have looked at 3.14 and 3.15 but seems that I can only search one PDS at a time. Is this the case, have I missed something? Please, thanks, Graham Hobbs If you use 3.4 to get a list, then from the command line of the dslist you can issue the 'append' command to add additional lines. Suppose you do a 3.4 like: Dsname Level .. dept53.copy you get the list; then from the command line of this list: ===> append 'dept53.sysexec' followed by ===> append 'dept53.proclib' followed by ===> append 'dept53.source' or whatever the names; now you have a dataset list of all data sets that meet your name criteria. If you specify fully qualified names you will get your four data sets. Now you can issue 'srchfor' or 'member' or a wide selection of other commands and the commands will be worked against all datasets in the list. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: PDS searches
On 4/29/2013 2:48 PM, Don Poitras wrote: In article <3FBE8841A32941B492C2148EABF8D156@graham> you wrote: Hello, Another question .. I have four PDS's of copybooks, pgms, sysexec, proclib. I'd like to search the four for something. Have looked at 3.14 and 3.15 but seems that I can only search one PDS at a time. Is this the case, have I missed something? Please, thanks, Graham Hobbs Create a workplace list and use the 'sf' line command. Put '=' on the other datasets. Hit enter and the first set of hits will show up. Each time you hit 'end' the next set will appear. This also works on ISPF 3.4, but that would require the pdses to have some common naming convention. Not true. See my post. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: PDS searches
On 4/30/2013 6:48 AM, Hunkeler Peter (TLSG 4) wrote: Create a workplace list and use the 'sf' line command. I didn't know about the "sf" line command. I'm using the "SRCHFOR" *primary* command in either a 3.4 or workplace data set list, or in a member list. Runs through all the data sets or members, resp., in the list, finally returning a "String(s) found" message on each line where the text was found. What is nice is that it automagically fills your search arguments into the edit/browse find string. So after a "srchfor", simply edit/browse the data set / member and hit F5 (RFIND) to find the occurrences within. Use "srchfor" without argument to see a pop (different for dsn-list and member list). you can change some settings there and you can enter more than one search argument. ISPF has got so many good commands. It's a pity you don't find them easily. You've just got to know them, or know someone who knows them :-( http://www.trainersfriend.com/TSO_Clist_REXX_Dialog_Mgr/a633descrpt.htm http://www.trainersfriend.com/TSO_Clist_REXX_Dialog_Mgr/a634descrpt.htm http://www.trainersfriend.com/TSO_Clist_REXX_Dialog_Mgr/a635descrpt.htm Or, of course, spend some time perusing the docs each time a new release comes out. -- Peter Hunkeler -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TNLs (Was: PDS searches)
On 4/30/2013 1:17 PM, Ed Jaffe wrote: On 4/30/2013 6:00 AM, Steve Comstock wrote: ... spend some time perusing the docs each time a new release comes out. It seems that most people are too busy these days to read the Release Information books. Some folks still only use commands they learned in the 1980s. One good thing about TNLs was that applying them focused you in on what was new. Wow! That brings back memories. What a pain they could be. But, as you say, you at least had the opportunity to focus on the changes. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Mixing C and assembler - under OpenMVS
On 5/1/2013 9:27 AM, Etienne Thijsse wrote:
Hi all,
I am trying to call an assembler function from C:
C-code (bla.c):
#pragma linkage(BLA,OS)
main()
{
BLA();
printf("No crash.\n");
}
Assembler code (bla1.s):
BLA CSECT
BLA MODE ANY
SAVE (14,12)
BALR3,0
USING *,3
ST13,SAVE+4 <<<<< crashes here
* todo: add useful code here
L 15,=X'01'
L 13,SAVE+4
RETURN (14,12),RC=(15)
SAVE DS 18F
END
So the only code in this assembler source is the "standard linkage" stuff,
which I got from the "MVS Assembler Language" book.
Ummm. Which book is that? There is the MVS Assembler Services Guide
and the MVS Assembler Services Reference (2 volumes), but I don't
see 'MVS Assembler Language' as a doc.
In any case, none of the examples in these books quite match
what you show.
Perhaps your cut and paste is off, but at the least
'MODE' should be 'AMODE'; it's pretty unusual, but not wrong,
to choose reg. 3 for your base. A more traditional version
might be:
BLA CSECT
BLA AMODE ANY
SAVE (14,12)
LR 12,15
USING BLA,12
ST 13,SAVE+4 <<<<< crashes here
* todo: add useful code here
L 15,=X'01' <== not sure what you intend to happen here
<== perhaps better:
LA 15,1 <== would give a return code of '1'
L 13,SAVE+4
RETURN (14,12),RC=(15)
SAVEDS 18F
END
Still, I don't see any clear reason for your abend.
I compiled and linked this under OpenMVS like this:
cc bla.c bla1.s
which gives me an executable 'a.out' in the HFS.
Running this under OpenMVS crashes in the "ST13,SAVE+4" line, SC04.
If I comment out that line and the corresponding L13,SAVE+4 line, it does not crash
anymore.
I don't understand this... This ST line is part of the standard linkage
'protocol'; the area where the ST stores is declared in the SAVE DS 18F line at
the bottom --- Why does this crash?
What is weirder still is that I can copy a.out to a PDSE member, and submit it
with some JCL that has CEE.SCEELIB in its STEPLIB; this does not crash, without
SCEELIB it also crashes.
Adding CEE.SCEELIB to the STEPLIB environment variable in OpenMVS however does
not help, it keeps crashing, SC04.
Anyone have an idea?
Thanks,
Etienne
1. What version of z/OS are you running?
2. The z/OS UNIX Command Reference doc points out that 'cc' command
"is fully supported for compatibility with older UNIX systems.
However, it is recommended that the c89 command be used instead"
3. The default binder option is, essentially, NORENT, so the other
suggestion of an extra step to bind this way is not necessary
You might check out the values in the environment variables that
influence how the c89 command works.
--
Kind regards,
-Steve Comstock
The Trainer's Friend, Inc.
303-355-2752
http://www.trainersfriend.com
* To get a good Return on your Investment, first make an investment!
+ Training your people is an excellent investment
* Try our tool for calculating your Return On Investment
for training dollars at
http://www.trainersfriend.com/ROI/roi.html
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Mixing C and assembler - under OpenMVS
On 5/1/2013 10:48 AM, Thomas David Rivers wrote: Etienne Thijsse wrote: Anyone have an idea? Thanks, Etienne By default, programs executed under OpenMVS are loaded into non-modifiable storage. The ST instruction you mention is writing to the program memory (not allocated memory) and thus your program blows up. You can get OpenMVS to load your program into modifiable storage by setting this environment variable: _BPX_PTRACE_ATTACH=YES export _BPX_PTRACE_ATTACH then your program should work just fine (as would any non-RENT program.) - Dave Rivers - Ah, good point, Dave. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Check whether job still running
On 5/1/2013 11:45 AM, Frank Swarbrick wrote: If one explicitly wants to force a set of jobs to run sequentially can't theyjust be submitted to a class that has only a single initiator? That seems to me to be a much better solution than depending on job names. Maybe. But if the class is managed by WLM, there is at least some chance jobs may not run in the order they were submitted. At least I think that's the case (perhaps someone more familiar with WLM can confirm or deny that understanding). From: Joel C. Ewing To: IBM-MAIN@LISTSERV.UA.EDU Sent: Wednesday, May 1, 2013 10:07 AM Subject: Re: Check whether job still running Granted, production job schedulers are not a good fit if this is a one time job sequence from an application programmer or from some other user who would rightly lack update access to or full understanding of production control. If it is a frequently used job sequence and the user only needs to control when it is initiated and perhaps supply data to the jobs, then there are reasonable ways to put the jobs under a job scheduler and production control and give the application person a way to supply data and initiate the job sequence. If this level of job control is a persistent need by application programmers or other users for one-time job sequences, I would create canned JCL examples and/or PROCs and documentation showing how to submit "next job" JCL from a user-supplied data set or PDS member from within another job, with examples of how to use IF-THEN-ELSE JCL to conditionally fire the next job and send a message to the user if that were skipped. As long as you steer clear from trying to use in-stream JCL data to supply the next job JCL (which quickly becomes confusing as to which JCL goes with which job) and instead get the JCL from a data set, this is not a complicated process to document, and would seem to be a far simpler, more efficient, and safer solution than relying on data set enqueues or tying to ascertain the status of one job from another. This potentially means that a follow-up job may end up further down in the input queue than if submitted at the same time as the first job, but I suspect other users of the system would consider that "more fair" if they were competing for the same initiators. JC Ewing On 05/01/2013 09:43 AM, Farley, Peter x23353 wrote: Not just your shop, John. Access to actually create or modify a job schedule here is restricted to operations personnel. IMHO, a real production scheduler is usually way overkill for a programmer wanting to set up a few ad-hoc job sequences, not to mention that (in my experience) companies don't usually bother to teach programmers how to use production schedulers anyway. The comment earlier in this discussion (or the other similar thread) about changing the DUPEJOB setting for JES2 to allow duplicate-named jobs to execute simultaneously would be entirely counter-productive here, since submitting your series of 10 compile and link jobs (all with the same job name) would entirely flood the few initiators permitted for this purpose, locking out all the other hundreds of programmers from that scarce resource. One duplicate at a time measures out a very scarce resource in the fairest manner, or at least in *a* fair manner. Still, it would be nice to have the JES3 job networking capability. Not likely to go JES3 here though. Peter -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of John McKown Sent: Wednesday, May 01, 2013 10:05 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Check whether job still running I don't know if it is a general "problem" or only one around here (due perhaps to ignorance), but in most cases, a programmer cannot _easily_ add an "ad hoc" series of jobs to our CA7 system and schedule them. Not to mention that the programmers don't generally have that level of knowledge any way. I am not very JES3 literate, but I've heard that it solves this problem with DJC (Dependent Job Control). And, of course, not letting a job into an initiator when it would cause a "JOB WAITING FOR DATA SETS" message. ... -- Joel C. Ewing,Bentonville, AR jcew...@acm.org -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Mixing C and assembler - under OpenMVS
On 5/1/2013 1:08 PM, retired mainframer wrote: :>: -Original Message- :>: From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On :>: Behalf Of Steve Comstock :>: Sent: Wednesday, May 01, 2013 9:43 AM :>: To: IBM-MAIN@LISTSERV.UA.EDU :>: Subject: Re: Mixing C and assembler - under OpenMVS :>: :>: Ummm. Which book is that? There is the MVS Assembler Services Guide :>: and the MVS Assembler Services Reference (2 volumes), but I don't :>: see 'MVS Assembler Language' as a doc. How about SC26-4940-05 (for my 1.11 system), "High Level Assembler for z/OS & z/VM & z/VSE Language Reference Release 6" Well, that's a fine book, but it does not have anything in it about linkage conventions; that's what the 'MVS' in the title would imply, since linkage conventions are dependent on the operating system you are working with. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: "as" OpenMVS assembler always gives ASMA935U
On 5/2/2013 7:04 AM, Etienne Thijsse wrote: Hi All, I am compiling an assembler source under OpenMVS. Using the C compiler, this is no problem, I can do cc -c bla.s which gives me an object named bla.o. But the assembler "as" will not do this, it keeps giving me the error ** ASMA935U One or more required files not available without telling me what file(s) these are :-( The command is (I think): as -o bla.o bla.s The reason I want to use "as" instead of cc is that as has the -I option with which you can specify a macro library; I need to use an IMS macro in IMS.SDFSMAC. I have not found any cc option that can do this. The UNIX System Services Command Reference documents this -I option. But it is lacking an example use of "as". Thanks, Etienne Well there is a default set of maclibs implicit in the command: the concatenation of CEE.SCEEMAC, SYS1.MACLIB, SYS1.AMODGEN; perhaps one of these is not available; you can change the list by exporting a new list in _AS_MACLIB -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: "as" OpenMVS assembler always gives ASMA935U
On 5/2/2013 7:26 AM, Etienne Thijsse wrote: On Thu, 2 May 2013 07:17:00 -0600, Steve Comstock wrote: Those three are all available. And I changed _AS_MACLIB to just IMS.SDFSMAC, there was no change. I think "as" is complaining about something else... if it would just say which those required files are... The C compiler does assemble the source, but it doesn't look at _AS_MACLIB; I tried that; it still says "Undefined operation code" on the macro. perhaps adding the verbose option would give more info: as -o bla.o --verbose bla.s just a guess. Thanks, Etienne Well there is a default set of maclibs implicit in the command: the concatenation of CEE.SCEEMAC, SYS1.MACLIB, SYS1.AMODGEN; perhaps one of these is not available; you can change the list by exporting a new list in _AS_MACLIB -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: "as" OpenMVS assembler always gives ASMA935U
On 5/2/2013 8:06 AM, Etienne Thijsse wrote: Great, this works :-) _C89_SSYSLIB=CEE.SCEEMAC:SYS1.MACLIB:SYS1.MODGEN:IMS.SDFSMAC export _C89_SSYSLIB c89 -c bla.s Thanks! Etienne Glad you were able to solve your problem. So the analogous process for 'as' would be: _AS_MACLIB=CEE.SCEEMAC:SYS1.MACLIB:SYS1.MODGEN:IMS.SDFSMAC export _AS_MACLIB as -o bla.o bla.s would you try this and see if it works? Thanks. On Thu, 2 May 2013 15:48:43 +0200, Miklos Szigetvari wrote: Hi Never used "as", we are using the c89 to compile assembler modules and the _C89_SSYSLIB envar can specify the SYSLIB concatenation. - "man as" gives me a detailed description of the "as" command - the c89 "-v" option generates the so called "pseudo JCL", maybe important to see the used files etc On 02.05.2013 15:04, Etienne Thijsse wrote: Hi All, I am compiling an assembler source under OpenMVS. Using the C compiler, this is no problem, I can do cc -c bla.s which gives me an object named bla.o. But the assembler "as" will not do this, it keeps giving me the error ** ASMA935U One or more required files not available without telling me what file(s) these are :-( The command is (I think): as -o bla.o bla.s The reason I want to use "as" instead of cc is that as has the -I option with which you can specify a macro library; I need to use an IMS macro in IMS.SDFSMAC. I have not found any cc option that can do this. The UNIX System Services Command Reference documents this -I option. But it is lacking an example use of "as". Thanks, Etienne -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Kind regards, / Mit freundlichen Grüßen Miklos Szigetvari Research& Development ISIS Papyrus Europe AG Alter Wienerweg 12, A-2344 Maria Enzersdorf, Austria T: +43(2236) 27551 333, F: +43(2236)21081 E-mail: miklos.szigetv...@isis-papyrus.com Info: i...@isis-papyrus.com Hotline: +43-2236-27551-111 Visit our brand new extended Website at www.isis-papyrus.com --- This e-mail is only intended for the recipient and not legally binding. Unauthorised use, publication, reproduction or disclosure of the content of this e-mail is not permitted. This email has been checked for known viruses, but ISIS Papyrus accepts no responsibility for malicious or inappropriate content. --- -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Return codes
On 5/8/2013 11:53 AM, Mark Jacobs wrote: While there's no hard and fast rule, i.e. nothing prevents you from generating any return code from your programs, it's a tradition that return codes are a multiple of 4. 0 - Normal 4- Warning 8 - Error 12 - Severe Error 16 - Terminal Error Which historically allowed you to handle return codes by using a branch table, if you invoked the service from an Assembler program. Mark Jacobs From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Ron Thomas [ron5...@gmail.com] Sent: Wednesday, May 08, 2013 1:45 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Return codes Hi , Can some one let me know why the return code generated is a mutilple of 4? e.g 4,8,12,16 Thanks, Ron T -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
