Re: Enforcing CLASS in instream proc

2018-12-17 Thread Wayne Bickerdike
I thought he wanted the job to be scheduled/rescheduled into a different job class. On Tue, Dec 18, 2018 at 7:33 AM Peter Bishop wrote: > It's not clear what you are trying to do. > > Do you wish to override the output class used by a particular DDNAME in an > included procedure? > > If so, i

Re: Enforcing CLASS in instream proc

2018-12-18 Thread Wayne Bickerdike
Now that the OP has clarified his requirement, my initial thought was that the PROC could be changed to simply re-submit a new job via INTRDR. This would direct the job to the required job class. PROCA - do what you do now PROCB - INTRDR submit to run in different class. On Wed, Dec 19, 2018 at 3

Re: How about a little Christmas fudge? | Computerworld Shark tank

2018-12-27 Thread Wayne Bickerdike
Z80 was a processor. How could it possibly crop up in a discussion about what constitutes a mainframe? The Altos 8000 was Z80 based as was the North Star Horizon and the Cromemco System 3. I worked with these in the 70's to *escape* from the mainframe, the demise of which was imminent. LOL. Anyth

Re: How about a little Christmas fudge? | Computerworld Shark tank

2018-12-28 Thread Wayne Bickerdike
401. > > > -- > Shmuel (Seymour J.) Metz > http://mason.gmu.edu/~smetz3 > > ________ > From: IBM Mainframe Discussion List on behalf > of Wayne Bickerdike > Sent: Thursday, December 27, 2018 10:20 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: How about a little Christmas fud

Re: How about a little Christmas fudge? | Computerworld Shark tank

2018-12-28 Thread Wayne Bickerdike
Even IBM are confusing: IBM 1401: The Mainframe https://www.ibm.com/ibm/history/ibm100/us/en/icons/mainframe/ On Sat, Dec 29, 2018 at 7:41 AM Wayne Bickerdike wrote: > "If you want to pick nits, read "Z-80" as "S-100 PC using a Z-80"; it's > not a mainfr

Re: How about a little Christmas fudge? | Computerworld Shark tank

2018-12-28 Thread Wayne Bickerdike
On a roll here... They weren't hyphenated either. Z80 and S100. Give me a Z28 anyday. On Sat, Dec 29, 2018 at 7:45 AM Wayne Bickerdike wrote: > Even IBM are confusing: > > IBM 1401: The Mainframe > > https://www.ibm.com/ibm/history/ibm100/us/en/icons/mainframe/ > >

Re: Zowe?

2019-01-05 Thread Wayne Bickerdike
One of my colleagues in the UK had an Irish setter named Zoe. Won't get started on zed versus zee... On Sun, Jan 6, 2019 at 4:42 AM scott Ford wrote: > Tom, > > That’s funny, my grandmother was a Zoe...Irish > > On Sat, Jan 5, 2019 at 1:47 AM Tom Conley > wrote: > > > On 1/4/2019 9:19 PM, Jess

Re: FW: ASG and CMGA - wherefor art though

2019-01-05 Thread Wayne Bickerdike
Check out CPT Global. They are heavily involved in performance management. http://www.cptglobal.com/contact-us/australia/ Level 3, 818 Bourke Street Docklands, Victoria 3008 Australia +61 3 9684 7900 On Sun, Jan 6, 2019 at 4:07 PM wrote: > All, > > > > Some of you know I have moved back to Au

Re: Zowe?

2019-01-06 Thread Wayne Bickerdike
Only hoods wear bonnets and elephants never forget to wear one on their trunk. On Mon, Jan 7, 2019 at 7:34 AM Seymour J Metz wrote: > J. D. Salinger? > > > -- > Shmuel (Seymour J.) Metz > http://mason.gmu.edu/~smetz3 > > > From: IBM Mainframe Discussion L

Re: Generic query on Region allocation failure

2019-01-08 Thread Wayne Bickerdike
We keep seeing S106 abends trying to run DFHEISUP utility. It's been discussed a few times on various fora but no definitive solution yet. At CICS 5.2 it ran fine.5.3 it's hit and miss and 5.4 just plain doesn't work. All permutations of region size, MEMLIMIT=NOLIMIT, no IEFUSI have worked. Tri

Re: Generic query on Region allocation failure

2019-01-08 Thread Wayne Bickerdike
IEW4000I FETCH FOR MODULE CEEBINIT FROM DDNAME *VLF*FAILED BECAUSE INSUFFICI CSV031I LIBRARY ACCESS FAILED FOR MODULE CEEBINIT, RETURN CODE 24, REASON CODE 2 CSV028I ABEND106-0C JOBNAME=$SDO128M STEPNAME=STEP020 IEA995I SYMPTOM DUMP OUTPUT 742 SYSTEM COMPLETION CODE=106 REASON CODE=00

Re: Generic query on Region allocation failure

2019-01-08 Thread Wayne Bickerdike
as 1600M. On Wed, Jan 9, 2019 at 3:38 PM Wayne Bickerdike wrote: > IEW4000I FETCH FOR MODULE CEEBINIT FROM DDNAME *VLF*FAILED BECAUSE > INSUFFICI > CSV031I LIBRARY ACCESS FAILED FOR MODULE CEEBINIT, RETURN CODE 24, REASON > CODE 2 > CSV028I ABEND106-0C JOBNAME=$SDO128M

Re: Generic query on Region allocation failure

2019-01-09 Thread Wayne Bickerdike
*to IBM-MAIN* *On Wed, 9 Jan 2019 13:47:48 +, Allan Staller wrote:>This looks more like the linklst dataset has taken an extent for some reason.Not to me. I would expect S106 reason code 0F, not reason code 0C.>>Try compressing the dataset containing CEEBINIT, followed by F LLA,REFRESHI

Re: Generic query on Region allocation failure

2019-01-09 Thread Wayne Bickerdike
the > problem is found. > > Mark > > -Original Message- > From: IBM Mainframe Discussion List On Behalf > Of Wayne Bickerdike > Sent: Wednesday, January 09, 2019 3:36 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Generic query on Region allocation failure

Re: Abend 106 (was Generic query on Region allocation failure)

2019-01-11 Thread Wayne Bickerdike
REGION=0M and same abend with REGION=512M. Took an SVC dump, here's some FA information. JOBNAME: $SDO512M SYSTEM ABEND: 106S0W1 2019/01/11 21:21:48 IBM Fault Analyzer Abend Job Information: Abend Date. . . . . . . . : 2019/01/11 Abend Time. . . . . . . . : 21:21:48 Sy

Re: Abend 106 (was Generic query on Region allocation failure)

2019-01-11 Thread Wayne Bickerdike
- ALLOC: 12M SHRD: 0M On Sat, Jan 12, 2019 at 2:52 PM Wayne Bickerdike wrote: > REGION=0M and same abend with REGION=512M. > > Took an SVC dump, here's some FA information. > > JOBNAME: $SDO512M SYSTEM ABEND: 106S0W1 2019/01/11 > 21:21:48 > &g

Re: Abend 106 (was Generic query on Region allocation failure)

2019-01-11 Thread Wayne Bickerdike
0C - NO STORAGE FOR IOSB. > 10 - NO STORAGE FOR EXLIST. > 14 - NO STORAGE FOR MODULE. > 18 - UNABLE TO FIX STORAGE. > > But Register 0 has an address in it. > > On Fri, Jan 11, 2019 at 9:53 PM Wayne Bickerdike > wrote: > > > >

Re: Abend 106 (was Generic query on Region allocation failure)

2019-01-14 Thread Wayne Bickerdike
2019 at 3:06 AM Tom Marchant < 000a2a8c2020-dmarc-requ...@listserv.ua.edu> wrote: > On Mon, 14 Jan 2019 08:30:20 -0600, Tom Marchant wrote: > > >On Sat, 12 Jan 2019 14:59:05 +1100, Wayne Bickerdike wrote: > > > >>Step end stats: > >> > >>

Re: SCLM problem

2019-01-15 Thread Wayne Bickerdike
That's normally a warning message when you try and edit outside of SCLM. You can ignore it or copy the PDS to a new one and rename . ORIG >> OLD NEW>>ORIG. It sounds like the members have been promoted and are locked from editing, so copy them out if you don't want SCLM control. Is there a good

Re: Abend 106 (was Generic query on Region allocation failure)

2019-01-15 Thread Wayne Bickerdike
CEE.SCEERUN(CEEBINIT) On Tue, Jan 15, 2019 at 7:35 AM Wayne Bickerdike wrote: > Thanks guys, > > very helpful. > > Peter, I have tested with LLA stopped,thought I posted that test.Still > received S106-C. > Since the problem started with CICS 5.3, I think a PMR with CI

Re: SCLM problem

2019-01-15 Thread Wayne Bickerdike
s able to edit the member. > > Thanks > > Gadi > > -Original Message- > From: IBM Mainframe Discussion List On Behalf > Of Wayne Bickerdike > Sent: Tuesday, January 15, 2019 10:44 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: SCLM problem > > That&#x

Re: Abend 106 (was Generic query on Region allocation failure)

2019-01-15 Thread Wayne Bickerdike
Thanks Tom, I'm down the rabbit hole now: BLS18224I Dump of z/OS 02.02.00-0 - level same as IPCS level 78 +++ DEC_ASID = X2D(SUBSTR(BLSOAS,(POS('ASID',BLSOAS)+7),4)) IRX0040I Error running IGVVSMIN, line 78: Incorrect call to routine *** On Wed, Jan 16, 2019 at 8:28 AM Tom Marchant < 000

Re: Abend 106 (was Generic query on Region allocation failure)

2019-01-15 Thread Wayne Bickerdike
Mark Zeldens excellent IPLINFO shows: The real storage size at IPL time was 2048M. The private area size <16M is 8192K. The private area size >16M is 1628M. The CSA size <16M is 4812K. The CSA size >16M is 300652K. The SQA size <16M is 1248K. The SQA size >16M is 15792K. The maximum V=R region siz

Re: Abend 106 (was Generic query on Region allocation failure)

2019-01-16 Thread Wayne Bickerdike
2019 at 12:52 AM Tom Marchant < 000a2a8c2020-dmarc-requ...@listserv.ua.edu> wrote: > On Wed, 16 Jan 2019 13:57:48 +1100, Wayne Bickerdike wrote: > > >Mark Zeldens excellent IPLINFO shows: > > > >The real storage size at IPL time was 2048M. > >The private are

Re: Where's the fire? | Computerworld Shark Tank

2019-01-16 Thread Wayne Bickerdike
Many a machine running DOS and later VSE had 1 Meg memory. In 1987 we ran an HDS clone with 1 Meg of memory. Two CICS regions. It was flat out most of the time and compiling in prime time was largely verboten. I convinced my manager if we could get more memory it would alleviate some problems. W

Re: Abend 106 (was Generic query on Region allocation failure)

2019-01-17 Thread Wayne Bickerdike
Thankyou Peter and Tom for your recent comments. I'll open a PMR with the CICS group. Wayne Bickerdike On Fri, Jan 18, 2019 at 12:29 AM Peter Relson wrote: > So we conclude that Wayne's private area below 16M is too small for > running this utility. > > Regardles

Re: Where's the fire? | Computerworld Shark Tank

2019-01-17 Thread Wayne Bickerdike
> We seemed to a manage a whole savings and loans application with that and > less than 3 GB of dusk. Is that Kiwi for disk? :) Got me Dave. Finny thung wus, thi dusk was made by Fajutsa . On Fri, Jan 18, 2019 at 8:59 AM Seymour J Metz wrote: > The 370/168 had UP models ranging from 1 Mi

Re: Abend 106 (was Generic query on Region allocation failure)

2019-01-18 Thread Wayne Bickerdike
This is the 2GB LPAR on the IBM Remote Development program. I'm guessing that's how it's rolled out to folks like us. I have had some success on another customer site, but I can't really post about it here because it's . And the third customer site gets the same S106 abend. This same problem has

Re: IBM HR made me lie to US govt, says axed VP in age-discrim legal row: I was ordered to cover up layoffs of older workers • The Register

2019-01-18 Thread Wayne Bickerdike
It happens all the time and companies have been getting away with it for years. Some of us oldies may have the last laugh because Millenials aren't coming through with the goods and I think a lot of companies are realisng that they can just go to the contract market and hire good older people on 6-

Re: zos program to supply web based client

2019-01-22 Thread Wayne Bickerdike
As Dave says, ADABAS has a call interface that's not too hard to navigate. In your case, perhaps a Find command (S1 I think). You have to supply a parameter list CB,FB,VB,RB,IB. It's been 37 years but I still remember it . On Wed, Jan 23, 2019 at 11:26 AM Gibney, Dave wrote: > It would take

Re: [EXTERNAL] Re: how many OSes run on IBMz

2019-01-24 Thread Wayne Bickerdike
The Hercules community are running some older operating systems. Could be that Hercules runs more than z is capable of. As Goldmember would say, ''Ïsn't that weird". On Fri, Jan 25, 2019 at 1:51 AM Sankaranarayanan, Vignesh < vignesh.v.sankaranaraya...@marks-and-spencer.com> wrote: > Oh how abo

Re: Newbie SMP/E questions

2019-01-30 Thread Wayne Bickerdike
I think you can REJECT specific PTFs. REJECT takes a PTF out of the GLOBAL zone. If it's already applied, you won't undo the PTF APPLY. RESTORE ing the PTF just so you can have another go at it is not a good idea. As people have said, RESTORE rolls back to the last ACCEPTed status but you have t

Re: How can I get reports in the Output Queue in SDSF to print

2019-02-03 Thread Wayne Bickerdike
RGEN has plenty of examples. From SDSF command line, RGEN X and roll your own. On Mon, Feb 4, 2019 at 10:03 AM Paul Gilmartin < 000433f07816-dmarc-requ...@listserv.ua.edu> wrote: > On Sun, 3 Feb 2019 20:21:23 +, Seymour J Metz wrote: > > >Well, there's always XDC, but the basic answer i

Re: How can I get reports in the Output Queue in SDSF to print

2019-02-03 Thread Wayne Bickerdike
. FINIS" Say " Lines read:" line.0 /* IF NOT, ADD CMD ENV */ Do lx = 1 to line.0 /* Say " line."lx "is:" line.lx */ Call Selrecs end end end end end en

Re: How can I get reports in the Output Queue in SDSF to print

2019-02-03 Thread Wayne Bickerdike
wrote: > Hi Wayne, > Instead of "ISFEXEC ST", I would've used "ISFEXEC DA OJOB" or ISFEXEC > "DA OSTC" (depending upon whether CICS is a Job or Started Task). > The reason is that ST shows running Jobs/STCs and already ended Job/STCs > (that haven&#

Re: How can I get reports in the Output Queue in SDSF to print

2019-02-03 Thread Wayne Bickerdike
David, My comments are inaccurate in the example... OOPS On Mon, Feb 4, 2019 at 1:16 PM Wayne Bickerdike wrote: > > Hi Wayne, > Instead of "ISFEXEC ST", I would've used "ISFEXEC DA OJOB" or ISFEXEC > "DA OSTC" (depending upon whether CICS is

Re: CICS and IMS Training

2019-02-18 Thread Wayne Bickerdike
I ran a CICS training course about 6 months ago. There were a few parties involved but start by asking your IBM rep. The classroom was a third party provider, the training organisation was another and somewhere in the food chain was IBM. IBM have a remote lab and their materials are locked down,

Re: MULC Vendor Exit Error

2019-02-18 Thread Wayne Bickerdike
could you be more specific? For starters MQ600 is fairly ancient. We got off it in 2013 and are on 9.01 on z/OS 2.2. We had issues with some old channel exits. The MQ macros changed the DSECT offsets in later releases, so check any HOLD data for 2.2 and MQ... On Tue, Feb 19, 2019 at 2:30 AM Patr

Re: Identifying and eliminating uncataloged datasets

2019-02-25 Thread Wayne Bickerdike
ADRDSSU if you have it. Dump and delete the uncataloged datasets. Later you can RESTORE with a new HLQ if desired. //STEP1EXEC PGM=ADRDSSU //SYSPRINT DDSYSOUT=A //DASD1DDVOL=SER=MYVOL1,UNIT=SYSDA,DISP=OLD //DASD2DDVOL=SER=MYVOL2,UNIT=SYSDA,DISP=OLD //TAPE DDUNIT=

Re: How many asterisks to change a lightbulb?

2019-03-05 Thread Wayne Bickerdike
And while you are at it, ditch the Edison screw and use a bayonet. 240V would be good too... On Tue, Mar 5, 2019 at 7:24 PM Elardus Engelbrecht < elardus.engelbre...@sita.co.za> wrote: > Sankaranarayanan, Vignesh wrote: > > >Skip, > >Wait till you hear about EGNs! 😊 > > Skip is talking about Gene

Re: SMPE Internet Service Retrieval: TRANSFERONLY

2019-03-05 Thread Wayne Bickerdike
Our connections also drop frequently. I just submit a few extra jobs. If the data has already been shipped the process is smart enough to skip over that piece. Or you could have a final step that checks the condition code and submits the same job again via INTRDR. Here in slow old Australia, some

Re: How many asterisks to change a lightbulb?

2019-03-07 Thread Wayne Bickerdike
Sorry Jesse, I lived in the USA for five years and found that Edison screw light bulbs get stuck in the socket, plus there is no recommended torque setting for installing same. Many odd things about your electricical standards: No isolating switch on wall sockets. Love the flash as you plug thin

Re: What crashing COBOL systems reveal about applications maintenance -- GCN

2020-05-13 Thread Wayne Bickerdike
We're going through the COBOL 6 compile exercise, on a Z13. The only hiccups have been source control and the odd JCL error. One job fell over in a link edit because a module wasn't found. It's been nearly 15 years since I worked with this system but somehow I remembered this module. Turns out it'

Re: Activate SMS configuration in batch

2020-05-14 Thread Wayne Bickerdike
If a shop doesnt have automation, there are plenty of freebies that will do the job. Tom Brennans Vista can even be programmed to look for text on a screen and issue a command. REXX and ISFSLASH command issuance with a suitable time delay should suffice. On Fri, May 15, 2020, 07:00 Doug wrote:

Re: Is there any z/OS API to get byte file size for non-VSAM, non-zFS, non-database files?

2020-05-14 Thread Wayne Bickerdike
EXECIO in REXX will give you the record count in stem zero. For FB you obtain LRECL using LENGTH function. Multiply the two. No good for VB, so that would require reading whole file. On Fri, May 15, 2020, 07:05 Gerhard adam wrote: > > > > > Really? There’s lots that it could do? So

Re: Is there any z/OS API to get byte file size for non-VSAM, non-zFS, non-database files?

2020-05-14 Thread Wayne Bickerdike
> Charles > Agree Charles. It's sort of hidden and would need a large memory allocation for the stem. > > > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Wayne Bickerdike > Sent: Thursday, May 14, 2020 2:31

Re: Is there any z/OS API to get byte file size for non-VSAM, non-zFS, non-database files?

2020-05-15 Thread Wayne Bickerdike
AGILE! Never complete Any design before you crash and burn with eons of speculation. Just been involved in a similar debacle. At least I'm paid by the hour. Once more to the drawing board. We can share the crayons! On Sat, May 16, 2020, 05:26 Farley, Peter x23353 < peter.far...@broadridge.com> wr

Re: Looking for clarification/guidance on SMTP DD FREE/SPIN

2020-05-15 Thread Wayne Bickerdike
Submit a job to send the email. The email body won't overwhelm SYSIN. The REXX program Just needs to put a wrapper around the email and submit. On Sat, May 16, 2020, 06:08 Charles Mills wrote: > I am designing a long-running Rexx program that will from time to time > generate an e-mail via the S

Re: Where do started PROC errors go?

2020-05-21 Thread Wayne Bickerdike
Two things, no definition for the STC in RACF. If I have difficulty diagnosing STC problems, I run them as a job in JCL to capture error messages. On Fri, May 22, 2020 at 5:14 AM Seymour J Metz wrote: > He posted messages showing that the STC ran normally. His primary problem > is OUTDISP; on

Re: Where do started PROC errors go?

2020-05-21 Thread Wayne Bickerdike
, 2020 at 5:33 AM Wayne Bickerdike wrote: > Two things, no definition for the STC in RACF. > > If I have difficulty diagnosing STC problems, I run them as a job in JCL > to capture error messages. > > > > On Fri, May 22, 2020 at 5:14 AM Seymour J Metz wrote: > >> He

Re: Where do started PROC errors go?

2020-05-21 Thread Wayne Bickerdike
gt; I.e. ODISP=(keep,keep) > > -Original Message- > From: IBM Mainframe Discussion List On Behalf > Of Wayne Bickerdike > Sent: Thursday, May 21, 2020 2:52 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Where do started PROC errors go? > > [CAUTION: This Email is

Re: Where do started PROC errors go?

2020-05-21 Thread Wayne Bickerdike
t the changes to make to > the below and seem to have gotten them all right on the first try. > > > > I owe you all a virtual beer in Boston. > > > > Charles > > > > > > -Original Message- > > From: IBM Mainframe Discussion List [mailto:IB

Re: How to get last node in DFSORT

2020-05-22 Thread Wayne Bickerdike
Use REXX REVERSE function. Then parse out the first value. Reverse it again. On Sat, May 23, 2020 at 5:57 AM Billy Ashton wrote: > Hi folks! This should be easy, but it escapes me... > > I have an 80-byte LRECL list of filenames (starting in col 1, varying > lengths), and I need to capture just

Re: How to get last node in DFSORT

2020-05-22 Thread Wayne Bickerdike
REV = REVERSE(PRODUCTION.CONTROL.VSAM.DATABASE.INDEX) PARSE VALUE REV WITH LASTNODE '. ' . LASTNODE = REVERSE(LASTNODE) On Sat, May 23, 2020 at 7:16 AM Wayne Bickerdike wrote: > Use REXX REVERSE function. > Then parse out the first value. > Reverse it again. > &g

Re: How to get last node in DFSORT

2020-05-22 Thread Wayne Bickerdike
/* REXX */ ADDRESS TSO 'ALLOC F(INDD) DA(OUTLIST(DSNS)) SHR REUSE' "EXECIO * DISKR INDD (STEM LINE. FINIS" DO I = 1 TO LINE.0 STR = PARSIT(LINE.I) END EXIT PARSIT: ARG STR REV = REVERSE(STR) PARSE VALUE REV WITH LASTVAR '.' . LASTVAR = REVERSE(LASTVAR) SAY STR LASTVAR

Re: How to get last node in DFSORT

2020-05-22 Thread Wayne Bickerdike
PARMLIB SYS4.UBS.EXEC EXEC SYS3.UBS.A.B.C.D D SYS3.UBS.ABC.C.DE DE SYS3.UBS.AB.BC.DE DE SYS3.UBS.AB.BC.XABXAB *** Proportional spacing, bah!

Re: How to get last node in DFSORT

2020-05-22 Thread Wayne Bickerdike
Sri, I ignored the cc51 in my first attempt. I had to post using a fixed font too, so that the last field actually did appear in cc51 as viewed. Love your work BTW. Regards. On Sat, May 23, 2020 at 10:44 AM Sri h Kolusu wrote: > > Col 51... > > For some reason the original question did not ar

Re: Friday Follies/Why won't this work?/TSO Rant #387

2020-05-22 Thread Wayne Bickerdike
Slight diversion. A colleague wanted some REXX code so I sent it as an XMIT file. He was working remotely and said, the RECEIVE fails. When I next saw him, I went to his desk and watched the RECEIVE command. Boom, "UNABLE TO ALLOCATE LOG.MISC". He had TSO PROFILE(NOPREFIX) and didn't have RACF AL

Re: How to get last node in DFSORT

2020-05-26 Thread Wayne Bickerdike
Yackity yak, don't go back. It's after Monday Morning and it's the wrong season for quarterbacks. On Wed, May 27, 2020 at 1:13 PM Seymour J Metz wrote: > PATH ¬= DSN > > > -- > Shmuel (Seymour J.) Metz > http://mason.gmu.edu/~smetz3 > > > From: IBM Mainfr

Re: CICS usage logs?

2020-05-26 Thread Wayne Bickerdike
CICS SMF 110. You could probably use DFH$MOLS to analyse, it takes some of the hard work out of breaking the SMF into readable stuff. On Wed, May 27, 2020 at 7:13 AM Matthew Stitt wrote: > CICS statistics. Make sure they are turned on. > > The CICS statistics are written as SMF 110 records. > >

Re: CICS usage logs?

2020-05-26 Thread Wayne Bickerdike
DFHTASK C166 8 X'0009' X'002C' TCLSNAME DFHTERM C111 8 X'000A' X'0034' LUNAME DFHPROG C071 8 X'000B' X'003C' PGMNAME DFHTASK C09720 X'000C' X'0044&

Re: CICS usage logs?

2020-05-27 Thread Wayne Bickerdike
yford wrote: > Wayne, > > The MCT is only required for CICS monitoring records which have a > dictionary. CICS statistics SMF 110 records are fixed. > > On 2020-05-27 11:54 AM, Wayne Bickerdike wrote: > > You'll need a CICS MCT entry (Monitor control table). > > >

Re: CICS usage logs?

2020-05-27 Thread Wayne Bickerdike
rformance dictionary record using DFHMNDUP <https://www.ibm.com/support/knowledgecenter/SSGMCP_5.4.0/reference/utilities/dfha61t.html?view=kc#dfha61t> . On Wed, May 27, 2020 at 6:36 PM Wayne Bickerdike wrote: > > > *The MCT is only required for CICS monitoring records which have > adict

Re: CICS usage logs?

2020-05-27 Thread Wayne Bickerdike
Seems that MCT=NO is allowed. Since we always have one, that's what we code. On Wed, May 27, 2020 at 6:38 PM Wayne Bickerdike wrote: > From IBM documentation: > > SMF records, see CICS monitoring facility: Performance and tuning > <https://www.ibm.com/support/knowledg

Re: How to get last node in DFSORT

2020-05-27 Thread Wayne Bickerdike
*Yakity Yak - The Coasters April 1958. * I'm more of a Jeff Beck man. You're everywhere and nowhere baby.(Hi Ho Silver Lining). Or the inimitable Mrs Doubtfire (oooh, all over the place!). -- For IBM-MAIN subscribe / signoff

Re: Sort extracting values in PDS members

2020-05-27 Thread Wayne Bickerdike
I have used REXX to do this. One flavour uses IDCAMS REPRO, the other uses EXECIO. It builds the member list from a LISTDS MEMBERS. It adds ./ADD IEBUPDTE statements to the flat file in order to move to other systems. It's a readable option compared to using XMIT on a PDS> On Thu, May 28, 2020

Re: Sort extracting values in PDS members

2020-05-27 Thread Wayne Bickerdike
CALL rou_rc END RETURN rou_rc: IF temp_rc > 0 THEN temp_grc = temp_rc SAY " > ERROR < " SAY " > FUNCTION/REXX < " temp_ftc SAY " > RETURN CODE < " temp_rc temp_rc = 0 t

Re: Sort extracting values in PDS members

2020-05-27 Thread Wayne Bickerdike
ot; temp_rc temp_rc = 0 temp_ftc = "" RETURN end_expds: "EXECIO * DISKW OUT (FINIS STEM ROUT." " FREE DATASET('"user"."SEQFILE".EXPDS')" SAY

Re: Sort extracting values in PDS members

2020-05-27 Thread Wayne Bickerdike
*What happens if your PDS members contain IEBUPDTE control statements?TRANSMIT is robust with respect to such things.-- gil* Depends. If the IEBUPDTE directive is the same as the one generated, you lose it. If it's different, you lose it and you get a null member. If I care that much, I change the

Re: Sort extracting values in PDS members

2020-05-27 Thread Wayne Bickerdike
Sri, I agree with you. However, not all z/OS shops have DFSORT, a good number have Syncsort. I think CA-SORT has disappeared. If all the control cards were compatible between SORT products that would be a big help. I remember trying to port an Assembler E15 exit from a VSE shop (CA-SORT) to a z/

Re: IMS/DLI Macros

2020-05-27 Thread Wayne Bickerdike
IMSVS.MACLIB On Thu, May 28, 2020 at 4:32 PM Neale Ferguson wrote: > What maclib(s) would I find the macros used to generate DLI databases and > screen definitions? > > Neale Ferguson > > > -- > For IBM-MAIN subscribe / signoff

Re: Sort extracting values in PDS members

2020-05-28 Thread Wayne Bickerdike
Sri, A MODEL SORT in ISPF would be good. I often use the other templates. On Fri, May 29, 2020, 03:29 Sri h Kolusu wrote: > > And rote learning makes running ISPF in batch (or from OMVS) > > easy the second and subsequent times. Copy, paste, and edit. > > Gil, > > Doesn't this hold good for DF

Re: Sort extracting values in PDS members

2020-05-28 Thread Wayne Bickerdike
t; http://mason.gmu.edu/~smetz3 > > > From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf > of Wayne Bickerdike [wayn...@gmail.com] > Sent: Thursday, May 28, 2020 5:36 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: S

Re: REXX Interpret Question - weekend 'fun'

2020-05-30 Thread Wayne Bickerdike
I've found REXXTRY very appropriate when using INTERPRET. On Sun, May 31, 2020 at 11:14 AM Seymour J Metz wrote: > For that type of problem, judicious use of trace i or trace ?i can make an > obscure bug obvious. I wish there were an equivalent method for detecting > cases where IBM documentatio

Re: Cl/Supersession

2020-06-01 Thread Wayne Bickerdike
We have just installed at a customer site to replace Solvacc. What is your question? On Tue, Jun 2, 2020, 05:10 Edgington, Jerry < jerry.edging...@westernsouthernlife.com> wrote: > I wouldn't say I speak SuperSession, but I support it at one of my sites. > So, I will try to help. > > Jerry > > --

Re: COBOL Question

2020-06-07 Thread Wayne Bickerdike
For brevity, if you don't like DO END. select when idx="T" then countt=countt+1 when idx="U" then countu=countu+1 when idx="V" then countv=countv+1 when idx="W" then countw=countw+1 otherwise countx=countx+1; end Could be : SELECT( idx) when ("T") then countt=coun

Re: COBOL Question

2020-06-07 Thread Wayne Bickerdike
CA-IDEAL has SELECT FIRST ACTION AND SELECT EVERY ACTION. That I like. On Mon, Jun 8, 2020 at 2:59 PM Wayne Bickerdike wrote: > For brevity, if you don't like DO END. > > select > when idx="T" then countt=countt+1 > when idx="U" then countu

Re: COBOL Question

2020-06-07 Thread Wayne Bickerdike
Or to be controversial: tab.T = countt=countT+1 tab.U = countU=countU+1 tab.V = countV=countV+1 tab.W = countW=countW+1 INTERPRET tab.idx On Mon, Jun 8, 2020 at 3:01 PM Wayne Bickerdike wrote: > CA-IDEAL has SELECT FIRST ACTION AND SELECT EVERY ACTION. That I like. > > On Mon, Jun 8

Re: COBOL Question

2020-06-07 Thread Wayne Bickerdike
Forgot the quotes! On Mon, Jun 8, 2020 at 3:07 PM Wayne Bickerdike wrote: > Or to be controversial: > > tab.T = countt=countT+1 > tab.U = countU=countU+1 > tab.V = countV=countV+1 > tab.W = countW=countW+1 > > INTERPRET tab.idx > > On Mon, Jun 8, 2020 at 3:01 PM Wa

Re: COBOL Question

2020-06-07 Thread Wayne Bickerdike
/* REXX */ COUNTT = 0 COUNTU = 0 COUNTV = 0 COUNTW = 0 TAB.T = "COUNTT=COUNTT+1" TAB.U = "COUNTU=COUNTU+1" TAB.V = "COUNTV=COUNTV+1" TAB.W = "COUNTW=COUNTW+1" IDX = 'T' INTERPRET TAB.IDX SAY COUNTT SAY COUNTU SAY COUNTV SAY COUNT

Re: COBOL Question

2020-06-07 Thread Wayne Bickerdike
Results: 1 0 0 0 *** On Mon, Jun 8, 2020 at 4:06 PM Wayne Bickerdike wrote: > /* REXX */ > COUNTT = 0 > COUNTU = 0 > COUNTV = 0 > COUNTW = 0 > TAB.T = "COUNTT=COUNTT+1" > TAB.U = "COUNTU=COUNTU+1" > TAB.V = "COUNTV=COUNTV+1" &g

Re: Goto Statements (was: COBOL Question)

2020-06-08 Thread Wayne Bickerdike
Dijkstra wrote his missive around 1968. Knuth made a meal of it and after reading his paper which was published 5 years later, it was too hard a read. Around the same time Michael Jackson was distilling this information and produced his structured programming book "Principles of Program Design". I

Re: Goto Statements

2020-06-08 Thread Wayne Bickerdike
Some wag published this in an internal IBM publication back in 1978, with full examples. It sucked us in at the time. On Mon, Jun 8, 2020 at 6:01 PM Peter Sylvester wrote: > Hi, > > Presented in an April 84 edition of a scientific journal. The fortran > COMEFROM nnn :-) > > A student in internsh

Re: "Everyone wants to retire mainframes"

2020-06-10 Thread Wayne Bickerdike
IBM are supporting university training in Mainframe in a hands-off manner. A friend of mine has just run a COBOL course at a North Queensland university. The mainframe used for classes was the Marist system. The customers were a large Australian Bank and a territory government employer. It seems

Re: [External] Re: z/OS 2.4 and SDSF question

2020-06-17 Thread Wayne Bickerdike
I wonder what EXEC CICS SPOOLREAD brings back? We don't have z/OS 2.4, so can't test against that. On Thu, Jun 18, 2020 at 7:43 AM Pommier, Rex wrote: > Hi Steve, > > As the OP, I agree that this doesn't appear to be an SDSF issue. I was > trying to make sure it wasn't a display issue with my

Re: 3 phase power question for the gray hair group. :-)

2020-06-22 Thread Wayne Bickerdike
DC rules On Tue, Jun 23, 2020, 04:33 Paul Gilmartin < 000433f07816-dmarc-requ...@listserv.ua.edu> wrote: > On Mon, 22 Jun 2020 16:30:01 +, Doug wrote: > > >Yes its true, but before you let a disk spin backwards, you checked the > >fans in the logic gate, they were 3 ph too. Depending on h

Re: New Mainframe Community

2020-06-26 Thread Wayne Bickerdike
I Manifest Hostile Opinions On Sat, Jun 27, 2020 at 1:05 PM Paul Gilmartin < 000433f07816-dmarc-requ...@listserv.ua.edu> wrote: > On Fri, 26 Jun 2020 22:28:02 -0400, Doug wrote: > > >We currently have a Strong Supportive group. Opinions are freely given > and taken period. Banter and brainsto

Re: Use of BPXWUNIX and CP - a weekend quandary.

2020-06-28 Thread Wayne Bickerdike
Is FTP faster? On Sun, Jun 28, 2020 at 6:23 PM Lionel B Dyck wrote: > Good to know - would be nice if there were a way to extend the interval or > prevent it - perhaps with an environment variable. > > > Lionel B. Dyck < > Website: https://www.lbdsoftware.com > > "Worry more about your character

Re: AT-TLS ?

2020-06-28 Thread Wayne Bickerdike
The IBM Redbook for RACF RRSF has most of the information needed to configure AT-TLS. We're in the process of rolling out RRSF for RACF password sync. It's working between two of our plexes, I followed the book, used SYS1.SAMPLIB examples rather than attempting via zOSMF. On Mon, Jun 29, 2020 at

Re: AT-TLS ?

2020-06-28 Thread Wayne Bickerdike
The Redbook : http://www.redbooks.ibm.com/redbooks/pdfs/sg248041.pdf On Mon, Jun 29, 2020 at 3:30 PM Wayne Bickerdike wrote: > The IBM Redbook for RACF RRSF has most of the information needed to > configure AT-TLS. > > We're in the process of rolling out RRSF for RACF pa

Re: Migrate z/OS DASD volumes from Mainframe to Hercules Environment

2020-07-01 Thread Wayne Bickerdike
Hercules isn't nobbled. I know a bloke who knows a bloke who runs Hercules and zOS 2.3. This bloke told me that the other bloke did ADRDSSU volume dumps and a restore at the other end. On Thu, Jul 2, 2020, 03:47 Tom Brennan wrote: > It wasn't me! I keep forgetting to lock up my computer when I

Re: OOBOL and English was Re: Still COBOL After All These Years?

2020-07-16 Thread Wayne Bickerdike
COBOL fails at MOVE. It's a COPY. Maybe they should have said REPLICATE, since COPY was already taken. So, not good English. On Fri, Jul 17, 2020 at 12:46 PM Tony Thigpen wrote: > I agree with Clark. > > In addition, even the best language can have it's best features ignored > by programmers so

Re: OOBOL and English was Re: Still COBOL After All These Years?

2020-07-18 Thread Wayne Bickerdike
Bob Bridges Wrote "Am I missing something obvious, here? In what computer language(s) is a move not actually a copy? And how?". I referred to this since someone said that COBOL is English like. As such the language is wrong because it does not describe correctly in English what happens. COPY, RE

Re: COBOL and English was Re: Still COBOL After All These Years?

2020-07-18 Thread Wayne Bickerdike
ly mean COPY? > > > > ...or SET, as you suggest. Yes, I like SET better. > > > > --- > > Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313 > > > > /* In all affairs it's a healthy thing now and then to hang a question > mark on the things you ha

Re: OOBOL and English was Re: Still COBOL After All These Years?

2020-07-18 Thread Wayne Bickerdike
now and then to hang a question > mark on the things you have long taken for granted. -Bertrand Russell > (1872-1970) */ > > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Wayne Bickerdike > Sent: Saturday, July 1

Re: OOBOL and English was Re: Still COBOL After All These Years?

2020-07-18 Thread Wayne Bickerdike
I respectfully disagree. COBOL's mother is FLOW-MATIC. MOVE was in > FLOW-MATIC. > > Joe > > On Sat, Jul 18, 2020 at 6:52 PM Wayne Bickerdike > wrote: > > > Bob, > > > > David didn't say there were languages that did "moves". He said tha

Re: COBOL and English was Re: Still COBOL After All These Years?

2020-07-18 Thread Wayne Bickerdike
where we use tally marks. > > Wayne, you are starting to make everyone doubt your sanity. :-) > > Tony Thigpen > > Wayne Bickerdike wrote on 7/18/20 6:29 PM: > > An Abacus is a computer. The beads are moved. > > > > On Sun, Jul 19, 2020, 08:23 Charles Mills wrote

Re: OOBOL and English was Re: Still COBOL After All These Years?

2020-07-19 Thread Wayne Bickerdike
Current international agreement for all new elements is to end them with -ium. Odd how the USA hangs on to impractical learnings. Even the UK moved to SI units while I was at school in the 1960s. Took me a while to get used to a gallon that isn't a gallon and a pint that isn't a pint (16 oz vs 20

Re: OOBOL and English was Re: Still COBOL After All These Years?

2020-07-21 Thread Wayne Bickerdike
Mike Schwab wrote: *Actually, the original gram was 1 cubic centimeter of distilled waterat 4c, making a kilogram 10 cm * 10 cm * 10 cm of distilled water at4c. Then they discovered nuclear isotopes that allowed the mass ofwater to vary between samples.* There's a logical reason for this. The

Re: OOBOL and English was Re: Still COBOL After All These Years?

2020-07-22 Thread Wayne Bickerdike
Centigrade was derived from Celsius, however, both described only the freezing point and boiling point of water at NTP. My physics teachers said don't say >100 centigrade. It's outside the bounds. So physicists use Kelvin. On Thu, Jul 23, 2020 at 7:26 AM Seymour J Metz wrote: > Actually, i does

  1   2   3   4   5   6   7   >