Validating existance of a Volume from REXX
I have written a REXX exec with an ISPF dialog that will allow a user to copy and rename a cataloged dataset to another volume. The user will rename the dataset, and has the option to catalog, or not, the new dataset. Also, the user has the option to delete the existing cataloged-or-not dataset on the target volume. I've been using LISTDSI on SYS1.VVDS.Vvolume_name to validate the existence of the target volume since the user can type in the volume name. However today, on the target volume, the SYS1.VVDS.Vvolume_name entry does not exist, so LISTDSI fails with RC=16, REASON=0024 - dataset does not exist. I'm a novice to this area, and my existing logic is probably pretty hackish, at best. Two questions- 1) Why might the SYS1.VVDS dataset not exist for the volume today? 2) What is a better approach to volume validation? Thanks, Todd -- 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: Validating existance of a Volume from REXX
Thanks C. Todd. I'll put this in my back pocket. I ended up using the solution from GoHabsGo, which must have been posted straight to the listserver, as I didn't get an email copy of it. (I saw it because I was browsing the list via Google Groups on my work machine.) Anyway, his solution was to simply attempt to allocate a small dataset to the volume, and if it worked, I was golden. This worked great for my needs and was a simple fix. I looked into IEHLIST for getting the VTOC, but that looked like more work. Call me lazy. Thanks to all. Todd -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Burrell, C. Todd (CDC/OCOO/ITSO) (CTR) Sent: Friday, April 17, 2009 9:52 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Validating existance of a Volume from REXX I don't believe there is a VVDS on a volume if there is no VSAM, and if the volume is non-SMS. So a sysres volume probably might not have a VVDS on it, and most non-SMS volumes would not as well, unless there is VSAM. You could probably check for a VTOCIX if you make all of your volumes have an index? I do these checks in the following REXX code using the console command: CONSOLE DEACTIVATE CONSPROF SOLDISPLAY(NO) UNSOLNUM(NM) SOLNUM(NM) UNSOLDISPLAY(NO) CONSOLE ACTIVATE CART(TOKEN) NAME(NAME) VOLA=GDGX ADDRESS CONSOLE 'D U,VOL='VOLA'' ER = GETMSG(DMSG.,SOL,TOKEN,MASK,5) MSGCHECK=SUBSTR(DMSG.1,2,7) IF MSGCHECK='IEE455I' THEN DO LINE.J= 'THE VOLSER FOR GDG: 'GDGX' DOES NOT EXIST' J=J+1 END If you look into the CONSOLE command you can do the D U,VOL=xx command and interogate the output. This works for a weekly job where I check for the existence of all of our dump datasets for actual online volumes. Hope this helps. C. Todd Burrell, PMP, MCP -- 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: Virtual Machine Display Manager for CMS?
P.S. Yes, DMS/CMS. Thanks - I'll ask over thar. Todd -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of P S Sent: Saturday, April 11, 2009 12:14 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Virtual Machine Display Manager for CMS? Is this an obsolete facility? I'm guessing that this was either DMS/CMS or IOS3270. I think they're both gone but ask on IBM-VM if you want a better answer. -- 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
Virtual Machine Display Manager for CMS?
I was reviewing the CMS Application Programming Guide and came across a reference to this Full Screen layout facility. It referred to this VM CMS V2 publication. I looked it up on the IBM pub ordering site, and it (the Guide and Reference) is not orderable any more. Is this an obsolete facility? Thanks, Todd -- 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: Cursor on IPCS sysout stream
Hi Miklos. For REPORT to work like you want it to, you have to first MAX to the bottom in the IPCS output stream. IPCS is pretty smart when formatting dump data, and only formats a little over a screen worth of data at a time. Entering REPORT will only pass over to BROWSE or VIEW what is already formatted. For Point and Shoot, that is an ISPF term. In an ISPF panel definition, when you use the Dialog Tag Language, you can define a field as point and shoot. Placing your cursor on the field and pressing enter allows you to act upon that field to do some other action. It's a nice facility, but, you would first have to get your data on to your ISPF panel, then you could point and shoot. (Essentially, hiperlinking for 3270) Todd -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Miklos Szigetvari Sent: Friday, March 27, 2009 6:05 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Cursor on IPCS sysout stream Hi Todd Thank you for your answer The REPORT VIEW/BROWSE would be o.k, but for the LEDATA report I get only a part of the list. What do you maen about point and shoot ? I have modified the BLSPNTRC panel, and now I'm getting more or less , I wanted to have. -- 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: Point-and-shoot (was: Cursor on IPCS sysout stream)
Dave said FYI: Point-and-shoot has nothing to do with Dialog Tag Language. Nothing, of course, other than being an exact term and concept used by IBM for describing a facility of the ISPF Dialog Tag Language? http://publib.boulder.ibm.com/infocenter/zos/v1r10/topic/com.ibm.zos.r10.f54 dt00/hps.htm?resultof=%22%70%6f%69%6e%74%22%20%22%73%68%6f%6f%74%22%20 Perhaps you meant to say PS capability is not unique to ISPF? Or, that there were other ways to implement PS than the DTL? I would agree 100% with you on this clarification. Todd -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Dave Salt Sent: Friday, March 27, 2009 8:22 PM To: IBM-MAIN@bama.ua.edu Subject: Point-and-shoot (was: Cursor on IPCS sysout stream) From: pro...@burchwoodusa.com For Point and Shoot, that is an ISPF term. In an ISPF panel definition, when you use the Dialog Tag Language, you can define a field as point and shoot. Placing your cursor on the field and pressing enter allows you to act upon that field to do some other action. FYI: Point-and-shoot has nothing to do with Dialog Tag Language. As an example, SimpList is a commercial product that makes extensive use of the ability to point-and-shoot. This can be accomplished by pointing at fields with a cursor or by clicking them with a mouse. There are more than 300 ISPF panels, and every one of them supports point-and-shoot (hence the ability to surf the mainframe). None of the panels were written using Dialog Tag Language. Dave Salt -- 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: Cursor on IPCS sysout stream
If you mean programmatically through an IPCS facility, there is no interface that I am aware of. You can always issue REPORT VEIW and then run an edit macro to act upon it though. Or, use ISPF dialogs and then code up a point and shoot field. Todd -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Miklos Szigetvari Sent: Tuesday, March 24, 2009 10:41 AM To: IBM-MAIN@bama.ua.edu Subject: Cursor on IPCS sysout stream Hi Can I refrer to a storage address under the cursor in IPCS sysout stream ? -- Miklos Szigetvari -- 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: EXEC PGM=??? to issue operator commands from the JCL stream?
Thanks to everyone. I implemented Raymond's suggestion for // COMMAND 'blah' last night, and it works great. The unsynchronized behavior is fine for the immediate need at hand. I needed to refresh WLM. John, do you have an example of an IEFBR14 job that would do this? I've used PGM=COMMAND before - I wasn't sure of the origin... probably the CBTTAPE. Again, thanks all. Todd -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of J R Sent: Tuesday, October 21, 2008 7:59 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: EXEC PGM=??? to issue operator commands from the JCL stream? It depends if you want the commands synchronized with a particular step, or not. If you don't require step synchronization, you can simply include the commands in the JCL, either directly or as operands of the COMMAND statement. However, if you do require step synchronization, you will need a program. Check the CBT tape. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: EXEC PGM=??? to issue operator commands from the JCL stream?
John, what processes the /*$VS piece of that? Todd -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of John McKown Sent: Tuesday, October 21, 2008 8:08 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: EXEC PGM=??? to issue operator commands from the JCL stream? The simplest way, but which requires that the INTRDR be set up correctly, is to do something like: //DOCMDS EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD SYSOUT=(*,INTRDR) //SYSUT1 DD DATA,DLM='$$' /*$VS,'D A,L' /*$VS,'F CICS*,CEMT PER SHUT IMMED' $$ -- John -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
EXEC PGM=??? to issue operator commands from the JCL stream?
What utility program (or proc) is available that will allow me to enter operator commands via a batch job? Thanks, Todd (trying to avoid writing one.) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IPCS command , VERBEXIT collection
See this link for a minimal verb exit shell. http://groups.google.com/group/bit.listserv.ibm-main/browse_thread/thread/2b a554bd1f194e36/eeb373c1afc47bb3?lnk=gstq=miniverb#eeb373c1afc47bb3 Todd -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Miklos Szigetvari Sent: Wednesday, October 15, 2008 4:33 AM To: IBM-MAIN@BAMA.UA.EDU Subject: IPCS command , VERBEXIT collection If someone has an IPCS command , VERBEXIT collection to share -- Miklos Szigetvari -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IBM THINK original equipment sign
Several years ago, I rented a storage unit in Houston. The only item left by the prior tenant was an old IBM S/360 sign that would have been attached to the top front of a S/360 class CPU on stand-offs. It was aluminum, painted black, with no paint to create the logo. I carried it around for several years, and then got tired of looking at it. I put it on ebay for $1. A week later, it sold for $76 in a very heated and active auction. Yes, there's a market. Todd Behalf Of Don Higgins Sent: Wednesday, August 27, 2008 6:41 AM To: IBM-MAIN@BAMA.UA.EDU Subject: IBM THINK original equipment sign snip... Is there a market for such relics? If you are interested, email me. No virus found in this outgoing message. Checked by AVG. Version: 7.5.524 / Virus Database: 270.6.9/1635 - Release Date: 8/26/2008 7:29 AM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
IPCS Rexx Exec w/ISPF TBDISPL Services Options
(I posted this directly to the Google Groups version of the list, but apparently that doesn’t spit it out to all the subscribers.) I'm hitting a wall with my IPCS Rexx exec. Here's the set up. My IPCS Rexx exec is called from the IPCS command line. It gets a bunch of data from a dump, builds an ISPF Table and then puts up a panel with TBDISPL. I then have a do while loop in Rexx to handle the TBDISPL and hold that until PF3 is hit on the panel. Inside the do while loop, I look for row selections. When the user does select a line, (to drill into raw storage), I detect the table row selection and successfully call Address IPCS LIST ... from within the TBDISPL do while loop. Here's where the trouble starts. If there is more than 1 screen of data to display (because I use a LIST … LENGTH(4096) for example), the IPCS print output from the LIST command displays as expected and I can scroll up and down in the LIST output. However, when I hit PF3 to get out of the LIST output, the signal on halt routine in my Rexx exec gets control and my Rexx exec goes away. I don't want this to happen - I want my panel to continue to be displayed. If there is 1 screen of data to display (like with LIST ... LENGTH(128)), the LIST command output does not show up all at until I finally hit PF3 from my Rexx exec's TBDISPL panel to go back to native IPCS. It is then when I see the LIST command output. (A bit too late) Perhaps I should not be issuing the IPCS LIST command and should be using something else? I looked for an option on the LIST command to turn off signal processing, but didn't see it. Thanks, Todd No virus found in this outgoing message. Checked by AVG. Version: 7.5.524 / Virus Database: 270.6.6/1627 - Release Date: 8/22/2008 6:48 AM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IPCS Rexx Exec w/ISPF TBDISPL Services Options
Thanks Bob.
I have changed my exec to use BLSGSCMD. I have good news and bad news.
The good news is that for LIST displays, when no scrolling is involved
because I specify a short length, like 256, BLSGSCMD works perfectly for my
needs.
The bad news is that for long displays, like LENGTH(4096), *AND* I do not
scroll to the bottom, the SIGNAL ON HALT trap is still hitting and it blows
my exec out.If I purposely scroll to the bottom, all is well and the
signal is not occurring.
What I have working now is good enough for my needs at the moment. It would
be nice to know how to overcome this though. I could, of course, create
another ISPF panel and format the raw storage myself, but that’s a pain.
Another question. I feel I have sort of hacked my way through this. IPCS
Customization states the PARM to BLSGSCMD is a command. Therefore, I am
dynamically writing a short rexx exec within my exec, writing to a member of
a PDS and then calling it from BLSGSCMD, like this:
.
.
.
modaddr = some_variable_determined_above ;
pgm.1 = /* rexx */ ;
pgm.2 = Address IPCS LIST modaddr. LENGTH(256) ;
pgm.0 = 2 ;
Address TSO ALLOC F(TEMP) DA(CLIST.CLIST(TEMP)) SHR REUSE ;
Address MVS EXECIO * DISKW TEMP (FINIS STEM pgm. ;
Address ISPEXEC SELECT PGM(BLSGSCMD) PARM('%TEMP') NEWAPPL(BLSG) PASSLIB ;
.
.
.
(the above typed from memory - not copy/pasted from my working exec)
So it's clunky. Plus, if running the first time, if member TEMP does not
exist in CLIST.CLIST, it blows up, so for production use, I would have to
add logic to determine if it already exists, if not, blah blah blah.
I tried to do this, but it didn't work:
text = IPCS LIST modaddr. LENGTH(256) ;
Address ISPEXEC SELECT PGM(BLSGSCMD) PARM('text') NEWAPPL(BLSG) PASSLIB
or some flavor thereof, and that did not work. Thus the clunk.
Any suggestions for a better approach?
Todd
-Original Message-
If you want each LIST subcommand treated as a distinct ISPF transaction,
use dialog program BLSGSCMD. The API is documented in /z/OS MVS IPCS
Customization./ Short output from LIST will be handled on the way back
from the subcommand to your exec, allowing it to be reviewed until no
longer wanted. Long output can be partially viewed if that gives the
user enough information without bothering to generate the entire report
requested from LIST. My recollection is that your signal on halt exit
should not be entered.
--
Bob Wright
No virus found in this outgoing message.
Checked by AVG.
Version: 7.5.524 / Virus Database: 270.6.7/1628 - Release Date: 8/22/2008
6:32 PM
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IPCS Rexx Exec w/ISPF TBDISPL Services Options
Wow. Thanks again. I was obviously doing something wrong earlier, because it (the SELECT to BLSGSCMD) is working now when I pass the LIST command as a parm. I did a little experimenting, and it seems the Address IPCS in front the ISPEXEC SELECT PGM(... is apparently redundant, as it seems to work the same and just as well as: Address ISPEXEC SELECT PGM(BLSGSCMD) PARM(LIST modaddr. LENGTH(256))... So, what BLSGSCMD is doing for me is capturing the END when the user presses PF3 when viewing the output of LIST. When issuing LIST without the SELECT to BLSGSCMD, the user entering END on the LIST output report causes my REXX exec to terminate. With BLSGSCMD, control is returned to the instruction following the SELECT PGM... Thanks Bob. Todd I don't see your rationale for getting a data set into the picture. Instead of passing a LIST subcommand to IPCS, you should be able to pass an ISPEXEC request as though it were the original subcommand that you had in mind. Skipping the quotation marks and substitution concerns: Address IPCS ispexec PGM(BLSGSCMD) PARM(list modaddr length(256)) PASSLIB BLSGSCMD takes care of breaking out the subcommand/command-procedure invocation using what TSO I/O service routines call an instorage list. IPCS/TSO code lets your pass command names and operands in mixed case, folding those operands that need it to upper case during parsing. I'd have to double-check whether the text interpreted by ISPEXEC needs to be in upper case as I've shown. -- Bob Wright No virus found in this outgoing message. Checked by AVG. Version: 7.5.524 / Virus Database: 270.6.7/1628 - Release Date: 8/22/2008 6:32 PM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Set JobId on Submit..
This is from the early 90's, published in TSO Times, courtesy yours truly. http://www.tsotimes.com/quicktips/sp95qt1.html Todd -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Michael Knigge Sent: Thursday, June 19, 2008 8:55 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Set JobId on Submit.. All, I'm currently working on a new system and I miss a great feature(tm). On the systems I've been working so far the Jobid of a JCL was automatically set to my UserId when I've submitted the Job. i. e.: //ABCXYZPQ JOB 999830010T,'SPUFI',CLASS=A,NOTIFY=SYSUID, // MSGCLASS=H,MSGLEVEL=(1,1),SYSUID Here ABCXYZP was replace with my userid FOOBAA0, resulting to the jobname FOOBAA0Q... could anyone tell what I have to do to get this great feture back? No virus found in this outgoing message. Checked by AVG. Version: 7.5.524 / Virus Database: 270.4.0/1509 - Release Date: 6/19/2008 8:00 AM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Set REXX variables before REXX start
Get a small snap dump and a listing and post here (or somewhere) Todd -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Miklos Szigetvari Sent: Tuesday, June 03, 2008 9:49 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: Set REXX variables before REXX start Hi Still here : I'm using now the IRXINIT , IRXEXEC and the IRXEXCOM to init the environment, call the EXEC and access vraiables I set in the module name table the EXECINIT initialisation exit name. The EXECINIT module gets control, but If I call IRXEXCOM from the exit I got a -1 return code: Processing was not successful. Entry conditions were not valid for one of the following reasons: ° The values in the parameter list may have been incorrect, for example, parameter 2 and parameter 3 may not have been identical ° A REXX exec was not currently running ° Another task is accessing the variable pool ° A REXX exec is currently running, but is not enabled for variable access. No virus found in this outgoing message. Checked by AVG. Version: 7.5.524 / Virus Database: 269.24.6/1480 - Release Date: 6/3/2008 7:00 AM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Set REXX variables before REXX start
Try IRXEXCOM. Todd -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Miklos Szigetvari Sent: Monday, June 02, 2008 10:07 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Set REXX variables before REXX start Hi I try to set some REXX variables from as assembler program , before I call the REXX exec: - call IKJTSOEV to init the environment - call IKJCT441 to set the variables I get here a X'28' the caller is not activated via CLIST or REXX Can I set variables before a REXX call ? No virus found in this outgoing message. Checked by AVG. Version: 7.5.524 / Virus Database: 269.24.4/1478 - Release Date: 6/2/2008 7:12 AM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Publibz slow?
Painfully slow. Get rid of the z and its faster. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Chase, John Is it just me, or is IBM's public doc server dragging its ahem today? -jc- No virus found in this outgoing message. Checked by AVG. Version: 7.5.524 / Virus Database: 269.23.10/1421 - Release Date: 5/7/2008 5:23 PM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
IPCS - where to get shop specific data
I’m making an assumption that somewhere in a control block somewhere (maybe the CVT, ECVT, or SMF control blocks?), there is a site/company name (like “ACME Inc.”) that is defined at z/OS install time. If this assumption is correct, where could I pick up that data in an IPCS dump? I’ve looked in the CVT, ECVT and SMCA but haven’t found anything yet. (Perspective: clients send in dumps, and I would like to output the client data with our automated IPCS analysis routines.) Thanks, Todd No virus found in this outgoing message. Checked by AVG. Version: 7.5.524 / Virus Database: 269.23.10/1421 - Release Date: 5/7/2008 5:23 PM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Language Enviroment HLASM question.
I write my DB2 stored procedures and user defined functions in assembler, and they are required to be LE compliant. Todd -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of McKown, John Sent: Monday, April 28, 2008 1:05 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Language Enviroment HLASM question. Is there any reason that anybody can think of for making an ASSEMBLER program an LE main routine, other than if it invokes some LE subroutines or COBOL (or other LE-enabled language) subroutines? What about if it uses the BPX... subroutines to do UNIX work? More curious than anything else. -- John McKown No virus found in this outgoing message. Checked by AVG. Version: 7.5.524 / Virus Database: 269.23.6/1402 - Release Date: 4/28/2008 1:29 PM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: DB2 z/OS Dissertation Research
You could look at the (I'm sure) numerous IDUG, Share and IOD (previously known as the DB2 Tech Conference) conference proceedings for all the work done to DB2 over the years towards query optimization and global optimization. Parallel Query, Parallel I/O and Parallel Sysplex Query are biggies. A pretty big piece is the (ESA V5) implementation of Enclave SRBs with WLM, done primarily for DB2 and the DDF workload. See the ITSO manual SG24-4584, MVS ESA Implementation, Chapter 6 is great - I was reading it just yesterday. In a nutshell, let the query run inside DB2 at the performance objectives of the application, not DB2's priority Going way back, look into the instigators for cross memory (AKA XA), and you'll find DB2's names at the top of the list. The Share presentation from Feb 1999, session # 2515, is also good. I just have the slides, and I'm sure the audio would be a good addition. WLM, DB2 and enclaves - the inside story Todd No virus found in this outgoing message. Checked by AVG. Version: 7.5.524 / Virus Database: 269.23.4/1395 - Release Date: 4/24/2008 7:24 AM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Convert EBCDIC to ASCII in batch?
If this is a COBOL file, and you can FTP it to Windows in binary, along with the copybook, I have a utility I wrote (runs on Unix and Windows) that will convert those 16,000 tracks to ASCII text and you could time it with the secondhand on your wristwatch. Todd -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of McKown, John Sent: Thursday, March 20, 2008 9:04 AM To: IBM-MAIN@bama.ua.edu Subject: Convert EBCDIC to ASCII in batch? I cannot think of an easy way to do this, so I thought that I'd ask. I want to copy a sequential file to another sequential file (both on DASD, not tape!), translating the contents from EBCDIC (CP-037) to ASCII (ISO8859-1). I can think of a way to do it using UNIX services, but I'm hoping for a simplier method. The ASCII file is to be transferred to a Windows system, so each line must end in CRLF. No virus found in this outgoing message. Checked by AVG. Version: 7.5.519 / Virus Database: 269.21.7/1335 - Release Date: 3/19/2008 9:54 AM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Convert EBCDIC to ASCII in batch?
You're smart enough to know what a COBOL file is. So I didn't word it perfectly. Actually, it doesn't matter what produced the file, as long as the binary file to be converted could be described by a file that looks like a copybook. ;) Todd -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Paul Gilmartin Sent: Thursday, March 20, 2008 2:58 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Convert EBCDIC to ASCII in batch? On Thu, 20 Mar 2008 12:08:51 -0600, Todd Burch wrote: If this is a COBOL file, ... What's a COBOL file? And why does it matter? I used to think bytes is bytes. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html No virus found in this incoming message. Checked by AVG. Version: 7.5.519 / Virus Database: 269.21.7/1336 - Release Date: 3/20/2008 9:48 AM No virus found in this outgoing message. Checked by AVG. Version: 7.5.519 / Virus Database: 269.21.7/1336 - Release Date: 3/20/2008 9:48 AM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Can I know programmatically if a load module has been zapped?
That is, of course, unless the zapper specified NOIDRDATA. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Rick Fochtman Sent: Tuesday, March 18, 2008 10:00 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Can I know programmatically if a load module has been zapped? unsnip--- IF you can open read the loadlib, there's a special IDR record (or more than one) in each load module's data that tells you if/when the LMOD was ZAPped. I found the record information in LKED PLM from MVS/XA long ago; don't use it much now. Don't remember the ID but I think it's still documented, but with all the changes, I'm not sure where. -- No virus found in this outgoing message. Checked by AVG. Version: 7.5.519 / Virus Database: 269.21.7/1332 - Release Date: 3/17/2008 10:48 AM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Rexx bug?
Running z/OS 1.9. Running this, I get a match. /* rexx */ offset1 = “E0” ; offset2 = “E8” ; if (offset1 = offset2) then say “MATCH!” ; else say “NO MATCH!” What does it return on your system? Thanks, Todd No virus found in this outgoing message. Checked by AVG. Version: 7.5.518 / Virus Database: 269.21.7/1322 - Release Date: 3/9/2008 12:17 PM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Rexx bug?
Ah yes. Duh. Thanks Mark! Todd, You're comparing zero in exponential form to zero in exponential form. You're not the first to get tripped up by this, believe me. Use == (exactly equal) instead: if (offset1 == offset2) then say “MATCH!” ; Mark L. Wheeler No virus found in this outgoing message. Checked by AVG. Version: 7.5.518 / Virus Database: 269.21.7/1322 - Release Date: 3/9/2008 12:17 PM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Rexx bug?
Actually, gave me the same false positive that = did. Changing the comparison to strictly equal worked fine. I am writing a rexx exec to parse some assembler listings to compare field offsets in DSECTS across product releases. For the intent of my compare, comparing the E0 and E8 as two strings was my intent. However, rexx decides, for whatever reason, (probably because they can be numeric) that they are not strings. (I'm just happy it also doesn't consider (zero = oh) to be equal too!) Converting the offsets to hex or decimal would have also avoided the problem, but it was overhead I didn't want to spend. Todd -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of John P. Baker Sent: Monday, March 10, 2008 11:29 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: Rexx bug? Ulrich, As long as his intent is a simple equality/inequality test, ==/ will work fine, in so far as the offsets are both presented with the same length and in the same case. A requirement for x2d(...) will only arise if the offsets are presented with the possibility of differing lengths, differing cases, or if a comparative magnitude test is required (, =, =, or ). John P. Baker -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Ulrich Krueger Sent: 03/10/2008 1:00 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: Rexx bug? Todd, What is your intent with this comparison? Do you want to compare two quoted character strings or do you want to compare the numeric (hexadecimal) values? If the latter, shouldn't you have coded either offset1 = E0X; offset2 = E8X; Or offset1 = x2d(E0); offset2 = x2d(E8); instead? Regards, Ulrich Krueger -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html No virus found in this incoming message. Checked by AVG. Version: 7.5.518 / Virus Database: 269.21.7/1322 - Release Date: 3/9/2008 12:17 PM No virus found in this outgoing message. Checked by AVG. Version: 7.5.518 / Virus Database: 269.21.7/1322 - Release Date: 3/9/2008 12:17 PM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Rexx bug?
Yes, I've been coding in REXX since '84 (VM back then for me). I have hit this before, but it's been many, many years. Since I started coding in Ruby, I hate it when I have to put my rexx hat back on. Rexx was my favorite, but it's still the best I have for z/OS. Todd -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Patrick O'Keefe Sent: Monday, March 10, 2008 1:50 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: Rexx bug? ... While I've known this for years, I've never given it much thought. I've been coding REXX since around 1988 but never (knowingly) ran into this ... probably because I've never needed to use scientific notiation in REXX and never even knew it was supported. I now wonder how many comparisons are waiting to fail on me. I can just picture very different and unexpected results from the two invocations x= SOMEEXEC(00E0 00E8) y= SOMEEXEC(00F0 00F8) where REXX sees 2 equal numbers in the first case and 2 different strings in the second case. Before reading this thread I would have been flumixed. Another unexpected gem from IBM-Main. Thanks folks! Pat O'Keefe No virus found in this outgoing message. Checked by AVG. Version: 7.5.518 / Virus Database: 269.21.7/1323 - Release Date: 3/10/2008 11:07 AM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Rexx external assembler functions and reentrancy
Another option is to getmain your storage once, and anchor it somewhere for later use. TCBUSER or a name/token pair are two obvious choices. You can also create a variable inside your rexx exec, from the assembler program, with your anchor and grab it each time your function gets called, assuming your function will be called over and over. Todd -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Gerhard Postpischil Sent: Sunday, January 13, 2008 8:57 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: Rexx external assembler functions and reentrancy Yes. Generally, storage must be obtained and released if you want your functions to be reentrant/refreshable (along with other considerations). Static storage (generally) makes your program reusable, at best. In a typical REXX function environment, reentrancy is not required, but reusability is. Dynamic storage comes with overhead, and should be avoided in heavily used functions. Also if the amount of storage you use is small, you might be able to use a word or two in the save area, and not alter the corresponding registers. Gerhard Postpischil Bradford, VT No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.19.2/1222 - Release Date: 1/13/2008 12:23 PM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: SDUMPX / IPCS / DATASPACE - missing data
Go to IPCS panel option 4 (Inventory), and put LD in the AC column for your dump of interest. In the ListDump output, find the ranges for the dataspace of interest, and see if the 01823000 page is included in a range. If so, then the problem probably lies in IPCS. If not, the problem probably lies in SDUMP or RSM services used by SDUMP. Jim Mulder z/OS System Test IBM Corp. Poughkeepsie, NY Thanks Jim. I just checked. The range in question is not listed as being in the dump. I'm on holiday for the rest of the year and will pick back up on this next year. Todd No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.17.2/1184 - Release Date: 12/14/2007 11:29 AM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
SDUMPX / IPCS / DATASPACE - missing data
I have an SRB application that issued an SDUMPX macro (in AR mode). It specifies a particular dataspace token with a single range, starting address of X’’ and ending range of X’7FFF’. The SDUMPX completes normally and I get a dump. Going into IPCS on the dump, and addressing the dataspace, IPCS tells me the range of storage X’1000’ to X’2001’ is not available. Then, it says range X’2002’ through X’200218EF’ is all zeros, and then one of my data structures starts at X’200218F0’. However, it’s impossible to have a data structure at X’200218F0’ without also having an index in the lower address range of the dataspace. That’s how my application works (and has worked since 1986). I went to an online storage display program I have and sure enough, the dataspace address X’018236D0’ has the pointer to the data structure at X’200218F0’, just like it ought to. Where do you reckon the problem lies? Thanks, Todd No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.17.1/1183 - Release Date: 12/13/2007 9:15 AM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: SDUMPX / IPCS / DATASPACE - missing data
Oh, z/OS 1.9 by the way. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Todd Burch Sent: Thursday, December 13, 2007 2:53 PM To: IBM-MAIN@BAMA.UA.EDU Subject: SDUMPX / IPCS / DATASPACE - missing data I have an SRB application ... No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.17.1/1183 - Release Date: 12/13/2007 9:15 AM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: LE assembler program abends SB78-4
Well, I was going to say that I assembled and linked it and got the S0C3 @ X'A6' just as expected. Good for you for figuring it out. Todd -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of McKown, John Sent: Thursday, December 13, 2007 3:48 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: LE assembler program abends SB78-4 Never mind. I'm an IDIOT! I have some old LE modules in one of my test load libraries that was on my STEPLIB. I was running a bit scared there. No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.17.1/1183 - Release Date: 12/13/2007 9:15 AM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: What identifies a jobname/address space as a unique instance in time?
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Peter Relson Sent: Sunday, November 11, 2007 9:06 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: What identifies a jobname/address space as a unique instance in time? The real question is: why is the question being asked? That might be a better way to derive the answer that is needed. Peter Relson z/OS Core Technology Design -- I have some code that runs in CSA, independent of the started task that puts it there. Occasionally, the started task and the CSA code talk. If the rug gets pulled out of my started task, (it gets cancelled by the operator) and it restarts, I need the CSA code to be aware of this and act accordingly. Is that enough explanation? I'm pretty sure I could accomplish what I need to do (inform the CSA code of a shutdown) from the started task side by having a resource manager termination routine, but it seems to me at this point in the game (product maintenance lifecycle), that working out the hey, my started task went away, and now it's back would be simpler from the CSA code side. Todd No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.15.28/1123 - Release Date: 11/10/2007 3:47 PM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
What identifies a jobname/address space as a unique instance in time?
If I log on, I am user XYZ and happen to get ASID 123. If I log off and back on, I might get ASID 123 again and might not. When viewed from yet another address space, if I do get ASID 123 again, what is there to identify this new instance of myself ( user XYZ on ASID 123 ) from the previous instance of myself? I checked the ASCB for a creation timestamp, but did not see one. I checked the ASXB – same there. I did see an ASSB sequence number (ASSBISQN), but don’t know if this is what I’m looking for. My thinking is that there certainly should be a way to detect this via user (or jobname), ASID and ……what? Thanks. Todd No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.15.26/1119 - Release Date: 11/8/2007 5:55 PM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: What identifies a jobname/address space as a unique instance in time?
Thanks John and Ed. I see ASSBSTKN is what I want per a search through the archives. Thanks! Todd ASID token. STOKEN. Guaranteed unique within an IPL. -- John McKown Senior Systems Programmer No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.15.26/1120 - Release Date: 11/9/2007 9:26 AM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Industry Standard Time To Analyze A Line Of Code
I seem to recall that the average lines produced per day for a seasoned programmer was 17. Todd -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Bob Fake - InfoSec, Inc. Hi All, I've searched the archives, but didn't find anything on this... Can anyone tell me or does anyone know where I might find a documented industry standard amount of time it takes to analyze a line of code? I suspect something has been published on this somewhere, but I can't seem to locate anything. I'm sure the amount of time varies depending on the type of code (ALC, COBOL, EZtrieve, et al) but any direction would be greatly appreciated. No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.488 / Virus Database: 269.13.36/1041 - Release Date: 10/1/2007 10:20 AM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Calling a AMODE 31 program from AMODE 64
I still didn't see a nice way to use the labels fwdptr and bwdptr, due to the timing of when there's a good value in R13. So, just as a little challenge: what else could we do to get rid of the fixed / hard coded displacements? Kind regards, -Steve Comstock The Trainer's Friend, Inc. IHASAVER Todd No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.484 / Virus Database: 269.12.2 - Release Date: 8/22/2007 12:00 AM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Calling a AMODE 31 program from AMODE 64
-Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Anton Britz Sent: Thursday, August 23, 2007 5:12 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: Calling a AMODE 31 program from AMODE 64 Hi Ludmila, Can you explain why you are working above the 'bar' in the first place ? or why do you need more that 2 Gig of Virtual Storage.. Thanks Anton There was no mention of working above the bar, or even above the line for that matter. You can still run in 64-bit mode and reside in 24-bit storage. Todd P.S. Not sure if you are aware, but at this time, you cannot execute code above the bar. No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.484 / Virus Database: 269.12.2 - Release Date: 8/22/2007 12:00 AM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Calling a AMODE 31 program from AMODE 64
John McKown I second what John says. If you have more details / symptoms to give us more detailed clues, we can help you better. But I would first make sure you are using BASSM / BSM instead of BASSR / BE to call your subroutine and return. -- Kind regards, -Steve Comstock Here's a sample for one way to do it. Depending on your code, there may be savearea considerations to deal with for your 31 bit program. This sample provides a 72 byte save area. Todd TEST64 CSECT TEST64 AMODE 64 TEST64 RMODE ANY BAKR R14,0 SAVE GPRS AND ARS IN LINKAGE STACK SAM64 CNOP 0,4 BRAS R12,*+8 POINT R12 TO THE ACON FOR THE MODULE DCA(TEST64) L R12,0(,R12) NOW, WE HAVE ADDRESSABILITY USING TEST64,R12 WTO '64: CURRENTLY IN 64.',DESC=(6),ROUTCDE=(11),MF=I LAR14,CALL31SUBROUTINE TO CALL BAKR 0,R14 CALL SUBROUTINE WTO '64: BACK IN 64.',DESC=(6),ROUTCDE=(11),MF=I LAR15,0 RC = 0 PR, PROGRAM RETURN TO OS * CALL31 DS0H SAM31 LAR13,SAVEAREA CALL TEST31 PR RETURNS TO THE WTO BACK IN 64... * SAVEAREA DS18F * TEST31 CSECT TEST31 AMODE 31 TEST31 RMODE ANY STM R14,R12,12(R13) LRR12,R15 USING TEST31,R12 WTO '31: CURRENTLY IN 31.',DESC=(6),ROUTCDE=(11),MF=I LMR14,R12,12(R13) XRR15,R15 BRR14 YREGS END No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.484 / Virus Database: 269.12.2 - Release Date: 8/22/2007 12:00 AM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Calling a AMODE 31 program from AMODE 64
Make it easy on yourself.Try this: PGM64A CSECT PGM64A AMODE 64 PGM64A RMODE 31 BAKR 14,0 LARL13,SAVEAREA LARL12,PGM64A USING PGM64A,12 LGHI15,0 * LLGF1,CRITDTE LLGT15,=V(PGMA) SAM31 LA R1,CRITDTE BASR14,15 PR, CRITDTE DS CL8 SAVEAREA DS 0D'0',F'0',C'F1SA' LTORG ENDPGM64A. And then, fix your 31 bit program: LR 3,1 LA 5,UPDTXT MVC 0(7,3),0(5) ===Receive inbound value in Reg 3 and update with Todd No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.484 / Virus Database: 269.12.2 - Release Date: 8/22/2007 12:00 AM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
IBM Level 1 - gotta love it.
None of us are perfect, but we got a good chuckle when we asked a couple questions in an ETR. This is a service we pay for, right? LOL. The questions make no difference - just read the responses: A1. In SDSNMACS(DSNDQW00), QW0021K2 is defined as XL1 (i.e. hex with a length of 1 byte). Later on in the same member it's defined as FIXED(8) (i.e. 8 bits). The value for the partition number will be stored as a hex value so 1 byte or 8 bits will have a maximum hex value of x'' (4,294,967,295 decimal). . A2. Those fields in your list defined as XL2 or CL2 ar 2 bytes or 16 bits in length. QW0199DN is defined as QW0199DN H and later on defined as PTR(16). That's a halfword or 16 bits, the same as XL2 and CL2. The maximum hex value in 16 bits then is x'' or 18,446,744,073,709,551,615. Todd No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.484 / Virus Database: 269.12.1/965 - Release Date: 8/21/2007 4:02 PM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: 4331 weight
OK, I give. What are you going to do with it?That's not a small machine. I used to fix them when I worked for IBM in the early 80's. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Brian Westerman Sent: Saturday, August 18, 2007 8:36 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: 4331 weight I have a 4341 shrink-wrapped in my garage, but that won't really help since I think the 4331's were a little smaller. Brian No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.484 / Virus Database: 269.12.0/960 - Release Date: 8/18/2007 3:48 PM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Mainframe Skill Shortage
However, the report doesn't take into account the current skills shortage, especially in Linux and Java development and administration, workloads which IBM mainframes are increasingly being asked to shoulder. I guess I had not considered the shortage of Linux and Java development and administration skills on the mainframe to be the major issue here. I guess I can fathom the issue on the administration side, but the development side too? Isn't Linux development, Linux development? Same for Java? On the legacy side of the mainframe equation - I don't see the skills shortage. If there was a skills shortage, I would expect to see more opportunities available. Todd http://www.computerworld.com/action/article.do?command=viewArticleBasicarti cleId=9030241source=NLT_OSnlid=41 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.476 / Virus Database: 269.11.17/951 - Release Date: 8/13/2007 10:15 AM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Cobol Conditional Compile
An edit macro might work just fine as well. Todd -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Albert Klimek Sent: Tuesday, July 24, 2007 9:02 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Cobol Conditional Compile Micro Focus COBOL provides a mechanism for selectively compiling part of the COBOL source. (controlled by $IF, $ELSE, $END) IBM Enterprise COBOL for z/OS 3.3 do not support conditional compile. I think about to write a REXX to do this. Any other ideas ? Albert No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.476 / Virus Database: 269.10.9 - Release Date: 7/18/2007 12:00 AM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Suggestions for New Laptop.
Howard wrote: The internet browser that comes with a Mac is called Safari. It works pretty good. I could download Firefox, but find Safari sufficient. (Plus, I do cross platform development that requires Safari on the Mac). I don't understand - if you do cross platform development, wouldn't you want to test on Firefox, Opera, and *gasp*, IE? Ah, you are confusing a cross platform application with internet browser support. Cross platform should not imply cross browser. The app I do cross platform development with only runs on Windows and OS X, and WHEN it requires browser support, which is not most of the time, it only supports IE and Safari, respectively. Mail on the Mac is ok. Outlook is more robust. For personal use, Mail on the Mac is fine. Robust, how? Calendar, Notes, text formatting ease of use, integration with other applications, attachments getting to their destination - little things like that. Outlook is a pain for personal use because it has a business style quoting instead of the standard for personal use. Quoting style is customizable in Outlook. For instance, I have it turned off, and I had to add all the greater than signs manually. I find Outlook just fine for personal use. Todd No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.476 / Virus Database: 269.10.9 - Release Date: 7/18/2007 12:00 AM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Suggestions for New Laptop.
Carol, why not a MacBook Pro? 2GB ram, Intel Core 2 Duo processors... With Bootcamp or Parallels, you can have your cake and eat it too. It'll be a cold day before I buy a PC again. Todd http://www.apple.com/macbookpro/ (Bootcamp allows you to boot with Windows or OS X. Parallels allows you to run both operating systems at the same time and switch back and forth.) Hello All. I am in the market for a new notebook/laptop. I am looking at DeLL, Toshiba and recommendations from this group. Any suggestions are gratefully appreciated. One thing that has turned me off is having no choice between Vista XP Pro. TIA Carol No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.476 / Virus Database: 269.10.9 - Release Date: 7/18/2007 12:00 AM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Suggestions for New Laptop.
My experiences with a Mac: First, I have two of them. Dec. 2006 I bought a MacPro 3gh, 2gb ram, 500gb hard drive. 23 Apple Cinema Display. One awesome machine.Not cheap: $5K+. June 2007 I bought a Macbook white for the house with Airport Express (a wireless hub). Again, it's awesome. My son loves it, and he has pretty much claimed it. I discourage him from going to MySpace, Facebook or any other site a teenager might happen across, with the PC, as I've already spent $300+ this year on virus, malware, and browser helper object removal. However, on the Mac - it's not an issue. (BTW, I ended up getting a 30GB iPod Video for $50 in the deal after the $199 rebate educator offer). On the Macbook, I installed Bootcamp and then Win XP Pro + Office Professional, so it's my grab it and go, cross platform development machine, like when I go to the in-laws to visit - I find a corner and enjoy myself thoroughly. (Ticks my wife off sometimes though) My wife works for the local school district, and last year got an offer to buy Win XP Pro for something ridiculous like $12. I hopped on that, not knowing what for, and also bought Office Pro, Frontpage and Visio. I think the total bill was $28. For the Bootcamp install - it was perfect. When you boot Windows - it's pretty much Windows! Since the Mac keyboard is a bit different, there are a few shortcut keys that are changed. That's about it though in the differences department. I thought I would want to use Microsoft Office for the Mac when I bought the MacPro. (It comes with a 30 day trial.) I opened it once to see what it looked like - and I've never gone into it again. My biggest concern in going to the Mac was compatibility with the rest of the world. Not. Now, do people still send me Word docs and Powerpoint presentations? Sure. And I forward them to my PC. No biggy. Would I rather have a PDF? Sure. After being on the PC for so long, the Mac does take some getting used to, of course. The keyboard shortcuts are a bit different, and that frustrated me at first. But, they are there. Some don't make sense, like having to hit 3 keys instead of 2 for common tasks. Some are better. The internet browser that comes with a Mac is called Safari. It works pretty good. I could download Firefox, but find Safari sufficient. (Plus, I do cross platform development that requires Safari on the Mac). Mail on the Mac is ok. Outlook is more robust. For personal use, Mail on the Mac is fine. I run OS X (pronounced OS Ten), also called Tiger. Leopard, the next operating system, is coming out soon. If you get a Tiger machine, and want to upgrade to Leopard later, I think it will cost $129 (US) or round abouts. If you have any experience with Unix, you'll like the Mac. If you don't like I didn't, it's a great way to learn line commands, the BASH or tsch (sp?) shells and such. On Windows, you have Windows Explorer. On a Mac, it's called Finder. I like them both, but I like Finder better. Mac comes with a lot of the opensource software already installed - Apache Web server, Ruby, Perl, Python (ruby, perl python are scripting languages). Also, with a Mac - you get 2 CDs. One is the operating system, and the second contains an Apple product called XCode. XCode is an IDE (the IDE) for developing software on a Mac. It comes with pretty much EVERYTHING you need for developing on the Mac - a C/C++ compiler, Java SDK, Carbon Cocoa (two Apple frameworks for developing GUI apps), Objective C (the language of choice for developing with Cocoa), and probably a litany of others. The laptop won't come with a Mouse. I installed a wireless 3-button optical USB mouse on mine. The desktops come with what's called a Mighty Mouse. I haven't used it, as I use a 3-button/wheeled mouse that I already had. I would recommend them to anyone. There are people that have had issues, but I haven't. Todd -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Z Z Sent: Sunday, July 22, 2007 8:27 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: Suggestions for New Laptop. Oh, I forgot to mention that I am very, very interested in the Mac, but I've never used one B4. How easy/hard is it to set up?. How does it work the M$ applications? Tell me more. Thanks No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.476 / Virus Database: 269.10.9 - Release Date: 7/18/2007 12:00 AM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Anyone have any psuedo complex COBOL Copybook examples?
I'm writing a COBOL copybook parser in C++. I have a few examples, but would like a few more to round out a good test suite. Could any of you nice souls send any my way? I'm looking for data types a bit more complex than PIC X, if you know what I mean. Thanks, Todd No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.472 / Virus Database: 269.8.13/843 - Release Date: 6/10/2007 1:39 PM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: WLM SP Abend Mystery
Steve, did you change the CREATE PROCEDURE definition to specify the proper WLM enclave environment name? I've gotten SQLCODE -430 before and it always turns out to be my error. Todd No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.467 / Virus Database: 269.8.0/817 - Release Date: 5/24/2007 4:01 PM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/XDC release z1.9 beta now available for existing customers
Thanks Dave, A.K.A. the Energizer Bunny. Todd -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of David Cole Sent: Thursday, April 19, 2007 11:26 AM To: IBM-MAIN@BAMA.UA.EDU Subject: z/XDC release z1.9 beta now available for existing customers For details, go to http://www.colesoft.com/pr070419.shtml -- No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.446 / Virus Database: 269.5.2/766 - Release Date: 4/18/2007 7:39 AM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: zAAP Eligible Work
Amen to what Chris said. Java is the first implementer of the zAAP engine, and its use is auto-magic. zAAP is not just for Java apps, it's just that Java was the first app to get their foot in the door, just as DB2 V8 was first for zIIP exploitation for certain joins, stored procedures, user defined functions, index related processing for DB2 utilities, and (phew...) DRDA processing. Todd -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Craddock, Chris Sent: Thursday, April 12, 2007 3:18 PM To: [EMAIL PROTECTED] Subject: Re: zAAP Eligible Work Went off to one of my ISV vendors and asked if the JAVA coding in their product would be run on the zAAP processor I am implementing on my two z9BC machines. The response was In order for XXX to use the ZAAP engines, it would have to be started in a special enclave eligible for ZAAP processing. We don't do that. Does this ring a bell with anyone as being a true statement. No its completely bogus. That -would- be true for zIIP work, but not for zAAP. JAVA work runs on a zAAP if there's one present unless you tweak the JVM to say you don't want it to. CC -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.446 / Virus Database: 269.3.0/758 - Release Date: 4/12/2007 11:52 AM -- No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.446 / Virus Database: 269.3.0/758 - Release Date: 4/12/2007 11:52 AM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: zAAP Eligible Work
John, publicly, no. The only workload that I know of today is Java. Yes, it's touted as a Java processor, 'cuz that's the only thing using it today. Read between the lines from this redbook: http://www.redbooks.ibm.com/redbooks/SG246386/wwhelp/wwhimpl/java/html/wwhel p.htm Quoting: When a z/OS logical partition is configured, both CPs and zAAPs are defined as necessary to support the planned Java and non-Java workloads. zAAPs may be configured as initially online or reserved for subsequent use by z/OS as necessary... If it were only destined to be a java processor, sans any copyright considerations or politically correct names, I would have expected a name like zJAP (LOL). Now, on the other hand, they hit the nail on the head when they named the IFL. It's an application assist processor, or formally, integrated facility for applications - read between the lines - reduce mainframe TCO - don't charge for software - more open source leverage... blah, blah, blah. Todd Todd, Are you aware of what other work might be zAAP eligible? -- John McKown Senior Systems Programmer HealthMarkets Keeping the Promise of Affordable Coverage Administrative Services Group Information Technology -- No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.446 / Virus Database: 269.3.0/758 - Release Date: 4/12/2007 11:52 AM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Don't Forget The 'C' in Objective-C! | Reg Developer
Objective-C is so much different from base C. I could understand where a programmer well versed in Obj-C, and without a good base in C, would do this. Let's not forget that editing and critiquing code is a lot easier than creating. I bought my first Mac last December. I love it. I love it even more since I've had an opportunity to fight with Vista. Wanna talk about bloatware and the need for faster hardware? Let's talk about Vista with its confusing UI. I spent 30 minutes the other night trying to get a powerpoint presentation onto a flash drive. Todd -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of McKown, John Sent: Friday, April 06, 2007 8:43 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Don't Forget The 'C' in Objective-C! | Reg Developer Gee, a PC Weenie who understands. A mild rant about how one person, likely through ignorance, totally missed an efficient way to code a substring search. This helps explain why computers today need to have so much horse power. http://www.regdeveloper.co.uk/2007/04/06/c_objective-c/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.446 / Virus Database: 268.18.26/748 - Release Date: 4/5/2007 3:33 PM -- No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.446 / Virus Database: 268.18.26/748 - Release Date: 4/5/2007 3:33 PM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JCL Question
DELETE used in that syntax is used for NORMAL termination disposition. If you had coded DISP=(MOD,DELETE,DELETE), then the 2nd DELETE would be for abnormal termination. See this link for a chart: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/iea2b660/12.19.11 ?ACTION=MATCHESREQUEST=MOD,DELETETYPE=FUZZYSHELF=DT=20050713232151CASE= searchTopic=TOPICsearchText=TEXTsearchIndex=INDEXrank=RANKScrollTOP=FIR STHIT#FIRSTHIT Todd -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of esmie moo Sent: Sunday, January 28, 2007 11:36 PM To: IBM-MAIN@BAMA.UA.EDU Subject: JCL Question Is the following correct : DISP=(MOD,DELETE). I am not sure about the DELETE portion. Does it delete the dataset if the job abends? Or does it delete the updates made to the dataset when the job abends. I was always under the impression that if MOD is coded, the parms after that make not difference. Can somebody please clear up my misconceptions? Thanks in advance. - Share your photos with the people who matter at Yahoo! Canada Photos -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] 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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: PULL? PUSH? STEM? (was: REXX EXECIO changing LOWERCASE TO UPPERCASE)
Walter, write one! I wrote one 10 years ago using standard rexx exits. Global variables in rexx are great! Todd -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of wtrovijo Sent: Tuesday, January 16, 2007 10:37 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: PULL? PUSH? STEM? (was: REXX EXECIO changing LOWERCASE TO UPPERCASE) By the way it would be nice to have some kind of modified rexx environment to allow rexx programs to share stems. It would avoid passing data thru stacks even between different rexx programs. Walter. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Assembler question
You want printable hex, so replace the CVD, MVC, ED, NC, and TR with the following: ST R0,FULLWORD UNPK M1CC+1(9),FULLWORD(5) TR M1CC+1(8),=C'0123456789ABCDEF'-X'F0' After this, M1CC will contain X'F0F0F0F0F0F0F8C2', which will print as 008B. Your NC and TR will work, but only if the original hex number is first unpacked into twice as many bytes. If you use the tricky literal I used, you avoid needing to do the NC instruction. After the UNPK, you can do either your original NC and TR or my tricky TR. Bill Fairchild Precisely. Unless her program is X'F0' long at the place in the LTORG where constant gets generated. Todd -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Certain WTOs are slow to externalize
Here's an interesting phenomenon that perhaps some of you have observed, or maybe not. I've observed it when running in SRB mode and specifying LINKAGE=BRANCH when using WTOs for messaging. Perhaps someone can explain what is going on here. For situtation #1, my app is running in SRB mode, it physically resides in ECSA, supervistor state, key 0. I needed to do some debugging and added some strategically placed WTOs. It's a fast running process and many times the WTOs would never externalize. I finally figured out that if coded SYNCH=YES on the WTO, I would see the WTOs in the job output. However, issuing the WTO with SYNCH=YES caused the app to run doy slow, and I mean REALLY slooow. Situation #2 is similar. I'm testing z/XDC 1.7 SRB mode support, and I coded up a simple SRB, run it in batch, forced it to abend. I then got control with z/XDC and starting stepping through my retry code. I traced around a WTO LINKAGE=BRANCH, jumped over to my other session to browse the output (SDSF DA), but the WTO had not shown up. I stepped through code for a couple more minutes, exited the debugging session and then cancelled the job. I did not see the WTO in the job output until I cancelled the job. So my question is, why does it take so long for the WTO to externalize? Thanks, Todd (By the way, the z/XDC testing is going great. I can't remember how many years I wanted a debugger for SRB mode... Well, maybe I can... 15. Picture yourself instruction stepping through code, in supervisor state, key 0, SRB mode, in an EUT=YES FRR, full cross memory mode. It's amazing. Thanks Dave!) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Certain WTOs are slow to externalize
Jim, that pretty much hits the nail on the head. Thanks for the explanation. Me thinks I have some WTO SYNCH=YES code to remove... Insofar as the non SYNCH=YES situation, I'm satisfied attributing that behavior to the explanation from Sam, in that JES has not externalized the WTO as fast as I would like it to be. This is a great list! Todd With SYNCH=YES, the WTO is displayed by itself on a console using special processing, and held on the console for 10 seconds (spinning for 10 seconds in the console code). So the WTO macro takes at least 10 seconds to return to your code. Jim Mulder z/OS System Test IBM Corp. Poughkeepsie, NY -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Looking for SRB sample in PL/I or COBOL
Remember that zIIP processors were designed with DB2 in mind. Wayne Driscoll Product Developer JME Software LLC NOTE: All opinions are strictly my own. Fancy that. So was MVS/XA. :) Todd -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: WLM Question
Terry, I might be able to help with TMON, if it's TMON for DB2 you are referring to. Contact me off list and we can discuss what you are wanting to know. Perhaps there is a facility through TMON for DB2's log files and our Report Writer that would provide the information you want. Todd ( todd dot burch at asg dot com ) - Original Message - From: Terry Linsley [EMAIL PROTECTED] Newsgroups: bit.listserv.ibm-main To: IBM-MAIN@BAMA.UA.EDU Sent: Thursday, March 23, 2006 9:54 AM Subject: WLM Question Greetings, We have recently suffered some pain due to logic error in our subsytem DDF classification rules. I have made corrections to those rules and performance has improved. But I would like to see concrete proof that all DDF threads are being classified to the service classes I expect. Is there an RMF/SMF report which whould show, for a specific time span, every DDF thread that executed and to which service class it was classified? Barring that, is there any kind of report that would even get me close? We have TMON, but I have not found anything there at that level of detail. I have been looking through WLM and RMF manuals, but found nothing at that level of detail there either. Does anyone else do that level of reporting for troubleshooting. Environment: OS/390 2.10, DB2 v7 TIA -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Assembler question
Bill, ADR1 is based on some register and offset in your program. Let's pretend it is R3, and is 4 bytes off of R3. So, being that, the instructions looks like this: L R10,4(,R3) MVC ZON,0(R10) By rewriting the instructions, you get this: MVC ZON,4(R3) Can you see the difference now? Todd - Original Message - From: Bill Larsen [EMAIL PROTECTED] Newsgroups: bit.listserv.ibm-main To: IBM-MAIN@BAMA.UA.EDU Sent: Thursday, March 16, 2006 12:03 PM Subject: Assembler question Dear all (...) L 10,ADR1 MVC ZON,0(10) === (XX) (..) ADR1 DS F === why when i replace (XX) by MVC ZON,ADR1 , i don't have the same value in ZON ??? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: which softwares honour TCP's KEEPALIVE packets?
DB2 has a KEEPALIVE option for the Distributed Data Faciliy (DDF). Todd My question now is: do you know by experience which softwares (sockets) honour the TCP stack KEEPALIVE? And/or what softwares have a private keepalive mechanism of their own? Jan -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
If a guy wanted to teach himself cobol...
... what would be a good place to start with his self study? I've been around cobol (ok, COBOL) for years, and some of the cobol today looks a lot different than the cobol of the early '80s. I see on IBM's web site Enterprise COBOL for z/OS V3R4, so I'm guessing this is the latest and greatest. I would like to write on z/OS, and run on z/OS, but in doing so, I want to be able port what knowledge I do gain to Windows as well. I've written OO code before, so I'm not opposed to jumping into OO COBOL with both feet if that's the best approach. I'm interested in both batch processes and interactive. Is there a common GUI interface? When coding on z/OS, should I set my sights on only using USS? My objectives of this code will be to exercise DB2 on z/OS, from near (z/OS) and afar (Windows). Utilmately, I would like to run the same application on both (either) z/OS or Windows. Am I shooting too far? Or, am I barking up the wrong language tree, and need to be using Java or C++ instead? Thanks, Todd -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: DB2v8 CM compile question
I opened an enhancement request for this very problem with IBM last year. It is not a new problem with DB2. It's annoying. If it's a vendor DBRM, contact the vendor and have them clean it up. If it's your DBRM and it's empty, it was probably generated because someone needed the SQLCA in their program, or the SQLDA, and without hand coding either of those structures (and potentially causing a problem down the road when these structures change), there is no way to get them into your program without an EXEC SQL command. And, to get rid of the EXEC SQL, you have to PRECOMPILE, and the output of the precompile is a DBRM. In this situation, it's an empty DBRM. Todd - Original Message - From: Karson, Lynne (SAA) [EMAIL PROTECTED] Newsgroups: bit.listserv.ibm-main To: IBM-MAIN@BAMA.UA.EDU Sent: Wednesday, March 01, 2006 3:01 PM Subject: DB2v8 CM compile question Hi Listers, We have DB2 version 8 compatibility mode up in a test LPAR. I have been doing baseline comparison run time testing with DB2 version 7. I ran into a problem where I had to compile a program and I got a return code 8 on the bind. The message says that the DBRM member is empty and the package is not found. Indeed them member module is in the DBRMLIB, but it is empty. We can do a rebind with RC/Query, but we are going to need successful compiles somewhere down the road. My DBAs think that they have set up everything properly but they may be missing a Z parm. Has anyone run into this situation? TIA. Lynne Karson Senior Software Specialist U.S. Senate Sergeant at Arms (202)224-9587 [EMAIL PROTECTED] -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/Architecture Principles of Operation (SA22-7832-04)
Certainly I can do that. And, when I do that, I have absolutely no need for the LDF instructions. The purpose of the Long Displacement Facility is to provide relief for base register constraint. Coding a LAY R1 to get around a macro expansion, and taking up a base register to do that, doesn't buy me diddly squat in terms of base register relief. Todd - Original Message - From: Robert A. Rosenberg [EMAIL PROTECTED] Newsgroups: bit.listserv.ibm-main To: IBM-MAIN@BAMA.UA.EDU Sent: Tuesday, February 21, 2006 11:23 AM Subject: Re: z/Architecture Principles of Operation (SA22-7832-04) At 08:29 -0600 on 02/20/2006, Todd Burch wrote about Re: z/Architecture Principles of Operation (SA22-7832-04): Roland, it's not that the IBM DSECTs are 4096, it's that mine is. And, for instance, the MF=(E,WORKOPEN) execute form of the macro was in storage 12 bits away. I seem to remember that the address of a MF=E can take a register. Why not preload the register that MF=E loads (R1 I think) via a LAY and go MF=(E,(1))? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/Architecture Principles of Operation (SA22-7832-04)
Chris, yes, my perspective is different than yours. Mine is for serviceable, well documented code (I'm absolutely NOT implying that your's isn't). There are several folks in my department and we all service all the code. There's no value in being criptic or concise to the point that you have to be a 40 year veteran of assembler coding to service a module. (I've only been coding since '86...) Today, I would argue there this a huge need to know the macros, and not the expansions. Tie yourself to manually coding the plists and now you've entered doubt and uncertainty, and a service-point-check when migrating to new macro libs with new operating systems and new hardware. Does IBM say protect your investment? Yes, and that's a good thing. :) Todd - Original Message - From: Chris Mason [EMAIL PROTECTED] Newsgroups: bit.listserv.ibm-main To: IBM-MAIN@BAMA.UA.EDU Sent: Tuesday, February 21, 2006 2:54 PM Subject: Re: z/Architecture Principles of Operation (SA22-7832-04) Todd, My assembler-writing days started in 1967 when storage was not all that abundant and economy was paramount*. Concise coding became an ingrained habit and I was often upset by inefficient macro expansions. Thus I preferred, for example, to manipulate my register usage to fit what I knew was needed by the coming macro expansion. Finally, there was really no need for the macro at all - except to document the SVC call - just like WTO MF=(E,(1)) for SVC 35 below now I take a look at it. So I guess that's the diametric opposite of your approach :-) * I was once on the edge of a project to create some spooling code for DOS - that's the VSE of today. The target was 4K since it was designed to be able to fit into a 32K - 64K if you were rich - System 360 Model 30 or 40. One suggestion from the review panel was to use the X'1A' of - I think - the AR instruction in place of a packed decimal 1 constant. Chris Mason -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/Architecture Principles of Operation (SA22-7832-04)
Tell me about it Ed.I forget how many assembly errors I got the first time I attemped: MVCY TRTY UNPKY, etc. Too bad. Roland, it's not that the IBM DSECTs are 4096, it's that mine is. And, for instance, the MF=(E,WORKOPEN) execute form of the macro was in storage 12 bits away. The IEABRC method is a good idea. I hadn't thought of that. Not sure I would want to write or maintain one to convert to the Y formats myself though. I wouldn't want to test it either. Todd - Original Message - From: Edward E. Jaffe [EMAIL PROTECTED] Newsgroups: bit.listserv.ibm-main To: IBM-MAIN@BAMA.UA.EDU Sent: Monday, February 20, 2006 1:09 AM Subject: Re: z/Architecture Principles of Operation (SA22-7832-04) Schiradin,Roland HG-Dir itb-db/dc wrote: Haven't seen any IBM-DSECT which is longer then 4096 bytes (z/os R4 and R7) Or do you think about you own DSECT for working storage or static areas? Perhaps you can substitude the instruction like COPY IEABRC does? Oh well haven't spend so much time to look at it. You may post this to the Assembler listserver. Not a bad idea. Could work in many cases, but probably not all. :-( The long displacement facility adds the RSY, RXY, and SIY instruction formats. Unfortunately, there are no equivalents for any of the SS format instructions, probably because such instructions would require a heretofore unsupported eight-byte instruction format. This restriction means that extremely popular instructions like XC, MVC, etc. have no long displacement counterparts... -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/Architecture Principles of Operation (SA22-7832-04)
(Attn: old post resurrection warning...) Thomas, I'm using the Long Displacement Facility quite a bit in a piece of code I'm writing now. It's not so much that I need it for the CSECT, but for the DSECT. Overall, I'm pretty satisfied with it. There is however, one consideration that I'll point out. There is no way to tell (that I have figured out) IBM macros to expand and exploit this facility. Any operands to fields that are past 4096 bytes of your closest USING do not assemble properly. (Examples, OPEN, GET) So, for big sections, you still need to have a register available for addressing around these macros. Todd FYI: How to test for this facility: USING PSA,0 TMFLCEFACILITIESBYTE2,X'20' BNO NOT_INSTALLED LONG DISPLACEMENT FACILITY NOT INSTALLED DROP 0 ... IHAPSA LIST=YES END On Wed, 21 Sep 2005 05:57:53 +0200, Thomas Berg [EMAIL PROTECTED] wrote: Thanks, was it any problems regarding certain instructions/operations and if so, had you some interestion solutions for them ? TIA Thomas Berg == Tom Harper == wrote2005-09-21 05:41: Thomas, We have used the long-displacement instructions to allow for the generation of additional compiled code over the short-displacement instructions, if the machine environment supports them, removing the old size limitations of +/- 64K. It was really not all that difficult to implement (baseless code generation). We have actually converted most of our critical-path instruction sequences to baseless code, believing future machines will execute these instructions faster, due to fewer base-register interlocks. This was fairly straight-foward using the structured programming facilities of HLASM. Tom Harper From: IBM Mainframe Discussion List on behalf of Thomas Berg Sent: Tue 9/20/2005 9:10 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: z/Architecture Principles of Operation (SA22-7832-04) Have anyone used the long-displacement facility instructions (as in consistently do so to reduce base register usage) ? Are there any pitfalls or limitations that a relatively inexperienced programmer should be aware of ? Btw, why is there no MVCY instruction ? Is it because of the existence of the MVCL instruction or .. ? TIA Thomas Berg -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: z/XDC announcement: Release z1.7 is now available for beta test
WOO-HOO!!! Thanks Dave. My people should be contacting your people. ;) Todd Subject: z/XDC announcement: Release z1.7 is now available for beta test Hi All, Release z1.7 of z/XDC is now available for beta testing. Major new features include: - Support for running as an FRR. - Support for debugging SRB mode routines. - Numerous lesser changes. For more details, please check www.colesoft.com/pr060213.html. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
IPCS: accessing data in a dataspace
Reading through IPCS customization, it is not clear to me how to go about accessing data in the dataspace through a verbexit. I would typically use the Storage Access Service (Chap 10.2.18) to acess data in a dump, but it says right up front to use the Storage Access function of the Symbol Service (Chap. 10.2.20). In the Symbol Service, I have to supply an ESR, which in turn describes the ASID of the owning dataspace and the DSPNAME itself. OK so far. What is not clear to me is where to supply the address within the dataspace, or the length of the data I want returned. Do I have to create a symbol (using the Equate Symbol Service) for each address/length I want to (programmatically) look at in the dataspace? Seems like a pain. On the other hand, I considered using the Storage Map Service (Chap 10.2.19), as this indicates dataspace access is supported. But, similarly to the Symbol Service, I have not figured out how/where to specify the address length of storage I am insterested in. Any help is appreciated. Thanks, Todd -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IPCS: accessing data in a dataspace
It's amazing what you manage to see in a listing when you know what you are looking for. Thanks Bob. I'm fully operational at this point. Todd Bob Helps: The BLSRESSY (symbol service) and BLSRSASY structures both use three elements to talk about the dump data of interest: 1. A BLSRDATS structure (field name suffix AS) that you've characterized accurately. It tells IPCS what address space (broader term than you generally hear being used to discuss z/OS) is of interest. A large variety of address spaces are supported in various contexts, including ASID(a) DSPNAME(d). Part of IPCS considers every address space to have full 64-bit addresses. Some front-end functions notice that you really cannot talk about addresses beyond 1040 in a HEADER record and that most data spaces are still limited to 31-bit addresses. 2. An address that comes in two flavors, depending on whether you asked for an ABITS(64) structure or accepted a default ABITS(31) structure. The former is a 64-bit address, and the latter is a 31-bit address in a 32-bit field. In all cases the field name suffix is LAD for logical address. The logical address is the value that you expect to find in other blocks that point to whatever is being discussed. In the case of blocks like TCBs, UCBs, RBs, ASVTs, JSCBs, and at least a few others, it is not the address of the first byte occupied by the thing being discussed. 3. A BLSRDATC structure (field name suffix D in BLSRESSY and F in BLSRSASY) that supplies an attribute bundle including offset, length, and one-dimensional array characteristics. The offset plus the logical address yields the address of the first byte occupied by whatever is being discussed in the address space in the dumped system. When you request a dump access function, the first phsical byte of interst lands in the first byte of the buffer that you provide. That may require an interesting USING operation to get proper addressability to what lands in the buffer. There are also some other fields that help explain why BLSRESSY (symbol table) and BLSRSASY (storage map) records are different. I hope that this helps. Bob Wright - MVS Service Aids -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IPCS The Movie: LOST IN SPACE, er... DATA SPACE
Thanks Bob. I'll open a PMR. I only have a few MB of the whole 2GB dataspace actually containing data. I was on the next to last page of my data (in the 3MB addressing range) and hit PF8 to see the last page, which I figured would include a line which indicated all lines look alike from here on out message. After a short while (certainly not instantaneous, or even within 1/2 a minute - maybe a couple minutes later (I stepped away)) I was presented with a screen that had only the top line with a message, stating 7F.:_ Storage not available. When I hit PF7 to go backwards, my TSO session was locked up and timed out an hour or so later. Barbara, thanks for the suggestion. Using the FIND command is not really an option in this case. I don't know what data is there, I need to look at it! Todd - Original Message - From: Robert Wright [EMAIL PROTECTED] Newsgroups: bit.listserv.ibm-main To: IBM-MAIN@BAMA.UA.EDU Sent: Tuesday, January 24, 2006 8:39 AM Subject: Re: IPCS The Movie: LOST IN SPACE, er... DATA SPACE Todd Burch wrote on 01/23/2006 07:15:01 PM: Woe to those who hit PF8 and advance into unused DATASPACE storage. Is there an option in IPCS Browse to overcome the HANG (X CLOCK) situation when paging into the unused portion of a 2G dataspace dump? I just tried DOWN MAX against several of the data spaces in an SDUMP that is my current z/OS 01.07.00 default, and the response was instantaneous for them all. If you're seeing a different result, you may want to open a PMR and get both the dump and your usage scenario to us. Little details really loom as important when we deal with missing storage ranges. snip Bob Wright - MVS Service Aids -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
IPCS The Movie: LOST IN SPACE, er... DATA SPACE
Woe to those who hit PF8 and advance into unused DATASPACE storage. Is there an option in IPCS Browse to overcome the HANG (X CLOCK) situation when paging into the unused portion of a 2G dataspace dump? Perhaps an option to turn off similar line compression? (Things I do in my spare time: browse dataspaces, read encyclopedias, make sure the phone book is sorted properly...) Thanks, Todd -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IPCS The Movie: LOST IN SPACE, er... DATA SPACE
z/OS 1.7.00 Todd I thought they had fixed that? What release are you on? CC -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IBM High Level Assembler for Linux on zSeries
That's great John!Too bad I don't use Linux. Yet. Are you an active participant in writing code? I see your name all over Assembler stuff Todd - Original Message - From: John R. Ehrman [EMAIL PROTECTED] Newsgroups: bit.listserv.ibm-main To: IBM-MAIN@BAMA.UA.EDU Sent: Thursday, January 19, 2006 7:35 PM Subject: IBM High Level Assembler for Linux on zSeries IBM recently announced the availability of HLASM for Linux on zSeries, as PRPQ 5799-TCQ. It is fully compatible with HLASM on the current MVS, CMS, and VSE operating systems, and can generate the ELF object format as well as the traditional OBJ and GOFF formats. John Ehrman (ehrmanATvnet.ibm.com) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Multi-session window TN3270 client?
I use several sessions with TN270 Plus. Most of the time 3, lately 5. I also use SPLIT NEW and then SWAP NEXT to roll through however many ISPF sessions I want to generate. Then, on top of that, I also use Netview for swapping systems. It's a crazy world, ain't it? Todd - Original Message - From: Chris Mason [EMAIL PROTECTED] Newsgroups: bit.listserv.ibm-main To: IBM-MAIN@BAMA.UA.EDU Sent: Friday, January 20, 2006 10:19 AM Subject: Re: Multi-session window TN3270 client? Johnny, I guess your work environment is a bit like mine what I was running my test MVS systems and making various networking functions work (for education classes, in fact). Here I always needed a NetView session, of course, most particularly for Session Monitor, but just the entry of commands in general. I also needed TSO for editing, often more than one, and occasionally access to CICS in order to exercise, say, the CICS automatic definition of TCTTEs (or whatever it's called these days). All this could be done from one NetView session using the Terminal Access Facility (TAF) - which, now I remember, was one of the NetView topics I used to teach. In other words I expect you have what you need at your fingertips already. You just need it mentioned to you. Incidentally, you can use the roll PF key to jump between your TAF, specifically full-screen (FLSCN), sessions. So you see this has got nothing necessarily to do with TN3270 clients and everything to do with knowing your host environment. Besides TN3270 clients are going to cost you money and you have NetView already I expect. Chris Mason -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IPCS Standard Print Service
Bob, thanks a bunch for taking the time to spell it out for me. Yes, I was saying print dataset while meaning terminal output. OK, so the NOTOC option will fix it. Fantastic! Bob, if you ever get near Katy, Texas (Houston), I'll buy you lunch, or dinner - your choice! Same thing if I ever make it up to POK or wherever it is that you call home. Todd - Original Message - From: Robert Wright [EMAIL PROTECTED] Newsgroups: bit.listserv.ibm-main To: IBM-MAIN@BAMA.UA.EDU Sent: Thursday, January 19, 2006 2:10 PM Subject: Re: IPCS Standard Print Service I ran the requested experiment and got basically what I expected in the RECFM=VBA data set. The following was cut and pasted from ISPF browse afterward - after turning on its display of control characters: 1COMPON=REAL STORAGE MANAGEMENT,C + 0WHY DOES THIS SHOW UP ON LINE 4? The first line of output from MINIVERB should appear on line 3, following an underscored title line on line 1 and a blank line 2. You've been using the term print dataset which is what I've been addressing, but your script would cause MINIVERB output to be sent to the terminal as a destination unless you added print noterm as options like I did. There I do see 3 blank lines preceding the first one produced by MINIVERB. That's a consequence of PRDMP compatibility as well as some TSO terminal output stream considerations. o PRDMP started the output from all verbs on a new page, but it didn't get around to supporting ADPLEJEC until its final years. ADPLEJEC is the bit that says eject. Old PRDMP exits put out between 60 and 90 blank lines to cause the current page to overflow as a means to get to the top of the next page. o The TSO output stream has no sense of pagination since it originally was written to continuous forms fed through hardcopy terminals like 2741s. IPCS's terminal support tries to make sense of all this by limiting the number of consecutive blank lines that it actually honors and, conversely, by slipping in some (3) blank lines when something nonblank shows up in the output stream. So the 3 blank lines that you see in your terminal output are the consequence of the VERBEXIT subcommand putting out one blank line with a page eject indication before giving control to the exit. Now for some good news since you don't seem fond of the blank lines. There is a NOTOC option on VERBEXIT that suppresses several inherited behaviors related to invoking verb exits, and one of those behaviors is forcing a new page. If you change your invocation to verbx miniverb notoc, you'll have your output start on the first line. (If you say note 'hi' page, you'll get the 3 blank lines before HI.) Bob Wright - MVS Service Aids -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IPCS Standard Print Service
Here is perhaps the smallest verb exit I've ever written to demonstrate the blank lines at the top of the IPCS print dataset. There are three blank lines at the top. How do I access these? When I write a REXX routine that call the NOTE command, these blank lines do not exist in the print dataset. Assemble, linkedit, place in a library in your available TSO load libs, and issue verbx miniverb from IPCS option 6. Thanks, Todd MINIVERB CSECT MINIVERB AMODE 31 MINIVERB RMODE ANY BAKR R14,0 LRR12,R15 USING MINIVERB,R12 LRR11,R1 ABDPL POINTER USING ABDPL,R11 IPCS PARM LIST LAR13,SAVEAREAMY SAVE AREA *** *PRINT A MESSAGE * *** L R15,ADPLBUF OUTPUT BUFFER MVC 0(L'TESTMSG,R15),TESTMSG L R15,ADPLSERV ADDRESS OF EXIT SERVICES CALL (15),((R11),PRNTCODE)CALL THE PRINT SERVICE *** *EXIT THE MODULE * *** SRR15,R15 PR * PRNTCODE DCA(ADPLSPRT) PRINT SERVICE CODE TESTMSG DCC'WHY DOES THIS SHOW UP ON LINE 4?' * SAVEAREA DS18F SAVE AREA * *** *DSECTS * *** BLSABDPL DSECT=YES,AMDEXIT=YES,AMDOSEL=NO,X AMDPACC=NO,AMDPFMT=NO,AMDPECT=NO,AMDPSEL=NO YREGS END I'm glad that your general experience has been positive. Your concern regarding the print services is one that you can't fix without a requirement being addressed by IPCS. IPCS always puts title lines at the top of a print file page, using a hierarchy of sources for title text. Note that the expanded print service is available under both IPCS and SNAP hosts. It uses the host-supplied print API to get all lines of output sent out. There are reasons to look at its use, but circumventing host restrictions isn't one of them. It also inherited a compatibility requirement from PRDMP/SNAP. The original, common API defined by those two hosts did not originally have an ADPLEJEC bit. Applications were simply expected to put out around 60 blank lines to ensure that a current page had overflowed and that the next non-blank line would appear at the top of the succeeding page. IPCS came along late enough in the evolution of technology that it was obvious that line width and page depth both needed to be specified by the used, so ADPLEJEC needed to be used and was, of course, a better solution. Bob Wright - MVS Service Aids -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: DB2 v8 cannot use Syncsort (was: RE: RSM tuning)
Joel, I can see another reason, having worked in this field a bit. It appears to me that DB2 Utilities have leveraged another interface out of DFSORT to cut down on the overhead of sorting. Perhaps they are making block calls (calling DFSORT with a number of records) instead of calling DFSORT for every record processed. Or, perhaps the interface is now much leaner and a significantly shorter code path than before, possibly giving DB2 Utilities the opportunity for more of a competive edge over other vendor products they compete with. Todd - Original Message - From: Joel C. Ewing [EMAIL PROTECTED] Newsgroups: bit.listserv.ibm-main To: IBM-MAIN@BAMA.UA.EDU Sent: Thursday, January 12, 2006 8:18 PM Subject: Re: DB2 v8 cannot use Syncsort (was: RE: RSM tuning) But it does mean that a Syncsort shop that is heavy DB2 will now have the overhead of having two sort products loaded into LPA. I sure hope DFSORT doesn't have any LPA code that is RMODE24! The only rationale I can see for DB2 taking this approach would be a desire to market DB2 to shops that don't license any sort product. I can't conceive of such an environment, but maybe they exist. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Merry Christmas!
Ain't no need to be politcally correct. Today is Christmas. In the US, it's a Federally recognized Holiday, since 1870, by the name Christmas. You can wish me Happy Holidays, Season's Greetings, whatever. But, I say to you, Merry Christmas! I too want to thank you all for sharing your time and knowledge over this past year. So, did anyone get anything good??? Todd -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
IPCS Standard Print Service
I've written some routines (in assembler) to access IPCS dump data using the IPCS Customization Services. I had written the same routines before in REXX, but slowness of REXX made the pain too great to bear any more. So, now I am a happy camper with my very high speed assembler routines. What was taking 3-4 minutes in REXX to process now takes sub-seconds with assembler. I've only explored the Standard Print Service and the Storage Access Service, and both are meeting my needs so far. However, I have not been able to figure out how to get my output dataset to start on line 1. It always starts on line 6. I've tried the ADPLEJEC bit, but to no avail.(I'm not using BLSUPPR2 or the expanded print service, just the ADPLSPRT service code.) What can I do to start my data on the top of the output page (viewing online)? Or, is this area reserved for header or other summary information I have not tapped into yet? Thanks for any insight. Todd -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IPCS Standard Print Service
Bob wrote: I'm glad that your general experience has been positive. Your concern regarding the print services is one that you can't fix without a requirement being addressed by IPCS. IPCS always puts title lines at the top of a print file page, using a hierarchy of sources for title text. Note that the expanded print service is available under both IPCS and SNAP hosts. It uses the host-supplied print API to get all lines of output sent out. There are reasons to look at its use, but circumventing host restrictions isn't one of them. It also inherited a compatibility requirement from PRDMP/SNAP. The original, common API defined by those two hosts did not originally have an ADPLEJEC bit. Applications were simply expected to put out around 60 blank lines to ensure that a current page had overflowed and that the next non-blank line would appear at the top of the succeeding page. IPCS came along late enough in the evolution of technology that it was obvious that line width and page depth both needed to be specified by the used, so ADPLEJEC needed to be used and was, of course, a better solution. Bob Wright - MVS Service Aids Bob, thanks for your reply. The first 5 lines that come out in my print file are empty (all blank). I've read further after your reply but it's not apparent which service I can use to cause ANY title lines (mine - not that I've defined any, or IPCS's title lines) to come out. I did find one sentence in IPCS Customization that referenced being able to use the Table of Contents Service to supply title lines in a verbexit routine (my routine is a verbexit routine), but nothing is jumping out at me for how to do this. When using REXX to build a print file with the NOTE facility, my output lines start on line 1, just like I expect. So, I figure there's a way to do this from assembler. I've even tried setting ADPLLNRM (lines remaining on page) to the value in ADPLLCNT (line count per page) and that didn't do it either. On entry to my routine, ADPLLCNT is X'3C' and ADPLLNRM is X'39'; a difference of 3, ... I think I must be printing a blank line or two myself (thus the 5 blank lines at the top) on entry. Thanks, Todd -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Maximum Extents in z/OS 1.4
For what it's worth, one of the control blocks representing extents has changed quite a bit for z/OS 1.7 Methinks it looks like preconditioning for the flood gates to open for the number of allowable extents. Todd - Original Message - From: Miller, Pat [EMAIL PROTECTED] Newsgroups: bit.listserv.ibm-main To: IBM-MAIN@BAMA.UA.EDU Sent: Monday, December 19, 2005 4:11 PM Subject: Re: Maximum Extents in z/OS 1.4 Thanks guys. Multivolume files are the key to the confusion. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: zSeries and OS/390
I know of a shop in Japan that is running OS/390 R8. Not sure of the hardware they are on, but it's probably not a z/Series. I have the dump, I guess I could look it up if it mattered... OK, I looked. It's a 2066, whatever that is. Nevermind. Todd - Original Message - From: Mark van der Eynden [EMAIL PROTECTED] Newsgroups: bit.listserv.ibm-main To: IBM-MAIN@BAMA.UA.EDU Sent: Sunday, December 18, 2005 4:27 PM Subject: zSeries and OS/390 How many people are running OS/390 (and below 2.10) on zSeries hardware? Any gotchas or other comments? Thanks, Mark -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Max Use Count
Magen, you are certainly welcome. However, please see this link for how it (program serialization) works. I believe I was correct. The control program handles serialization for LINK(X), XCTL(X) and ATTACH(X). You are on your own for LOAD or CALL followed by BALR. http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2A640/4.6.1.3?SHELF=DT=20040714142015 Todd - Original Message - From: Magen Margalit [EMAIL PROTECTED] Newsgroups: bit.listserv.ibm-main To: IBM-MAIN@BAMA.UA.EDU Sent: Wednesday, November 02, 2005 11:53 PM Subject: Re: Max Use Count Hi Todd Roland First let me thank you for your replys. When I said RU I ment SERIAL of course. but unfortunately ZOS does not take the care actually to serial the call and it's the application responsibility. On the DB2 SP documentation it states that SP should be RN RU or No-Rent and No-Reus because the same RU module can be loaded more then one time in diffrent thread's under the same jobstep (DB2SPAS). Also the abends are random, and we have discovered that the calling routine was running more then 32800 times(Max use count is 32767). I think that we are abending when another SP was using the RU module (another thread), but on the CREATE SP statement the STAY RESIDENT NO specified (I'm not sure that this parm is regarding to all LM chain) Regarding to DB2WLM we are getting there. Magen. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Max Use Count
Magen, I'm not so familiar with COBOL and how programs are LOADed, DELETEd, (or LINKed to, etc.), from COBOL, but consider this: The LOAD macro bumps the USE count for a module each time LOAD is issued. DELETE decrements the USE count for a module each time issued. When a TASK requests a module be LOADed, no matter how many times, the USE count goes back to 0 when the task terminates (or is terminated). Also, by saying you are using REUS, that is not enough information. Per the linkedit guide the syntax/options are: REUS=( NONE | SERIAL | RENT | REFR ) Which REUS option was used? If you used REUS by itself, that is equivalent to REUS=SERIAL, and you get NORENT with it. You state: since the module has RU attr under the DB2SPAS jobstep any SP that would call that module and work same time will cause an abend. This is true, but without manually BALRing to the module, how could this happen? If it is indeed linked REUS=SERIAL, the operating system makes sure only 1 task at a time can execute the module. Also, the scenario is not clear. You say you have a main program (I'm guessing the COBOL SP), a failing program (no name - but it attempts to execute DPTACBTX, and then there is DPTACBTX. Is this correct? Which of these belong to you and which belong to an external product (vendor?)? The problem sounds a lot like it lies with the program that calls DPTACBTX, and not with DPTACBTX. Todd - Original Message - From: Magen Margalit [EMAIL PROTECTED] Newsgroups: bit.listserv.ibm-main To: IBM-MAIN@BAMA.UA.EDU Sent: Wednesday, November 02, 2005 1:28 PM Subject: Max Use Count Hi List, We are ZOS 1.4 and DB2 7.1 site. The last few days we have encountered a strange problem We have a periodic batch job using DB2 Stored Procedure (cobol) calling other LMs including a call to module DPTACBTX. We sometimes get the following Msgs in the DB2SPAS log STC00153 CSV002I REQUESTS FOR MODULE DPTACBTX EXCEED MAXIMUM USE COUNT STC00153 CSV028I ABEND906-08 JOBNAME=DB2PSPAS STEPNAME=DB2PSPAS and the batch job is terminated. After restarting the job it works fine - till next time The DB2 SP is created with: STAY RESIDENT NO the main program is not rent and not reus and the failing module is not rent and REUS. We have two directions: A. The use count of the module increase in every call to the SP under the DB2SPAS jobstep till it has max use count... it's not reloaded again since it has RU attribute, B. since the module has RU attr under the DB2SPAS jobstep any SP that would call that module and work same time will cause an abend. The module is an external product module so we can't relink... Any advice will be appreciated. Magen. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: ABENDS0C4-04 on storage in subpool 228
Jerry, subpool 228 is fixed (not pageable). I suspect the problem is the key of the task accessing the storage not being the same as the key of the task that obtained the storage. Todd - Original Message - From: Support, DUNNIT SYSTEMS LTD. [EMAIL PROTECTED] Newsgroups: bit.listserv.ibm-main To: IBM-MAIN@BAMA.UA.EDU Sent: Wednesday, November 02, 2005 4:00 PM Subject: ABENDS0C4-04 on storage in subpool 228 I have a storage area getmained in fixed Common ECSA system storage subpool 228. I have a cross memory routine that at times gets an ABENDS0C4- 04 when referencing this storage. How can I permanently make this storage non-swappable? I assume that's the cause of my problem. TIA. Jerry -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: vtam appl. to tso
Unless you need the services of TSO itself, why not just kick off rexx inside the VTAM appl? Todd - Original Message - From: Ali [EMAIL PROTECTED] Newsgroups: bit.listserv.ibm-main To: IBM-MAIN@BAMA.UA.EDU Sent: Thursday, October 27, 2005 5:57 AM Subject: vtam appl. to tso Hi All, Is there a way to go from a VTAM application to TSO environment,excecute a REXX or CLIST and then come back to the previous session? Any source code or sample is very welcome and highly appreciated. Best Reards, Ali -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Speaking of REXX... Can you find the problem?
Very close, but yes. When the routine hit asid 00E0, they compared favorably. In diagnosing this, it wasn't until I added the datatype() function to both the current loop asid and the lookup asid and they both came out as NUM did I figure it out. Duh. I had long figured out that I could use strictly equals, but I wanted to get to the root cause. What do you win...Had you been siting over my shoulder and found the problem 1 hour prior to me sending my post to this list, you would have won a new car.Alas, as it is now, well you win squat. Both you and Mark Wheeler do get recognition from your peers that you are both REXX savvy and not to be reckoned with. How's that? Thanks, Todd. - Original Message - From: Phil Smith III [EMAIL PROTECTED] I bet it had to do with the fact that you were using = rather than ==, so 0E01 = ... What do I win? ...phsiii (Everybody gets bitten by this one once!) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Speaking of REXX... Can you find the problem?
I've been coding in REXX since 1986 (started on VM). I like to consider myself somewhat proficient in it. However, this little tidbit ate my lunch today. I was running through ASID numbers in an IPCS dump. I was testing my lookup logic with an ASID of zeros, and kept getting incorrect output. My subroutine kept returning ASID 224 (decimal), and I was expecting it to fail. Can you guess what the problem turned out to be? ;-) /* rexx */ test_asid = ; call loop_through_ascbs ; ... exit ; loop_through_ascbs: ... ascbasid = obtain_data( ascb@ , x2d( 24 ) , 2 ) ; /* IPCS subroutine to extract data from the dump */ asid = ascbasid/* the two byte hex asid value */ if asid = test_asid then do ; say SNOC end ; ... return 0 ; Todd -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: ISPF REXX : edit or view
Address ISREDIT (v1,v2) = SESSION ; v1 will be EDIT or VIEW, or whatever the session is running under (like EDIF, VVIIF) From ISPF Book - EDIT and EDIT MACROS. Todd - Original Message - From: François LE MANER [EMAIL PROTECTED] Newsgroups: bit.listserv.ibm-main To: IBM-MAIN@BAMA.UA.EDU Sent: Thursday, July 28, 2005 7:25 AM Subject: ISPF REXX : edit or view Hello I have an ISREDIT macro in which I need to determine if user is using the macro under EDIT or VIEW Does anyone knows which ISPF Z... variable can be tested ? Thanks -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Routine name/srb
Mary, with the information you now have - the LOGREC entry(s) for the S0A8 abend, plus the reason code, (and a dump too!) you should be able to contact VTAM support and have them explain the reason for the abends. Either this is a new problem or they will be able to point you to some maintenance that fixes the problem. Todd - Original Message - From: mary george [EMAIL PROTECTED] Newsgroups: bit.listserv.ibm-main To: IBM-MAIN@BAMA.UA.EDU Sent: Wednesday, July 27, 2005 6:23 AM Subject: Re: Routine name/srb Thanks. My registers show a eason code 7001,which complain on wrong ECB's or RPLS'. I basically am not aware of how to trace them in my my dump and find where its going wrong. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Keeping my started task's WTO output off the console?
Ed, isn't WTP (write to progammer) the same as WTO with ROUCDE=(11)? I could not find a WTP macro. Todd - Original Message - From: Ed Gould [EMAIL PROTECTED] Newsgroups: bit.listserv.ibm-main To: IBM-MAIN@BAMA.UA.EDU Sent: Saturday, July 16, 2005 9:29 PM Subject: Re: Keeping my started task's WTO output off the console? Not sure if this is exactly what you are looking for but how about WTP ? Ed -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Keeping my started task's WTO output off the console?
I've considered lots of things, including those. I've also considered the expense in time and man hours to change and retest 600+ modules from the way they were originally designed and written. I bet you can guess which option (to change everything or not) won. Todd - Original Message - From: Shmuel Metz (Seymour J.) [EMAIL PROTECTED] Newsgroups: bit.listserv.ibm-main To: IBM-MAIN@BAMA.UA.EDU Sent: Sunday, July 17, 2005 5:49 PM Subject: Re: Keeping my started task's WTO output off the console? Have you considered using CT, GTF or your own trace data set? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Keeping my started task's WTO output off the console?
I'm happy to provide an explanation for the reason for my question. I work for Allen System Group, in the mainframe group that used to be Landmark. Several of the products we produce use WTOs for trace messages. In a development environment, with multiple products running in diagnostic mode all the time, all producing reams of diagnostic messages via WTO, simply pressing enter in SDSF while browsing syslog can cause you to have to scroll down several hundred lines. It makes finding things of interest (system events not directly related to a product's job log) more difficult. I have no answer for is there a reason I want to use WTOs... other than what Walter Cronkite used to say every evening... that's the way it is. So, for these multitudes trace messages, the intended target is the developer and/or the support organization. Thank you all again. Todd - Original Message - From: John S. Giltner, Jr. [EMAIL PROTECTED] Newsgroups: bit.listserv.ibm-main To: IBM-MAIN@BAMA.UA.EDU Sent: Saturday, July 16, 2005 7:58 AM Subject: Re: Keeping my started task's WTO output off the console? Based on what I think you want to do, as Sam said, you need a MPF exit. Even then, I'm not sure you can get it in the joblog and not into syslog. I never had a reason to have a message in the joblog and not in syslog, so I have never looked, I have always just assumed that everthing in the joblog was always written to syslog. WTO is Write to Operator. In this case the operator is the console and syslog. The SDSF log is syslog. Is there a reason that you want to use WTO and NOT have it show up in the syslog? The whole reason for WTO is to let the operators know what is going on. If you don't want the message on the console or in syslog, who is the intended target for the message? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Keeping my started task's WTO output off the console?
Hello esteemed sysprog gurus, How do I issue a WTO and have the output NOT go to the console? (When I say console, I'm referring to SDSF's log command) I do want the WTO output in my joblog, but I would prefer to keep the console clutter to a minimum. Currently, I'm using DESC=(6) and ROUTCDE=(11). I've tried MCSFLAG=(HDRCPY) and (NOCOPY) but neither cut the mustard. Thanks, Todd -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Keeping my started task's WTO output off the console?
/D C shows ROUTCDE=ALL. So, in my parmlib CONSOLxx member, I guess I need to change this to exclude (11)? Thanks for the speedy reply. Todd Issue a D C command at your console and see what routcdes are set up. I'll bet that ROUTCDE=(11) is one of them, in which case they're getting what they've asked for. -- David Andrews A. Duda and Sons, Inc. [EMAIL PROTECTED] -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: TSO/E REXX
TSO/REXX does not provide a global variable option. One could be written, though, that would be fairly transparent to the programmer. I wrote one a few years ago that used a naming convention, such that any variable that started with global. became a global variable. All information on how to do it can be gleaned from the TSO/E Rexx Reference. Todd To all you TSO/E - Rexx gurus: Doesn't REXX under TSO/E have a function similar to REXX under CMS (which I am more accustomed to) for storing/retrieving variable data across REXX routine invocations? In REXX under CMS you have the LASTING GLOBALV option for the VALUE function which lets you save variable settings from one REXX program to another REXX program HITACHI DATA SYSTEMS Raymond E. Noal Lab Manager, San Diego Facility Office: (858) 537 - 3268 Cell: (858) 248 - 1172 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
