Bookmgr error:Cannot open output file: bookmgr.dbg
Hi Today got : Cannot open output file: bookmgr.dbg -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: ADMIN failure using DUMP command in pgm ADRDSSU
Hi Greg, In respect of your query: RUNNING CA'S TOP SECRET 5.0 I'm trying to dump all my disk to tape for a DR test and I believe I need to use the ADMIN keyword. Error when using the ADMIN keyword on the Dump command of pgm ADRDSSU. PAGE 0001 5695-DF175 DFSMSDSS V1R3.0 DATA SET SERVICES 2011.066 DUMP FULL INDD(INVOL) OUTDD(OUTVOL) ADMIN ALLDATA(*) TOL(IOER) ALLEXCP ADR101I (R/I)-RI01 (01), TASKID 001 HAS BEEN ASSIGNED TO COMMAND 'DUMP ' ADR109I (R/I)-RI01 (01), 2011.066 15:43:57 INITIAL SCAN OF USER CONTROL S ADR707E (R/I)-RI03 (06), NOT AUTHORIZED TO USE ADMINISTRATOR KEYWORD ADR017E (001)-CLTSK(01), 2011.066 15:43:57 TASK NOT SCHEDULED DUE TO ERRO ADR012I (SCH)-DSSU (01), 2011.066 15:43:57 DFSMSDSS PROCESSING COMPLETE. The requirements for ADMIN authority are covered in the DFSMS Storage Administration Reference (for DFSMSdfp, DFSMSdss, DFSMShsm) under the heading DFSMSdss Storage Administrator in the DFDSS section. This lists the applicable RACF profiles for various accesses but should be translatable to Top Secret. Kind Regards - Terry Director KMS-IT Limited 228 Abbeydale Road South Dore Sheffield S17 3LA UK Reg : 3767263 Outgoing e-mails have been scanned, but it is the recipients responsibility to ensure their anti-virus software is up to date. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: CPPUPDTE for LRECL 80
Possibly the PDS command from the CBTTape? I'm also looking in this area for a tool to do various search/change/update/replace functions, not only for PDS'es but also other types of datasets and so far a combination of CPPUPDTE, PDS and homegrown tools looks like being the way for me to go... Sebastian -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Looking for a checklist about z/OS V1R10 with Debug Tool
Ladies Gentlemen, I'd like a checklist about z/OS V1R10 with Debug Tool V8.1 Cf. the LPALSTxx parmlib member: Which EQA810.* libraries need to be loaded in PLPA? Cf. the PROGxx parmlib member and/or the DISPLAY PROG,APF command: Which EQA810.* libraries require APF-authorization? Cf. the PROGxx parmlib member and/or the DISPLAY PROG,LNKLST command: Which EQA810.* libraries should be part of the LNKLST-concatenation? Very much obliged! Michel Castelein z/OS insructor and consultant ar...@advalvas.be http://www.arcis-services.net -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Looking for a checklist about z/OS V1R10 with Debug Tool
Michel, DEBUG V8 is getting pretty old. V11 is now current. On my system, this is what I have - LLQ only LPALST - SEQALPA APF - SEQAAUTH SEQABMOD SEQAMOD LNKLST - SEQAAUTH SEQAMOD SEQABMOD _ Dave Jousma Assistant Vice President, Mainframe Services david.jou...@53.com 1830 East Paris, Grand Rapids, MI 49546 MD RSCB1G p 616.653.8429 f 616.653.8497 -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Michel Castelein Sent: Tuesday, March 08, 2011 6:13 AM To: IBM-MAIN@bama.ua.edu Subject: Looking for a checklist about z/OS V1R10 with Debug Tool Ladies Gentlemen, I'd like a checklist about z/OS V1R10 with Debug Tool V8.1 Cf. the LPALSTxx parmlib member: Which EQA810.* libraries need to be loaded in PLPA? Cf. the PROGxx parmlib member and/or the DISPLAY PROG,APF command: Which EQA810.* libraries require APF-authorization? Cf. the PROGxx parmlib member and/or the DISPLAY PROG,LNKLST command: Which EQA810.* libraries should be part of the LNKLST-concatenation? Very much obliged! Michel Castelein z/OS insructor and consultant ar...@advalvas.be http://www.arcis-services.net -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html This e-mail transmission contains information that is confidential and may be privileged. It is intended only for the addressee(s) named above. If you receive this e-mail in error, please do not read, copy or disseminate it in any manner. If you are not the intended recipient, any disclosure, copying, distribution or use of the contents of this information is prohibited. Please reply to the message immediately by informing the sender that the message was misdirected. After replying, please erase it from your computer system. Your assistance in correcting this error is appreciated. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
DFSMShsm Utility to Copy Data From a Real Tape to a Virtual Tape
If someone can just point me to the manual that will explain how I could do this simple function, I would appreciate it. Thanks in advance. . . * * *George Rodriguez* *Specialist II - IT Solutions* *Application Support / Quality Assurance* *PX - 47652* *(561) 357-7652 (office)* *(561) 707-3496 (mobile)* *School District of Palm Beach County* *3348 Forest Hill Blvd.* *Room B-332* *West Palm Beach, FL. 33406-5869* *Florida's Only A-Rated Urban District For Six Consecutive Years* Home of Florida's first LEED Gold Certified School Under Florida law, e-mail addresses are public records. If you do not want your e-mail address released in response to a public records request, do not send electronic mail to this entity. Instead, contact this office by phone or in writing. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: DFSMShsm Utility to Copy Data From a Real Tape to a Virtual Tape
George, Assuming that you want to copy ML2 or Incremental Backups, direct your recycle output to the desired Esoteric and Recycle the tape. If it is a Dump tape, I can't think of anything that would copy the tape AND maintain the HSM records pointing to the data. David O'Brien NIH Contractor -Original Message- From: George Rodriguez [mailto:george.rodrig...@palmbeachschools.org] Sent: Tuesday, March 08, 2011 7:40 AM To: IBM-MAIN@bama.ua.edu Subject: DFSMShsm Utility to Copy Data From a Real Tape to a Virtual Tape If someone can just point me to the manual that will explain how I could do this simple function, I would appreciate it. Thanks in advance. . . * * *George Rodriguez* *Specialist II - IT Solutions* *Application Support / Quality Assurance* *PX - 47652* *(561) 357-7652 (office)* *(561) 707-3496 (mobile)* *School District of Palm Beach County* *3348 Forest Hill Blvd.* *Room B-332* *West Palm Beach, FL. 33406-5869* *Florida's Only A-Rated Urban District For Six Consecutive Years* Home of Florida's first LEED Gold Certified School Under Florida law, e-mail addresses are public records. If you do not want your e-mail address released in response to a public records request, do not send electronic mail to this entity. Instead, contact this office by phone or in writing. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: DFSMShsm Utility to Copy Data From a Real Tape to a Virtual Tape
If someone can just point me to the manual that will explain how I could do this simple function, I would appreciate it. Are you trying to copy a DFHSM Tape? Or some other tape? If DFSMShsm, then which type of tape? BKUP, MIG, DUMP, ML2? If you are having issues, please state them here. We may be able to help. Lizette -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Bookmgr error:Cannot open output file: bookmgr.dbg
Me too! On Firefox and Konqueror on Linux/Intel as well as IE on Windows. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Miklos Szigetvari Sent: Tuesday, March 08, 2011 2:23 AM To: IBM-MAIN@bama.ua.edu Subject: Bookmgr error:Cannot open output file: bookmgr.dbg Hi Today got : Cannot open output file: bookmgr.dbg -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Bookmgr error:Cannot open output file: bookmgr.dbg
Hi Opened a priority 1 PMR, IBM sad, they working on this. (Now it is 2 PM here , I opened at 9 ) On 3/8/2011 1:59 PM, McKown, John wrote: Me too! On Firefox and Konqueror on Linux/Intel as well as IE on Windows. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Miklos Szigetvari Sent: Tuesday, March 08, 2011 2:23 AM To: IBM-MAIN@bama.ua.edu Subject: Bookmgr error:Cannot open output file: bookmgr.dbg Hi Today got : Cannot open output file: bookmgr.dbg -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: DFSMShsm Utility to Copy Data From a Real Tape to a Virtual Tape
The dataset name is DFHSM.HMIGTAPE.DATASET, so I would say it's a HMIG tape. Should I use the RECYCLE command to copy the data? * * *George Rodriguez* *Specialist II - IT Solutions* *Application Support / Quality Assurance* *PX - 47652* *(561) 357-7652 (office)* *(561) 707-3496 (mobile)* *School District of Palm Beach County* *3348 Forest Hill Blvd.* *Room B-332* *West Palm Beach, FL. 33406-5869* *Florida's Only A-Rated Urban District For Six Consecutive Years* On Tue, Mar 8, 2011 at 7:56 AM, Lizette Koehler stars...@mindspring.comwrote: If someone can just point me to the manual that will explain how I could do this simple function, I would appreciate it. Are you trying to copy a DFHSM Tape? Or some other tape? If DFSMShsm, then which type of tape? BKUP, MIG, DUMP, ML2? If you are having issues, please state them here. We may be able to help. Lizette -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html Home of Florida's first LEED Gold Certified School Under Florida law, e-mail addresses are public records. If you do not want your e-mail address released in response to a public records request, do not send electronic mail to this entity. Instead, contact this office by phone or in writing. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: DFSMShsm Utility to Copy Data From a Real Tape to a Virtual Tape
OK, so it is or was a ML2 tape. Now do a tso HSEND LIST MVOL
ODS('hlq.MVOL.FEB11A') and see if the tape serial is on the resulting list. If
it is then perform the recycle. If it isn't then try to determine why your Tape
Mgt S/w did not expire the tape when HSM did.
David O'Brien
NIH Contractor
-Original Message-
From: George Rodriguez [mailto:george.rodrig...@palmbeachschools.org]
Sent: Tuesday, March 08, 2011 8:06 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: DFSMShsm Utility to Copy Data From a Real Tape to a Virtual Tape
The dataset name is DFHSM.HMIGTAPE.DATASET, so I would say it's a HMIG tape.
Should I use the RECYCLE command to copy the data?
*
*
*George Rodriguez*
*Specialist II - IT Solutions*
*Application Support / Quality Assurance*
*PX - 47652*
*(561) 357-7652 (office)*
*(561) 707-3496 (mobile)*
*School District of Palm Beach County*
*3348 Forest Hill Blvd.*
*Room B-332*
*West Palm Beach, FL. 33406-5869*
*Florida's Only A-Rated Urban District For Six Consecutive Years*
On Tue, Mar 8, 2011 at 7:56 AM, Lizette Koehler stars...@mindspring.comwrote:
If someone can just point me to the manual that will explain how I could
do this simple
function, I would appreciate it.
Are you trying to copy a DFHSM Tape? Or some other tape? If DFSMShsm, then
which type of tape? BKUP, MIG, DUMP, ML2?
If you are having issues, please state them here. We may be able to help.
Lizette
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Home of Florida's first LEED Gold Certified School
Under Florida law, e-mail addresses are public records. If you do not want your
e-mail address
released in response to a public records request, do not send electronic mail
to this entity.
Instead, contact this office by phone or in writing.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: DFSMShsm Utility to Copy Data From a Real Tape to a Virtual Tape
Yes it is:
E10005 3590-1 L2-TPYES00/00/00 NO NOYES
E10078 3590-1 L2-TPYES00/00/00 NO NOYES
The reason it's on the list was my mistake. I'm eliminating ML2s and instead
of writing my normal stuff to the VTL, DFhsm requested a scratch tape on the
7000,7001 (3592) units and the operator mounted it. Does the RECYCLE command
look like this:
HSENDCMD RECYCLE VOLUME(E10078) EXECUTE
HSENDCMD RECYCLE VOLUME(E10005) EXECUTE
*
*
*George Rodriguez*
*Specialist II - IT Solutions*
*Application Support / Quality Assurance*
*PX - 47652*
*(561) 357-7652 (office)*
*(561) 707-3496 (mobile)*
*School District of Palm Beach County*
*3348 Forest Hill Blvd.*
*Room B-332*
*West Palm Beach, FL. 33406-5869*
*Florida's Only A-Rated Urban District For Six Consecutive Years*
On Tue, Mar 8, 2011 at 8:12 AM, O'Brien, David W. (NIH/CIT) [C]
obrie...@mail.nih.gov wrote:
OK, so it is or was a ML2 tape. Now do a tso HSEND LIST MVOL
ODS('hlq.MVOL.FEB11A') and see if the tape serial is on the resulting list.
If it is then perform the recycle. If it isn't then try to determine why
your Tape Mgt S/w did not expire the tape when HSM did.
David O'Brien
NIH Contractor
-Original Message-
From: George Rodriguez [mailto:george.rodrig...@palmbeachschools.org]
Sent: Tuesday, March 08, 2011 8:06 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: DFSMShsm Utility to Copy Data From a Real Tape to a Virtual
Tape
The dataset name is DFHSM.HMIGTAPE.DATASET, so I would say it's a HMIG
tape.
Should I use the RECYCLE command to copy the data?
*
*
*George Rodriguez*
*Specialist II - IT Solutions*
*Application Support / Quality Assurance*
*PX - 47652*
*(561) 357-7652 (office)*
*(561) 707-3496 (mobile)*
*School District of Palm Beach County*
*3348 Forest Hill Blvd.*
*Room B-332*
*West Palm Beach, FL. 33406-5869*
*Florida's Only A-Rated Urban District For Six Consecutive Years*
On Tue, Mar 8, 2011 at 7:56 AM, Lizette Koehler stars...@mindspring.com
wrote:
If someone can just point me to the manual that will explain how I
could
do this simple
function, I would appreciate it.
Are you trying to copy a DFHSM Tape? Or some other tape? If DFSMShsm,
then
which type of tape? BKUP, MIG, DUMP, ML2?
If you are having issues, please state them here. We may be able to
help.
Lizette
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Home of Florida's first LEED Gold Certified School
Under Florida law, e-mail addresses are public records. If you do not want
your e-mail address
released in response to a public records request, do not send electronic
mail to this entity.
Instead, contact this office by phone or in writing.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Home of Florida's first LEED Gold Certified School
Under Florida law, e-mail addresses are public records. If you do not want your
e-mail address
released in response to a public records request, do not send electronic mail
to this entity.
Instead, contact this office by phone or in writing.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: QSAM concatenation where the first DD is DUMMY?
On 3/7/2011 10:36 PM, ನಾಗೇಶ್ ಸುಬ್ರಹ್ಮಣ್ಯ (Nagesh S) wrote: Would the effect be the same with DSN=NULLFILE ? Yes. I wish I could test; but, I do not have access to a z system these days. The manuals seem to convey NULLFILE and DUMMY do not differ. Of course, one can actually allocate an empty dataset in ISPF 3.2 and then provide this name in the override. ;-) Well, you can also allocate an empty dataset in a prior job step, no need to use ISPF. But, unless you are using SMS for this allocation, the file will not have an end of data indicator, so in the step where you try to reference this empty file for input, it will likely fail with an abend. So, it's a little more complicated. Of course you could create an empty file, edit it, including deleting all the lines, then exit. Then use that file in multiple jobs that use input files with the same DCB attributes. N On Mon, Mar 7, 2011 at 10:42 PM, Farley, Peter x23353 peter.far...@broadridge.com wrote: Thanks Steve. Even old dogs have old tricks to (re)learn, it seems. Peter -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Steve Comstock Sent: Monday, March 07, 2011 10:58 AM To: IBM-MAIN@bama.ua.edu Subject: Re: QSAM concatenation where the first DD is DUMMY? Snipped Well, you don't explicitly state what you are trying to accomplish, but you seem to imply you want the first data set to be skipped and the others to be read. If that's your objective, you would need to code something like: //PSTEP1.INPUT DD DSN=FILE2 // DD DSN=FILE3 // DD DSN=FILE4 // DD DUMMY -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-393-8716 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 new 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...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Java performance (was Re: SMF data question)
I use JZOS. But we don't have a zAAP. Java is CPU intensive. There's no doubt that if you don't have a specialty engine, it's much harder to make the case for running Java on the mainframe. But I've been playing around with it recently and the performance isn't as abysmal as it used to be. A quick fairly trivial test this morning based on some code I was playing with last week: Read a file with about a half million records. Split the records into fields by spaces. Find the 3rd field and generate for it: the total, average, min and max. I already had a REXX script that did this. I wrote a JavaScript script to do essentially the same thing. Note that the JavaScript language is not at all related to Java, but Java6 contains scripting engine support and includes Rhino (Mozilla's JS engine that's written in Java). Therefore it's possible to run JavaScript on the mainframe by wrapping it in a small Java program that reads the script and passes it off to the JS engine for execution. So the comparison here is effectively REXX code being interpreted by the REXX interpretor (running under IKJEFT01 in batch) and JS code being interpreted by Java code (Rhino) running under JZOS. Average of 3 executions, on a z10 504 machine. (GCPs run at about half the zAAP speed.) Both programs were reading the same MVS dataset--the JS code via the JZOS routines. REXX: 8.7 CPU seconds, 16.2s ET Java (zAAP offline): 31.2 CPU seconds, 43.4s ET Java (zAAP online): 0.4 CPU seconds (GCP), 26.9s normalized zAAP seconds, 17s ET Clearly the JS code running in the JVM is significantly more CPU intensive overall. But from my recollection of playing with Java from several years ago, I think this is a significant step forward from where we were. And in the case with the zAAP online there's a net GCP savings. Now a more interesting test might be to get the scripting languages out of the mix and compare a C program to a straight-up Java program. Or test something that does more real work that's less trivial. Those will have to wait for another day though. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Bookmgr error:Cannot open output file: bookmgr.dbg
On 3/8/2011 5:59 AM, McKown, John wrote: Me too! On Firefox and Konqueror on Linux/Intel as well as IE on Windows. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Miklos Szigetvari Sent: Tuesday, March 08, 2011 2:23 AM To: IBM-MAIN@bama.ua.edu Subject: Bookmgr error:Cannot open output file: bookmgr.dbg Hi Today got : Cannot open output file: bookmgr.dbg Another reason to download the books onto your PC. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-393-8716 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 new 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...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: QSAM concatenation where the first DD is DUMMY?
On 3/8/2011 12:36 AM, ನಾಗೇಶ್ ಸುಬ್ರಹ್ಮಣ್ಯ (Nagesh S) wrote: Would the effect be the same with DSN=NULLFILE ? I wish I could test; but, I do not have access to a z system these days. The manuals seem to convey NULLFILE and DUMMY do not differ. Under normal use, there is no practical difference between DD DUMMY and DSN=NULLFILE. DUMMY will show in the TIOT with a zero UCB address, whereas NULLFILE may be pointed to a specific volume, and be supplied with many JFCB parameters (DCB, etc.) that could be used by a programmer to confuse the users g Gerhard Postpischil Bradford, VT -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Java performance (was Re: SMF data question)
Scott, As you point out, this isn't really a performance benchmark of Java vs REXX. Real applications are what matter, and performance is nearly always more attributable to the design and implementation of the code than the choice of language. We had a client who had a REXX program that was run weekly and took about 4 hours and consumed a couple of hours of CPU time.I rewrote it in Java and it ran about 4 times faster with 4 times less CPU. Did this prove that Java was faster than REXX? No.I was able to look at the problem and implement an algorithm and data structures in Java that was much more efficient than what the REXX programmer had done.I've seen plenty of Java programs that I could similarly beat by rewriting in REXX :-) Java on z/OS can be expensive on z/OS for one of several reasons: 1) The JIT (Just in time Compiler) takes time. Very short jobs currently don't favor Java; but this is improving 2) The JNI boundary (getting from Java to native code) involves overhead 3) Java programs are written poorly and aren't designed with a massively shared environment like z/OS in mind. It turns out that in the real world, (3) is the overwhelming issue. Kirk Wolf Dovetailed Technologies http://dovetail.com On Tue, Mar 8, 2011 at 7:42 AM, Scott Chapman sachap...@aep.com wrote: I use JZOS. But we don't have a zAAP. Java is CPU intensive. There's no doubt that if you don't have a specialty engine, it's much harder to make the case for running Java on the mainframe. But I've been playing around with it recently and the performance isn't as abysmal as it used to be. A quick fairly trivial test this morning based on some code I was playing with last week: Read a file with about a half million records. Split the records into fields by spaces. Find the 3rd field and generate for it: the total, average, min and max. I already had a REXX script that did this. I wrote a JavaScript script to do essentially the same thing. Note that the JavaScript language is not at all related to Java, but Java6 contains scripting engine support and includes Rhino (Mozilla's JS engine that's written in Java). Therefore it's possible to run JavaScript on the mainframe by wrapping it in a small Java program that reads the script and passes it off to the JS engine for execution. So the comparison here is effectively REXX code being interpreted by the REXX interpretor (running under IKJEFT01 in batch) and JS code being interpreted by Java code (Rhino) running under JZOS. Average of 3 executions, on a z10 504 machine. (GCPs run at about half the zAAP speed.) Both programs were reading the same MVS dataset--the JS code via the JZOS routines. REXX: 8.7 CPU seconds, 16.2s ET Java (zAAP offline): 31.2 CPU seconds, 43.4s ET Java (zAAP online): 0.4 CPU seconds (GCP), 26.9s normalized zAAP seconds, 17s ET Clearly the JS code running in the JVM is significantly more CPU intensive overall. But from my recollection of playing with Java from several years ago, I think this is a significant step forward from where we were. And in the case with the zAAP online there's a net GCP savings. Now a more interesting test might be to get the scripting languages out of the mix and compare a C program to a straight-up Java program. Or test something that does more real work that's less trivial. Those will have to wait for another day though. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: QSAM concatenation where the first DD is DUMMY?
You could maybe set up a single empty dataset, say, SYS1.NULLFILE or SYS1.DUMMY, that could be used by any job, and refer its DCB to the original dataset that you are nullifying. For example: // DD DSN=ORIGINAL.FILE,DISP=SHR becomes // DD DSN=SYS1.NULLFILE,DCB=ORIGINAL.FILE,DISP=SHR so you just have to insert SYS1.NULLFILE,DCB= after DSN=. Date: Tue, 8 Mar 2011 06:42:20 -0700 From: st...@trainersfriend.com Subject: Re: QSAM concatenation where the first DD is DUMMY? To: IBM-MAIN@bama.ua.edu On 3/7/2011 10:36 PM, ನಾಗೇಶ್ ಸುಬ್ರಹ್ಮಣ್ಯ (Nagesh S) wrote: Would the effect be the same with DSN=NULLFILE ? Yes. I wish I could test; but, I do not have access to a z system these days. The manuals seem to convey NULLFILE and DUMMY do not differ. Of course, one can actually allocate an empty dataset in ISPF 3.2 and then provide this name in the override. ;-) Well, you can also allocate an empty dataset in a prior job step, no need to use ISPF. But, unless you are using SMS for this allocation, the file will not have an end of data indicator, so in the step where you try to reference this empty file for input, it will likely fail with an abend. So, it's a little more complicated. Of course you could create an empty file, edit it, including deleting all the lines, then exit. Then use that file in multiple jobs that use input files with the same DCB attributes. snippage -- Kind regards, -Steve Comstock The Trainer's Friend, Inc.
SDSF SYSLOG output problem
If I do ST SYSLOG inSDSF, I get the following - SDSF STATUS DISPLAY ALL CLASSES COMMAND INPUT ===SCROLL === CSR NP JOBNAME JobIDOwnerPrty Queue C Pos SAff ASys Status SYSLOG STC09990 +MASTER+ 15 EXECUTION S0W1 S0W1 SYSLOG STC00578 +MASTER+ 15 OUTPUT HOLD SYSLOG STC06396 +MASTER+ 15 OUTPUT HOLD SYSLOG STC07788 +MASTER+ 15 OUTPUT HOLD Now if I try to select any of those SYSLOG jobs in the OUTPUT queue I get NO DISPLAYABLE DATA like so - SDSF STATUS DISPLAY ALL CLASSES NO DISPLAYABLE DATA COMMAND INPUT ===SCROLL === CSR NP JOBNAME JobIDOwnerPrty Queue C Pos SAff ASys Status SYSLOG STC09990 +MASTER+ 15 EXECUTION S0W1 S0W1 SSYSLOG STC00578 +MASTER+ 15 OUTPUT HOLD SYSLOG STC06396 +MASTER+ 15 OUTPUT HOLD SYSLOG STC07788 +MASTER+ 15 OUTPUT HOLD any ideas why. Jim McAlpine. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: QSAM concatenation where the first DD is DUMMY?
Well, what if I code this - //DDO1 DD DSN=FILE01,DISP=SHR // DD DUMMY // DD DSN=FILE03,DISP=SHR Does the whole thing get dummied out like before? Thank you very much, Quasar chunawalla Sent on my BlackBerry® from Vodafone -Original Message- From: J R jayare...@hotmail.com Sender: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu Date: Tue, 8 Mar 2011 09:35:38 To: IBM-MAIN@bama.ua.edu Reply-To: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu Subject: Re: QSAM concatenation where the first DD is DUMMY? You could maybe set up a single empty dataset, say, SYS1.NULLFILE or SYS1.DUMMY, that could be used by any job, and refer its DCB to the original dataset that you are nullifying. For example: // DD DSN=ORIGINAL.FILE,DISP=SHR becomes // DD DSN=SYS1.NULLFILE,DCB=ORIGINAL.FILE,DISP=SHR so you just have to insert SYS1.NULLFILE,DCB= after DSN=. Date: Tue, 8 Mar 2011 06:42:20 -0700 From: st...@trainersfriend.com Subject: Re: QSAM concatenation where the first DD is DUMMY? To: IBM-MAIN@bama.ua.edu On 3/7/2011 10:36 PM, ನಾಗೇಶ್ ಸುಬ್ರಹ್ಮಣ್ಯ (Nagesh S) wrote: Would the effect be the same with DSN=NULLFILE ? Yes. I wish I could test; but, I do not have access to a z system these days. The manuals seem to convey NULLFILE and DUMMY do not differ. Of course, one can actually allocate an empty dataset in ISPF 3.2 and then provide this name in the override. ;-) Well, you can also allocate an empty dataset in a prior job step, no need to use ISPF. But, unless you are using SMS for this allocation, the file will not have an end of data indicator, so in the step where you try to reference this empty file for input, it will likely fail with an abend. So, it's a little more complicated. Of course you could create an empty file, edit it, including deleting all the lines, then exit. Then use that file in multiple jobs that use input files with the same DCB attributes. snippage -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Java performance (was Re: SMF data question)
Kirk: I agree completely: This wasn't intended to be a benchmark, but rather a general indication that Java performance isn't necessarily completely outside the ballpark (not even in the same county) any more. I think there's a general perception that Java is a horribly bloated mess that should be avoided whenever possible. That was at least partly true 10 years ago, maybe less. But it's a lot better today. I can use JZOS (thanks!) to start the JVM and run a trivial JS script in less than a second today. I remember when standing up a JVM took minutes! And I definitely agree that the code in question, regardless of the language, is likely the most important factor in the performance of any solution to a particular problem. Well mostly--I can probably come up with a scenario where bad Java code on a zAAP is better overall than good (pick your language code) on the GCP. At least when the zAAPs run faster than the GCPs. And then there's the capacity/cost implications of running code on the zAAP vs. the GCP. The funny thing is I personally really don't like Java as a language, regardless of performance. But I have excess zAAP capacity at the moment, so I'm looking at what it might be useful for. Scott Chapman -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: QSAM concatenation where the first DD is DUMMY?
You will read FILE01. The DUMMY forces EOF at that point. Christopher Y. Blaicher Senior Software Developer Austin Development Lab phone: 512.340.6154 mobile: 512.627.3803 fax: 512.340.6647 10431 Morado Circle Austin, TX 78759 -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Quasar Chunawalla Sent: Tuesday, March 08, 2011 8:45 AM To: IBM-MAIN@bama.ua.edu Subject: Re: QSAM concatenation where the first DD is DUMMY? Well, what if I code this - //DDO1 DD DSN=FILE01,DISP=SHR // DD DUMMY // DD DSN=FILE03,DISP=SHR Does the whole thing get dummied out like before? Thank you very much, Quasar chunawalla Sent on my BlackBerry® from Vodafone -Original Message- From: J R jayare...@hotmail.com Sender: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu Date: Tue, 8 Mar 2011 09:35:38 To: IBM-MAIN@bama.ua.edu Reply-To: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu Subject: Re: QSAM concatenation where the first DD is DUMMY? You could maybe set up a single empty dataset, say, SYS1.NULLFILE or SYS1.DUMMY, that could be used by any job, and refer its DCB to the original dataset that you are nullifying. For example: // DD DSN=ORIGINAL.FILE,DISP=SHR becomes // DD DSN=SYS1.NULLFILE,DCB=ORIGINAL.FILE,DISP=SHR so you just have to insert SYS1.NULLFILE,DCB= after DSN=. Date: Tue, 8 Mar 2011 06:42:20 -0700 From: st...@trainersfriend.com Subject: Re: QSAM concatenation where the first DD is DUMMY? To: IBM-MAIN@bama.ua.edu On 3/7/2011 10:36 PM, ನಾಗೇಶ್ ಸುಬ್ರಹ್ಮಣ್ಯ (Nagesh S) wrote: Would the effect be the same with DSN=NULLFILE ? Yes. I wish I could test; but, I do not have access to a z system these days. The manuals seem to convey NULLFILE and DUMMY do not differ. Of course, one can actually allocate an empty dataset in ISPF 3.2 and then provide this name in the override. ;-) Well, you can also allocate an empty dataset in a prior job step, no need to use ISPF. But, unless you are using SMS for this allocation, the file will not have an end of data indicator, so in the step where you try to reference this empty file for input, it will likely fail with an abend. So, it's a little more complicated. Of course you could create an empty file, edit it, including deleting all the lines, then exit. Then use that file in multiple jobs that use input files with the same DCB attributes. snippage -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: SDSF SYSLOG output problem
Jim McAlpine wrote: If I do ST SYSLOG inSDSF, I get the following - Now if I try to select any of those SYSLOG jobs in the OUTPUT queue I get NO DISPLAYABLE DATA like so - any ideas why. Why are the Queue for each of them 'OUTPUT' and Status = 'HOLD'? On my system I see Queue='PRINT' and Status=empty. Look also what is the 'Phase Name' for them. Perhaps if you could release them, you could see them? Or look in the Hold Queue or Output Queue for them. HTH! Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Bookmgr error:Cannot open output file: bookmgr.dbg
Hi Working again . On 3/8/2011 2:54 PM, Steve Comstock wrote: On 3/8/2011 5:59 AM, McKown, John wrote: Me too! On Firefox and Konqueror on Linux/Intel as well as IE on Windows. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Miklos Szigetvari Sent: Tuesday, March 08, 2011 2:23 AM To: IBM-MAIN@bama.ua.edu Subject: Bookmgr error:Cannot open output file: bookmgr.dbg Hi Today got : Cannot open output file: bookmgr.dbg Another reason to download the books onto your PC. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: strange RSH behaviour
On Fri, Mar 4, 2011 at 8:22 AM, Chris Mason chrisma...@belgacom.net wrote: Jim There are too many points of contact between what you describe and what APAR PQ92115: RSH CLIENT FAILS WHEN RESTRICTLOWPORTS IS CODED IN TCPCONFIG describes for it to be dismissed as similar but not exactly the same problem. I'm almost certain it *is* the same problem but there is a mystery over the AC value. The authors of the APAR text state that going from V1R4 to V1R5 the linkage edit of the RSH client module changed from AC(1) to AC(0) but you are reporting that in V1R11, it is back to AC(1) - undergarments are not smooth! - - Chris Mason Chris, thanks for your detailed reply as usual. There is nothing wrong with the authorization of the program AFAIKS and we don't specify any INADDR* parameters. Given what you said about UNRESTRICTLOWPORTS, I'm going with that resolution. Thanks again Jim McAlpine -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: SDSF SYSLOG output problem
On Tue, 8 Mar 2011 09:20:12 -0600, Elardus Engelbrecht elardus.engelbre...@sita.co.za wrote: Jim McAlpine wrote: If I do ST SYSLOG inSDSF, I get the following - Now if I try to select any of those SYSLOG jobs in the OUTPUT queue I get NO DISPLAYABLE DATA like so - any ideas why. Why are the Queue for each of them 'OUTPUT' and Status = 'HOLD'? On my system I see Queue='PRINT' and Status=empty. Look also what is the 'Phase Name' for them. Perhaps if you could release them, you could see them? Or look in the Hold Queue or Output Queue for them. HTH! Groete / Greetings Elardus Engelbrecht I agree with Elardus - when I do a ST SYSLOG, I do not see output segments, only the execution. I have to go to the output screen to see the output. And they happen all to be the same STC JobID number. Perhaps those showing up with OUTPUT that have different JobID's are old ones that were IPLed over? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Maybe off topic
l...@garlic.com (Anne Lynn Wheeler) writes: System/R reunion discussion of SQL/DS mentions that massive EAGLE project in STL kept attention away from RDBMS ... allowing System/R to get out as SQL/DS http://www.mcjones.org/System_R/SQL_Reunion_95/sqlr95-SQL_DS.html quote from above: The surprise of the MVS project was that it happened faster than I thought it would. In other words, Plan A collapsed, all right? Eagle collapsed, and all of a sudden, everyone turned to us and said, OK, when can you ship this database product? [laughter] And that's when we had to make some fairly hasty, difficult decisions on ... ... snip ... re: http://www.garlic.com/~lynn/2011d.htmL#52 Maybe off topic more on crash of Eagle ... and question about how fast a system/r could be released on MVS (aka DB2) http://www.mcjones.org/System_R/SQL_Reunion_95/sqlr95-DB2.html above mentions that marketing quy was looking at a poster for the original Santa Teresa lab announcement ... with an eagle soaring above the building ... and decided on EAGLE for the grand MVS DBMS effort. I was in DC with offspring for vacation the week before the Air Space museum opened (*AND* also the week before STL was to be opened). At that time, STL was going to be called Coyote lab (the closest post office and the name of the valley). That week a working ladies organization called Coyote was demonstrating on the steps of the capital (and getting lots of press) ... which appeared to prompt quick revision of the lab's name from Coyote to Santa Teresa (nearby cross-road, lab has since been rename Silicon Valley lab). -- virtualization experience starting Jan1968, online at home since Mar1970 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Bookmgr error:Cannot open output file: bookmgr.dbg
Which I normally do. But I'm installing z/OS 1.12 and haven't gotten around to downloading them yet. John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Steve Comstock Sent: Tuesday, March 08, 2011 7:55 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Bookmgr error:Cannot open output file: bookmgr.dbg On 3/8/2011 5:59 AM, McKown, John wrote: Me too! On Firefox and Konqueror on Linux/Intel as well as IE on Windows. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Miklos Szigetvari Sent: Tuesday, March 08, 2011 2:23 AM To: IBM-MAIN@bama.ua.edu Subject: Bookmgr error:Cannot open output file: bookmgr.dbg Hi Today got : Cannot open output file: bookmgr.dbg Another reason to download the books onto your PC. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-393-8716 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 new 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...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: strange RSH behaviour
Jim From the birth of TCP/IP for MVS around 1993 up to the OS/390 V2R5 Communications Server IP component in 1998, customers survived quite happily without the RESTRICTLOWPORTS parameter. Since IBM so very kindly finally permitted access to the online sets of manual this afternoon I was able to go back into TCP/IP for MVS history and check. What might be interesting is to try to pin down whatever port it is that your RSH client is using and then try to find out why. That'll be some flavour of NETSTAT CONN. If there is a problem with the ephemeral port range somewhere, it might be best to fix it for the long term. Whoever in your installation is responsible for UNIX System Services as it relates to your Communications Server IP needs to check. Even with UNRESTRICTLOWPORTS on TCPCONFIG and UDPCONFIG as long as all the server/listening applications have an entry in the PORT statement list as you are always instructed to configure them, there is no risk to those services by stray users of any of the ports that doesn't correspond to one of your server applications. Chris Mason On Tue, 8 Mar 2011 15:22:45 +, Jim McAlpine jim.mcalp...@gmail.com wrote: On Fri, Mar 4, 2011 at 8:22 AM, Chris Mason chrisma...@belgacom.net wrote: Jim There are too many points of contact between what you describe and what APAR PQ92115: RSH CLIENT FAILS WHEN RESTRICTLOWPORTS IS CODED IN TCPCONFIG describes for it to be dismissed as similar but not exactly the same problem. I'm almost certain it *is* the same problem but there is a mystery over the AC value. The authors of the APAR text state that going from V1R4 to V1R5 the linkage edit of the RSH client module changed from AC(1) to AC(0) but you are reporting that in V1R11, it is back to AC(1) - undergarments are not smooth! - - Chris Mason Chris, thanks for your detailed reply as usual. There is nothing wrong with the authorization of the program AFAIKS and we don't specify any INADDR* parameters. Given what you said about UNRESTRICTLOWPORTS, I'm going with that resolution. Thanks again Jim McAlpine -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Java performance (was Re: SMF data question)
Scott,
I completely agree with your comments on zAAP economics the zAAP engine
is actually *the* reason that we wrote JZOS.
If you are going to do a synthetic benchmark of record I/O in JZOS, I
suggest that you look at the new RecordReader and RecordWriter classes that
are in the latest alphaWorks build. These uses *significantly* less CPU
(some customers have reported as much as 7X) and on is par with COBOL
record I/O performance.
So, for the synthetic test that you chose, you might try something like:
public class RecordFieldAverage {
private long nRecs = 0;
private long total = 0;
private long min = 0;
private long max = 0;
public static void main(String[] args) throws Exception {
String ddname = INPUT; // default
if (args.length 0) {
ddname = args[0];
}
RecordFieldAverage instance = new RecordFieldAverage();
instance.processFile(ddname);
instance.printTotals();
}
private void processFile(String ddname) throws Exception {
String encoding = ZUtil.getCodePageCurrentLocale();
RecordReader reader = RecordReader.newReaderForDD(ddname);
byte buf[] = new byte[reader.getLrecl()];
int rlen;
try {
while ((rlen = reader.read(buf)) = 0) {
String line = new String(buf, 0, rlen, encoding);
processLine(line);
}
} finally {
reader.close();
}
}
private void processLine(String line) {
StringTokenizer toker = new StringTokenizer(line);
toker.nextToken();
toker.nextToken();
String third = toker.nextToken();
long value = Long.parseLong(third);
nRecs++;
min = Math.min(min, value);
max = Math.max(max,value);
total += value;
}
private void printTotals() {
System.out.println(
recs=+nRecs
+ min=+min
+ max=+max
+ total=+total
+ average=+(total/nRecs));
}
}
On Tue, Mar 8, 2011 at 8:52 AM, Scott Chapman sachap...@aep.com wrote:
Kirk:
I agree completely:
This wasn't intended to be a benchmark, but rather a general indication
that Java performance isn't necessarily completely outside the ballpark
(not even in the same county) any more. I think there's a general
perception that Java is a horribly bloated mess that should be avoided
whenever possible. That was at least partly true 10 years ago, maybe
less. But it's a lot better today. I can use JZOS (thanks!) to start the
JVM and run a trivial JS script in less than a second today. I remember
when standing up a JVM took minutes!
And I definitely agree that the code in question, regardless of the
language, is likely the most important factor in the performance of any
solution to a particular problem. Well mostly--I can probably come up
with a scenario where bad Java code on a zAAP is better overall than good
(pick your language code) on the GCP. At least when the zAAPs run faster
than the GCPs. And then there's the capacity/cost implications of running
code on the zAAP vs. the GCP.
The funny thing is I personally really don't like Java as a language,
regardless of performance. But I have excess zAAP capacity at the moment,
so I'm looking at what it might be useful for.
Scott Chapman
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Bookmgr error:Cannot open output file: bookmgr.dbg
It's working now -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of McKown, John Sent: Tuesday, March 08, 2011 10:50 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Bookmgr error:Cannot open output file: bookmgr.dbg Which I normally do. But I'm installing z/OS 1.12 and haven't gotten around to downloading them yet. John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Steve Comstock Sent: Tuesday, March 08, 2011 7:55 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Bookmgr error:Cannot open output file: bookmgr.dbg On 3/8/2011 5:59 AM, McKown, John wrote: Me too! On Firefox and Konqueror on Linux/Intel as well as IE on Windows. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Miklos Szigetvari Sent: Tuesday, March 08, 2011 2:23 AM To: IBM-MAIN@bama.ua.edu Subject: Bookmgr error:Cannot open output file: bookmgr.dbg Hi Today got : Cannot open output file: bookmgr.dbg Another reason to download the books onto your PC. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-393-8716 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 new 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...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html This e-mail may contain confidential or privileged information. If you think you have received this e-mail in error, please advise the sender by reply e-mail and then delete this e-mail immediately. Thank you. Aetna -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: ETR sunsets on 26 Mar 2011?
Prior IBM's withdrawal of the sunset date, I had submitted many specific complaints to the SR help desk. Some were bugs, some were performance issues, some were (IMO) poor design choices, etc. I have more issues, but I've run out of time to provide IBM clear understandable specific complaints; so I ranted here. I apologize. When I get more time, I will resume sending appropriate complaints to IBM. Don -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Skip Robinson Sent: Monday, March 07, 2011 11:20 AM To: IBM-MAIN@bama.ua.edu Subject: Re: ETR sunsets on 26 Mar 2011? We had several discussions at SHARE with well placed IBM executives. SR was one topic. IBM understands our discontent and promises not to yank ETR until our concerns have been addressed. BTW keep complaining; low on rant, high on specifics. . . JO.Skip Robinson SCE Infrastructure Technology Services Electric Dragon Team Paddler SHARE MVS Program Co-Manager 626-302-7535 Office 323-715-0595 Mobile jo.skip.robin...@sce.com From: Don Williams donb...@gmail.com To: IBM-MAIN@bama.ua.edu Date: 03/02/2011 01:15 PM Subject:Re: ETR sunsets on 26 Mar 2011? Sent by:IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu To me, SR looked more like a student team project/demo than a mature full function global business application. I'm glad that they seem to be reevaluating it. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Veilleux, Jon L Sent: Wednesday, March 02, 2011 11:27 AM To: IBM-MAIN@bama.ua.edu Subject: Re: ETR sunsets on 26 Mar 2011? My God! I hope so, SR is awful -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Don Williams Sent: Wednesday, March 02, 2011 10:55 AM To: IBM-MAIN@bama.ua.edu Subject: ETR sunsets on 26 Mar 2011? Did IBM back off the ETR sunset date? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html This e-mail may contain confidential or privileged information. If you think you have received this e-mail in error, please advise the sender by reply e-mail and then delete this e-mail immediately. Thank you. Aetna -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Looking for a checklist about z/OS V1R10 with Debug Tool
There's half a page on the subject in the related Program Directory (GI10-8761-02). See 5.4 Special Considerations http://publibfp.boulder.ibm.com/epubs/pdf/i1087612.pdf. Regards, Kevin -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Michel Castelein Sent: Tuesday, March 08, 2011 3:13 AM To: IBM-MAIN@bama.ua.edu Subject: Looking for a checklist about z/OS V1R10 with Debug Tool Ladies Gentlemen, I'd like a checklist about z/OS V1R10 with Debug Tool V8.1 Cf. the LPALSTxx parmlib member: Which EQA810.* libraries need to be loaded in PLPA? Cf. the PROGxx parmlib member and/or the DISPLAY PROG,APF command: Which EQA810.* libraries require APF-authorization? Cf. the PROGxx parmlib member and/or the DISPLAY PROG,LNKLST command: Which EQA810.* libraries should be part of the LNKLST-concatenation? Very much obliged! Michel Castelein z/OS insructor and consultant ar...@advalvas.be http://www.arcis-services.net -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Opening a Spanned File for Input Using Assembler
I an trying to read a spanned file that has a record organzation of PS, a record format of VBS, a record length of 1, a blocksize of 27998 as per the file attributes, and a possible real record length of 65535. But in trying to open tne file I get a SOC4. I am not the greatest Assembler coder but my program is pretty simple. I know it is abending on the open. Anyone have any ideas. My actual input records in the spanned file are header records that are 76 bytes, data records that are 136 bytes, and trailer records that are 28 bytes. Any help will be greatly appreciated. TITLE 'XP1000' * * 02/25/11 B HUNT CHANGED A SPANNED FILE TO A FIXED FILE * XP1000 AMODE 31 XP1000 RMODE ANY XP1000 START COPY EQUATES SAVE (14,12) SAVE REGISTERS 14 THRU 12 BASR BASE1,0 ESTABLISH ADDRESSABILITY USING *,BASE1 PROVIDE BASE ID WTO ' START XP1000',X ROUTCDE=(2),X DESC=(7) B BEGIN SPACE 1 DS0D DCCL8'XP1000' DCCL8'SYSDATE' DCCL8'SYSTIME' SPACE 1 BEGINDS0H WTO ' BEFORE OPEN',ROUTCDE=(2),DESC=(7) OPEN (INFILE,INPUT,OUTFILE,OUTPUT) LTR 15,15 BNZ BADOPEN WTO ' GOOD OPEN FILE',ROUTCDE=(2),DESC=(7) LOOP DS 0H GET INFILE,INREC WTO ' GOOD FILE READ',ROUTCDE=(2),DESC=(7) MVC BATA,DATA WTO ' GOOD MOVE',ROUTCDE=(2),DESC=(7) PUT OUTFILE,OUTREC WTO ' GOOD FILE WRITE',ROUTCDE=(2),DESC=(7) B LOOP FINAL DS 0H WTO ' BEFORE FILE CLOSE',ROUTCDE=(2),DESC=(7) CLOSE (INFILE,,OUTFILE) WTO ' GOOD FILE CLOSE',ROUTCDE=(2),DESC=(7) B C100 BADOPEN WTO ' UABLE TO OPEN FILE',ROUTCDE=(2),DESC=(7) B C100 BADREAD WTO ' READ UNSUCCESSFUL ',ROUTCDE=(2),DESC=(7) B C100 BADWRITE WTO ' WRITE UNSUCCESSFUL ',ROUTCDE=(2),DESC=(7) B C100 C100 DS0H RETURN (14,12)RESTORE REGISTERS AND RETURN INFILE DCB DSORG=PS,RECFM=VBS,MACRF=GM,+ DDNAME=INDD,EODAD=FINAL OUTFILE DCB DSORG=PS,RECFM=FB,LRECL=28,BLKSIZE=2800,MACRF=PM, + DDNAME=OUTDD OUTREC DS0CL28 BATA DSCL28 SAVEAREA DS18F LTORG INRECDS0F DATA DSCL28 DSCL32000 DSCL32000 DSCL32000 END XP1000 09.38.22 JOB33865 -JOBNAME STEPNAME PROCSTEPRC EXCP CONN TCBSRB 09.38.22 JOB33865 -ASMJCL RMS RMS@2X 00
Re: Opening a Spanned File for Input Using Assembler
Maybe you want to give amode 24 a try. -Original Message- From: Bruce Hunt bruce.h...@trs.state.tx.us To: IBM-MAIN@bama.ua.edu Sent: Tue, Mar 8, 2011 10:43 am Subject: Opening a Spanned File for Input Using Assembler I an trying to read a spanned file that has a record organzation of PS, a record format of VBS, a record length of 1, a blocksize of 27998 as per the file ttributes, and a possible real record length of 65535. But in trying to open ne file I get a SOC4. I am not the greatest Assembler coder but my program s pretty simple. I know it is abending on the open. Anyone have any ideas. My ctual input records in the spanned file are header records that are 76 bytes, ata records that are 136 bytes, and trailer records that are 28 bytes. Any elp will be greatly appreciated. TITLE 'XP1000' 02/25/11 B HUNT CHANGED A SPANNED FILE TO A FIXED FILE P1000 AMODE 31 P1000 RMODE ANY P1000 START COPY EQUATES SAVE (14,12) SAVE REGISTERS 14 THRU 12 BASR BASE1,0 ESTABLISH ADDRESSABILITY USING *,BASE1 PROVIDE BASE ID WTO ' START XP1000',X ROUTCDE=(2),X DESC=(7) B BEGIN SPACE 1 DS0D DCCL8'XP1000' DCCL8'SYSDATE' DCCL8'SYSTIME' SPACE 1 EGINDS0H WTO ' BEFORE OPEN',ROUTCDE=(2),DESC=(7) OPEN (INFILE,INPUT,OUTFILE,OUTPUT) LTR 15,15 BNZ BADOPEN WTO ' GOOD OPEN FILE',ROUTCDE=(2),DESC=(7) OOP DS 0H GET INFILE,INREC WTO ' GOOD FILE READ',ROUTCDE=(2),DESC=(7) MVC BATA,DATA WTO ' GOOD MOVE',ROUTCDE=(2),DESC=(7) PUT OUTFILE,OUTREC WTO ' GOOD FILE WRITE',ROUTCDE=(2),DESC=(7) B LOOP INAL DS 0H WTO ' BEFORE FILE CLOSE',ROUTCDE=(2),DESC=(7) CLOSE (INFILE,,OUTFILE) WTO ' GOOD FILE CLOSE',ROUTCDE=(2),DESC=(7) B C100 ADOPEN WTO ' UABLE TO OPEN FILE',ROUTCDE=(2),DESC=(7) B C100 ADREAD WTO ' READ UNSUCCESSFUL ',ROUTCDE=(2),DESC=(7) B C100 ADWRITE WTO ' WRITE UNSUCCESSFUL ',ROUTCDE=(2),DESC=(7) B C100 100 DS0H RETURN (14,12)RESTORE REGISTERS AND RETURN NFILE DCB DSORG=PS,RECFM=VBS,MACRF=GM,+ DDNAME=INDD,EODAD=FINAL UTFILE DCB SORG=PS,RECFM=FB,LRECL=28,BLKSIZE=2800,MACRF=PM, + DDNAME=OUTDD UTREC DS0CL28 ATA DSCL28 AVEAREA DS18F LTORG NRECDS0F ATA DSCL28 DSCL32000 DSCL32000 DSCL32000 END XP1000
Re: Java performance (was Re: SMF data question)
On Tue, 8 Mar 2011, Scott Chapman wrote: Kirk: I agree completely: This wasn't intended to be a benchmark, but rather a general indication that Java performance isn't necessarily completely outside the ballpark (not even in the same county) any more. I think there's a general perception that Java is a horribly bloated mess that should be avoided whenever possible. That was at least partly true 10 years ago, maybe less. But it's a lot better today. I can use JZOS (thanks!) to start the JVM and run a trivial JS script in less than a second today. I remember when standing up a JVM took minutes! Java, for me at least, is more like bloat on steroids (and fitted with few extra boosters). Computers grew a bit during last 15 years so Java fits better now compared to then. Which is not enough for me to consider it a language of the future, though. At least I hope my future will be better than this. The funny thing is I personally really don't like Java as a language, regardless of performance. But I have excess zAAP capacity at the moment, so I'm looking at what it might be useful for. Judging from the benchmark game, Java is very close to C on Intel platform. http://shootout.alioth.debian.org/ http://shootout.alioth.debian.org/u64q/which-programming-languages-are-fastest.$ http://shootout.alioth.debian.org/u32/which-programming-languages-are-fastest.p$ Having no mainframe at all, I am still interested if there are any comparable efforts to benchmark languages on iron box. I don't care much about Java, but there are other fine(r) languages and I simply wonder if it makes sense to consider developing in them with mainframes in mind, apart of other targets that could come to my mind (like Linux or Windows). What languages interest me, at the moment - well, Python, Ruby, Perl, C and Common Lisp, in no particular order. I am not equally versed in them (C, CL and Py rank much higher then the rest so I would be more interested in checking them first) and I do not necesarilly plan any development, so this is just kind of ongoing research of options available. If anyone here would like to try and do such benchmark, I guess the source code from shootout benchmark can be used - I didn't munched their license for very long but it seems to allow this. http://shootout.alioth.debian.org/license.php http://shootout.alioth.debian.org/help.php Myself, I probably can be of some help with resolving some issues (obviously, not all of them, but if it is related to Linux, I can try). Regards, Tomasz Rola -- ** A C programmer asked whether computer had Buddha's nature. ** ** As the answer, master did rm -rif on the programmer's home** ** directory. And then the C programmer became enlightened... ** ** ** ** Tomasz Rola mailto:tomasz_r...@bigfoot.com ** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Maybe off topic
I seem to recall working on a product called SLR (Service Level Reporter). My (very poor) memory is of databases that looked a lot like those later introduced by DB2. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Ed Gould Sent: Sunday, March 06, 2011 10:44 PM To: IBM-MAIN@bama.ua.edu Subject: Maybe off topic I was reading some article today about IBM DB2 today. I think it said something like DB2 was IBM's real first try into relational databases. My memory is foggy here something in the back of my mind says that is not quite correct. Back in the 70's (?) I vaguely remember IBM having a FDP(?) that claimed to do relational database. By slim memory says it may have been VM based. I do remember it had a 4 page white sales type paper(IUP?). No name comes up. Can anyone supply me with a product name? I do recall something like this as we were looking at a product and the show stopper was that it needed VM. Anyone? Ed -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html NOTICE: This electronic mail message and any files transmitted with it are intended exclusively for the individual or entity to which it is addressed. The message, together with any attachment, may contain confidential and/or privileged information. Any unauthorized review, use, printing, saving, copying, disclosure or distribution is strictly prohibited. If you have received this message in error, please immediately advise the sender by reply email and delete all copies. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Opening a Spanned File for Input Using Assembler
On 3/8/2011 9:43 AM, Bruce Hunt wrote: I an trying to read a spanned file that has a record organzation of PS, a record format of VBS, a record length of 1, a blocksize of 27998 as per the file attributes, and a possible real record length of 65535. But in trying to open tne file I get a SOC4. I am not the greatest Assembler coder but my program is pretty simple. I know it is abending on the open. Anyone have any ideas. My actual input records in the spanned file are header records that are 76 bytes, data records that are 136 bytes, and trailer records that are 28 bytes. Any help will be greatly appreciated. TITLE 'XP1000' * * 02/25/11 B HUNT CHANGED A SPANNED FILE TO A FIXED FILE * XP1000 AMODE 31 XP1000 RMODE ANY XP1000 START COPY EQUATES SAVE (14,12) SAVE REGISTERS 14 THRU 12 BASR BASE1,0 ESTABLISH ADDRESSABILITY USING *,BASE1 PROVIDE BASE ID WTO ' START XP1000',X ROUTCDE=(2),X DESC=(7) B BEGIN SPACE 1 DS0D DCCL8'XP1000' DCCL8'SYSDATE' DCCL8'SYSTIME' SPACE 1 BEGINDS0H WTO ' BEFORE OPEN',ROUTCDE=(2),DESC=(7) OPEN (INFILE,INPUT,OUTFILE,OUTPUT) You need the open options to be in parentheses: OPEN (INFILE,(INPUT),OUTFILE,(OUTPUT)) LTR 15,15 BNZ BADOPEN WTO ' GOOD OPEN FILE',ROUTCDE=(2),DESC=(7) LOOP DS 0H GET INFILE,INREC WTO ' GOOD FILE READ',ROUTCDE=(2),DESC=(7) MVC BATA,DATA WTO ' GOOD MOVE',ROUTCDE=(2),DESC=(7) PUT OUTFILE,OUTREC WTO ' GOOD FILE WRITE',ROUTCDE=(2),DESC=(7) B LOOP FINAL DS 0H WTO ' BEFORE FILE CLOSE',ROUTCDE=(2),DESC=(7) CLOSE (INFILE,,OUTFILE) WTO ' GOOD FILE CLOSE',ROUTCDE=(2),DESC=(7) B C100 BADOPEN WTO ' UABLE TO OPEN FILE',ROUTCDE=(2),DESC=(7) B C100 BADREAD WTO ' READ UNSUCCESSFUL ',ROUTCDE=(2),DESC=(7) B C100 BADWRITE WTO ' WRITE UNSUCCESSFUL ',ROUTCDE=(2),DESC=(7) B C100 C100 DS0H RETURN (14,12)RESTORE REGISTERS AND RETURN INFILE DCB DSORG=PS,RECFM=VBS,MACRF=GM,+ DDNAME=INDD,EODAD=FINAL OUTFILE DCB DSORG=PS,RECFM=FB,LRECL=28,BLKSIZE=2800,MACRF=PM, + DDNAME=OUTDD OUTREC DS0CL28 BATA DSCL28 SAVEAREA DS18F LTORG INRECDS0F DATA DSCL28 DSCL32000 DSCL32000 DSCL32000 END XP1000 09.38.22 JOB33865 -JOBNAME STEPNAME PROCSTEPRC EXCP CONN TCBSRB 09.38.22 JOB33865 -ASMJCL RMS RMS@2X 00 31 8 551177.00 09.38.22 JOB33865 + START XP1000 09.38.22 JOB33865 + BEFORE OPEN 09.38.25 JOB33865 IEA995I SYMPTOM DUMP OUTPUT 742 742 SYSTEM COMPLETION CODE=0C4 REASON CODE=0010 742 TIME=09.38.22 SEQ=02516 CPU= ASID=0060 742 PSW AT TIME OF ERROR 078C1000 80D26522 ILC 4 INTC 10 742NO ACTIVE MODULE FOUND 742NAME=UNKNOWN 742DATA AT PSW 00D2651C - 56403DD6 0B049180 20324710 742GR 0: 00011000 1: 00D00060 742 2: 001E9184 3: 00D264D2 742 4: 80D26522 5: 008FDBC0 742 6: 00D264D0 7: 00FBD480 742 8: 0E14409E 9: 8AAE2D88 742 A: 008CBC8D B: 008FF048 742 C: 010D93C0 D: 6008 742 E: 90D26518 F: 008FF048 742 END OF SYMPTOM DUMP //ASMJCL JOB (DP,6010),'XX - HUNT ',CLASS=A,MSGCLASS=X, // MSGLEVEL=(1,1),NOTIFY=SYSUID //* //RMS EXEC CA11RMS,TYPRUN='F' //* //ASMEXEC EXEC PGM=XP1000,REGION=0M //STEPLIB DD DISP=SHR,DSN=TEST.LE.LOADLIB //INDD DD DISP=SHR,DSN=TEST.FONT.BACKUP, // DSORG=PS,LRECL=X,BLKSIZE=27998,RECFM=VBS //OUTDDDD DSN=TEST.FONT.BACKUP.FIXED, // DISP=(,CATLG,CATLG), // SPACE=(TRK,(1950,100),RLSE), // DCB=(LRECL=28,BLKSIZE=0,RECFM=FB) //SYSOUT DD SYSOUT=* //SYSDBOUT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* // -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-393-8716 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 new tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html
Trouble Reading a Spanned File with an Assembler Program
I am trying to read a spanned file with a record format of VBS or variable blocked spanned, a record length of 1, a block size of 27998, an organization of PS or physical sequential (all according to the file attributes), and a real record size of 65535. I am not the greatest Assembler programmer but my program is pretty simple. But I get a SOC4 on the open. Any help will be greatly appreciated. Any idea what I am doing wrong? The actual records in the spanned input file are header records that are 76 bytes long, data records that are 136 bytes long, and trailer records that are 28 bytes long. I have tried making my output file 28 bytes long and tried making it 136 bytes long. Neither worked. 10.46.33 JOB33921 -ASMJCL RMS RMS@2X 00 32 7 551177.00 10.46.33 JOB33921 + START XP1000 10.46.33 JOB33921 + BEFORE OPEN 10.46.35 JOB33921 IEA995I SYMPTOM DUMP OUTPUT 848 848 SYSTEM COMPLETION CODE=0C4 REASON CODE=0010 848 TIME=10.46.34 SEQ=02539 CPU= ASID=0060 848 PSW AT TIME OF ERROR 078C1000 80D26522 ILC 4 INTC 10 848NO ACTIVE MODULE FOUND 848NAME=UNKNOWN 848DATA AT PSW 00D2651C - 56403DD6 0B049180 20324710 848GR 0: 00011000 1: 00D00060 848 2: 001E9184 3: 00D264D2 848 4: 80D26522 5: 008FD7E0 848 6: 00D264D0 7: 00FBD480 848 8: 0E14409E 9: 8AAE2D88 848 A: 008CBC8D B: 008FF048 848 C: 010D93C0 D: 6008 848 E: 90D26518 F: 008FF048 848 END OF SYMPTOM DUMP TITLE 'XP1000' * * 02/25/11 B HUNT CHANGED A SPANNED FILE TO A FIXED FILE * XP1000 AMODE 31 XP1000 RMODE ANY XP1000 START COPY EQUATES SAVE (14,12) SAVE REGISTERS 14 THRU 12 BASR BASE1,0 ESTABLISH ADDRESSABILITY USING *,BASE1 PROVIDE BASE ID WTO ' START XP1000',X ROUTCDE=(2),X DESC=(7) B BEGIN SPACE 1 DS0D DCCL8'XP1000' DCCL8'SYSDATE' DCCL8'SYSTIME' SPACE 1 BEGINDS0H WTO ' BEFORE OPEN',ROUTCDE=(2),DESC=(7) OPEN (INFILE,INPUT,OUTFILE,OUTPUT) LTR 15,15 BNZ BADOPEN WTO ' GOOD OPEN FILE',ROUTCDE=(2),DESC=(7) LOOP DS 0H GET INFILE,INREC WTO ' GOOD FILE READ',ROUTCDE=(2),DESC=(7) MVC BATA,DATA WTO ' GOOD MOVE',ROUTCDE=(2),DESC=(7) PUT OUTFILE,OUTREC WTO ' GOOD FILE WRITE',ROUTCDE=(2),DESC=(7) B LOOP FINAL DS 0H WTO ' BEFORE FILE CLOSE',ROUTCDE=(2),DESC=(7) CLOSE (INFILE,,OUTFILE) WTO ' GOOD FILE CLOSE',ROUTCDE=(2),DESC=(7) B C100 BADOPEN WTO ' UABLE TO OPEN FILE',ROUTCDE=(2),DESC=(7) B C100 BADREAD WTO ' READ UNSUCCESSFUL ',ROUTCDE=(2),DESC=(7) B C100 BADWRITE WTO ' WRITE UNSUCCESSFUL ',ROUTCDE=(2),DESC=(7) B C100 C100 DS0H RETURN (14,12)RESTORE REGISTERS AND RETURN INFILE DCB DSORG=PS,RECFM=VBS,MACRF=GM,+ DDNAME=INDD,EODAD=FINAL OUTFILE DCB DSORG=PS,RECFM=FB,LRECL=136,BLKSIZE=13600,MACRF=PM, + DDNAME=OUTDD OUTREC DS0CL136 BATA DSCL136 SAVEAREA DS18F LTORG INRECDS0F DATA DSCL136 DSCL32000 DSCL32000 DSCL32000 END XP1000 //ASMJCL JOB (DP,6010),'XX - HUNT ',CLASS=A,MSGCLASS=X, // MSGLEVEL=(1,1),NOTIFY=SYSUID //* //RMS EXEC CA11RMS,TYPRUN='F' //* //ASMEXEC EXEC PGM=XP1000,REGION=0M //STEPLIB DD DISP=SHR,DSN=TEST.LOADLIB //INDD DD DISP=SHR,DSN=TEST.FONT.BACKUP, // DSORG=PS,LRECL=X,BLKSIZE=27998,RECFM=VBS //OUTDDDD DSN=TEST.FONT.BACKUP.FIXED, // DISP=(,CATLG,CATLG), // SPACE=(TRK,(1950,100),RLSE), // DCB=(LRECL=136,BLKSIZE=0,RECFM=FB) //SYSOUT DD SYSOUT=* //SYSDBOUT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* // -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Trouble Reading a Spanned File with an Assembler Program
Bruce, Can you please post the actual assembler output? John P. Baker Chief Software Architect HFD Technologies -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Hunt, Bruce Sent: Tuesday, March 08, 2011 12:40 PM To: IBM-MAIN@bama.ua.edu Subject: Trouble Reading a Spanned File with an Assembler Program I am trying to read a spanned file with a record format of VBS or variable blocked spanned, a record length of 1, a block size of 27998, an organization of PS or physical sequential (all according to the file attributes), and a real record size of 65535. I am not the greatest Assembler programmer but my program is pretty simple. But I get a SOC4 on the open. Any help will be greatly appreciated. Any idea what I am doing wrong? The actual records in the spanned input file are header records that are 76 bytes long, data records that are 136 bytes long, and trailer records that are 28 bytes long. I have tried making my output file 28 bytes long and tried making it 136 bytes long. Neither worked. 10.46.33 JOB33921 -ASMJCL RMS RMS@2X 00 32 7 551177 .00 10.46.33 JOB33921 + START XP1000 10.46.33 JOB33921 + BEFORE OPEN 10.46.35 JOB33921 IEA995I SYMPTOM DUMP OUTPUT 848 848 SYSTEM COMPLETION CODE=0C4 REASON CODE=0010 848 TIME=10.46.34 SEQ=02539 CPU= ASID=0060 848 PSW AT TIME OF ERROR 078C1000 80D26522 ILC 4 INTC 10 848NO ACTIVE MODULE FOUND 848NAME=UNKNOWN 848DATA AT PSW 00D2651C - 56403DD6 0B049180 20324710 848GR 0: 00011000 1: 00D00060 848 2: 001E9184 3: 00D264D2 848 4: 80D26522 5: 008FD7E0 848 6: 00D264D0 7: 00FBD480 848 8: 0E14409E 9: 8AAE2D88 848 A: 008CBC8D B: 008FF048 848 C: 010D93C0 D: 6008 848 E: 90D26518 F: 008FF048 848 END OF SYMPTOM DUMP TITLE 'XP1000' * * 02/25/11 B HUNT CHANGED A SPANNED FILE TO A FIXED FILE * XP1000 AMODE 31 XP1000 RMODE ANY XP1000 START COPY EQUATES SAVE (14,12) SAVE REGISTERS 14 THRU 12 BASR BASE1,0 ESTABLISH ADDRESSABILITY USING *,BASE1 PROVIDE BASE ID WTO ' START XP1000',X ROUTCDE=(2),X DESC=(7) B BEGIN SPACE 1 DS0D DCCL8'XP1000' DCCL8'SYSDATE' DCCL8'SYSTIME' SPACE 1 BEGINDS0H WTO ' BEFORE OPEN',ROUTCDE=(2),DESC=(7) OPEN (INFILE,INPUT,OUTFILE,OUTPUT) LTR 15,15 BNZ BADOPEN WTO ' GOOD OPEN FILE',ROUTCDE=(2),DESC=(7) LOOP DS 0H GET INFILE,INREC WTO ' GOOD FILE READ',ROUTCDE=(2),DESC=(7) MVC BATA,DATA WTO ' GOOD MOVE',ROUTCDE=(2),DESC=(7) PUT OUTFILE,OUTREC WTO ' GOOD FILE WRITE',ROUTCDE=(2),DESC=(7) B LOOP FINAL DS 0H WTO ' BEFORE FILE CLOSE',ROUTCDE=(2),DESC=(7) CLOSE (INFILE,,OUTFILE) WTO ' GOOD FILE CLOSE',ROUTCDE=(2),DESC=(7) B C100 BADOPEN WTO ' UABLE TO OPEN FILE',ROUTCDE=(2),DESC=(7) B C100 BADREAD WTO ' READ UNSUCCESSFUL ',ROUTCDE=(2),DESC=(7) B C100 BADWRITE WTO ' WRITE UNSUCCESSFUL ',ROUTCDE=(2),DESC=(7) B C100 C100 DS0H RETURN (14,12)RESTORE REGISTERS AND RETURN INFILE DCB DSORG=PS,RECFM=VBS,MACRF=GM,+ DDNAME=INDD,EODAD=FINAL OUTFILE DCB DSORG=PS,RECFM=FB,LRECL=136,BLKSIZE=13600,MACRF=PM, + DDNAME=OUTDD OUTREC DS0CL136 BATA DSCL136 SAVEAREA DS18F LTORG INRECDS0F DATA DSCL136 DSCL32000 DSCL32000 DSCL32000 END XP1000 //ASMJCL JOB (DP,6010),'XX - HUNT ',CLASS=A,MSGCLASS=X, // MSGLEVEL=(1,1),NOTIFY=SYSUID //* //RMS EXEC CA11RMS,TYPRUN='F' //* //ASMEXEC EXEC PGM=XP1000,REGION=0M //STEPLIB DD DISP=SHR,DSN=TEST.LOADLIB //INDD DD DISP=SHR,DSN=TEST.FONT.BACKUP, // DSORG=PS,LRECL=X,BLKSIZE=27998,RECFM=VBS //OUTDDDD DSN=TEST.FONT.BACKUP.FIXED, // DISP=(,CATLG,CATLG), // SPACE=(TRK,(1950,100),RLSE), // DCB=(LRECL=136,BLKSIZE=0,RECFM=FB) //SYSOUT DD SYSOUT=* //SYSDBOUT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* // -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at
Re: Java performance (was Re: SMF data question)
You can of course write C/C++ for the mainframe no problem. There is a Perl port available, I'm not sure how up to date it is at the moment. You can apparently run Python within CICS, but I have no experience with that. I have no experience with either Ruby or CL either. Google implies that there are Java implementations of those though. I would think that you could then leverage those to run on the mainframe. If they allow you to access any Java class from within Ruby/CL then I would think that you could access the JZOS classes to get access to traditional MVS datasets from those languages. While I'm no fan of Java as a language, the idea of having the JVM be a portable run-time container for multiple languages has some merit I think. Scott -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Opening a Spanned File for Input Using Assembler
On 3/8/2011 9:43 AM, Bruce Hunt wrote: I an trying to read a spanned file that has a record organzation of PS, a record format of VBS, a record length of 1, a blocksize of 27998 as per the file attributes, and a possible real record length of 65535. But in trying to open tne file I get a SOC4. I am not the greatest Assembler coder but my program is pretty simple. I know it is abending on the open. Anyone have any ideas. My actual input records in the spanned file are header records that are 76 bytes, data records that are 136 bytes, and trailer records that are 28 bytes. Any help will be greatly appreciated. Ngafei Huang's suggestion for AMODE 24 was spot on. If you want to get into using AMODE 31 for programs that do I/O, you could check out our free paper I/O and AMODE 31 at http://www.trainersfriend.com/Papers/amode_31_io.pdf TITLE 'XP1000' * * 02/25/11 B HUNT CHANGED A SPANNED FILE TO A FIXED FILE * XP1000 AMODE 31 XP1000 RMODE ANY XP1000 START COPY EQUATES SAVE (14,12) SAVE REGISTERS 14 THRU 12 BASR BASE1,0 ESTABLISH ADDRESSABILITY USING *,BASE1 PROVIDE BASE ID WTO ' START XP1000',X ROUTCDE=(2),X DESC=(7) B BEGIN SPACE 1 DS0D DCCL8'XP1000' DCCL8'SYSDATE' DCCL8'SYSTIME' SPACE 1 BEGINDS0H WTO ' BEFORE OPEN',ROUTCDE=(2),DESC=(7) OPEN (INFILE,INPUT,OUTFILE,OUTPUT) LTR 15,15 BNZ BADOPEN WTO ' GOOD OPEN FILE',ROUTCDE=(2),DESC=(7) LOOP DS 0H GET INFILE,INREC WTO ' GOOD FILE READ',ROUTCDE=(2),DESC=(7) MVC BATA,DATA WTO ' GOOD MOVE',ROUTCDE=(2),DESC=(7) PUT OUTFILE,OUTREC WTO ' GOOD FILE WRITE',ROUTCDE=(2),DESC=(7) B LOOP FINAL DS 0H WTO ' BEFORE FILE CLOSE',ROUTCDE=(2),DESC=(7) CLOSE (INFILE,,OUTFILE) WTO ' GOOD FILE CLOSE',ROUTCDE=(2),DESC=(7) B C100 BADOPEN WTO ' UABLE TO OPEN FILE',ROUTCDE=(2),DESC=(7) B C100 BADREAD WTO ' READ UNSUCCESSFUL ',ROUTCDE=(2),DESC=(7) B C100 BADWRITE WTO ' WRITE UNSUCCESSFUL ',ROUTCDE=(2),DESC=(7) B C100 C100 DS0H RETURN (14,12)RESTORE REGISTERS AND RETURN INFILE DCB DSORG=PS,RECFM=VBS,MACRF=GM,+ DDNAME=INDD,EODAD=FINAL OUTFILE DCB DSORG=PS,RECFM=FB,LRECL=28,BLKSIZE=2800,MACRF=PM, + DDNAME=OUTDD OUTREC DS0CL28 BATA DSCL28 SAVEAREA DS18F LTORG INRECDS0F DATA DSCL28 DSCL32000 DSCL32000 DSCL32000 END XP1000 09.38.22 JOB33865 -JOBNAME STEPNAME PROCSTEPRC EXCP CONN TCBSRB 09.38.22 JOB33865 -ASMJCL RMS RMS@2X 00 31 8 551177.00 09.38.22 JOB33865 + START XP1000 09.38.22 JOB33865 + BEFORE OPEN 09.38.25 JOB33865 IEA995I SYMPTOM DUMP OUTPUT 742 742 SYSTEM COMPLETION CODE=0C4 REASON CODE=0010 742 TIME=09.38.22 SEQ=02516 CPU= ASID=0060 742 PSW AT TIME OF ERROR 078C1000 80D26522 ILC 4 INTC 10 742NO ACTIVE MODULE FOUND 742NAME=UNKNOWN 742DATA AT PSW 00D2651C - 56403DD6 0B049180 20324710 742GR 0: 00011000 1: 00D00060 742 2: 001E9184 3: 00D264D2 742 4: 80D26522 5: 008FDBC0 742 6: 00D264D0 7: 00FBD480 742 8: 0E14409E 9: 8AAE2D88 742 A: 008CBC8D B: 008FF048 742 C: 010D93C0 D: 6008 742 E: 90D26518 F: 008FF048 742 END OF SYMPTOM DUMP //ASMJCL JOB (DP,6010),'XX - HUNT ',CLASS=A,MSGCLASS=X, // MSGLEVEL=(1,1),NOTIFY=SYSUID //* //RMS EXEC CA11RMS,TYPRUN='F' //* //ASMEXEC EXEC PGM=XP1000,REGION=0M //STEPLIB DD DISP=SHR,DSN=TEST.LE.LOADLIB //INDD DD DISP=SHR,DSN=TEST.FONT.BACKUP, // DSORG=PS,LRECL=X,BLKSIZE=27998,RECFM=VBS //OUTDDDD DSN=TEST.FONT.BACKUP.FIXED, // DISP=(,CATLG,CATLG), // SPACE=(TRK,(1950,100),RLSE), // DCB=(LRECL=28,BLKSIZE=0,RECFM=FB) //SYSOUT DD SYSOUT=* //SYSDBOUT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* // -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-393-8716 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
Re: Opening a Spanned File for Input Using Assembler
Adding the parameter BFTEK=A will cause the spanned records to be re-assembled during input processing, before they are handed to the application. Rick -- Bruce Hunt wrote: I an trying to read a spanned file that has a record organzation of PS, a record format of VBS, a record length of 1, a blocksize of 27998 as per the file attributes, and a possible real record length of 65535. But in trying to open tne file I get a SOC4. I am not the greatest Assembler coder but my program is pretty simple. I know it is abending on the open. Anyone have any ideas. My actual input records in the spanned file are header records that are 76 bytes, data records that are 136 bytes, and trailer records that are 28 bytes. Any help will be greatly appreciated. TITLE 'XP1000' * * 02/25/11 B HUNT CHANGED A SPANNED FILE TO A FIXED FILE * XP1000 AMODE 31 XP1000 RMODE ANY XP1000 START COPY EQUATES SAVE (14,12) SAVE REGISTERS 14 THRU 12 BASR BASE1,0 ESTABLISH ADDRESSABILITY USING *,BASE1 PROVIDE BASE ID WTO ' START XP1000',X ROUTCDE=(2),X DESC=(7) B BEGIN SPACE 1 DS0D DCCL8'XP1000' DCCL8'SYSDATE' DCCL8'SYSTIME' SPACE 1 BEGINDS0H WTO ' BEFORE OPEN',ROUTCDE=(2),DESC=(7) OPEN (INFILE,INPUT,OUTFILE,OUTPUT) LTR 15,15 BNZ BADOPEN WTO ' GOOD OPEN FILE',ROUTCDE=(2),DESC=(7) LOOP DS 0H GET INFILE,INREC WTO ' GOOD FILE READ',ROUTCDE=(2),DESC=(7) MVC BATA,DATA WTO ' GOOD MOVE',ROUTCDE=(2),DESC=(7) PUT OUTFILE,OUTREC WTO ' GOOD FILE WRITE',ROUTCDE=(2),DESC=(7) B LOOP FINAL DS 0H WTO ' BEFORE FILE CLOSE',ROUTCDE=(2),DESC=(7) CLOSE (INFILE,,OUTFILE) WTO ' GOOD FILE CLOSE',ROUTCDE=(2),DESC=(7) B C100 BADOPEN WTO ' UABLE TO OPEN FILE',ROUTCDE=(2),DESC=(7) B C100 BADREAD WTO ' READ UNSUCCESSFUL ',ROUTCDE=(2),DESC=(7) B C100 BADWRITE WTO ' WRITE UNSUCCESSFUL ',ROUTCDE=(2),DESC=(7) B C100 C100 DS0H RETURN (14,12)RESTORE REGISTERS AND RETURN INFILE DCB DSORG=PS,RECFM=VBS,MACRF=GM,+ DDNAME=INDD,EODAD=FINAL OUTFILE DCB DSORG=PS,RECFM=FB,LRECL=28,BLKSIZE=2800,MACRF=PM, + DDNAME=OUTDD OUTREC DS0CL28 BATA DSCL28 SAVEAREA DS18F LTORG INRECDS0F DATA DSCL28 DSCL32000 DSCL32000 DSCL32000 END XP1000
Re: SMF data question - an opinion poll, of sorts
John: you should visit the proffered url as it might give you some experiment
ideas. It contains JCL to generate the class by taking the expanded assembler
macro text and running it through another class. Once you have the class
generated, I expect (not able to try it, tho') that it could be run off the
mainframe with your downloaded SMF data.
Worth a little investigation. ('specially since you could probably used any of
the other supplied macros for all the other SMF layouts.) For that matter, you
might be able to run the generator off z/OS using the macro text as input.
-- signature = 6 lines follows --
Neil Duffee, Joe SysProg, U d'Ottawa, Ottawa, Ont, Canada
telephone:1 613 562 5800 x4585 fax:1 613 562 5161
mailto:NDuffee of uOttawa.ca http:/ /aix1.uottawa.ca/ ~nduffee
How *do* you plan for something like that? Guardian Bob, Reboot
For every action, there is an equal and opposite criticism.
Systems Programming: Guilty, until proven innocent John Norgauer 2004
-Original Message-
From: McKown, John [mailto:john.mck...@healthmarkets.com]
Sent: March 7, 2011 09:13
Subject: Re: SMF data question - an opinion poll, of sorts
[snip] Java on
the z is out. I try to download what data I need to my Linux
system and process it there.
-Original Message-
From: IBM Mainframe Discussion List
[mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Scott Chapman
Sent: Monday, March 07, 2011 5:09 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: SMF data question - an opinion poll, of sorts
If you want to do it in Java, it seems like JZOS might be your friend.
http://www.ibm.com/developerworks/java/zos/javadoc/jzos/com/ibm/jzos/sample/fields/Smf83BaseRecord.html
see also com.ibm.jzos.fields
Of course there are all sorts of options for Java classes to build the
XML once you have the data in some structure within Java.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Java performance (was Re: SMF data question)
On Tue, 8 Mar 2011, Scott Chapman wrote: You can of course write C/C++ for the mainframe no problem. There is a Perl port available, I'm not sure how up to date it is at the moment. You can apparently run Python within CICS, but I have no experience with that. I have no experience with either Ruby or CL either. Google implies that there are Java implementations of those though. I would think that you could then leverage those to run on the mainframe. If they allow you to access any Java class from within Ruby/CL then I would think that you could access the JZOS classes to get access to traditional MVS datasets from those languages. While I'm no fan of Java as a language, the idea of having the JVM be a portable run-time container for multiple languages has some merit I think. Yes, I know there is C and C++ for mainframe, and I know about JRuby, Jython and ABCL. So the problem of just running programs in relevant languages is not a problem at all. Java is quite good as language enabler (and dotnet/mono might be even better), however one should be prepared for performance penalty from running non-Java language on JVM. How big the penalty is, depends and changes (mostly, I believe, for the better) from one version to another. From what I've seen, penalty shrinked very nicely during last few years (in some languages it did not, however). I understand that mere computational power from mainframe is not deciding factor of it's value, but having some numbers would definitely help in knowing/extrapolating how the thing behaves compared to what I have here. Also, I guess there are some differences between IBM java and PC java and so it could be interesting to have some tests to compare the two and languages on them versus their C-based originals (say, JRuby vs Ruby, how much different when run on iron and on PC). If nothing else, the JIT targets very different CPUs so it would map differently from a language to binary and this could give some unexpected benchmarking results (or expected, depending on what one knew before). BTW, every language for JVM that I cared to check, has some way of accessing Java classes, so their Java ports are not just simple translations. At the moment, I don't consider languages that are available only for Java/mono like Clojure. Excellent they may be, but I am afraid of being trapped (a big trap is still a trap, anyway). Regards, Tomasz Rola -- ** A C programmer asked whether computer had Buddha's nature. ** ** As the answer, master did rm -rif on the programmer's home** ** directory. And then the C programmer became enlightened... ** ** ** ** Tomasz Rola mailto:tomasz_r...@bigfoot.com ** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
JES2 TCPNJE link to RSCS
Dos anyone here happen to have a sample JES2 parmlib member showing how to configure JES2 (z/OS 1.11, btw) to connect via a TCP/IP link to VM's RSCS? I've got a good handle on the RSCS configuration, but the z/OS sysprogs here are struggling a bit with the JES2 side. Thanks and have a good one. DJ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Opening a Spanned File for Input Using Assembler
After you solve the open problem, you still need to load R13 with the address of your 18 word save area (required by GET and PUT). You define the area but you never load R13. Don't forget to restore R13 before issuing the RETURN macro. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Bruce Hunt Sent: Tuesday, March 08, 2011 8:43 AM To: IBM-MAIN@bama.ua.edu Subject: Opening a Spanned File for Input Using Assembler I an trying to read a spanned file that has a record organzation of PS, a record format of VBS, a record length of 1, a blocksize of 27998 as per the file attributes, and a possible real record length of 65535. But in trying to open tne file I get a SOC4. I am not the greatest Assembler coder but my program is pretty simple. I know it is abending on the open. Anyone have any ideas. My actual input records in the spanned file are header records that are 76 bytes, data records that are 136 bytes, and trailer records that are 28 bytes. Any help will be greatly appreciated. TITLE 'XP1000' * * 02/25/11 B HUNT CHANGED A SPANNED FILE TO A FIXED FILE * XP1000 AMODE 31 XP1000 RMODE ANY XP1000 START COPY EQUATES SAVE (14,12) SAVE REGISTERS 14 THRU 12 BASR BASE1,0 ESTABLISH ADDRESSABILITY USING *,BASE1 PROVIDE BASE ID WTO ' START XP1000',X ROUTCDE=(2),X DESC=(7) B BEGIN SPACE 1 DS0D DCCL8'XP1000' DCCL8'SYSDATE' DCCL8'SYSTIME' SPACE 1 BEGINDS0H WTO ' BEFORE OPEN',ROUTCDE=(2),DESC=(7) OPEN (INFILE,INPUT,OUTFILE,OUTPUT) LTR 15,15 BNZ BADOPEN WTO ' GOOD OPEN FILE',ROUTCDE=(2),DESC=(7) LOOP DS 0H GET INFILE,INREC WTO ' GOOD FILE READ',ROUTCDE=(2),DESC=(7) MVC BATA,DATA WTO ' GOOD MOVE',ROUTCDE=(2),DESC=(7) PUT OUTFILE,OUTREC WTO ' GOOD FILE WRITE',ROUTCDE=(2),DESC=(7) B LOOP FINAL DS 0H WTO ' BEFORE FILE CLOSE',ROUTCDE=(2),DESC=(7) CLOSE (INFILE,,OUTFILE) WTO ' GOOD FILE CLOSE',ROUTCDE=(2),DESC=(7) B C100 BADOPEN WTO ' UABLE TO OPEN FILE',ROUTCDE=(2),DESC=(7) B C100 BADREAD WTO ' READ UNSUCCESSFUL ',ROUTCDE=(2),DESC=(7) B C100 BADWRITE WTO ' WRITE UNSUCCESSFUL ',ROUTCDE=(2),DESC=(7) B C100 C100 DS0H RETURN (14,12)RESTORE REGISTERS AND RETURN INFILE DCB DSORG=PS,RECFM=VBS,MACRF=GM,+ DDNAME=INDD,EODAD=FINAL OUTFILE DCB DSORG=PS,RECFM=FB,LRECL=28,BLKSIZE=2800,MACRF=PM, + DDNAME=OUTDD OUTREC DS0CL28 BATA DSCL28 SAVEAREA DS18F LTORG INRECDS0F DATA DSCL28 DSCL32000 DSCL32000 DSCL32000 END XP1000 09.38.22 JOB33865 -JOBNAME STEPNAME PROCSTEPRC EXCP CONN TCBSRB 09.38.22 JOB33865 -ASMJCL RMS RMS@2X 00 31 8 551177.00 09.38.22 JOB33865 + START XP1000 09.38.22 JOB33865 + BEFORE OPEN 09.38.25 JOB33865 IEA995I SYMPTOM DUMP OUTPUT 742 742 SYSTEM COMPLETION CODE=0C4 REASON CODE=0010 742 TIME=09.38.22 SEQ=02516 CPU= ASID=0060 742 PSW AT TIME OF ERROR 078C1000 80D26522 ILC 4 INTC 10 742NO ACTIVE MODULE FOUND 742NAME=UNKNOWN 742DATA AT PSW 00D2651C - 56403DD6 0B049180 20324710 742GR 0: 00011000 1: 00D00060 742 2: 001E9184 3: 00D264D2 742 4: 80D26522 5: 008FDBC0 742 6: 00D264D0 7: 00FBD480 742 8: 0E14409E 9: 8AAE2D88 742 A: 008CBC8D B: 008FF048 742 C: 010D93C0 D: 6008 742 E: 90D26518 F: 008FF048 742 END OF SYMPTOM DUMP //ASMJCL JOB (DP,6010),'XX - HUNT ',CLASS=A,MSGCLASS=X, // MSGLEVEL=(1,1),NOTIFY=SYSUID //* //RMS EXEC CA11RMS,TYPRUN='F' //* //ASMEXEC EXEC PGM=XP1000,REGION=0M //STEPLIB DD DISP=SHR,DSN=TEST.LE.LOADLIB //INDD DD DISP=SHR,DSN=TEST.FONT.BACKUP, // DSORG=PS,LRECL=X,BLKSIZE=27998,RECFM=VBS //OUTDDDD DSN=TEST.FONT.BACKUP.FIXED, // DISP=(,CATLG,CATLG), // SPACE=(TRK,(1950,100),RLSE), // DCB=(LRECL=28,BLKSIZE=0,RECFM=FB) //SYSOUT DD SYSOUT=* //SYSDBOUT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* // -- For IBM-MAIN
Re: JES2 TCPNJE link to RSCS
I don't have z/VM here. But I do use TCP for JES2 to JES2 on z/OS. Basically in the JES2 parameters, I have: === LINE(16) UNIT=TCPIP NETSRV(1) SOCKET=LOCAL SOCKET(LIH1) IPADDR=192.168.151.1, LINE=16,NETSERV=1,NODE=4 NODE(4) NAME=LIH1/* HURST PRODUCTION MVS */ === I think all you need to change is the IPADDR=, NODE=, and NAME= to be correct for your shop. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Dave Jones Sent: Tuesday, March 08, 2011 1:01 PM To: IBM-MAIN@bama.ua.edu Subject: JES2 TCPNJE link to RSCS Dos anyone here happen to have a sample JES2 parmlib member showing how to configure JES2 (z/OS 1.11, btw) to connect via a TCP/IP link to VM's RSCS? I've got a good handle on the RSCS configuration, but the z/OS sysprogs here are struggling a bit with the JES2 side. Thanks and have a good one. DJ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Trouble Reading a Spanned File with an Assembler Program
On 3/8/2011 12:39 PM, Hunt, Bruce wrote: I am trying to read a spanned file with a record format of VBS or variable blocked spanned, a record length of 1, a block size of 27998, an organization of PS or physical sequential (all according to the file attributes), and a real record size of 65535. If the label of this file really has LRECL=1, I would have expected an 013 abend. At a minimum, try this (as previously suggested): Add BFTEK=A on the DCB Run with AMODE 24 Also add LRECL=X on the DD (this will allocate 65K for the record buffer, and should avoid 0C4s). Add code to check the record length prior to writing the output. If there is any possibility of missing or incorrect segments, I'd use BSAM to read, and verify segment flags and lengths, and construct the complete records myself. Gerhard Postpischil Bradford, VT -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Trouble Reading a Spanned File with an Assembler Program
I hope this is what you were asking for. This is the assembler output. Thanks to others for their suggestions. Amode 24 still gets a soc4 but this module does not call anything else. Also adding brackets to the open statement still resulted in a soc4. -- TOP OF JOB -- PDSMAN r7.61COMPILER INTERFACE 08 March 2011.067 13:34:26 PAGE ** PDSM15 ** BEST TRSA38.LIB.CNTL Member Update Date/Time Vers. Job Name S Referenced Base Date XP1000 03/08/2011 13:30 01.17 TRSA38 MEMBERS COPIED FROM SYSLIB EQUATES03/02/1991 14:49 01.00 TRS176 -- None -- 03/02/1991 TRS.DEVL.COPYLIB High Level Assembler Option Summary (PTF UK47103) Page1 HLASM R6.0 2011/03/08 13.34 No Overriding ASMAOPT Parameters Overriding Parameters- NODECK,OBJECT,,LIST,ALIGN No Process Statements Options for this Assembly NOADATA 3 ALIGN NOASA BATCH CODEPAGE(047C) NOCOMPAT NODBCS 3 NODECK DXREF ESD NOEXIT FLAG(0,ALIGN,CONT,EXLITW,NOIMPLEN,NOPAGE0,PUSH,RECORD,NOSUBSTR,USING0) NOFOLD NOGOFF NOINFO LANGUAGE(EN) NOLIBMAC LINECOUNT(60) 3 LIST(121) MACHINE(,NOLIST) MXREF(SOURCE) 3 OBJECT OPTABLE(UNI,NOLIST) NOPCONTROL NOPESTOP NOPROFILE NORA2 NORENT RLD RXREF SECTALGN(8) SIZE(MAX) NOSUPRWARN SYSPARM() NOTERM NOTEST THREAD NOTRANSLATE TYPECHECK(MAGNITUDE,REGISTER) USING(NOLIMIT,MAP,WARN(15)) NOWORKFILE XREF(SHORT,UNREFS) No Overriding DD Names External Symbol Dictionary Page2 Symbol Type Id Address Length Owner Id Flags Alias-of HLASM R6.0 2011/03/08 13.34 XP1000SD 0001 00017AF8 06 XP1000 Page3 Active Usings: None Loc Object CodeAddr1 Addr2 Stmt Source Statement HLASM R6.0 2011/03/08 13.34 2 * 3 * 02/25/11 B HUNT CHANGED A SPANNED FILE TO A FIXED FILE 4 * 5 XP1000 AMODE 31 6 XP1000 RMODE ANY 000 17AF8 7 XP1000 START 3**7 8 COPY EQUATES 0 9=R0 EQU 0 5 1 10=R1 EQU 1 6 2 11=R2 EQU 2 7 3 12=R3 EQU 3 8 4 13=R4 EQU 4 9 5 14=R5 EQU 5 00010 6 15=R6 EQU 6 00011 7 16=R7 EQU 7 00012 8 17=R8 EQU 8 00013 9 18=R9 EQU 9 00014 A 19=RA EQU 10 00015 B 20=RB EQU 11 00016 C 21=RC EQU 12 00017 D 22=RD EQU 13 00018 E 23=RE EQU 14 00019 F 24=RF EQU 15 00020 A 25=BASE1EQU 10 00021 B 26=BASE2EQU 11 00022 C 27=BASE3
Re: Opening a Spanned File for Input Using Assembler
I tried BFTEK=A and DCB=BFTEK=A on my input file JCL and still got soc4's but thanks. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Rick Fochtman Sent: Tuesday, March 08, 2011 12:01 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Opening a Spanned File for Input Using Assembler Adding the parameter BFTEK=A will cause the spanned records to be re-assembled during input processing, before they are handed to the application. Rick -- Bruce Hunt wrote: I an trying to read a spanned file that has a record organzation of PS, a record format of VBS, a record length of 1, a blocksize of 27998 as per the file attributes, and a possible real record length of 65535. But in trying to open tne file I get a SOC4. I am not the greatest Assembler coder but my program is pretty simple. I know it is abending on the open. Anyone have any ideas. My actual input records in the spanned file are header records that are 76 bytes, data records that are 136 bytes, and trailer records that are 28 bytes. Any help will be greatly appreciated. TITLE 'XP1000' * * 02/25/11 B HUNT CHANGED A SPANNED FILE TO A FIXED FILE * XP1000 AMODE 31 XP1000 RMODE ANY XP1000 START COPY EQUATES SAVE (14,12) SAVE REGISTERS 14 THRU 12 BASR BASE1,0 ESTABLISH ADDRESSABILITY USING *,BASE1 PROVIDE BASE ID WTO ' START XP1000',X ROUTCDE=(2),X DESC=(7) B BEGIN SPACE 1 DS0D DCCL8'XP1000' DCCL8'SYSDATE' DCCL8'SYSTIME' SPACE 1 BEGINDS0H WTO ' BEFORE OPEN',ROUTCDE=(2),DESC=(7) OPEN (INFILE,INPUT,OUTFILE,OUTPUT) LTR 15,15 BNZ BADOPEN WTO ' GOOD OPEN FILE',ROUTCDE=(2),DESC=(7) LOOP DS 0H GET INFILE,INREC WTO ' GOOD FILE READ',ROUTCDE=(2),DESC=(7) MVC BATA,DATA WTO ' GOOD MOVE',ROUTCDE=(2),DESC=(7) PUT OUTFILE,OUTREC WTO ' GOOD FILE WRITE',ROUTCDE=(2),DESC=(7) B LOOP FINAL DS 0H WTO ' BEFORE FILE CLOSE',ROUTCDE=(2),DESC=(7) CLOSE (INFILE,,OUTFILE) WTO ' GOOD FILE CLOSE',ROUTCDE=(2),DESC=(7) B C100 BADOPEN WTO ' UABLE TO OPEN FILE',ROUTCDE=(2),DESC=(7) B C100 BADREAD WTO ' READ UNSUCCESSFUL ',ROUTCDE=(2),DESC=(7) B C100 BADWRITE WTO ' WRITE UNSUCCESSFUL ',ROUTCDE=(2),DESC=(7) B C100 C100 DS0H RETURN (14,12)RESTORE REGISTERS AND RETURN INFILE DCB DSORG=PS,RECFM=VBS,MACRF=GM,+ DDNAME=INDD,EODAD=FINAL OUTFILE DCB DSORG=PS,RECFM=FB,LRECL=28,BLKSIZE=2800,MACRF=PM, + DDNAME=OUTDD OUTREC DS0CL28 BATA DSCL28 SAVEAREA DS18F LTORG
Re: Maybe off topic
hmerr...@jackhenry.com (Hal Merritt) writes: I seem to recall working on a product called SLR (Service Level Reporter). My (very poor) memory is of databases that looked a lot like those later introduced by DB2. re: http://www.garlic.com/~lynn/~lynn/2011d.html#52 Maybe off topic http://www.garlic.com/~lynn/~lynn/2011d.html#54 Maybe off topic dating back before sql (originally on vm370) were some 4th generation languages that were offered by virtual machine based commercial service bureaus (initially late 60s, cp67 and later vm370) ... RAMIS, NOMAD, FOCUS (in some cases developed as part of competition between different virtual machine based commercial service bureaus) RAMIS wiki page http://en.wikipedia.org/wiki/Ramis_Software NOMAD wiki page http://en.wikipedia.org/wiki/Nomad_software FOCUS wiki page http://en.wikipedia.org/wiki/FOCUS RAMIS and NOMAD reference at computer history museum http://www.computerhistory.org/collections/accession/102658182 Computer History Museum PDF file: http://archive.computerhistory.org/resources/text/Oral_History/RAMIS_and_NOMAD/RAMIS_and_NOMAD.National_CSS.oral_history.2005.102658182.pdf RAMIS FOCUS ... brief history of 4th gen languages: http://ibmmainframes.com/about5018.html The Wholly Unofficial NOMAD Website http://www.decosta.com/Nomad/ also in the time-frame of SQL/RDBMS being done at SJR (research on the west coast) there was query-by-example being done at YKT (research on the east coast) ... old email about QBE presentation at SJR (by Father of QBE, Arch-enemy of System R): http://www.garlic.com/~lynn/2002e.html#email800310 in this old post http://www.garlic.com/~lynn/2002e.html#44 SQL wildcard origins? QBE wiki http://en.wikipedia.org/wiki/Query_by_Example then there is this on pre-history (also from the 95 reunion): http://www.mcjones.org/System_R/SQL_Reunion_95/sqlr95-Prehisto.html Ingres has gone thru multiple incarnations ... we worked with them in the 90s as part of our high-availability, cluster operation http://en.wikipedia.org/wiki/Ingres_%28database%29 in conjunction with HA/CMP product: http://publib.boulder.ibm.com/infocenter/clresctr/vxrx/topic/com.ibm.cluster.hacmp.doc/hacmpbooks.html past posts http://www.garlic.com/~lynn/subtopic.html#hacmp mention that original INGRES language was QUEL http://www.mcjones.org/System_R/SQL_Reunion_95/sqlr95-Teradata.html above also mentions that a spinoff from INGRES project was Britton-Lee ... including Bob Epstien as CTO. When Bob left for Teradata (and then later founded Sybase), there was lots of recruiting going on around bldg28/SJR (usually across the street from the plant site) for replacement for Bob. Of course not nearly on the scale of Shugart recruiting disk engineers http://www.businessweek.com/1997/34/trans34/shugart.htm http://www.mdhc.scu.edu/100th/Progress/Shugart/shugart.html Sybase wiki ... we also worked with in porting to HA/CMP cluster mode: http://en.wikipedia.org/wiki/Sybase Above mentions Sybase had a deal with Microsoft to remarket as SQL Server (... until version 4.9, Sybase and Microsoft SQL Server were virtually identical) Oracle wiki page (started out as SDL, Oracel name came from CIA-funded project that Ellison had worked on at Ampex) ... we also worked with (RDBMS) Oracle http://en.wikipedia.org/wiki/Oracle_Database as referenced in this post about old Jan92 meeting in Ellison's conference room http://www.garlic.com/~lynn/95.html#13 Oracle wiki mentions it was the first commercially available SQL-based RDBMS (1979) ... as opposed to first commercial RDBMS (Multics 1976). http://www.mcjones.org/System_R/mrds.htm The other major RDBMS player from the period (that we worked with in HA/CMP) was Informix (before IBM bought them) http://en.wikipedia.org/wiki/IBM_Informix DB2 was rather late RDBMS to ship ... largely because EAGLE was the MVS strategic DBMS ... and it wasn't only after EAGLE effort crashed was there the rush to get System/R (and SQL/DS) over to MVS for DB2. DB2 announced 7Jun1983, avail. 2Apr1985 http://en.wikipedia.org/wiki/IBM_DB2 note that in 1989 ... there was work on totally different DB2 ... targeted for OS2. past posts mentioning System/R http://www.garlic.com/~lynn/subtopic.html#systemr also past posts getting to play disk engineer in bldgs1415 http://www.garlic.com/~lynn/subtopic.html#disk -- virtualization experience starting Jan1968, online at home since Mar1970 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Trouble Reading a Spanned File with an Assembler Program
Top posting: The earlier poster who suggested you have forgotten your save area chaining was probably closest. I put in a few suggested instructions below, after line 33 and 203 (look for ===); that should get you closer, anyway. On 3/8/2011 12:59 PM, Hunt, Bruce wrote: I hope this is what you were asking for. This is the assembler output. Thanks to others for their suggestions. Amode 24 still gets a soc4 but this module does not call anything else. Also adding brackets to the open statement still resulted in a soc4. -- TOP OF JOB -- PDSMAN r7.61COMPILER INTERFACE 08 March 2011.067 13:34:26 PAGE ** PDSM15 ** BEST TRSA38.LIB.CNTL Member Update Date/Time Vers. Job Name S Referenced Base Date XP1000 03/08/2011 13:30 01.17 TRSA38 MEMBERS COPIED FROM SYSLIB EQUATES03/02/1991 14:49 01.00 TRS176 -- None -- 03/02/1991 TRS.DEVL.COPYLIB High Level Assembler Option Summary (PTF UK47103) Page1 HLASM R6.0 2011/03/08 13.34 No Overriding ASMAOPT Parameters Overriding Parameters- NODECK,OBJECT,,LIST,ALIGN No Process Statements Options for this Assembly NOADATA 3 ALIGN NOASA BATCH CODEPAGE(047C) NOCOMPAT NODBCS 3 NODECK DXREF ESD NOEXIT FLAG(0,ALIGN,CONT,EXLITW,NOIMPLEN,NOPAGE0,PUSH,RECORD,NOSUBSTR,USING0) NOFOLD NOGOFF NOINFO LANGUAGE(EN) NOLIBMAC LINECOUNT(60) 3 LIST(121) MACHINE(,NOLIST) MXREF(SOURCE) 3 OBJECT OPTABLE(UNI,NOLIST) NOPCONTROL NOPESTOP NOPROFILE NORA2 NORENT RLD RXREF SECTALGN(8) SIZE(MAX) NOSUPRWARN SYSPARM() NOTERM NOTEST THREAD NOTRANSLATE TYPECHECK(MAGNITUDE,REGISTER) USING(NOLIMIT,MAP,WARN(15)) NOWORKFILE XREF(SHORT,UNREFS) No Overriding DD Names External Symbol Dictionary Page2 Symbol Type Id Address Length Owner Id Flags Alias-of HLASM R6.0 2011/03/08 13.34 XP1000SD 0001 00017AF8 06 XP1000 Page3 Active Usings: None Loc Object CodeAddr1 Addr2 Stmt Source Statement HLASM R6.0 2011/03/08 13.34 2 * 3 * 02/25/11 B HUNT CHANGED A SPANNED FILE TO A FIXED FILE 4 * 5 XP1000 AMODE 31 6 XP1000 RMODE ANY 000 17AF8 7 XP1000 START 3**7 8 COPY EQUATES 0 9=R0 EQU 0 5 1 10=R1 EQU 1 6 2 11=R2 EQU 2 7 3 12=R3 EQU 3 8 4 13=R4 EQU 4 9 5 14=R5 EQU 5 00010 6 15=R6 EQU 6 00011 7 16=R7 EQU 7 00012 8 17=R8 EQU 8 00013 9 18=R9 EQU 9 00014 A 19=RA EQU 10 00015 B 20=RB EQU 11 00016 C 21=RC EQU 12 00017 D 22=RD EQU 13 00018 E 23=RE EQU 14 00019 F 24=RF EQU 15
Re: Opening a Spanned File for Input Using Assembler
Does the load module linked with RM 24? Maybe it should be. -Original Message- From: Hunt, Bruce bruce.h...@trs.state.tx.us To: IBM-MAIN@bama.ua.edu Sent: Tue, Mar 8, 2011 2:08 pm Subject: Re: Opening a Spanned File for Input Using Assembler I tried BFTEK=A and DCB=BFTEK=A on my input file JCL and still got soc4's but hanks. -Original Message- rom: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of ick Fochtman ent: Tuesday, March 08, 2011 12:01 PM o: IBM-MAIN@bama.ua.edu ubject: Re: Opening a Spanned File for Input Using Assembler Adding the parameter BFTEK=A will cause the spanned records to be e-assembled during input processing, before they are handed to the pplication. Rick - ruce Hunt wrote: I an trying to read a spanned file that has a record organzation of PS, a ecord format of VBS, a record length of 1, a blocksize of 27998 as per the file attributes, and a possible real record length of 65535. But in trying to open tne file I get a SOC4. I am not the greatest Assembler coder but my program is pretty simple. I know it is abending on the open. Anyone have any ideas. My actual input records in the spanned file are header records that are 76 bytes, data records that are 136 bytes, and trailer records that are 28 bytes. Any help will be greatly appreciated. TITLE 'XP1000' * * 02/25/11 B HUNT CHANGED A SPANNED FILE TO A FIXED FILE * XP1000 AMODE 31 XP1000 RMODE ANY XP1000 START COPY EQUATES SAVE (14,12) SAVE REGISTERS 14 THRU 12 BASR BASE1,0 ESTABLISH ADDRESSABILITY USING *,BASE1 PROVIDE BASE ID WTO ' START XP1000',X ROUTCDE=(2),X DESC=(7) B BEGIN SPACE 1 DS0D DCCL8'XP1000' DCCL8'SYSDATE' DCCL8'SYSTIME' SPACE 1 BEGINDS0H WTO ' BEFORE OPEN',ROUTCDE=(2),DESC=(7) OPEN (INFILE,INPUT,OUTFILE,OUTPUT) LTR 15,15 BNZ BADOPEN WTO ' GOOD OPEN FILE',ROUTCDE=(2),DESC=(7) LOOP DS 0H GET INFILE,INREC WTO ' GOOD FILE READ',ROUTCDE=(2),DESC=(7) MVC BATA,DATA WTO ' GOOD MOVE',ROUTCDE=(2),DESC=(7) PUT OUTFILE,OUTREC WTO ' GOOD FILE WRITE',ROUTCDE=(2),DESC=(7) B LOOP FINAL DS 0H WTO ' BEFORE FILE CLOSE',ROUTCDE=(2),DESC=(7) CLOSE (INFILE,,OUTFILE) WTO ' GOOD FILE CLOSE',ROUTCDE=(2),DESC=(7) B C100 BADOPEN WTO ' UABLE TO OPEN FILE',ROUTCDE=(2),DESC=(7) B C100 BADREAD WTO ' READ UNSUCCESSFUL ',ROUTCDE=(2),DESC=(7) B C100 BADWRITE WTO ' WRITE UNSUCCESSFUL ',ROUTCDE=(2),DESC=(7) B C100 C100 DS0H RETURN (14,12)RESTORE REGISTERS AND RETURN INFILE DCB DSORG=PS,RECFM=VBS,MACRF=GM,+ DDNAME=INDD,EODAD=FINAL OUTFILE DCB DSORG=PS,RECFM=FB,LRECL=28,BLKSIZE=2800,MACRF=PM, + DDNAME=OUTDD
Re: Trouble Reading a Spanned File with an Assembler Program
Thanks to Barry and Steve and all of you. The register chain was the cause of the SOC4 (and should be just basic Assembler coding). Thanks for catching that. I am now getting a S013 that has to do with not using a GL instead of a GM for a spanned file. I am using the BFTEK as well and the amode 24. When I get this working I will post the fix. But someone came into my office with a problem I have to fix real quick. So thanks to everyone for their help. As soon as I can I will get back on this. I hate getting re-directed when I am this close to working. I added Steve's coding into the program changing r13 to 13 since I do not have r13 defined. I will repost my JCL and program when it is working. === 14.26.30 JOB33984 -ASMJCL RMS RMS@2X 00 31 7 551177.00 14.26.31 JOB33984 + START XP1000 14.26.31 JOB33984 + BEFORE OPEN 14.26.31 JOB33984 IEC141I 013-5C,IGG0191I,ASMJCL,ASMEXEC,INDD,213D,SYS715,SYS2. 14.26.31 JOB33984 IEA995I SYMPTOM DUMP OUTPUT 645 645 SYSTEM COMPLETION CODE=013 REASON CODE=005C 645 TIME=14.26.31 SEQ=02615 CPU= ASID=0060 === 5COne of the following events occurred: o An OPEN macro instruction was issued for a sequential data set using queued access. The data set contained spanned variable-length records larger than 32 756, but GET locate mode was not specified, or the logical record interface (LRI) and LRECL=x were both specified. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Steve Comstock Sent: Tuesday, March 08, 2011 2:15 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Trouble Reading a Spanned File with an Assembler Program Top posting: The earlier poster who suggested you have forgotten your save area chaining was probably closest. I put in a few suggested instructions below, after line 33 and 203 (look for ===); that should get you closer, anyway. On 3/8/2011 12:59 PM, Hunt, Bruce wrote: I hope this is what you were asking for. This is the assembler output. Thanks to others for their suggestions. Amode 24 still gets a soc4 but this module does not call anything else. Also adding brackets to the open statement still resulted in a soc4. -- TOP OF JOB -- PDSMAN r7.61COMPILER INTERFACE 08 March 2011.067 13:34:26 PAGE ** PDSM15 ** BEST TRSA38.LIB.CNTL Member Update Date/Time Vers. Job Name S Referenced Base Date XP1000 03/08/2011 13:30 01.17 TRSA38 MEMBERS COPIED FROM SYSLIB EQUATES03/02/1991 14:49 01.00 TRS176 -- None -- 03/02/1991 TRS.DEVL.COPYLIB High Level Assembler Option Summary (PTF UK47103) Page1 HLASM R6.0 2011/03/08 13.34 No Overriding ASMAOPT Parameters Overriding Parameters- NODECK,OBJECT,,LIST,ALIGN No Process Statements Options for this Assembly NOADATA 3 ALIGN NOASA BATCH CODEPAGE(047C) NOCOMPAT NODBCS 3 NODECK DXREF ESD NOEXIT FLAG(0,ALIGN,CONT,EXLITW,NOIMPLEN,NOPAGE0,PUSH,RECORD,NOSUBSTR,USING0) NOFOLD NOGOFF NOINFO LANGUAGE(EN) NOLIBMAC LINECOUNT(60) 3 LIST(121) MACHINE(,NOLIST) MXREF(SOURCE) 3 OBJECT OPTABLE(UNI,NOLIST) NOPCONTROL NOPESTOP NOPROFILE NORA2 NORENT RLD RXREF SECTALGN(8) SIZE(MAX) NOSUPRWARN SYSPARM() NOTERM NOTEST THREAD NOTRANSLATE TYPECHECK(MAGNITUDE,REGISTER) USING(NOLIMIT,MAP,WARN(15)) NOWORKFILE XREF(SHORT,UNREFS) No Overriding DD Names External Symbol Dictionary Page2 Symbol Type Id Address Length Owner Id Flags Alias-of HLASM R6.0 2011/03/08 13.34 XP1000SD 0001 00017AF8 06 XP1000 Page3 Active Usings: None Loc Object CodeAddr1 Addr2 Stmt Source Statement HLASM R6.0 2011/03/08 13.34 2 * 3 * 02/25/11 B HUNT CHANGED A SPANNED FILE TO A FIXED FILE 4 * 5 XP1000 AMODE 31 6 XP1000 RMODE ANY 000 17AF8 7 XP1000 START
Re: SMF data question - an opinion poll, of sorts
Neil,
You can definitely use the JZOS RecordGenerator (which we wrote) to generate
Java code that reads SMF records that runs off-platform.
You can even use Co:Z Launcher to pipe the SMF data from a z/OS batch job to
your Java program (using records generated from the DSECT ADATA):
http://dovetail.com/docs/coz/cookbook.html#4_5
(subsitute smfp with invocation of your Java program. In your Java
program use com.ibm.jzos.RDWInputStream wrapped on System.in to read the
data.)
But that's *not* the the real problem IMO. DSECTS simply don't have the
complete syntactical description of an SMF record, unless you count the
comments. See my earlier comments on this thread.
Kirk Wolf
Dovetailed Technologies
http://dovetail.com
On Tue, Mar 8, 2011 at 12:19 PM, Neil Duffee nduf...@uottawa.ca wrote:
John: you should visit the proffered url as it might give you some
experiment ideas. It contains JCL to generate the class by taking the
expanded assembler macro text and running it through another class. Once
you have the class generated, I expect (not able to try it, tho') that it
could be run off the mainframe with your downloaded SMF data.
Worth a little investigation. ('specially since you could probably used
any of the other supplied macros for all the other SMF layouts.) For that
matter, you might be able to run the generator off z/OS using the macro text
as input.
-- signature = 6 lines follows --
Neil Duffee, Joe SysProg, U d'Ottawa, Ottawa, Ont, Canada
telephone:1 613 562 5800 x4585 fax:1 613 562 5161
mailto:NDuffee of uOttawa.ca http:/ /aix1.uottawa.ca/ ~nduffee
How *do* you plan for something like that? Guardian Bob, Reboot
For every action, there is an equal and opposite criticism.
Systems Programming: Guilty, until proven innocent John Norgauer 2004
-Original Message-
From: McKown, John [mailto:john.mck...@healthmarkets.com]
Sent: March 7, 2011 09:13
Subject: Re: SMF data question - an opinion poll, of sorts
[snip] Java on
the z is out. I try to download what data I need to my Linux
system and process it there.
-Original Message-
From: IBM Mainframe Discussion List
[mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Scott Chapman
Sent: Monday, March 07, 2011 5:09 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: SMF data question - an opinion poll, of sorts
If you want to do it in Java, it seems like JZOS might be your friend.
http://www.ibm.com/developerworks/java/zos/javadoc/jzos/com/ibm/jzos/sample/fields/Smf83BaseRecord.html
see also com.ibm.jzos.fields
Of course there are all sorts of options for Java classes to build the
XML once you have the data in some structure within Java.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Trouble Reading a Spanned File with an Assembler Program
... Also adding brackets to the open statement still resulted in a soc4. Yes, that was a red herring. Parentheses around the option field(s) are only absolutely necessary if there is more that one option in the field. Date: Tue, 8 Mar 2011 13:59:30 -0600 From: bruce.h...@trs.state.tx.us Subject: Re: Trouble Reading a Spanned File with an Assembler Program To: IBM-MAIN@bama.ua.edu I hope this is what you were asking for. This is the assembler output. Thanks to others for their suggestions. Amode 24 still gets a soc4 but this module does not call anything else. Also adding brackets to the open statement still resulted in a soc4. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Opening a Spanned File for Input Using Assembler
Steve Comstock wrote: WTO ' BEFORE OPEN',ROUTCDE=(2),DESC=(7) OPEN (INFILE,INPUT,OUTFILE,OUTPUT) You need the open options to be in parentheses: OPEN (INFILE,(INPUT),OUTFILE,(OUTPUT)) No, you don't. It might (arguably) be good programming style to include the parentheses, but they are not required and the program will assemble just fine without them. Regards, Allen -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
SMP/E GIM61903W from ACCEPT
A user reports receiving: GIM61903W LMOD WAS NOT DELETED BY SYSMOD xxx BECAUSE IT IS NOT IN THE dlib ZONE. when ACCEPT processes a ++DELETE MCS. It's only a warning, but apparently it matters to the user: he'd prefer not to inflict RC=4 on customers other than for the ++HOLD(SYSTEM) REASON(DELETE)... I'm researching this. The manuals are pretty vague on when and why LMOD entries are created in the DLIB zone. The one clear statement is that they are created for LMOD() options on the ++MOD MCS. This user's product has no LMOD entries in his DLIB zone; one of out other products has numerous LMOD entries; perhaps one for each load module. Is an LMOD entry created in the DLIB zone when Binder JCLIN creates a load module? (What's it good for, other than for consistency with the LMOD subentries of the MOD entries?) Should the user be concerned about the GIM61903W? Can he suppress it with suitably crafted MCS? I'd prefer not to resort to customized SMPCNTL or UCLIN. Thanks, gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Writing a Systems Programmer Resume
RE: http://share.confex.com/share/116/webprogram/Session8903.html I sent sent out my Anaheim SHARE powerpoint slides today to everyone who requested them. Since there were quite a few, I could have missed somebody. If you did not get them, or would like them, please let me know. Joe j...@spci.net 323-822-1569 On Tue, 22 Feb 2011 08:45:00 -0600, Joe Gallaher j...@spci.net wrote: I would like to invite anyone attending next week's SHARE conference in Anaheim to come to my session on How to Write a Resume for a Mainframe Systems Programmer (session 8903). It is the third time I have given this presentation at SHARE and it contains a lot of useful information and samples for the aspiring resume writer. Here is a link to my session: http://share.confex.com/share/116/webprogram/Session8903.html If you cannot attend, feel free to send me an email and I will send you a link to my PowerPoint slides (which will be available after Feb. 28). I look forward to seeing you Monday! Joe Gallaher j...@spci.net www.SPCI.net 323-822-1569 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Opening a Spanned File for Input Using Assembler
On 3/8/2011 3:13 PM, Gainsford, Allen wrote: Steve Comstock wrote: WTO ' BEFORE OPEN',ROUTCDE=(2),DESC=(7) OPEN (INFILE,INPUT,OUTFILE,OUTPUT) You need the open options to be in parentheses: OPEN (INFILE,(INPUT),OUTFILE,(OUTPUT)) No, you don't. It might (arguably) be good programming style to include the parentheses, but they are not required and the program will assemble just fine without them. Regards, Allen Yes, you're right. I was just comparing the OP's code to some code of mine and noticed that difference; I didn't go the doc with this one. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-393-8716 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 new 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...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: ICSF Troubles
Thanks for the replies so far! Rob: Here are my parms: CKDSN(My.CKDS) PKDSN(My.PKDS) COMPAT(NO) SSM(YES) DOMAIN(2) KEYAUTH(NO) CHECKAUTH(NO) TRACEENTRY(1000) USERPARM(USERPARM) COMPENC(DES) REASONCODES(ICSF) PKDSCACHE(64) Allen: The LRECL of the PKDS does not seem to be an issue. It occurs (or works) with either. John: No VM. There is nothing to suggest a real hardware issue. We use GRS for sharing. The member in SAMPLIB was used to define the clusters. The share options are 2,3. This was working just fine untill we upgraded from z/os 1.9 to z/os 1.11. Again, thanks all!! -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of zSeries Systems Programmer Sent: Thursday, March 03, 2011 10:35 PM To: IBM-MAIN@bama.ua.edu Subject: Re: ICSF Troubles Just a few items How are you sharing? GRS? CA-MIM? Etc. Were the files defined with the correct share options? Was this working before or new configuration? On Thursday, March 3, 2011, Ward, Mike S mw...@ssfcu.org wrote: We have one PKDS and one CKDS for all lpars. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Hal Merritt Sent: Thursday, March 03, 2011 11:36 AM To: IBM-MAIN@bama.ua.edu Subject: ICSF Troubles We are z/os 1.11. We almost never IPL. The last time we IPL'd, we received the following: 11.47.55 STC00014 CSFM450E UNEXPECTED ERROR PROCESSING PKDS, RETURN CODE = 000C, REASON CODE = 1780. 11.47.55 STC00014 CSFM401I CRYPTOGRAPHY - SERVICES ARE NO LONGER AVAILABLE. 11.47.55 STC00014 IEF352I ADDRESS SPACE UNAVAILABLE 11.47.55 STC00014 $HASP395 CSF ENDED We don't use PKI and have no current plans to do so. However, the CSF is critical. With a little experimentation in the testplex, I am currently of the opinion that it is some sort of file sharing issue. When I allocate a fresh PKDS, CSF on LparA comes up just fine. However, CSF on LparB sometimes fails with the above message. The FM seems to say that the PKDS is not completely initialized until the first key is stowed. Not sure how to do that. I'm thinking a PMR. But a user error is usually more likely. Right now my workaround is to point each LPAR to its own PKDS. Of course, I'm a bit nervous as I don't want to accidently break CSF. That would be equivalent to a full outage. What I'd really like to do is to completely shut off PKDS. I've tried starting with no PKDS specified, but CSF refuses to start. Thoughts? NOTICE: This electronic mail message and any files transmitted with it are intended exclusively for the individual or entity to which it is addressed. The message, together with any attachment, may contain confidential and/or privileged information. Any unauthorized review, use, printing, saving, copying, disclosure or distribution is strictly prohibited. If you have received this message in error, please immediately advise the sender by reply email and delete all copies. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html == This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to which they are addressed. If you have received this email in error please notify the system manager. This message contains confidential information and is intended only for the individual named. If you are not the named addressee you should not disseminate, distribute or copy this e-mail. Please notify the sender immediately by e-mail if you have received this e-mail by mistake and delete this e-mail from your system. If you are not the intended recipient you are notified that disclosing, copying, distributing or taking any action in reliance on the contents of this information is strictly prohibited. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html NOTICE: This electronic mail message and any files transmitted with it are intended exclusively for the individual or entity to which it is addressed. The message, together with any
Question about PFKTAB in CONSOLE member of parmlib
In my current CONSOLE member in parmlib I have PFKTAB(PFKTAB3) However, in parmlib I only have a member PFKTAB00 which contains PFKTAB TABLE(PFKTAB00) So where would I find PFKTAB3? This is z/OS 1.9. John Norgauer Senior Systems Programmer Mainframe Technical Support Services University of California Davis Medical Center 2315 Stockton Blvd ASB 1300 Sacramento, Ca 95817 916-734-0536 SYSTEMS PROGRAMMING.. Guilty, until proven innocent !! JN 2004 Hardware eventually breaks - Software eventually works anon -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: ICSF Troubles
Hal - I'm a little late to this party, but I saw your post and I remembered that we had some changes to make when we converted to zOS 1.11 (seems like so long ago..). Based on my notes, it looks like we had to remove the COMPENC and PKDSCACHE parameters--I think they are no longer supported. Larre Shiller US Social Security Administration -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Question about PFKTAB in CONSOLE member of parmlib
The PFK operand on the INIT statement and the PFKTAB operand on the CONSOLE statement have to play together. Since you only have PFKTAB00 in PARMILIB, I assume your INIT statement contains PFK(00). Since member PFKTAB00 contains only one table, that is the table you should specify in the PFKTAB operand. (It would be nice if they didn't have the same name to avoid confusing the member with the table.) Do you not get an error message during IPL? There is no IBM delivered PFKTAB3. If you want one with that name you have to build it yourself. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of John Norgauer Sent: Tuesday, March 08, 2011 3:06 PM To: IBM-MAIN@bama.ua.edu Subject: Question about PFKTAB in CONSOLE member of parmlib In my current CONSOLE member in parmlib I have PFKTAB(PFKTAB3) However, in parmlib I only have a member PFKTAB00 which contains PFKTAB TABLE(PFKTAB00) So where would I find PFKTAB3? This is z/OS 1.9. John Norgauer Senior Systems Programmer Mainframe Technical Support Services University of California Davis Medical Center 2315 Stockton Blvd ASB 1300 Sacramento, Ca 95817 916-734-0536 SYSTEMS PROGRAMMING.. Guilty, until proven innocent !! JN 2004 Hardware eventually breaks - Software eventually works anon -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Question about PFKTAB in CONSOLE member of parmlib
What does D PFK,T=PFKTAB3 indicate for a PFKTAB member? Perhaps take a look at your parmlib concatenation--D PARMLIB. Regards, Kevin -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of John Norgauer Sent: Tuesday, March 08, 2011 3:05 PM To: IBM-MAIN@bama.ua.edu Subject: Question about PFKTAB in CONSOLE member of parmlib In my current CONSOLE member in parmlib I have PFKTAB(PFKTAB3) However, in parmlib I only have a member PFKTAB00 which contains PFKTAB TABLE(PFKTAB00) So where would I find PFKTAB3? This is z/OS 1.9. John Norgauer Senior Systems Programmer Mainframe Technical Support Services University of California Davis Medical Center 2315 Stockton Blvd ASB 1300 Sacramento, Ca 95817 916-734-0536 SYSTEMS PROGRAMMING.. Guilty, until proven innocent !! JN 2004 Hardware eventually breaks - Software eventually works anon -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Question about PFKTAB in CONSOLE member of parmlib
I get: IEE235I 15.37.33 PFK DISPLAY 425 PFK TABLE PFKTAB3 NOT FOUND IN PFKTAB00 ON SYSTEM UCDMC1 to the query D PFK,T=PFKTAB3. At IPL time I got: K N,PFK=PFKTAB3,L=CONF00 INTERNALLY ISSUED BY IEAVC701 IEE232I IBM DEFAULT PFKS USED FOR CONSOLE CONF00 195 TABLE PFKTAB3 NOT FOUND So looks like the defaults are being used. Thanks John Norgauer Senior Systems Programmer Mainframe Technical Support Services University of California Davis Medical Center 2315 Stockton Blvd ASB 1300 Sacramento, Ca 95817 916-734-0536 SYSTEMS PROGRAMMING.. Guilty, until proven innocent !! JN 2004 Hardware eventually breaks - Software eventually works anon -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Removing BINS from RMM
Thanks to all for your input. It looks like we have a plan, though, not as straight forward as one would expect. Having to recreate every VRS that uses one of the changing locations seems like a bug, but alas, so it be written, so it be done. Thanks, again. David G. Schlecht | Information Technology Professional | DoIT Facility State of Nevada | Department of Information Technology T:(775)684-4328 | F: (775) 684‐4324 | E:dschle...@doit.nv.gov -Original Message- From: Mike Wood [mailto:mikeww...@hotmail.com] Sent: Friday, March 04, 2011 12:55 AM To: IBM-MAIN@bama.ua.edu; David G. Schlecht Subject: Re: Removing BINS from RMM David, How you deal with this depends on your level of rmm. Looks like you are on an older release that needs extra work, because rmm was changed in z/OS R11 to simplify the procedure needed for such a management type change. See the IC Guide 9.8 Changing Storage Locations http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/dgt2c871/9.8?SHELF=EZ2ZBK0GDT=20081217173205 The management type is remembered in the VRS - so you have to delete/redefine the VRSes specifying that changed location. From R11 on, that is no longer required. The location type from the VRS is saved into the volume 'required location', so be sure to rerun VRSEL once you made the VRS changes to update all the existing values in the volume records. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Opening a Spanned File for Input Using Assembler
Have you properly chained the save areas, as another poster pointed out? Rick Hunt, Bruce wrote: I tried BFTEK=A and DCB=BFTEK=A on my input file JCL and still got soc4's but thanks. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Rick Fochtman Sent: Tuesday, March 08, 2011 12:01 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Opening a Spanned File for Input Using Assembler Adding the parameter BFTEK=A will cause the spanned records to be re-assembled during input processing, before they are handed to the application. Rick -- Bruce Hunt wrote: I an trying to read a spanned file that has a record organzation of PS, a record format of VBS, a record length of 1, a blocksize of 27998 as per the file attributes, and a possible real record length of 65535. But in trying to open tne file I get a SOC4. I am not the greatest Assembler coder but my program is pretty simple. I know it is abending on the open. Anyone have any ideas. My actual input records in the spanned file are header records that are 76 bytes, data records that are 136 bytes, and trailer records that are 28 bytes. Any help will be greatly appreciated. TITLE 'XP1000' * * 02/25/11 B HUNT CHANGED A SPANNED FILE TO A FIXED FILE * XP1000 AMODE 31 XP1000 RMODE ANY XP1000 START COPY EQUATES SAVE (14,12) SAVE REGISTERS 14 THRU 12 BASR BASE1,0 ESTABLISH ADDRESSABILITY USING *,BASE1 PROVIDE BASE ID WTO ' START XP1000',X ROUTCDE=(2),X DESC=(7) B BEGIN SPACE 1 DS0D DCCL8'XP1000' DCCL8'SYSDATE' DCCL8'SYSTIME' SPACE 1 BEGINDS0H WTO ' BEFORE OPEN',ROUTCDE=(2),DESC=(7) OPEN (INFILE,INPUT,OUTFILE,OUTPUT) LTR 15,15 BNZ BADOPEN WTO ' GOOD OPEN FILE',ROUTCDE=(2),DESC=(7) LOOP DS 0H GET INFILE,INREC WTO ' GOOD FILE READ',ROUTCDE=(2),DESC=(7) MVC BATA,DATA WTO ' GOOD MOVE',ROUTCDE=(2),DESC=(7) PUT OUTFILE,OUTREC WTO ' GOOD FILE WRITE',ROUTCDE=(2),DESC=(7) B LOOP FINAL DS 0H WTO ' BEFORE FILE CLOSE',ROUTCDE=(2),DESC=(7) CLOSE (INFILE,,OUTFILE) WTO ' GOOD FILE CLOSE',ROUTCDE=(2),DESC=(7) B C100 BADOPEN WTO ' UABLE TO OPEN FILE',ROUTCDE=(2),DESC=(7) B C100 BADREAD WTO ' READ UNSUCCESSFUL ',ROUTCDE=(2),DESC=(7) B C100 BADWRITE WTO ' WRITE UNSUCCESSFUL ',ROUTCDE=(2),DESC=(7) B C100 C100 DS0H RETURN (14,12)RESTORE REGISTERS AND RETURN INFILE DCB DSORG=PS,RECFM=VBS,MACRF=GM,+ DDNAME=INDD,EODAD=FINAL OUTFILE DCB DSORG=PS,RECFM=FB,LRECL=28,BLKSIZE=2800,MACRF=PM, + DDNAME=OUTDD OUTREC DS0CL28 BATA DSCL28 SAVEAREA
Re: Difference between DISP=NEW and MOD for a PDS member?
In 4d73da60.30...@bremultibank.com.pl, on 03/06/2011 at 08:02 PM, R.S. r.skoru...@bremultibank.com.pl said: I really don't care what's in the manual, what somebody said, etc. ITYM that you simply don't care about facts. DISP in JCL is always for dataset, not the member, Yes, there's no difference between getting an S214 and not getting one. I want the discussion to stay technical one, not Then you should look at how the OS works rather than how you believe that it should work. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
QSAM I/O and 31 bit was Re: Opening a Spanned File for Input Using Assembler
On 8 Mar 2011 09:55:50 -0800, in bit.listserv.ibm-main you wrote: On 3/8/2011 9:43 AM, Bruce Hunt wrote: I an trying to read a spanned file that has a record organzation of PS, a record format of VBS, a record length of 1, a blocksize of 27998 as per the file attributes, and a possible real record length of 65535. But in trying to open tne file I get a SOC4. I am not the greatest Assembler coder but my program is pretty simple. I know it is abending on the open. Anyone have any ideas. My actual input records in the spanned file are header records that are 76 bytes, data records that are 136 bytes, and trailer records that are 28 bytes. Any help will be greatly appreciated. Ngafei Huang's suggestion for AMODE 24 was spot on. If you want to get into using AMODE 31 for programs that do I/O, you could check out our free paper I/O and AMODE 31 at http://www.trainersfriend.com/Papers/amode_31_io.pdf I would like to see the ACB enhanced to handle all access methods and appropriate changes made so that ESDS data sets can be concatenated with QSAM data sets (including PDS/PDSE members). Since I am retired until someone offers me money and they can actually use my possibly out of date talents, this does not constitute a customer request. However it does express contempt for the idea that people have to fool around with 24/31 bit peculiarities in 2011 and that it will probably get worse with 64 bit. Lack of strategy strikes again. Clark Morris TITLE 'XP1000' * * 02/25/11 B HUNT CHANGED A SPANNED FILE TO A FIXED FILE * XP1000 AMODE 31 XP1000 RMODE ANY XP1000 START COPY EQUATES SAVE (14,12) SAVE REGISTERS 14 THRU 12 BASR BASE1,0 ESTABLISH ADDRESSABILITY USING *,BASE1 PROVIDE BASE ID WTO ' START XP1000',X ROUTCDE=(2),X DESC=(7) B BEGIN SPACE 1 DS0D DCCL8'XP1000' DCCL8'SYSDATE' DCCL8'SYSTIME' SPACE 1 BEGINDS0H WTO ' BEFORE OPEN',ROUTCDE=(2),DESC=(7) OPEN (INFILE,INPUT,OUTFILE,OUTPUT) LTR 15,15 BNZ BADOPEN WTO ' GOOD OPEN FILE',ROUTCDE=(2),DESC=(7) LOOP DS 0H GET INFILE,INREC WTO ' GOOD FILE READ',ROUTCDE=(2),DESC=(7) MVC BATA,DATA WTO ' GOOD MOVE',ROUTCDE=(2),DESC=(7) PUT OUTFILE,OUTREC WTO ' GOOD FILE WRITE',ROUTCDE=(2),DESC=(7) B LOOP FINAL DS 0H WTO ' BEFORE FILE CLOSE',ROUTCDE=(2),DESC=(7) CLOSE (INFILE,,OUTFILE) WTO ' GOOD FILE CLOSE',ROUTCDE=(2),DESC=(7) B C100 BADOPEN WTO ' UABLE TO OPEN FILE',ROUTCDE=(2),DESC=(7) B C100 BADREAD WTO ' READ UNSUCCESSFUL ',ROUTCDE=(2),DESC=(7) B C100 BADWRITE WTO ' WRITE UNSUCCESSFUL ',ROUTCDE=(2),DESC=(7) B C100 C100 DS0H RETURN (14,12)RESTORE REGISTERS AND RETURN INFILE DCB DSORG=PS,RECFM=VBS,MACRF=GM,+ DDNAME=INDD,EODAD=FINAL OUTFILE DCB DSORG=PS,RECFM=FB,LRECL=28,BLKSIZE=2800,MACRF=PM, + DDNAME=OUTDD OUTREC DS0CL28 BATA DSCL28 SAVEAREA DS18F LTORG INRECDS0F DATA DSCL28 DSCL32000 DSCL32000 DSCL32000 END XP1000 09.38.22 JOB33865 -JOBNAME STEPNAME PROCSTEPRC EXCP CONN TCBSRB 09.38.22 JOB33865 -ASMJCL RMS RMS@2X 00 31 8 551177.00 09.38.22 JOB33865 + START XP1000 09.38.22 JOB33865 + BEFORE OPEN 09.38.25 JOB33865 IEA995I SYMPTOM DUMP OUTPUT 742 742 SYSTEM COMPLETION CODE=0C4 REASON CODE=0010 742 TIME=09.38.22 SEQ=02516 CPU= ASID=0060 742 PSW AT TIME OF ERROR 078C1000 80D26522 ILC 4 INTC 10 742NO ACTIVE MODULE FOUND 742NAME=UNKNOWN 742DATA AT PSW 00D2651C - 56403DD6 0B049180 20324710 742GR 0: 00011000 1: 00D00060 742 2: 001E9184 3: 00D264D2 742 4: 80D26522 5: 008FDBC0 742 6: 00D264D0 7: 00FBD480 742 8: 0E14409E 9: 8AAE2D88 742 A: 008CBC8D B: 008FF048 742 C: 010D93C0 D: 6008 742 E: 90D26518 F: 008FF048 742 END OF SYMPTOM DUMP //ASMJCL JOB (DP,6010),'XX - HUNT ',CLASS=A,MSGCLASS=X, //
Re: Java performance (was Re: SMF data question)
On 8 Mar 2011 08:02:33 -0800, in bit.listserv.ibm-main you wrote:
Scott,
I completely agree with your comments on zAAP economics the zAAP engine
is actually *the* reason that we wrote JZOS.
If you are going to do a synthetic benchmark of record I/O in JZOS, I
suggest that you look at the new RecordReader and RecordWriter classes that
are in the latest alphaWorks build. These uses *significantly* less CPU
(some customers have reported as much as 7X) and on is par with COBOL
record I/O performance.
So, for the synthetic test that you chose, you might try something like:
After looking at the code below my comment is And they complain about
COBOL being verbose.
Clark Morris
public class RecordFieldAverage {
private long nRecs = 0;
private long total = 0;
private long min = 0;
private long max = 0;
public static void main(String[] args) throws Exception {
String ddname = INPUT; // default
if (args.length 0) {
ddname = args[0];
}
RecordFieldAverage instance = new RecordFieldAverage();
instance.processFile(ddname);
instance.printTotals();
}
private void processFile(String ddname) throws Exception {
String encoding = ZUtil.getCodePageCurrentLocale();
RecordReader reader = RecordReader.newReaderForDD(ddname);
byte buf[] = new byte[reader.getLrecl()];
int rlen;
try {
while ((rlen = reader.read(buf)) = 0) {
String line = new String(buf, 0, rlen, encoding);
processLine(line);
}
} finally {
reader.close();
}
}
private void processLine(String line) {
StringTokenizer toker = new StringTokenizer(line);
toker.nextToken();
toker.nextToken();
String third = toker.nextToken();
long value = Long.parseLong(third);
nRecs++;
min = Math.min(min, value);
max = Math.max(max,value);
total += value;
}
private void printTotals() {
System.out.println(
recs=+nRecs
+ min=+min
+ max=+max
+ total=+total
+ average=+(total/nRecs));
}
}
On Tue, Mar 8, 2011 at 8:52 AM, Scott Chapman sachap...@aep.com wrote:
Kirk:
I agree completely:
This wasn't intended to be a benchmark, but rather a general indication
that Java performance isn't necessarily completely outside the ballpark
(not even in the same county) any more. I think there's a general
perception that Java is a horribly bloated mess that should be avoided
whenever possible. That was at least partly true 10 years ago, maybe
less. But it's a lot better today. I can use JZOS (thanks!) to start the
JVM and run a trivial JS script in less than a second today. I remember
when standing up a JVM took minutes!
And I definitely agree that the code in question, regardless of the
language, is likely the most important factor in the performance of any
solution to a particular problem. Well mostly--I can probably come up
with a scenario where bad Java code on a zAAP is better overall than good
(pick your language code) on the GCP. At least when the zAAPs run faster
than the GCPs. And then there's the capacity/cost implications of running
code on the zAAP vs. the GCP.
The funny thing is I personally really don't like Java as a language,
regardless of performance. But I have excess zAAP capacity at the moment,
so I'm looking at what it might be useful for.
Scott Chapman
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: SMP/E GIM61903W from ACCEPT
I just checked my z/OS 1.11 dlibs, and there are many LMOD entries. I have no idea why. It seems to me to be anti-thetical to the concept of a DLIB to have an lmod entry. Kurt Q, can you elucidate and edutcate us? snip GIM61903W LMOD WAS NOT DELETED BY SYSMOD xxx BECAUSE IT IS NOT IN THE dlib ZONE. when ACCEPT processes a ++DELETE MCS. It's only a warning, but apparently it matters to the user: he'd prefer not to inflict RC=4 on customers other than for the ++HOLD(SYSTEM) REASON(DELETE)... /snip -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JES2 TCPNJE link to RSCS
but about the other side of these two, how to config. Could you also give us a example? Thx. 2011/3/9 McKown, John john.mck...@healthmarkets.com I don't have z/VM here. But I do use TCP for JES2 to JES2 on z/OS. Basically in the JES2 parameters, I have: === LINE(16) UNIT=TCPIP NETSRV(1) SOCKET=LOCAL SOCKET(LIH1) IPADDR=192.168.151.1, LINE=16,NETSERV=1,NODE=4 NODE(4) NAME=LIH1/* HURST PRODUCTION MVS */ === I think all you need to change is the IPADDR=, NODE=, and NAME= to be correct for your shop. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Dave Jones Sent: Tuesday, March 08, 2011 1:01 PM To: IBM-MAIN@bama.ua.edu Subject: JES2 TCPNJE link to RSCS Dos anyone here happen to have a sample JES2 parmlib member showing how to configure JES2 (z/OS 1.11, btw) to connect via a TCP/IP link to VM's RSCS? I've got a good handle on the RSCS configuration, but the z/OS sysprogs here are struggling a bit with the JES2 side. Thanks and have a good one. DJ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JES2 TCPNJE link to RSCS
Thanks, John. I'll pass this info on to the z/OS folks first thing in the morning. DJ On Tue, 8 Mar 2011 13:19:56 -0600, McKown, John john.mck...@healthmarkets.com wrote: I don't have z/VM here. But I do use TCP for JES2 to JES2 on z/OS. Basically in the JES2 parameters, I have: === LINE(16) UNIT=TCPIP NETSRV(1) SOCKET=LOCAL SOCKET(LIH1) IPADDR=192.168.151.1, LINE=16,NETSERV=1,NODE=4 NODE(4) NAME=LIH1/* HURST PRODUCTION MVS */ === I think all you need to change is the IPADDR=, NODE=, and NAME= to be correct for your shop. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: SMP/E GIM61903W from ACCEPT
On 8 March 2011 17:15, Paul Gilmartin paulgboul...@aim.com wrote: [...] I'm researching this. The manuals are pretty vague on when and why LMOD entries are created in the DLIB zone. The one clear statement is that they are created for LMOD() options on the ++MOD MCS. I would think that one would also be created for a module distributed with a ++PROGRAM. We use this only for an unusual case where we are licensed to include another vendor's code as part of our product, and that vendor supplies us with a load module with multiple entry points only. We statically link the needed routines with our module (which is really just a vector of entry point adcons), and then distribute it using ++PROGRAM. Of course SMP/E knows nothing about individual MODs within the resulting object, and maintenance involves replacing the entire thing, but our piece is tiny, and the other vendor supplies only complete replacements in any case. Tony H. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: ICSF Troubles
Hal, Ok. Let's look at a couple of things DISPLAY GRS,RES=(SYSZPKT.*) DISPLAY GRS,RES=(SYSDSN.*) = look for anyone using My.PKDS I can tell you that weird things start to happen if you have something accessing the PKDS that is not the ICSF task. The ENQ scheme does not take non-participants into account. The safe thing would be to code SYSPLEXPKDS(YES,FAIL(YES)) and let the system do the heavy lifting. You might try the PKDSLIST program to make sure that your PKDS is indeed empty. http://www-03.ibm.com/support/techdocs/atsmastr.nsf/WebIndex/PRS1903 How many PKDS data sets are in your sysplex now? Rob Schramm -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Hal Merritt Sent: Tuesday, March 08, 2011 5:59 PM To: IBM-MAIN@bama.ua.edu Subject: Re: ICSF Troubles Thanks for the replies so far! Rob: Here are my parms: CKDSN(My.CKDS) PKDSN(My.PKDS) COMPAT(NO) SSM(YES) DOMAIN(2) KEYAUTH(NO) CHECKAUTH(NO) TRACEENTRY(1000) USERPARM(USERPARM) COMPENC(DES) REASONCODES(ICSF) PKDSCACHE(64) Allen: The LRECL of the PKDS does not seem to be an issue. It occurs (or works) with either. John: No VM. There is nothing to suggest a real hardware issue. We use GRS for sharing. The member in SAMPLIB was used to define the clusters. The share options are 2,3. This was working just fine untill we upgraded from z/os 1.9 to z/os 1.11. Again, thanks all!! -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of zSeries Systems Programmer Sent: Thursday, March 03, 2011 10:35 PM To: IBM-MAIN@bama.ua.edu Subject: Re: ICSF Troubles Just a few items How are you sharing? GRS? CA-MIM? Etc. Were the files defined with the correct share options? Was this working before or new configuration? On Thursday, March 3, 2011, Ward, Mike S mw...@ssfcu.org wrote: We have one PKDS and one CKDS for all lpars. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Hal Merritt Sent: Thursday, March 03, 2011 11:36 AM To: IBM-MAIN@bama.ua.edu Subject: ICSF Troubles We are z/os 1.11. We almost never IPL. The last time we IPL'd, we received the following: 11.47.55 STC00014 CSFM450E UNEXPECTED ERROR PROCESSING PKDS, RETURN CODE = 000C, REASON CODE = 1780. 11.47.55 STC00014 CSFM401I CRYPTOGRAPHY - SERVICES ARE NO LONGER AVAILABLE. 11.47.55 STC00014 IEF352I ADDRESS SPACE UNAVAILABLE 11.47.55 STC00014 $HASP395 CSF ENDED We don't use PKI and have no current plans to do so. However, the CSF is critical. With a little experimentation in the testplex, I am currently of the opinion that it is some sort of file sharing issue. When I allocate a fresh PKDS, CSF on LparA comes up just fine. However, CSF on LparB sometimes fails with the above message. The FM seems to say that the PKDS is not completely initialized until the first key is stowed. Not sure how to do that. I'm thinking a PMR. But a user error is usually more likely. Right now my workaround is to point each LPAR to its own PKDS. Of course, I'm a bit nervous as I don't want to accidently break CSF. That would be equivalent to a full outage. What I'd really like to do is to completely shut off PKDS. I've tried starting with no PKDS specified, but CSF refuses to start. Thoughts? NOTICE: This electronic mail message and any files transmitted with it are intended exclusively for the individual or entity to which it is addressed. The message, together with any attachment, may contain confidential and/or privileged information. Any unauthorized review, use, printing, saving, copying, disclosure or distribution is strictly prohibited. If you have received this message in error, please immediately advise the sender by reply email and delete all copies. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html == This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to which they are addressed. If you have received this email in error please notify the system manager. This message contains confidential information and is intended only for the individual named. If you are not the named addressee you should not disseminate, distribute or copy this e-mail. Please notify the sender immediately by e-mail if you have received this e-mail by mistake and delete this e-mail from your system. If you are not the intended recipient you are notified that disclosing, copying, distributing or
Re: ETR sunsets on 26 Mar 2011?
Prior IBM's withdrawal of the sunset date, I had submitted many specific complaints to the SR help desk. Some were bugs, some were performance issues, some were (IMO) poor design choices, etc. I have more issues, but I've run out of time to provide IBM clear understandable specific complaints; so I ranted here. I apologize. When I get more time, I will resume sending appropriate complaints to IBM. Don't worry, IBM does get the SR complaints voiced here. They just don't act on it! After my last complaint in December about SR, they apporached me to get 'more opinion'. If they can't figure the facts from those I provided in that post, it is hopeless! Given that that application has been coded by clickers, they have no clue (and probably didn't even look at ETR) how to design things with our platform in mind, too. And to put insult to injury, they make the same mistakes in design choices as those did that developed the PC front end for retain in the late nineties (back when I was IBM) that was forced upon level1 and 2. I tested that PC front end then, gave feedback and went back to the much more user-friendly retain! As did all those that can remember the retain commands. I obviously don't know who uses what today. Barbara Nitz -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Java performance (was Re: SMF data question)
Enterprise Generation Language (EGL) is a programming language that's capable of running in Java run-time and non-Java run-time environments. REXX is available in both compiled and interpreted flavors. Lots of choices. - - - - - Timothy Sipples Resident Enterprise Architect Value Creation Complex Deals Team IBM Growth Markets (Based in Singapore) E-Mail: timothy.sipp...@us.ibm.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
