Error in a simple COBOL program

I can't directly use the link to look at the RFE, but COBOL V5+ already uses DFP instructions (I don't know if that should be "at least some") with OPT 1 or 2 and ARCH(10) or higher. Their uses is mentioned in the COBOL tuning guides, which are PDFs which can be linked from the presentation of

Error in a simple COBOL program

Andy, The S0C1 with that exact set-up does not "normally" happen in COBOL (by which I mean, by COBOL running in batch). COBOL programs are not "normally" run under TSO. There is an explicit run-time message which explains the issue. The S0C1 is unexpected. It is some artefact of running that

Re: Mainframe Testing

On 13/07/2016 1:29 PM, Wayne Bickerdike wrote: Does anyone on the list use Workload Simulator for testing, load testing, regression testing? Wayne, You might want to ping your old landlord Alan offline. He's our expert on the floor. He's globe trotting around Europe with his family at the

Error in a simple COBOL program

Steve, I'm not sure what was difficult about the question. The intent behind it is "if when next I see reference to a non-COBOL PIC, if it happens to be 11, I know whether it means 11 or 17". Is it somehow a question which can only be asked when the answer is needed? "Hey, it's 0-9, who gives a

Re: Mainframe Testing

Does anyone on the list use Workload Simulator for testing, load testing, regression testing? I've been asked to possibly run a course and develop coursework on WSIM. Since IBM outsourced all their training, it appears that this one isn't covered. Was there ever a formal training course for

Re: issue WTOR if surrogat ID submits a job

Do you really want the operators involved in this? They have enough work to do. Consider cancelling the job period. Ed > On Jul 11, 2016, at 11:41 PM, Munif Sadek wrote: > > Hi > > > We are JES2, z/OS 2.1 and would like batch to issues a WTOR (Confirm Y/N ?) > if a

Re: Error in a simple COBOL program

Hi Peter, Bill Klein actually submitted a SHARE requirement for Decimal Floating Point, and it's now an 'Uncommitted candidate' on the RFE system - https://www.ibm.com/developerworks/rfe/execute?use_case=viewRfe_ID=89952, so it's actually closer than you might think. Cheryl Watson

Re: SMF type 89 records reporting RMF usage

Somehow we got dinged on this, maybe it was MULC. We had recently done a CMF conversion and it kept showing up in one of the usage reports but the task(s) were not active. I'm fairly certain that we had RMF enabled in IFA and had CMF also running but no RMF tasks active. From: Al

Re: SMF type 89 records reporting RMF usage

SCRT only reports on products. It does not report features of products. AND SCRT only reports on products it knows to be IBM Sub-Capacity products. So SCRT does not report on RMF, just as SCRT does not report on IMS TM or IMS DB. It only reports IMS as a product. As Cheryl wrote if you

Re: Error in a simple COBOL program

On 07/12/2016 05:27 PM, Bill Woodger wrote: Well, I guess my question was, then, is the 1 in PIC 1, base 10 or base 16? I now know it to be base 16. I think. -- For IBM-MAIN subscribe / signoff / archive access instructions,

Re: Error in a simple COBOL program

On Tue, 12 Jul 2016 00:04:15 -0500, Bill Woodger wrote: . . . > >There are no S0C1s from COBOL IO. > For the reason that I explained previously, a missing DD statement can cause S0C1. As far as I am concerned, that should never happen, but I know it is an easy mistake

Re: Considering Enterprise COBOL 5.2 "exit" enhancements

Hi, it's me. My general thoughts are: - This type of syntax is supported in a host of other programming languages. (see below for examples) - Is it really confusing? For me its more confusing doing all the things that I've done up to this point because COBOL (prior to the 2002 standard) did

Error in a simple COBOL program

Good-oh. ARCH(10) and ARCH(11) use DFP. Perhaps more so in V6, but the Tuning Guides are good on that. May see a question about it yet, then :-) May I expect some Higgs boson could be produced, they are something to do with quantum exceptions? Rats. That's "quantum excitation". Never mind.

Re: Error in a simple COBOL program

Write it in assembler and call it from COBOL. Or bribe the IBM COBOL team to slip in support for Decimal Floating Point variables next year whether it is profitable to IBM or not. Oh, and BIT variables would be cool too. Peter -Original Message- From: IBM Mainframe Discussion List

Error in a simple COBOL program

The PoP gets me wondering how to create a "Simulated Quantum Exception" from COBOL... -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Error in a simple COBOL program

Yes, Ed. That was the reason for me needing to ask which base it was. If it had said PIC C, I'd have wildly assumed it was base 16 (given the two presumed choices). -- For IBM-MAIN subscribe / signoff / archive access

Re: Error in a simple COBOL program

On 7/12/2016 2:27 PM, Bill Woodger wrote: Well, I guess my question was, then, is the 1 in PIC 1, base 10 or base 16? I now know it to be base 16. I think. LOL. One is one in all bases. No? PIC codes are normally expressed in hex. So, a PIC 39 (region-first-translation exception) is

Re: Error in a simple COBOL program

Program Interrupt generally end up as S0Cx abends. Virtual memory interrupts often assign more memory or recall the page from dasd to a memory frame. I/O interrupts handle the completed I/O. etc. On Tue, Jul 12, 2016 at 3:32 PM, Bill Woodger wrote: > Thanks Mike, and now

Error in a simple COBOL program

Well, I guess my question was, then, is the 1 in PIC 1, base 10 or base 16? I now know it to be base 16. I think. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the

Re: Error in a simple COBOL program

The op code is not a "hex value." Hex is a way of representing binary values for easy-to-grasp human consumption: X'D2' is more compact and easier to grasp than 11010010 and a better representation for some purposes than 210. The op code is a value in storage and it simply is what it is. Some

Re: Error in a simple COBOL program

On Tue, 12 Jul 2016 15:32:07 -0500, Bill Woodger wrote: >Thanks Mike, and now Steve as well. It's all knowledge. Now, is that 1 >decimal, or hexadecimal? Is a PIC (non-PICture) a subset of abend-codes (does >it include SB37, S222)? Kind of. MVS turns some program interrupts into S0Cx abends.

Re: SMF type 89 records reporting RMF usage

Sorry... didn't see Peters original ... check ifa member in parmlib to ensure you don't have the rmf enabled Sent from my Verizon Wireless 4G LTE smartphone Original message From: Cheryl Watson Date: 07/12/2016 4:20 PM (GMT-05:00) To:

Error in a simple COBOL program

Thanks Mike, and now Steve as well. It's all knowledge. Now, is that 1 decimal, or hexadecimal? Is a PIC (non-PICture) a subset of abend-codes (does it include SB37, S222)? I should find something to read. OK, got it. Hex, and "10 and above - Program checks associated with system-related

Re: Error in a simple COBOL program

PIC 1 == Program Interrupt Code 1. Occurs when one attempts to execute a Hex value that is not an instruction. Example: X''. If executable code falls into that (or branches to it, or jumps to it) one will get a PIC 1. This then gets converted to a S0C1 on a MVS system (or z/OS for

Re: SMF type 89 records reporting RMF usage

Hi Peter, Usually, RMF does NOT show up on the SCRT report that you create to send IBM. It will show up, however, on their bill coming back (also in Excel format). Where are you seeing it? If it's on the bill, then here is what is happening: 1. When you sign a license for z/OS, you also

Re: Error in a simple COBOL program

I believe that is the Program Interrupt Code 1 as System 360+ hardware defines it. z/OS translates it to Abend S0C1 abend. On Tue, Jul 12, 2016 at 2:48 PM, Bill Woodger wrote: > Just to add, I have absolutely no clue (outside of ICL COBOL) what PIC 1 is. > I'm just an

STORAGE OBTAIN with ADDR= does not set ALET???

SYSSTATE ASCENV=AR,AMODE64=YES STORAGE OBTAIN ,ALET=1,ADDR=(Rx) generates LGR Rx,R1 rather than the expected LAE Rx,0(,R1) Very annoying -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen

Error in a simple COBOL program

Just to add, I have absolutely no clue (outside of ICL COBOL) what PIC 1 is. I'm just an applications person. The world of sysprogs is beyond me, and whilst I always enjoy the conversations here, mostly it is metres above my head :-) In ICL COBOL, PIC 1 defines a bit. PIC 1(3) is three bits,

Error in a simple COBOL program

No, that is not so. COBOL will not attempt a "get" if the file is not open. It will: return the file-status field, or do what is indicated in DECLARATIVES, or give the U4038, depending on the presence or otherwise of FILE STATUS and DECLARATIVES. TRAP(ON) or TRAP(OFF), no S0C1. Someone kindly

Re: IBM sold TWS (IWS) ???

Folks, I have heard through the grapevine that only the development team was sold off. The sales and services arm are still within the IBM TWS group. Regards, Mitch McCluhan mitc...@aol.com -Original Message- From: zMan To: IBM-MAIN

Considering Enterprise COBOL 5.2 "exit" enhancements

Recently, Frank Swarbrick and I have been discussing this down at the COBOL Cafe (how cool does that sound when you say it out loud?). The nub of the topic is the new Formats of the EXIT statement which have been introduced to Enterprise COBOL with V5.2. These are EXIT PERFORM, EXIT PERFORM

Re: Error in a simple COBOL program

On Tue, 12 Jul 2016 11:40:22 -0500, Bill Woodger wrote: >This may be true in Assembler, unless you code otherwise, but it is not true >in COBOL, where the compiler generates the code for you (and uses its >own/LE/"system" routines). The PIC 1 still occurs when a COBOL (or other LE enabled)

Re: IBM Knowledge Centre

Strange! Well, good to know that it's merely buggy, not completely busted. There's hope yet! On 07/12/16 11:52 AM, Styles, Andy , SD EP zPlatform wrote: Funny - this week, the icon has magically appeared :-) Andy Styles z/Series Systems Programmer -- Sue Shumway z/OS Product Documentation

Error in a simple COBOL program

OPEN with no FILE STATUS for the file, and no DECLARATIVES for the file, will get a U4038 if it fails, a Language Environment abend. Yes, having defined a FILE STATUS it should *always* be checked. The consequences of not checking far outweigh any "saving". FILE STATUS cannot prevent/identify

Error in a simple COBOL program

This may be true in Assembler, unless you code otherwise, but it is not true in COBOL, where the compiler generates the code for you (and uses its own/LE/"system" routines). A simple test is to READ a file which is has not been successfully OPENed, or WRITE (a record to) a file which has not

Re: issue WTOR if surrogat ID submits a job

Just to add to Charles ideas, making your operators decision makers isn't a good idea. Are they better than racf who allowed the aurrogation? Get an smf exit to inform you that user a used user's b authority. Corrlog has an agent that does that. Best ITschak. בתאריך 12 ביול 2016 18:43,‏ "Charles

Re: issue WTOR if surrogat ID submits a job

I agree with Charles, you can simply use the SURROGATE class or reinvent the wheel and issue a RACROUTE on exit 52. Also, I believe a WTOR on exit 52 will hold the submitter's TSO session until it's replied. What I may also suggest is to enforce a HOLD on any job with USER= (in exit 52) and

Re: issue WTOR if surrogat ID submits a job

Skip Robinson wrote: >My first thought for validity verification is Exit 6, which we use a lot. >However, that runs in JES2 Main Task. I don't think you can issue WTOR there: >all of JES2 would wait for the reply. In looking through the JES2 exit table

Re: IBM Knowledge Centre

Funny - this week, the icon has magically appeared :-) Andy Styles z/Series Systems Programmer   -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Styles, Andy (SD EP zPlatform) Sent: 07 July 2016 16:11 To: IBM-MAIN@LISTSERV.UA.EDU

Re: IBM sold TWS (IWS) ???

On 7/12/2016 7:07 AM, zMan wrote: For example, the Optim products were quietly sold to Unicom last year. No sign of it on IBM, who can still sell them. So no apparent change for users, just unhappy employees (well, maybe -- some are probably glad to be at a company that's interested in their

Re: issue WTOR if surrogat ID submits a job

> The WTOR is highly problematic for many system tasks. Better a programmed "rule" (in a generic sense of the word; not lobbying for some particular product or technique) than a WTOR. Those pesky humans are slow and unreliable. Charles -Original Message- From: IBM Mainframe Discussion

Re: issue WTOR if surrogat ID submits a job

My first thought for validity verification is Exit 6, which we use a lot. However, that runs in JES2 Main Task. I don't think you can issue WTOR there: all of JES2 would wait for the reply. In looking through the JES2 exit table

Re: subscribing options

The browser I use prepends partial URLs with http://www when what you type does not get resolved, and my newsreader does not render that partial URL as a link. I guess that's not true of everyone's toolset! John McKown wrote: On Tue, Jul 12, 2016 at 8:05 AM, John Eells

Re: subscribing options

On Tue, Jul 12, 2016 at 8:05 AM, John Eells wrote: > So, consider: > > - SET NOMAIL, and use a newsreader (e.g., Thunderbird or Outlook) > - SET NOMAIL, and follow it in Google Groups or via the web interface > - Get the daily DIGEST instead of all the posts > > In all three

Re: IBM sold TWS (IWS) ???

For example, the Optim products were quietly sold to Unicom last year. No sign of it on IBM, who can still sell them. So no apparent change for users, just unhappy employees (well, maybe -- some are probably glad to be at a company that's interested in their product). On Sun, Jul 10, 2016 at 8:30

Re: SMF type 89 records reporting RMF usage

Our SCRT reporting for IBM showed type 89 records that indicted that RMF was used. We do not run RMF, we run CMF. I am looking back at syslogs and SMF data; I am trying to determine what caused that (RMF usage) type 89 record to get cut. It does not appear that the RMF STC was started…

Re: subscribing options

So, consider: - SET NOMAIL, and use a newsreader (e.g., Thunderbird or Outlook) - SET NOMAIL, and follow it in Google Groups or via the web interface - Get the daily DIGEST instead of all the posts In all three cases, don't forget to forward the e-mail to the list server if you want

Re: Error in a simple COBOL program

On Tue, 12 Jul 2016 00:29:08 +, Jesse 1 Robinson wrote: >Unsuccessful open is not necessarily the end of the world... >In my experience, S0C1 is the most likely consequence, I presume because >some location that should contain a valid instruction after open does not. Yes. The address of

Re: retrieving last commands

On 2016-07-12 11:04, Andreas Fischer wrote: is it possible to retrieve the last ispf command within an edit macro written in rexx? i had a brief look in ibm's documentation but didn't found anything helpful. since you can use the retrieve command in panel dialogs the data must be stored

Re: subscribing options

You are right it was just because it was my work e-mail thanks -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of John McKown Sent: Tuesday, July 12, 2016 8:16 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: subscribing options On Tue,

Re: subscribing options

On Tue, Jul 12, 2016 at 6:58 AM, Joe Reichman wrote: > Hi > > > > I would like to subscribe to IBM-MAIN on my Work Email but since its work I > would only like to receive messages that I have posted to as opposed to my > personal e-mail where I receive all messages > > Can

Re: SMF type 89 records reporting RMF usage

RMF is NOT involved in the cutting of SMF 89, just like it isn't in the 30s. (I mention 30s only because they're another source of Usage information.) Cheers, Martin Sent from my iPad > On 11 Jul 2016, at 21:53, Roach, Dennis wrote: > > What makes you think it is part

subscribing options

Hi I would like to subscribe to IBM-MAIN on my Work Email but since its work I would only like to receive messages that I have posted to as opposed to my personal e-mail where I receive all messages Can anyone point me in the direction Thanks

Re: Size default in CEEPRMxx V5R1

Thanks Gonzalo. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Size default in CEEPRMxx V5R1

hi, In the "Programming guide" it says SIZE is an option in the compiler JCL Example: specifying compiler options using JCL The following example shows how to specify compiler options under z/OS using JCL. ... //STEP1 EXEC PGM=IGYCRCTL, // PARM=’LIST,NOCOMPILE(S),OBJECT,FLAG(E,E)’ also there are

Size default in CEEPRMxx V5R1

Hi, We are migrating from cobol V4R2 to V5R1. Some of our test compilations cancel with IGYLI5062-U and we must increase the default SIZE in COBOL options. We want to avoid change this option in the PARM sentence in JCL and set in CEEPRMxx member in PARMLIB, but we can't find the parameter

Re: issue WTOR if surrogat ID submits a job

Itschak Mugzach wrote: >May be a job with a user= in the jobcard that is not the submiter id. I >believe jes exits 5x can do that. Yes, a JES2 exit (nr 5 I think) which scans the JCL statements and when discovering a USER=??? statement, can issue a WTOR. That is *if* you may issue a WTOR in

Re: IBM Knowledge Centre

On 12/07/2016 11:56 AM, Paul Gilmartin wrote: I stumbled on a browser called Lobo, written in Java. It sucks on any platform I've tried it on; not worth agitating my admins to get X11 working on z/OS so I can see whether it compatibly sucks there, also. I've get to see an X11 application

Re: IBM Knowledge Centre

Paul Gilmartin wrote: >I stumbled on a browser called Lobo, written in Java. Lobo development stopped in 2009. Lobo Evolution and gngr are two of Lobo's successors: https://sourceforge.net/projects/loboevolution/ https://gngr.info Back to the John's point, the fact 3270 terminal emulation

Re: issue WTOR if surrogat ID submits a job

May be a job with a user= in the jobcard that is not the submiter id. I believe jes exits 5x can do that. ITschak בתאריך 12 ביול 2016 09:03,‏ "Vernooij, CP (ITOPT1) - KLM" < kees.verno...@klm.com> כתב: > What is "surrogate Batch Id"? > > Kees. > > -Original Message- > From: IBM Mainframe

Re: issue WTOR if surrogat ID submits a job

What is "surrogate Batch Id"? Kees. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Munif Sadek Sent: 12 July, 2016 6:42 To: IBM-MAIN@LISTSERV.UA.EDU Subject: issue WTOR if surrogat ID submits a job Hi We are JES2, z/OS 2.1 and