Re: Help with MQ and MA10: MQ Series for MVS/ESA ISPF Utilities
Sorry for the delay. These are SupportPacs for MQ V8. Not sure how much what version you are on means. Like CSQ4TVH1 is supplied, listed as a Sample to play with, and offered standalone in MA17. I have an open question with IBM about which CSQ4TVH1 to use. I get 24/32 bit HCONN errors. MA10: MQSeries MVS/ESA ISPF Utilities Version 1.1.9 MP16: Capacity Planning and Tuning for IBM MQ for z/OS MA17: WebSphere MQ for z/OS - Message Handler Sample MP1B: Monitoring your WebSphere MQ for z/OS system using accounting and statistics data Find them here: http://www-01.ibm.com/support/docview.wss?uid=swg27007197 Hope that helps, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Jesse 1 Robinson Sent: Friday, September 23, 2016 1:10 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Help with MQ and MA10: MQ Series for MVS/ESA ISPF Utilities What is this MQ app whereof you speak? Is MA10 a separate product? I have a passel of V7 MQ libraries including SCSQPNLE, but no member MQAPPS nor program MQDLQ0. . . J.O.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 323-715-0595 Mobile 626-302-7535 Office robin...@sce.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Tom Conley Sent: Friday, September 23, 2016 9:47 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: (External):Re: Help with MQ and MA10: MQ Series for MVS/ESA ISPF Utilities On 9/22/2016 3:38 PM, Hansen, Dave L - Eagan, MN wrote: > Dear Group, > >I am trying to get the ISPF based tool MQDLQ to work with MQ V8. The > program MQDLQ0 is part of MA10 and wants a Queue Manager name as input. I > have tried ISPF PARM and ISPF VPUT. Does anyone have MQDLQ working from a > panel that supplies the Queue Manager Name? > > @MQ EXEC starts this up (MQMQ.ISPPLIB and MQQM.ISPLLIB have the code): > "ALTLIB ACTIVATE APPLICATION(CLIST) DATASET('MQM.SCSQEXEC')" > "ISPEXEC LIBDEF ISPPLIB DATASET > ID('MQM.SCSQPNLE','MQMQ.ISPPLIB')" > "ISPEXEC LIBDEF ISPTLIB DATASET ID('MQM.SCSQTBLE')" > "ISPEXEC LIBDEF ISPMLIB DATASET ID('MQM.SCSQMSGE')" > "ISPEXEC LIBDEF ISPLLIB DATASET > ID('MQM.SCSQAUTH','MQM.SCSQANLE','MQMQ.ISPLLIB')" > "ISPEXEC SELECT PANEL(MQAPPS)" > "ALTLIB DEACTIVATE APPLICATION(CLIST)" > > MQAPPS PANEL (cut down): > % Z +MQDLQ - Invoke MQM Dead Letter Queue on MQM%===> _DLQM+ > )INIT > VGET (DLQM) PROFILE > .cursor = ZCMD > )PROC > )PROC > = > IF ( ¬= ' ') > = TRUNC(,'.') > IF ( = ' ') > .MSG = ISRU000 > IF ( = 'D') > VER (,NB) >= TRANS( > Z,'CMD(MQDLQ) NEWAPPL(MQDL) PASSLIB PARM()' > ' ',' ' > X,'EXIT' > *,'?' ) >= .TRAIL > VPUT (DLQM) PROFILE > )END > > MQDLQ (REXX): > TRACE I > ADDRESS ISPEXEC "VGET (DLQM) PROFILE" > ADDRESS TSO > SAY 'DLQM =' DLQM > ISPEXEC SELECT PGM(MQDLQ0) PARM('DLQM') > > MQDLQ (CLIST): > PROC 1 QMGR > ISPEXEC SELECT PGM(MQDLQ0) PARM() > > > So I enter @MQ. I get my first panel. It remembered DLQM from the last run. > I enter "Z" and get: > ISPD206 > Conflicting parameters > CMD conflicts with another keyword. > Panel line where error was detected: > ZSEL = CMD(MQDLQ) NEWAPPL(MQDL) PASSLIB PARM(QQA1) So I never left > the panel code. > > Ok, I removed PARM() ==> Z,'CMD(MQDLQ) NEWAPPL(MQDL) PASSLIB' > So I enter @MQ. I get my first panel. It remembered DLQM from the last run. > I enter "Z" and get: > 4 *-* ADDRESS ISPEXEC "VGET (DLQM) PROFILE" >>L> "VGET (DLQM) PROFILE" >+++ RC(8) +++ > 6 *-* ADDRESS TSO > 7 *-* SAY 'DLQM =' DLQM >>L> "DLQM =" >>V> "" >>O> "DLQM = " > DLQM = > 9 *-* ISPEXEC SELECT PGM(MQDLQ0) PARM('DLQM') >>L> "ISPEXEC" >>L> "SELECT" >>O> "ISPEXEC SELECT" >>L> "MQDLQ0" > 9 +++ ISPEXEC SELECT PGM(MQDLQ0) PARM('DLQM') Error running > MQDLQ, line 9: Routine not found > *** > Well I left the PANEL code and invoked MQDLQ but I didn't get DLQM back from > the ISPF VGET. > > In my first attempt I tried to pass a PARM(). The NEWAPPL has > something to do with the LIBDEFS. > Q). How do I pass a PARM in the )PROC section of an ISPF panel? ZSEL = > CMD(MQDLQ) NEWAPPL(MQDL) PASSLIB PARM(QQA1) results in: CMD conflicts with > another keyword. Not sure why. > > On m
Re: Help with MQ and MA10: MQ Series for MVS/ESA ISPF Utilities
Thank you Tom. I am able to see DLQM being passed to my EXEC. Have a great weekend, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Tom Conley Sent: Friday, September 23, 2016 11:47 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Help with MQ and MA10: MQ Series for MVS/ESA ISPF Utilities On 9/22/2016 3:38 PM, Hansen, Dave L - Eagan, MN wrote: > Dear Group, > >I am trying to get the ISPF based tool MQDLQ to work with MQ V8. The > program MQDLQ0 is part of MA10 and wants a Queue Manager name as input. I > have tried ISPF PARM and ISPF VPUT. Does anyone have MQDLQ working from a > panel that supplies the Queue Manager Name? > > @MQ EXEC starts this up (MQMQ.ISPPLIB and MQQM.ISPLLIB have the code): > "ALTLIB ACTIVATE APPLICATION(CLIST) DATASET('MQM.SCSQEXEC')" > "ISPEXEC LIBDEF ISPPLIB DATASET > ID('MQM.SCSQPNLE','MQMQ.ISPPLIB')" > "ISPEXEC LIBDEF ISPTLIB DATASET ID('MQM.SCSQTBLE')" > "ISPEXEC LIBDEF ISPMLIB DATASET ID('MQM.SCSQMSGE')" > "ISPEXEC LIBDEF ISPLLIB DATASET > ID('MQM.SCSQAUTH','MQM.SCSQANLE','MQMQ.ISPLLIB')" > "ISPEXEC SELECT PANEL(MQAPPS)" > "ALTLIB DEACTIVATE APPLICATION(CLIST)" > > MQAPPS PANEL (cut down): > % Z +MQDLQ - Invoke MQM Dead Letter Queue on MQM%===> _DLQM+ > )INIT > VGET (DLQM) PROFILE > .cursor = ZCMD > )PROC > )PROC > = > IF ( ¬= ' ') > = TRUNC(,'.') > IF ( = ' ') > .MSG = ISRU000 > IF ( = 'D') > VER (,NB) >= TRANS( > Z,'CMD(MQDLQ) NEWAPPL(MQDL) PASSLIB PARM()' > ' ',' ' > X,'EXIT' > *,'?' ) >= .TRAIL > VPUT (DLQM) PROFILE > )END > > MQDLQ (REXX): > TRACE I > ADDRESS ISPEXEC "VGET (DLQM) PROFILE" > ADDRESS TSO > SAY 'DLQM =' DLQM > ISPEXEC SELECT PGM(MQDLQ0) PARM('DLQM') > > MQDLQ (CLIST): > PROC 1 QMGR > ISPEXEC SELECT PGM(MQDLQ0) PARM() > > > So I enter @MQ. I get my first panel. It remembered DLQM from the last run. > I enter "Z" and get: > ISPD206 > Conflicting parameters > CMD conflicts with another keyword. > Panel line where error was detected: > ZSEL = CMD(MQDLQ) NEWAPPL(MQDL) PASSLIB PARM(QQA1) So I never left > the panel code. > > Ok, I removed PARM() ==> Z,'CMD(MQDLQ) NEWAPPL(MQDL) PASSLIB' > So I enter @MQ. I get my first panel. It remembered DLQM from the last run. > I enter "Z" and get: > 4 *-* ADDRESS ISPEXEC "VGET (DLQM) PROFILE" >>L> "VGET (DLQM) PROFILE" >+++ RC(8) +++ > 6 *-* ADDRESS TSO > 7 *-* SAY 'DLQM =' DLQM >>L> "DLQM =" >>V> "" >>O> "DLQM = " > DLQM = > 9 *-* ISPEXEC SELECT PGM(MQDLQ0) PARM('DLQM') >>L> "ISPEXEC" >>L> "SELECT" >>O> "ISPEXEC SELECT" >>L> "MQDLQ0" > 9 +++ ISPEXEC SELECT PGM(MQDLQ0) PARM('DLQM') Error running > MQDLQ, line 9: Routine not found > *** > Well I left the PANEL code and invoked MQDLQ but I didn't get DLQM back from > the ISPF VGET. > > In my first attempt I tried to pass a PARM(). The NEWAPPL has > something to do with the LIBDEFS. > Q). How do I pass a PARM in the )PROC section of an ISPF panel? ZSEL = > CMD(MQDLQ) NEWAPPL(MQDL) PASSLIB PARM(QQA1) results in: CMD conflicts with > another keyword. Not sure why. > > On my second attempt I tried to use VPUT and VGET. My VPUT works because > when I go back in I see what I last typed for a field value. > Q). How do I pull in my ISPF VAR? I have used VGET before: ADDRESS ISPEXEC > "VGET (MYCMD)". The Default list is ASIS, I used PROFILE. My panel picks it > up, but my REXX/CLIST doesn't find it. > > Yup, I know last one didn't resolve MQDLQ0 but I still am trying to get my > variable to work. I keep spinning this around but I just haven't found my > way through it. > Dave, Try CMD(MQDLQ ), then in the Rexx, parse arg dlqm . Regards, Tom Conley -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Help with MQ and MA10: MQ Series for MVS/ESA ISPF Utilities
Dear Group, I am trying to get the ISPF based tool MQDLQ to work with MQ V8. The program MQDLQ0 is part of MA10 and wants a Queue Manager name as input. I have tried ISPF PARM and ISPF VPUT. Does anyone have MQDLQ working from a panel that supplies the Queue Manager Name? @MQ EXEC starts this up (MQMQ.ISPPLIB and MQQM.ISPLLIB have the code): "ALTLIB ACTIVATE APPLICATION(CLIST) DATASET('MQM.SCSQEXEC')" "ISPEXEC LIBDEF ISPPLIB DATASET ID('MQM.SCSQPNLE','MQMQ.ISPPLIB')" "ISPEXEC LIBDEF ISPTLIB DATASET ID('MQM.SCSQTBLE')" "ISPEXEC LIBDEF ISPMLIB DATASET ID('MQM.SCSQMSGE')" "ISPEXEC LIBDEF ISPLLIB DATASET ID('MQM.SCSQAUTH','MQM.SCSQANLE','MQMQ.ISPLLIB')" "ISPEXEC SELECT PANEL(MQAPPS)" "ALTLIB DEACTIVATE APPLICATION(CLIST)" MQAPPS PANEL (cut down): % Z +MQDLQ - Invoke MQM Dead Letter Queue on MQM%===> _DLQM+ )INIT VGET (DLQM) PROFILE .cursor = ZCMD )PROC )PROC = IF ( ¬= ' ') = TRUNC(,'.') IF ( = ' ') .MSG = ISRU000 IF ( = 'D') VER (,NB) = TRANS( Z,'CMD(MQDLQ) NEWAPPL(MQDL) PASSLIB PARM()' ' ',' ' X,'EXIT' *,'?' ) = .TRAIL VPUT (DLQM) PROFILE )END MQDLQ (REXX): TRACE I ADDRESS ISPEXEC "VGET (DLQM) PROFILE" ADDRESS TSO SAY 'DLQM =' DLQM ISPEXEC SELECT PGM(MQDLQ0) PARM('DLQM') MQDLQ (CLIST): PROC 1 QMGR ISPEXEC SELECT PGM(MQDLQ0) PARM() So I enter @MQ. I get my first panel. It remembered DLQM from the last run. I enter "Z" and get: ISPD206 Conflicting parameters CMD conflicts with another keyword. Panel line where error was detected: ZSEL = CMD(MQDLQ) NEWAPPL(MQDL) PASSLIB PARM(QQA1) So I never left the panel code. Ok, I removed PARM() ==> Z,'CMD(MQDLQ) NEWAPPL(MQDL) PASSLIB' So I enter @MQ. I get my first panel. It remembered DLQM from the last run. I enter "Z" and get: 4 *-* ADDRESS ISPEXEC "VGET (DLQM) PROFILE" >L> "VGET (DLQM) PROFILE" +++ RC(8) +++ 6 *-* ADDRESS TSO 7 *-* SAY 'DLQM =' DLQM >L> "DLQM =" >V> "" >O> "DLQM = " DLQM = 9 *-* ISPEXEC SELECT PGM(MQDLQ0) PARM('DLQM') >L> "ISPEXEC" >L> "SELECT" >O> "ISPEXEC SELECT" >L> "MQDLQ0" 9 +++ ISPEXEC SELECT PGM(MQDLQ0) PARM('DLQM') Error running MQDLQ, line 9: Routine not found *** Well I left the PANEL code and invoked MQDLQ but I didn't get DLQM back from the ISPF VGET. In my first attempt I tried to pass a PARM(). The NEWAPPL has something to do with the LIBDEFS. Q). How do I pass a PARM in the )PROC section of an ISPF panel? ZSEL = CMD(MQDLQ) NEWAPPL(MQDL) PASSLIB PARM(QQA1) results in: CMD conflicts with another keyword. Not sure why. On my second attempt I tried to use VPUT and VGET. My VPUT works because when I go back in I see what I last typed for a field value. Q). How do I pull in my ISPF VAR? I have used VGET before: ADDRESS ISPEXEC "VGET (MYCMD)". The Default list is ASIS, I used PROFILE. My panel picks it up, but my REXX/CLIST doesn't find it. Yup, I know last one didn't resolve MQDLQ0 but I still am trying to get my variable to work. I keep spinning this around but I just haven't found my way through it. Many thanks as always, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: MQ Buffer expansion
Kevin, Thank you for your reply. I downloaded the March 2015 - MP16: Capacity Planning and Tuning for IBM MQ for z/OS. You are probably right, I should come up with a baseline instead of applying Kentucky windage. Thanks again, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Neubert, Kevin Sent: Wednesday, July 20, 2016 12:39 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: MQ Buffer expansion Of course it depends, but 2 for buffer pool 0 could be low as well. Any chance you can actually analyze the buffer pool performance statistics? Example information on the subject: https://www.ibm.com/support/knowledgecenter/en/SSFKSJ_8.0.0/com.ibm.mq.mon.doc/q038340_.htm. Otherwise the following mentions real storage: https://www.ibm.com/support/knowledgecenter/SSFKSJ_8.0.0/com.ibm.mq.pla.doc/q006005_.htm. Regards, Kevin -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Hansen, Dave L - Eagan, MN Sent: Wednesday, July 20, 2016 9:44 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: FW: MQ Buffer expansion Hi, I tried the MQ group (as I know it), but I haven't heard back. Does someone know what effect upping MQ pools will have? Many Thanks in advance, Dave From: Hansen, Dave L - Eagan, MN Sent: Monday, July 18, 2016 3:26 PM To: 'mqser...@listserv.meduniwien.ac.at' Subject: MQ Buffer expansion Dear Group, Our buffer pools may be too small. I see Pool 0 and Pool 1 as 2000 buffers instead of the 2 suggested by IBM. The page sets show NO Expansion count. My CHIN goes into message allocation and drops the Channel with ETIMEDOUT. Q). If I up my Pools by ten-fold, will I have to worry where the storage comes out of? Like CSA is for CICS, or something? Thank you, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
FW: MQ Buffer expansion
Hi, I tried the MQ group (as I know it), but I haven't heard back. Does someone know what effect upping MQ pools will have? Many Thanks in advance, Dave From: Hansen, Dave L - Eagan, MN Sent: Monday, July 18, 2016 3:26 PM To: 'mqser...@listserv.meduniwien.ac.at' Subject: MQ Buffer expansion Dear Group, Our buffer pools may be too small. I see Pool 0 and Pool 1 as 2000 buffers instead of the 2 suggested by IBM. The page sets show NO Expansion count. My CHIN goes into message allocation and drops the Channel with ETIMEDOUT. Q). If I up my Pools by ten-fold, will I have to worry where the storage comes out of? Like CSA is for CICS, or something? Thank you, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Help with WebSphere MQ sample programs.
Dear favored listeners, We recently went from MQ V7 to MQ V8. I have been working with IBM. I was guided away from an old PUBSUB example because I was told a lot has changed and it would be uphill all the way. V8 has a new "CICS Asynchronous Consumption and Publish/Subscribe sample". I switched from IBM MQ support to IBM CICS support to get these complied. However in working with IBM they said this new "PUBSUB" also will have a lot of work needed to get this running. I am new to MQ. I have CICS and MQ tied together. I have two Queue Managers that I can ping the channels on. Q). What are other people using as a sample COBOL program to put a message to an MQ Queue? This would be point-to-point. I then could "move" the Queue to a different Queue Manager. Many thanks in advance, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
SYSPROC Concatenation?
Hi, I went to https://listserv.ua.edu/cgi-bin/wa and did a search on IBM-MAIN and IBM-MAIN-ARCHIVES (1986-2004). I did a search for SYSPROC and got no match. On one system I have ISRDDN showing SYSPROC with my CLIST concatenated. I can use ALTLIB (or SPROC) to add it in to the other system. But I have to manually add these and repeat it. My logon Procedure is xxxACCNT. I looked in SYS2.LOG and SYS2.CLIST(SPFALLOC) for my userid to find userid.CLIST but am not finding it. I looked through the userid.lpar.ISPF .PROFILE datasets. ISRPLIST shows the last 30 referenced data sets. Q). How did I get my CLIST Concatenated permanently? I would like to do it again. Thank you, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Sample Programs for WebSphere MQ for z/OS V8.0.0?
Hello, I am looking for a sample program for MQ. I can find a lot of CICS COBOL samples for programs that prompt and get back text. For MQ I found the examples in the Application Programming Guide, but it looks like they are batch jobs. One will connect, but a different one disconnects. Q). Is there a sample program for MQ that is a CICS online program instead of MQ batch? I'd take Assembler if there is a good example (they don't even load the sample libraries for Assembler here). Thanks to everybody for all there help through the year, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
rsync anyone?
Hi, I have been working with IBM to identify how to move a USS directory that has files and subdirectories to a different LPAR. They said Ported Tools and the scp command. However, OpenSSH has had security issues IIRC. The other thing they mentioned was to port rsync over to z/OS. I also have directions on how to voice this as a requirement to USS development using the RFE process. Q). Does anyone have a better way to move a directory that has files and subdirectories to a different LPAR? Or do you just keep installing the same code for each instance? Q). Is anyone requesting rsync for z/OS via RFE or working on a port for rsync? We do not have shared DASD and need something. Thank you, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
OpenSSH has had bugs in the news. (Was rsync anyone?)
http://arstechnica.com/security/2015/07/bug-in-widely-used-openssh-opens-servers-to-password-cracking/ -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Kirk Wolf Sent: Monday, December 28, 2015 1:10 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: rsync anyone? > > ... However, OpenSSH has had security issues IIRC. ... What security issues are those? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Help with mount?
Dear Group, Sometime USS throws me a curve. I notice UMOUNT vs UNMOUNT and some other 'features'. I learned MOUNT must have mount authority before you can issue the mount command. We are running z/OS V2R1. Q). Our RACF group says they don't control "mount authority". Where in z/OS do we set "mount authority"? I use IBMUSER (uid 0). Thank you, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
FW: Help finding on-line SAS training
Hi, I sent this out and haven't heard back. I thought I'd try IBM-MAIN. Thank you, Dave From: Hansen, Dave L - Eagan, MN Sent: Wednesday, July 01, 2015 11:39 AM To: 'sa...@listserv.uga.edu' Subject: Help finding on-line SAS training Dear Group, I am looking for an online class, something like: MS SYSTEMS TECHNICAL TRAINING INTRODUCTION TO SAS WORKSHOP. I think its three days. I Looked online and found I must have a group of three people to even get started in looking at on-line education. OK, but who provides a good SAS class? I called one place and it sure sounded like I wound up off-shore :( Others require a running copy of SAS on my PC, but I have no admin rights. It would be great if they had a discount for us government types, and hopefully I can have some kind of text book in hardcopy to reference at the completion of the course. Many thanks in advance, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FW: Help finding on-line SAS training
Thank you, Lizette. Haven't opened up a book yet. It's a direction and our education must be formal, not just YouTube contributions. There is a lot of good stuff on YouTube. They just recently let us have access to YouTube. Have a great weekend, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Lizette Koehler Sent: Thursday, July 02, 2015 3:43 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: FW: Help finding on-line SAS training If you are familiar with SAS, then I would just get some of their books and study. otherwise WWW.SAS.COME/TRAINING Lots of virtual, e training and physical classroom there. they have eliminated some of their training session and added others. probably that one is either different or not available. I have also sent emails directly to sas training to find out if a class is available or not. There use to be SAS Le (LEARNING EDITION) but SAS has scrapped that for Universities/Colleges to provide the access. I have been told more than one - go take a college course from SAS Lizette -Original Message- From: Hansen, Dave L - Eagan, MN dave.l.han...@usps.gov Sent: Jul 2, 2015 1:35 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: FW: Help finding on-line SAS training Hi, I sent this out and haven't heard back. I thought I'd try IBM-MAIN. Thank you, Dave From: Hansen, Dave L - Eagan, MN Sent: Wednesday, July 01, 2015 11:39 AM To: 'sa...@listserv.uga.edu' Subject: Help finding on-line SAS training Dear Group, I am looking for an online class, something like: MS SYSTEMS TECHNICAL TRAINING INTRODUCTION TO SAS WORKSHOP. I think its three days. I Looked online and found I must have a group of three people to even get started in looking at on-line education. OK, but who provides a good SAS class? I called one place and it sure sounded like I wound up off-shore :( Others require a running copy of SAS on my PC, but I have no admin rights. It would be great if they had a discount for us government types, and hopefully I can have some kind of text book in hardcopy to reference at the completion of the course. Many thanks in advance, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FTP to IBM -- Problems? - THE TESTCASE SITE WILL NO LONGER ACCEPT DOCUMENTATION
To All, This is from CICS Problem Support Bob Sodan sodan...@us.ibm.com MAY 2007. THE TESTCASE SITE WILL NO LONGER ACCEPT DOCUMENTATION PLEASE SEND YOUR DOCUMENTATION USING FTP VIA THE INTERNET. 1. CONNECT TO OUR FTP SITE: ftp.emea.ibm.com (or 192.109.81.7) USER: ANONYMOUS PASSWORD: YOUR COMPLETE E-MAIL ADDRESS. 2. IF YOU ARE SENDING A RAW DUMP CHANGE TO BINARY MODE. 3. IF THIS IS A FORMATTED DUMP/TRACE CHANGE TO ASCII MODE. 4 Place the dataset in the /toibm/vse directory with put command Ensure the data set name conforms to the following naming convention: X.YYY.ZZZ.DDD.DDD where: X =PMR #; YYY =Branch #; ZZZ =Country Code; DDD.DDD =Short Descriptive Name; (eg. PUT 'SYSDUMP.F4.DF500075' 87744.199.000.dump.untrs) When the dump is transmitted to the ECUREP site, a secondary pmr will automatically be generated. This will let Level2 know the documentation is ready for analysis. What I have also been quoting is my from PMR that closed 3/9/15 === IBM Service Request: Service request 04539 379 000 has been updated - DFHPI1007 -. I worked with Kurt Lee who stomped on me for using IBM's testcase.boulder.ibm.com. Grrr So, Use Americas: Server address: testcase.boulder.ibm.com at your own risk. My experience has shown this site to be quite intermittent. The documentation about testcase is not coordinated to say the least. Thank you, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of John Eells Sent: Thursday, April 30, 2015 8:24 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: FTP to IBM -- Problems? I'm reliably told the problem has been fixed. All the instructions for transfers are documented on the ecurep site, but (as you can see here: http://www.ibm.com/de/support/ecurep/send_ftp.html) what we want people to do is use the geographically closest server to them so the transfers are not delayed more than they have to be by the combination of transport protocol handshaking and those pesky, irritating limits on the speed of light in optical fiber and speed of electricity in wire. The bottom line is that testcase is very much a supported pipe into IBM. dave.l.han...@usps.gov (Hansen, Dave L - Eagan, MN) wrote: I have some old Share doc that also says testcase is deprecated. Not sure if it is a reliable solution. snip -- John Eells z/OS Technical Marketing IBM Poughkeepsie ee...@us.ibm.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FTP to IBM -- Problems?
I have some old Share doc that also says testcase is deprecated. Not sure if it is a reliable solution. - Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of John Eells Sent: Wednesday, April 29, 2015 10:48 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: FTP to IBM -- Problems? The folks who support the testcase server know about this problem, and they are working with our ISP to resolve it. -- John Eells z/OS Technical Marketing IBM Poughkeepsie ee...@us.ibm.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FTP to IBM -- Problems?
IBM doesn't support the testcase anymore. They have a document on sending stuff to IBM that lists it, but they refuse to remove it. - Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Paul Gilmartin Sent: Wednesday, April 29, 2015 9:23 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: FTP to IBM -- Problems? On Wed, 29 Apr 2015 06:48:09 -0700, Lizette Koehler wrote: What error are you getting (full message(s) ) ? I get: 580 $ ftp testcase.boulder.ibm.com ftp: Can't connect to `170.225.15.31': Operation timed out ftp: Can't connect to `testcase.boulder.ibm.com' ftp quit 581 $ 581 $ ping testcase.boulder.ibm.com PING testcase.boulder.ibm.com (170.225.15.31): 56 data bytes Request timeout for icmp_seq 0 Request timeout for icmp_seq 1 ... -Original Message- From: Steve Thompson Sent: Wednesday, April 29, 2015 6:45 AM Also, the IBMLink web pages seem to be vanilla HTML as opposed to all the fancy stuff that has been done. Good. Simpler is better. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FTP to IBM -- Problems?
Took a while to find it: The official FTP DOC is URL http://www-1.ibm.com/support/docview.wss?uid=swg21204910 in there it says to ftp to ftp.ecurep.ibm.com (9.155.11.57) which is correct. - Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Steve Thompson Sent: Wednesday, April 29, 2015 9:51 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: FTP to IBM -- Problems? Thanks all. That confirms it isn't something we did. Regards, Steve Thompson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FTP to IBM -- Problems?
Yes, This is exactly what I pointed out to IBM. IIRC further down testcase is mention for performance reasons Gr -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Steve Thompson Sent: Wednesday, April 29, 2015 10:17 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: FTP to IBM -- Problems? On 04/29/2015 10:52 AM, Hansen, Dave L - Eagan, MN wrote: Took a while to find it: The official FTP DOC is URL http://www-1.ibm.com/support/docview.wss?uid=swg21204910 in there it says to ftp to ftp.ecurep.ibm.com (9.155.11.57) which is correct. SNIPPAGE It says: Americas: Server address: testcase.boulder.ibm.com Asia Pacific: Server address: ftp.ap.ecurep.ibm.com Europe: Server address: ftp.ecurep.ibm.com The the rest of the doc uses other than testcase.boulder.ibm.com... I guess when they get around to contacting me on the PMR for this, I can point them to their online doc. Regards, Steve Thompson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IP Sockets Application Programming Question
Thank you Mike and Mark, I did use the REXX code I was sent off list. I just enter PINGP 'localhost 80'. I changed the logic to use 127.0.0.1 as a fixed IP address. Now all we need to supply is the port number. Thank you, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Mike Wawiorko Sent: Thursday, April 02, 2015 5:31 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: IP Sockets Application Programming Question If you have z/OS NetView have a look at the TESTPORT command. Mike Wawiorko P Please consider the environment before printing this e-mail -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Hansen, Dave L - Eagan, MN Sent: 01 April 2015 21:45 To: IBM-MAIN@LISTSERV.UA.EDU Subject: IP Sockets Application Programming Question Dear Group, I get calls about CICS sockets and TN3270 sockets. When all I needed to do was find out if an IP Address was up I just did a PING. Back when PING went through the network end-to-end. I have been reading the z/OS V1R12.0 Comm Svr: IP Sockets Application Programming Interface Guide and Reference. We now have z/OS V2R1. My REXX EXEC can do a: src = socket(VERSION); == Figure 170. VERSION command example. To use the socket commands provided by the REXX socket function, a socket set must be active. To allocate a socket set, use the INITIALIZE socket command. The INITIALIZE command creates a socket set and can support multiple socket calls. In the book are a bunch of REXX socket sample programs == Table 21. REXX socket sample programs. In the book it says: The LISTEN command applies only to stream sockets. I would like to verify if I can hit my CICS Web Services socket. My TCPIPSERVICE shows OPEN for PORT 1492. Q). Are CICS Web Services port 1492 and TN3270 port 23 Stream sockets? Currently all is working. I would like my REXX EXEC to be non-disruptive (and not cause a denial of service). The REXX socket sample programs use INITIALIZE. It says it will preallocate a socket set. A socket set is a number of pre allocated sockets available to a single REXX application. Q). Does my REXX EXEC need to have a socket to determine if one CICS socket is working? The VERSION worked without specifying a socket number. If anyone has done this before, are REXX socket functions the best way to PING a TCP/IP PORT? Thank you, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN This e-mail and any attachments are confidential and intended solely for the addressee and may also be privileged or exempt from disclosure under applicable law. If you are not the addressee, or have received this e-mail in error, please notify the sender immediately, delete it from your system and do not copy, disclose or otherwise act upon any part of this e-mail or its attachments. Internet communications are not guaranteed to be secure or virus-free. The Barclays Group does not accept responsibility for any loss arising from unauthorised access to, or interference with, any Internet communications by any third party, or from the transmission of any viruses. Replies to this e-mail may be monitored by the Barclays Group for operational or business reasons. Any opinion or other information in this e-mail or its attachments that does not relate to the business of the Barclays Group is personal to the sender and is not given or endorsed by the Barclays Group. Barclays Bank PLC. Registered in England and Wales (registered no. 1026167). Registered Office: 1 Churchill Place, London, E14 5HP, United Kingdom. Barclays Bank PLC is authorised by the Prudential Regulation Authority and regulated by the Financial Conduct Authority and the Prudential Regulation Authority (Financial Services Register No. 122702). -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
IP Sockets Application Programming Question
Dear Group, I get calls about CICS sockets and TN3270 sockets. When all I needed to do was find out if an IP Address was up I just did a PING. Back when PING went through the network end-to-end. I have been reading the z/OS V1R12.0 Comm Svr: IP Sockets Application Programming Interface Guide and Reference. We now have z/OS V2R1. My REXX EXEC can do a: src = socket(VERSION); == Figure 170. VERSION command example. To use the socket commands provided by the REXX socket function, a socket set must be active. To allocate a socket set, use the INITIALIZE socket command. The INITIALIZE command creates a socket set and can support multiple socket calls. In the book are a bunch of REXX socket sample programs == Table 21. REXX socket sample programs. In the book it says: The LISTEN command applies only to stream sockets. I would like to verify if I can hit my CICS Web Services socket. My TCPIPSERVICE shows OPEN for PORT 1492. Q). Are CICS Web Services port 1492 and TN3270 port 23 Stream sockets? Currently all is working. I would like my REXX EXEC to be non-disruptive (and not cause a denial of service). The REXX socket sample programs use INITIALIZE. It says it will preallocate a socket set. A socket set is a number of pre allocated sockets available to a single REXX application. Q). Does my REXX EXEC need to have a socket to determine if one CICS socket is working? The VERSION worked without specifying a socket number. If anyone has done this before, are REXX socket functions the best way to PING a TCP/IP PORT? Thank you, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
FW: Help with IBM Session Manager Prefix Command
Hi, I got no takers on this one. I called IBM but nothing appeared to jump out documenting what a G does. It may be doing a STARTSC OFF command. One of our System Programmers found this in SISZCCNF where we define our Panel. You may also find this. G may work for you to bypass the startscript. when uc_c_m2.sub2 = 'g' /* kka08 start manual session */ let t_command = s_n.sub2/* kka08 inserted for manual start * let uc_manuell = 'YES' /* kka08 for checking in startscript let uc_c_m2.sub2 = ' ' /* kka08 wipe prefix area */ Later, Dave From: Hansen, Dave L - Eagan, MN Sent: Friday, February 20, 2015 3:38 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Help with IBM Session Manager Prefix Command Dear Session Manager Experts, On the main ISM menu I see a description for My Appl. To the left is the number. From the command line on the bottom I can enter 35 to get to My Appl. I can enter S as a prefix command to select 35/My Appl. I am looking for documentation on what a G does when entered as a prefix command. Session Manager: Sel Description --- --- _35 My Appl So I looked in the following books and did not find the Prefix Commands documented (the ones that are shown on the online help panels when you enter ?): The following publications are available for Session Manager for z/OS, V3.2: Title Order number Session Manager for z/OS V3.2 - Installation and GC34-2804-00 Customization Session Manager for z/OS V3.2 - Technical ReferenceSC34-2805-00 Session Manager for z/OS V3.2 - Panels, ScriptsSC34-2806-00 and Variables Session Manager for z/OS V3.2 - Online and Batch SC34-2807-00 Administration Session Manager for z/OS V3.2 - User and Administrator SC34-2808-00 Guide Session Manager for z/OS V3.2 - Quick ReferenceSC34-2809-00 I can enter ? as a prefix command to see the Prefix commands: On the supplied privileged MENU, the prefix area will accept the following commands : Prefix command S/MGR commandDescription -- ---- ? display this screen S (SELECT) start/re-join session K (KILL) RESET n terminate session n R (RESET) RESET n terminate session n E (END) ENDSCRIPT n run ENDSCRIPT and end session * ENDSCRIPT * run ENDSCRIPTS and end ALL sessions H (HALTSCRIPT)HALTSCRIPT n kill SCRIPT running on this session P (HARDCOPY) HARDCOPY n take hardcopy print of this session C (CONCEAL) CONCEAL nconceal this session D (DELSESS) DELSESS ndelete this ADDSESS session Q). Where did IBM hide the documentation on the Prefix Commands for 5655-U98 IBM Session Manager for z/OS 3.200B? When I enter a G as a prefix command it looks like it bypasses the scripting so I can do a -Reconnect to get back to my TSO userid. Enter an 'S' before each option desired below: -Nomail -Nonotice-Reconnect-OIDcard Thank you, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Help with IBM Session Manager Prefix Command
Dear Session Manager Experts, On the main ISM menu I see a description for My Appl. To the left is the number. From the command line on the bottom I can enter 35 to get to My Appl. I can enter S as a prefix command to select 35/My Appl. I am looking for documentation on what a G does when entered as a prefix command. Session Manager: Sel Description --- --- _35 My Appl So I looked in the following books and did not find the Prefix Commands documented (the ones that are shown on the online help panels when you enter ?): The following publications are available for Session Manager for z/OS, V3.2: Title Order number Session Manager for z/OS V3.2 - Installation and GC34-2804-00 Customization Session Manager for z/OS V3.2 - Technical ReferenceSC34-2805-00 Session Manager for z/OS V3.2 - Panels, ScriptsSC34-2806-00 and Variables Session Manager for z/OS V3.2 - Online and Batch SC34-2807-00 Administration Session Manager for z/OS V3.2 - User and Administrator SC34-2808-00 Guide Session Manager for z/OS V3.2 - Quick ReferenceSC34-2809-00 I can enter ? as a prefix command to see the Prefix commands: On the supplied privileged MENU, the prefix area will accept the following commands : Prefix command S/MGR commandDescription -- ---- ? display this screen S (SELECT) start/re-join session K (KILL) RESET n terminate session n R (RESET) RESET n terminate session n E (END) ENDSCRIPT n run ENDSCRIPT and end session * ENDSCRIPT * run ENDSCRIPTS and end ALL sessions H (HALTSCRIPT)HALTSCRIPT n kill SCRIPT running on this session P (HARDCOPY) HARDCOPY n take hardcopy print of this session C (CONCEAL) CONCEAL nconceal this session D (DELSESS) DELSESS ndelete this ADDSESS session Q). Where did IBM hide the documentation on the Prefix Commands for 5655-U98 IBM Session Manager for z/OS 3.200B? When I enter a G as a prefix command it looks like it bypasses the scripting so I can do a -Reconnect to get back to my TSO userid. Enter an 'S' before each option desired below: -Nomail -Nonotice-Reconnect-OIDcard Thank you, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Where is the z/OS java Book?
Thank you everybody for your help. I know what I need to know (I guess): SSQA4Uecho $PATH /bin:HOME SSQA4UPATH=/bin:/usr/lpp/java/J7.0_64/bin:. SSQA4Uexport PATH SSQA4Uecho $PATH /bin:/usr/lpp/java/J7.0_64/bin:. SSQA4Ujava -version java version 1.7.0 Java(TM) SE Runtime Environment (build pmz6470sr3-20121025_01(SR3)) IBM J9 VM (build 2.6, JRE 1.7.0 z/OS s390x-64 20121024_126071 (JIT enabled, AOT enabled) J9VM - R26_Java726_SR3_20121024_1635_B126071 JIT - r11.b02_20120924_26343a GC - R26_Java726_SR3_20121024_1635_B126071 J9CL - 20121024_126071) JCL - 20121019_01 based on Oracle 7u6-b17 SSQA4U Have a Great Weekend, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Paul Gilmartin Sent: Friday, January 30, 2015 9:34 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Where is the z/OS java Book? On Fri, 30 Jan 2015 15:02:44 +, Mullen, Patrick wrote: Try this link: http://www-01.ibm.com/support/knowledgecenter/SSYKE2_7.0.0/welcome/welc ome_javasdk_version.html Set PATH something like this: PATH=/bin:/usr/lpp/java/J7.0_64/bin:. export PATH z/OS manages to do this worse than any other vendor's product I know of. A couple examples: 511 $ uname -a Darwin PaulGilm.local 10.8.0 Darwin Kernel Version 10.8.0: Tue Jun 7 16:33:36 PDT 2011; root:xnu-1504.15.3~1/RELEASE_I386 i386 512 $ ls -al `whence java` lrwxr-xr-x 1 root wheel 74 Oct 19 2013 /usr/bin/java - /System/Library/Frameworks/JavaVM.framework/Versions/Current/Commands/java 498 $ uname -a Linux gil-crunchbang 3.2.0-4-amd64 #1 SMP Debian 3.2.65-1+deb7u1 x86_64 GNU/Linux 499 $ ls -al `whence java` lrwxrwxrwx 1 root root 22 Dec 29 14:49 /usr/bin/java - /etc/alternatives/java IBM ought to do as well: when installing or upgrading Java, correspondingly install a version-free symlink to the current version. But is IBM listening? I suppose it's an RFE candidate. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Where is the z/OS java Book?
Kevin, I was hoping that java for z/OS had an IVP procedure documented in the Program Directory for HVJB700 (GI11-9829-00). I didn't see anything to even something to check the java version. I looked for a java samplib but didn't find anything. I see in the program directory there are Sample Jobs. AJVJMKD (MKDIR) is a sample job to invoke the supplied AJVJMKDR EXEC to allocate file system paths. I don't know if I have access to these Sample Jobs. It looks like they may have copied the jobs from the relfiles to a work data set for editing and submission. I was just curious what I needed to do for my OMVS session to take full advantage of java. I didn't see a HELLO program to run. My main concern is getting java and CICS TS Web Services to work together. As part of this we looked into what was going on in OMVS as far a java goes. Have a good weekend, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Neubert, Kevin Sent: Friday, January 30, 2015 12:59 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Where is the z/OS java Book? I am not clear about your path question. Are you installing another version and/or questioning things like symlinks, etc? During install there is a REXX member in SAMPLIB that assists with this. Guessing you are HJVB700. If so, take a look at SAJVSMP1(AJVJMKDR). Regards, Kevin -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Hansen, Dave L - Eagan, MN Sent: Friday, January 30, 2015 6:47 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Where is the z/OS java Book? Dear Group, I recently worked with IBM on some java issues that dealt with our z/OS V1R13 system. One thing they wanted me to do was enter java -version from our USS command line, I got the old FSUM not found. I looked in the USS Guide and USS Planning and there is hardly a reference to java. So, if I can't plan for java and can't be guided through it I must be lost. I learned the correct Filesystem(s) must be mounted, I can see my java/J7.0_64 is populated. Q). Is there some information that goes over the pathing changes for java/J7.0_64 support in OMVS? Thank you, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Where is the z/OS java Book?
Dear Group, I recently worked with IBM on some java issues that dealt with our z/OS V1R13 system. One thing they wanted me to do was enter java -version from our USS command line, I got the old FSUM not found. I looked in the USS Guide and USS Planning and there is hardly a reference to java. So, if I can't plan for java and can't be guided through it I must be lost. I learned the correct Filesystem(s) must be mounted, I can see my java/J7.0_64 is populated. Q). Is there some information that goes over the pathing changes for java/J7.0_64 support in OMVS? Thank you, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: zfs Filesystem question
Thank you Alan and John. It was Read-Write. Now I need to find out why oedit just blinks instead of editing. I also should put /usr/sbin in my path. Thanks again, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Field, Alan Sent: Tuesday, January 27, 2015 2:32 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: zfs Filesystem question Dave Enter (from TSO) BPXMTEXT 0558062B It says: BPXFSUMT 01/17/13 JrRemntMode: The file system is already in the mode specified by remount. Action: Change the remount mode if needed. Alan Field Systems Engineer Principal Blue Cross Blue Shield of MN 651.662.3546 -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Hansen, Dave L - Eagan, MN Sent: Tuesday, January 27, 2015 2:28 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: zfs Filesystem question Dear zfs friends, I can use the ISHELL to mount and unmount a zfs file system. It looks like I can use TSO/E according to the USS Command Reference using MOUNT filesystem('ZFS.WORKDS') MOUNTPOINT('/u/openuser') TYPE(ZFS) and UNMOUNT FILESYSTEM('ZFS.WORKDS'). When I go into OMVS as UID(0) I don't get anything good back from my commands: SSQA4Uzfs unmount /usr/lpp/cicsts/cicsts51 zfs: FSUM7351 not found SSQA4Uunmount /usr/lpp/cicsts/cicsts51 unmount: FSUM7351 not found SSQA4Uumount /usr/lpp/cicsts/cicsts51 umount: FSUM7351 not found SSQA4Uzfs umount /usr/lpp/cicsts/cicsts51 zfs: FSUM7351 not found SSQA4Uid uid=0(IBMUSER) gid=0(@STCGRP) groups=50(ACFGROUP),6020(CPSDEV),3000(DSUSER),1000 (IMWEB),1(OMVSGRP),2110(SMDBA),2100(SMISSC),2300(STISSC),2320(SUREADM),2(TTY),22 00(WBISSC) SSQA4U Q). What do I need to do from OMVS? I tried tso UNMOUNT FILESYSTEM(OMVS.A.CICSTS51.ZFS) REMOUNT(RDWR). I got back Return Code 0079, Reason Code 0588062B. The UNMOUINT failed for file system OMVS.A.CICSTS51.ZFS. Q). Should this have worked for a zfs? Thank you, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
zfs Filesystem question
Dear zfs friends, I can use the ISHELL to mount and unmount a zfs file system. It looks like I can use TSO/E according to the USS Command Reference using MOUNT filesystem('ZFS.WORKDS') MOUNTPOINT('/u/openuser') TYPE(ZFS) and UNMOUNT FILESYSTEM('ZFS.WORKDS'). When I go into OMVS as UID(0) I don't get anything good back from my commands: SSQA4Uzfs unmount /usr/lpp/cicsts/cicsts51 zfs: FSUM7351 not found SSQA4Uunmount /usr/lpp/cicsts/cicsts51 unmount: FSUM7351 not found SSQA4Uumount /usr/lpp/cicsts/cicsts51 umount: FSUM7351 not found SSQA4Uzfs umount /usr/lpp/cicsts/cicsts51 zfs: FSUM7351 not found SSQA4Uid uid=0(IBMUSER) gid=0(@STCGRP) groups=50(ACFGROUP),6020(CPSDEV),3000(DSUSER),1000 (IMWEB),1(OMVSGRP),2110(SMDBA),2100(SMISSC),2300(STISSC),2320(SUREADM),2(TTY),22 00(WBISSC) SSQA4U Q). What do I need to do from OMVS? I tried tso UNMOUNT FILESYSTEM(OMVS.A.CICSTS51.ZFS) REMOUNT(RDWR). I got back Return Code 0079, Reason Code 0588062B. The UNMOUINT failed for file system OMVS.A.CICSTS51.ZFS. Q). Should this have worked for a zfs? Thank you, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: BPXOINIT and SYSPLEX Mode Question
Peter, Thank you for your insight on this. I was just hoping on a single system BPXOINIT could somehow tell me more. Lots of changes for stuff like filling /tmp when we move from V1R13 to V2R1. Thanks again, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Peter Hunkeler Sent: Thursday, October 23, 2014 10:59 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: AW: Re: BPXOINIT and SYSPLEX Mode Question Q). It says The Modify Function Cannot Be Performed. Besides turning on SYSPLEX=YES, how can I get BPXOINIT to do a FILESYS=DISPLAY? Yes, I can work with D OMVS,F for Filesystems, but the RedBook on z/OS V1R13 Implementation shows that bpxoinit can tell me the UID and the OWNER. Excerpt from the MVS System Commands book: DISPLAY or DDisplay the type BPXMCDS couple data set information relating to theshared file system file system. D is an alias of DISPLAY. z/OS UNIX Services do not use a couple data set if you run with SYSPLEX=NO. It seems to be that the information you're looking for is retrieved from the CDS. Specifically, the term OWNER denotes the z/OS instance that is the system that is currently responsible for the mounted file system. Ownership can be transferred to another system in the sysplex, either if the system is shutdown, or by command. Ownership in this sense does not apply with SYSPLEX=NO. You can mount a files sytem in R/W mode on one system only and this is also the owner. If the D OMVS,F... answers your request, this system is automatically the owner. A file system can be mounted in R/O mode on multiple systems concurrently, but each system is owning its own mount. They do not talk to each other regarding file system activity. -- Peter Hunkeler -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: BPXOINIT and SYSPLEX Mode Question
Peter, I can get very confused reading the books. This is from the V1R13 MVS System Commands book for D OMVS,U: U=userid Displays process information for all processes associated with the specified TSO/E user ID. Use this operand when a user requests that a hung process be canceled. You can display all processes owned by the user and find the address space ID (ASID) of the process that needs to be canceled. Then use the CANCEL command to cancel the address space. MNPB4Ufuser -cu /tmp /SYSTEM/tmp: 8c(IBMUSER) 25c(RMFGAT) 50331938(IBMUSER) 33554852c(AUTO2) 475(IBMU SER) So HEX PID 50331938 is DEC 1345526072 D OMVS,PID=1345526072 BPXO042I 09.17.49 DISPLAY OMVS 889 OMVS 000E ACTIVE OMVS=(00,FF,PB) 1345526072 NOT FOUND D OMVS,U=IBMUSER BPXO042I 09.20.04 DISPLAY OMVS 090 OMVS 000E ACTIVE OMVS=(00,FF,PB) IBMUSER NOT FOUND D OMVS,PID=50331938 BPXO070I 09.28.55 DISPLAY OMVS 879 OMVS 000E ACTIVE OMVS=(00,FF,PB) USER JOBNAME ASIDPID PPID STATE START CT_SECS WEBNCSP WEBNCSP 00D5 50331938 1 HK-- 06.50.2732.7 LATCHWAITPID= 0 CMD=IMWHTTPD THREAD_IDTCB@ PRI_JOB USERNAME ACC_TIME SC STATE 25DF8D00 00AFF208 OMVS.039 KIN KU 25E12501 00AC6560 OMVS.110 ACP JF V I can look at what they are doing to get a guess of who it is. Just hoping I could learn more about the USERIDs from BPXOINIT that are filling up /tmp. I suppose I can start a batch shell process using the OMVS segment associated with IBMUSER. Would I show up as an MVS USERID? Yup, When we move from V1R13 to V1R2 the superuser stuff will change. So far with the superuser changes we have been getting hit with OWNERSHIP issues in regards to IBMUSER in the filesystems. I just find it interesting the OMVS DISPLAY can see the PID, but not the USERID. The shell knows about the PID and about IBMUSER (or some UID=0 USER). Have a good weekend, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Peter Hunkeler Sent: Thursday, October 23, 2014 11:12 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: AW: Re: BPXOINIT and SYSPLEX Mode Question My fuser -cu /tmp command shows many users of /tmp: MNPB4Ufuser -cu /tmp /SYSTEM/tmp: 8c(IBMUSER) 25c(RMFGAT) 50331938(IBMUSER) 33554852c(AUTO2) fuser says these are TSO USERIDs. But when I enter d omvs,u=IBMUSER I get back IBMUSER NOT FOUND. With ps -ef I can see the PIDS with IBMUSER on them: IBMUSER 50331938 1 - Oct 21 ? 0:13 IMWHTTPD Q). How can IBMUSER have PID 50331938 that's using /tmp and not be found as an OMVS USERID? There is no such thing as a TSO USERID or OMVS USERID. There are only MVS USERIDs. Every STC, job or user session runs with a specific MVS USERID (short userid hereafter). If a user wants to be able to logon to TSO, its userid needs an attachement called TSO segment. Similarly, if user, job, STC, etc. wants to use some z/OS UNIX function, the corresponding userid and the associated group need an attachement called OMVS segment. The OMVS segments, besides other attributes, hold the important UNIX attributes UID and GID. File system objects, such as directories, files, links, etc., are *owner* by a UID and belong to a GID. UNIX processes have UIDs and GIDs assigned. These are pure numbers, not names! Mostly, when UNIX ownership is displayed as result of a command, the number (UID, GID) is translated to the associated USERID and GROUP, resp. with the help of the security product. This works fine as long as you don't have any UID or GID shared, i.e. assigned to more than one USERID or GROUP. I bet IBMUSER does have an OMVS segment with UID=0. There seem to be multiple USERIDs with UID=0 in their OMVS segments. In response to the command, uid=0 is translated back to a USERID, and its just one of those having the uid that will be shown. Note this is not specific to uid=0; it equally applies to any uid that is shared between USERIDs. Try D OMVS,PID=ddd' where ddd is the *decimal* value corresponding the pid show in *hex* in the response to the fuser command. -- Peter Hunkeler -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
BPXOINIT and SYSPLEX Mode Question
Dear Friends, I've noticed on our z/OS V1R13 system that we do a F BPXOINIT,SHUTDOWN= and it works! However about z/OS V1R7 came a BPXPRMxx parameter SYSPLEX(YES/NO). We are a SYSPLEX=NO shop. So when I enter F BPXOINIT,FILESYS=DISPLAY,FILESYSTEM=/TMP I get an error: BPXM106I UNIX SYSTEM SERVICES WAS NOT STARTED IN SYSPLEX MODE. I am looking for some help after reading the books. Perhaps the UID and OWNER information is only populated with zFS ownership (rather that z/OS UNIX ownership) of filesystems. I'd still like to track down our /tmp users in a non-shared environment. Supposedly /tmp filled up the other day and we IPL'd. UID=0 can report different USERIDs if they are all UID=0. It looks like OMVS USERIDS and TSO USERIDS also reported differently. And OWNERSHIP might change depending on whether or not you have zFS Sysplex Sharing (SYSPLEX=YES). Q). It says The Modify Function Cannot Be Performed. Besides turning on SYSPLEX=YES, how can I get BPXOINIT to do a FILESYS=DISPLAY? Yes, I can work with D OMVS,F for Filesystems, but the RedBook on z/OS V1R13 Implementation shows that bpxoinit can tell me the UID and the OWNER. My OMVS display d omvs,f,n=/tmp shows: D OMVS,F,N=/TMP BPXO045I 12.58.20 DISPLAY OMVS 697 OMVS 000E ACTIVE OMVS=(00,FF,PC) TYPENAME DEVICE --STATUS--- MODE MOUNTEDLATCHES TFS11 ACTIVE RDWR 04/15/2014 L=23 NAME=/TMP 19.06.21Q=0 PATH=/SYSTEM/tmp MOUNT PARM=-s 10 Figure 15-27 in the RedBook on z/OS V1R13 Implementation shows more information from the omvs command that what I am getting. It shows UID=888 and OWNER=SC74. Q). How can I get more information out of my d omvs,f command so I can see the UIDs and OWNERs? My fuser -cu /tmp command shows many users of /tmp: MNPB4Ufuser -cu /tmp /SYSTEM/tmp: 8c(IBMUSER) 25c(RMFGAT) 50331938(IBMUSER) 33554852c(AUTO2) fuser says these are TSO USERIDs. But when I enter d omvs,u=IBMUSER I get back IBMUSER NOT FOUND. With ps -ef I can see the PIDS with IBMUSER on them: IBMUSER 50331938 1 - Oct 21 ? 0:13 IMWHTTPD Q). How can IBMUSER have PID 50331938 that's using /tmp and not be found as an OMVS USERID? Thank you, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: BPXOINIT and SYSPLEX Mode Question
Leo, Is bpxwlsof in your SYS1.SAXREXEC lib? I don't see it in mine, my message is not found in REXXLIB. In V2R1 TFS gets FSFULL. I'm just trying to get through on V1R13. We have no df commands that execute to query the filesystems. I guess we just wait for the full message. I guess we don't get a full message on V1R13 for a TFS filesystem. Sounds like we all should be querying /tmp until we get to V2R1. Thank you, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Leonardo Vaz Sent: Wednesday, October 22, 2014 2:55 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: BPXOINIT and SYSPLEX Mode Question Like Rex said, probably due to UID=0. Since you seem to want a mvs command to do it you can execute f axr,bpxwlsof '/tmp' to find out the user id. If you need to know the jobname I have a rexx that you can also put on the system rexx library to list it. Regards, Leo -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Hansen, Dave L - Eagan, MN Sent: Wednesday, October 22, 2014 2:44 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: BPXOINIT and SYSPLEX Mode Question Dear Friends, I've noticed on our z/OS V1R13 system that we do a F BPXOINIT,SHUTDOWN= and it works! However about z/OS V1R7 came a BPXPRMxx parameter SYSPLEX(YES/NO). We are a SYSPLEX=NO shop. So when I enter F BPXOINIT,FILESYS=DISPLAY,FILESYSTEM=/TMP I get an error: BPXM106I UNIX SYSTEM SERVICES WAS NOT STARTED IN SYSPLEX MODE. I am looking for some help after reading the books. Perhaps the UID and OWNER information is only populated with zFS ownership (rather that z/OS UNIX ownership) of filesystems. I'd still like to track down our /tmp users in a non-shared environment. Supposedly /tmp filled up the other day and we IPL'd. UID=0 can report different USERIDs if they are all UID=0. It looks like OMVS USERIDS and TSO USERIDS also reported differently. And OWNERSHIP might change depending on whether or not you have zFS Sysplex Sharing (SYSPLEX=YES). Q). It says The Modify Function Cannot Be Performed. Besides turning on SYSPLEX=YES, how can I get BPXOINIT to do a FILESYS=DISPLAY? Yes, I can work with D OMVS,F for Filesystems, but the RedBook on z/OS V1R13 Implementation shows that bpxoinit can tell me the UID and the OWNER. My OMVS display d omvs,f,n=/tmp shows: D OMVS,F,N=/TMP BPXO045I 12.58.20 DISPLAY OMVS 697 OMVS 000E ACTIVE OMVS=(00,FF,PC) TYPENAME DEVICE --STATUS--- MODE MOUNTEDLATCHES TFS11 ACTIVE RDWR 04/15/2014 L=23 NAME=/TMP 19.06.21Q=0 PATH=/SYSTEM/tmp MOUNT PARM=-s 10 Figure 15-27 in the RedBook on z/OS V1R13 Implementation shows more information from the omvs command that what I am getting. It shows UID=888 and OWNER=SC74. Q). How can I get more information out of my d omvs,f command so I can see the UIDs and OWNERs? My fuser -cu /tmp command shows many users of /tmp: MNPB4Ufuser -cu /tmp /SYSTEM/tmp: 8c(IBMUSER) 25c(RMFGAT) 50331938(IBMUSER) 33554852c(AUTO2) fuser says these are TSO USERIDs. But when I enter d omvs,u=IBMUSER I get back IBMUSER NOT FOUND. With ps -ef I can see the PIDS with IBMUSER on them: IBMUSER 50331938 1 - Oct 21 ? 0:13 IMWHTTPD Q). How can IBMUSER have PID 50331938 that's using /tmp and not be found as an OMVS USERID? Thank you, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: BPXOINIT and SYSPLEX Mode Question
Rex, I wish I did have zlsof. MNPB4Uzlsof zlsof: FSUM7351 not found Thank you for your suggestion. I reformatted it a bit so I can cross-reference the number to the name. MNPB4Ups -e -oruser=USER -ouid -opid -oppid -ostime -oatime -oargs=CMD USER EUIDPID PPIDSTIME TIME CMD IBMUSER 0 1 0 Oct 21 0:02 BPXPINPR IBMUSER 0 2 1 Oct 21 0:00 EZBREINI Thank you, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Pommier, Rex Sent: Wednesday, October 22, 2014 2:54 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: BPXOINIT and SYSPLEX Mode Question If you want the UID in the ps -ef command, try this instead: ps -e -ouid -opid,ppid,pcpu=C -ostime,tty=TTY -oatime,args=CMD -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Hansen, Dave L - Eagan, MN Sent: Wednesday, October 22, 2014 1:44 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: BPXOINIT and SYSPLEX Mode Question Dear Friends, I've noticed on our z/OS V1R13 system that we do a F BPXOINIT,SHUTDOWN= and it works! However about z/OS V1R7 came a BPXPRMxx parameter SYSPLEX(YES/NO). We are a SYSPLEX=NO shop. So when I enter F BPXOINIT,FILESYS=DISPLAY,FILESYSTEM=/TMP I get an error: BPXM106I UNIX SYSTEM SERVICES WAS NOT STARTED IN SYSPLEX MODE. I am looking for some help after reading the books. Perhaps the UID and OWNER information is only populated with zFS ownership (rather that z/OS UNIX ownership) of filesystems. I'd still like to track down our /tmp users in a non-shared environment. Supposedly /tmp filled up the other day and we IPL'd. UID=0 can report different USERIDs if they are all UID=0. It looks like OMVS USERIDS and TSO USERIDS also reported differently. And OWNERSHIP might change depending on whether or not you have zFS Sysplex Sharing (SYSPLEX=YES). Q). It says The Modify Function Cannot Be Performed. Besides turning on SYSPLEX=YES, how can I get BPXOINIT to do a FILESYS=DISPLAY? Yes, I can work with D OMVS,F for Filesystems, but the RedBook on z/OS V1R13 Implementation shows that bpxoinit can tell me the UID and the OWNER. My OMVS display d omvs,f,n=/tmp shows: D OMVS,F,N=/TMP BPXO045I 12.58.20 DISPLAY OMVS 697 OMVS 000E ACTIVE OMVS=(00,FF,PC) TYPENAME DEVICE --STATUS--- MODE MOUNTEDLATCHES TFS11 ACTIVE RDWR 04/15/2014 L=23 NAME=/TMP 19.06.21Q=0 PATH=/SYSTEM/tmp MOUNT PARM=-s 10 Figure 15-27 in the RedBook on z/OS V1R13 Implementation shows more information from the omvs command that what I am getting. It shows UID=888 and OWNER=SC74. Q). How can I get more information out of my d omvs,f command so I can see the UIDs and OWNERs? My fuser -cu /tmp command shows many users of /tmp: MNPB4Ufuser -cu /tmp /SYSTEM/tmp: 8c(IBMUSER) 25c(RMFGAT) 50331938(IBMUSER) 33554852c(AUTO2) fuser says these are TSO USERIDs. But when I enter d omvs,u=IBMUSER I get back IBMUSER NOT FOUND. With ps -ef I can see the PIDS with IBMUSER on them: IBMUSER 50331938 1 - Oct 21 ? 0:13 IMWHTTPD Q). How can IBMUSER have PID 50331938 that's using /tmp and not be found as an OMVS USERID? Thank you, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN The information contained in this message is confidential, protected from disclosure and may be legally privileged. If the reader of this message is not the intended recipient or an employee or agent responsible for delivering this message to the intended recipient, you are hereby notified that any disclosure, distribution, copying, or any action taken or action omitted in reliance on it, is strictly prohibited and may be unlawful. If you have received this communication in error, please notify us immediately by replying to this message and destroy the material in its entirety, whether in electronic or hard copy format. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Help with FFST/MVS and the first failure symptoms component?
Dear Big Iron People, (Still waiting to get on the CICS-L list) FFST/MVS (First Failure Support Technology/MVS): http://pic.dhe.ibm.com/infocenter/zos/v2r1/index.jsp?topic=%2Fcom.ibm.zos.v2r1.e0za100%2Fe0za10015.htm Q1). How do we know if we are taking advantage of FFST/MVS? Where can I look, or what can I enter to know if we have FFST enabled? CICS says a program might call the first failure symptoms component. It's documented in the CICS TS for z/OS 5.1 Installation Guide in Chapter 30. MVS ASREXIT - SYMREC Authorization Exit. I read the CICS Problem Determination Guide. There are quite a few references to first failure: General CICS tracing is handled by the CICS trace domain. It traces the flow of execution through CICS code, and through your applications as well. You can see what functions are being performed, which parameters are being passed, and the values of important data fields at the time trace calls are made. This type of tracing is also useful in first failure data capture, if an exception condition is detected by CICS. In addition, exception trace entries are always written to the internal trace table, even if no trace destinations are currently started. Other trace destinations that are currently started get the exception trace entry as well, but the entry always goes to the internal trace table even if you have turned tracing off completely. This function provides first failure data capture. CICS exception tracing is always done by CICS when it detects an exception condition. The sorts of exception that might be detected include bad parameters on a domain call, and any abnormal response from a called routine. The aim is first failure data capture, to record data that might be relevant to the exception as soon as possible after it has been detected. It may just look like they could be related.I didn't find a section in the CICS manuals (yet) about a CICS first failure symptoms component. Q2). Does anyone know if CICS first failure has interactions with FFST/MVS? Also would you know where I can find more information on this CICS first failure symptoms component? Thanks, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Help with FFST/MVS and the first failure symptoms component?
Craig and Lizette, Thank you for your quick response. I did Identify we have a started task called EPWFFST. The second part is what advantage does it bring CICS? It sounds like the step in the installation book is optional. Also by implementing the exit it sounds like I might not gain that much on our CICS TS V5R1 versions. Thank you, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Craig Pace Sent: Thursday, September 18, 2014 2:11 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Help with FFST/MVS and the first failure symptoms component? You will know that it is up by a couple of ways. 1) From the started task log, you should see messages like below: EPW0051I FFSTFFDC: INITIALIZATION OF FFST/FFDC COMPLETE EPW0201I EPWFFST: INITIALIZATION OF FFST/ESA IN PROGRESS EPW0505I EPWFFST: FFSTPARM MEMBER START00 NOT FOUND EPW0505I EPWFFST: FFSTPARM MEMBER TRNSABCD NOT FOUND EPW0202I EPWFFST: INITIALIZATION OF FFST/ESA COMPLETE EPW0505I EPWFFST: FFSTPARM MEMBER EPWHWR01 NOT FOUND EPW0509I EPWFFST: NOW USING LOGID FFSTLOG1 EPW0250I EPWPITSK: FFST INITIALIZATION FOR FFSTV1R2 COMPLETE EPW0250I EPWPITSK: FFST INITIALIZATION FOR VTAM COMPLETE EPW0250I EPWPITSK: FFST INITIALIZATION FOR TCP COMPLETE EPW0250I EPWPITSK: FFST INITIALIZATION FOR CSM COMPLETE 2) You should also have some datasets allocated (CKPT, DUMP, LOG1, LOG2 PARMLIB). The LOG will give you more detail information from its processing and if a dump was taken within FFST, it should be in the DUMP dataset. Craig -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Lizette Koehler Sent: Thursday, September 18, 2014 14:04 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Help with FFST/MVS and the first failure symptoms component? For the shops I have worked at, I did not setup ffsti am not sure there is a need for it. Lizette -Original Message- From: Hansen, Dave L - Eagan, MN dave.l.han...@usps.gov Sent: Sep 18, 2014 11:46 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Help with FFST/MVS and the first failure symptoms component? Dear Big Iron People, (Still waiting to get on the CICS-L list) FFST/MVS (First Failure Support Technology/MVS): http://pic.dhe.ibm.com/infocenter/zos/v2r1/index.jsp?topic=%2Fcom.ibm.zos.v2r1.e0za100%2Fe0za10015.htm Q1). How do we know if we are taking advantage of FFST/MVS? Where can I look, or what can I enter to know if we have FFST enabled? CICS says a program might call the first failure symptoms component. It's documented in the CICS TS for z/OS 5.1 Installation Guide in Chapter 30. MVS ASREXIT - SYMREC Authorization Exit. I read the CICS Problem Determination Guide. There are quite a few references to first failure: General CICS tracing is handled by the CICS trace domain. It traces the flow of execution through CICS code, and through your applications as well. You can see what functions are being performed, which parameters are being passed, and the values of important data fields at the time trace calls are made. This type of tracing is also useful in first failure data capture, if an exception condition is detected by CICS. In addition, exception trace entries are always written to the internal trace table, even if no trace destinations are currently started. Other trace destinations that are currently started get the exception trace entry as well, but the entry always goes to the internal trace table even if you have turned tracing off completely. This function provides first failure data capture. CICS exception tracing is always done by CICS when it detects an exception condition. The sorts of exception that might be detected include bad parameters on a domain call, and any abnormal response from a called routine. The aim is first failure data capture, to record data that might be relevant to the exception as soon as possible after it has been detected. It may just look like they could be related.I didn't find a section in the CICS manuals (yet) about a CICS first failure symptoms component. Q2). Does anyone know if CICS first failure has interactions with FFST/MVS? Also would you know where I can find more information on this CICS first failure symptoms component? Thanks, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN This communication contains information which is confidential and may also be privileged. It is for the exclusive use of the intended recipient(s
Re: Help with CICS CEMT display
To All, OK I got it. When I did press ENTER I was presented with the field names and their values. I did find the pressing ENTER documented under Expanded panels in the Supplied Transactions book. I was hoping to find that SUS was runstatus and TAS was ftype in a book. But I am very glad to know where to look now. I find it interesting that on some panels ENTER is displayed on the bottom. Below is Figure 7. The List debugging profiles screen, showing the example profiles from the Supplied Transactions book. 7 profile(s). All profiles shown Enter=Process PF1=Help 2=Filter 3=Exit 4=View 5=Create LE 6=Create Java 9=Set display device 10=Edit 11=Sort I am getting more used to using the online stuff because less is documented in the books. I also sent another request to the CICS-L group to be a member of their listserv. Thank you for your help and patience, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Ray Pearce Sent: Friday, September 12, 2014 5:35 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Help with CICS CEMT display Dave, Why are you hitting PF1 when Kolusu (and the manual) says to place the cursor on a task and press ENTER. This gives a full display of the selected task with the values spelled out in full. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Hansen, Dave L - Eagan, MN Sent: 11 September 2014 22:34 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Help with CICS CEMT display Kolusu, Thank you for your suggestions. I tabbed to the beginning of the line and hit PF1 and just got the general help. I placed the cursor on TAS and hit PF1, and also on TRA and hit PF1. Yup, I also tried it with the cursor on SUS. The link is a good one. But it doesn't tell me the field names I am seeing on the display: Tas(029) Tra(JNL2) Sus Tas Pri( 255 ) Sta(U ) Use(CICMNX1 ) Uow(CDBC6D3E2D965E09) Tas(0002138) Tra(CEMT) Fac(0001) Run Ter Pri( 255 ) Sta(TO) Use(PMSBDH ) Uow(CDBE117F38E7F508) The second entry is me running CEMT. It has a field called FAC. Not sure why after all these years things just show up as RUN and TER like on the CEMT display. I would imagine it's a facility and I'm runnable. I keep looking, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Sri h Kolusu Sent: Thursday, September 11, 2014 4:22 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Help with CICS CEMT display Dave, Place the cursor on the transaction you are interested and press ENTER and CICS will display the transaction in detail Check this link which explains in detail about CEMT INQ TASK http://pic.dhe.ibm.com/infocenter/cicsts/v4r1/index.jsp?topic=%2Fcom.ibm .cics.ts.doc%2Fdfha7%2Ftransactions%2Fcemt%2Fdfha71l.html Thanks Kolusu IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU wrote on 09/11/2014 02:17:08 PM: From: Hansen, Dave L - Eagan, MN dave.l.han...@usps.gov To: IBM-MAIN@LISTSERV.UA.EDU Date: 09/11/2014 02:17 PM Subject: Help with CICS CEMT display Sent by: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Dear Listeners (Still not on the CICS-L listserv yet), I entered a CICS command. It was CEMT INQ TAS. Here is the output from my 3,720 emulation: Tas(043) Tra(AAON) Sus Tas Pri( 255 ) Sta(SD) Use(CICMNX1 ) Uow(CDBC6D36F2AD2309) Hty(EKCWAIT ) Tas(053) Tra(XPFS) Sus Tas Pri( 001 ) Sta(S ) Use(CICMNX1 ) Uow(CDBC6D3956983D08) Hty(EKCWAIT ) Tas(0002101) Tra(CEMT) Fac(0001) Run Ter Pri( 255 ) Sta(TO) Use(PMSBDH ) Uow(CDBE0A26F9188109) Once there was a time I would INSERVICE and ACQUIRE stuff. Now I'm just trying to find out what the layout of the display is. I see the following fields: TAS(xxx) TRA(xxx) SUS TAS PRI(xxx) STA(xx) USE(XXX) UOW(xxx) HTY(xxx). I can guess that TAS is task and TRA is transaction. And I'd bet SUS is suspended. I tried PF1, but it wasn't the help I was looking for. I would like to find some information like: Results The following example output is typical output from the inquire command. TAS(n) ppp ddd cc TCL() USE() ATT(s) CPU(s) RUA(s) HTI(s) HTY() HVA() This is from: CEKL INQUIRE TASK documented in the CICS Supplied Transactions book. I can find a whole section on HTY codes listed under The resources that CICS tasks can wait for documented at the infocenter. I found EKCWAIT. I even tried Using the information center @ http:// pic.dhe.ibm.com/infocenter/cicsts/v5r1/index.jsp to look for CEMT display info. Maybe we know this so well we don't need to document it any more. I noticed the RCF in the back of the books for CICS go to Hursley Park in the UK. Lots of postage! Thanks
Help with CICS CEMT display
Dear Listeners (Still not on the CICS-L listserv yet), I entered a CICS command. It was CEMT INQ TAS. Here is the output from my 3,720 emulation: Tas(043) Tra(AAON) Sus Tas Pri( 255 ) Sta(SD) Use(CICMNX1 ) Uow(CDBC6D36F2AD2309) Hty(EKCWAIT ) Tas(053) Tra(XPFS) Sus Tas Pri( 001 ) Sta(S ) Use(CICMNX1 ) Uow(CDBC6D3956983D08) Hty(EKCWAIT ) Tas(0002101) Tra(CEMT) Fac(0001) Run Ter Pri( 255 ) Sta(TO) Use(PMSBDH ) Uow(CDBE0A26F9188109) Once there was a time I would INSERVICE and ACQUIRE stuff. Now I'm just trying to find out what the layout of the display is. I see the following fields: TAS(xxx) TRA(xxx) SUS TAS PRI(xxx) STA(xx) USE(XXX) UOW(xxx) HTY(xxx). I can guess that TAS is task and TRA is transaction. And I'd bet SUS is suspended. I tried PF1, but it wasn't the help I was looking for. I would like to find some information like: Results The following example output is typical output from the inquire command. TAS(n) ppp ddd cc TCL() USE() ATT(s) CPU(s) RUA(s) HTI(s) HTY() HVA() This is from: CEKL INQUIRE TASK documented in the CICS Supplied Transactions book. I can find a whole section on HTY codes listed under The resources that CICS tasks can wait for documented at the infocenter. I found EKCWAIT. I even tried Using the information center @ http://pic.dhe.ibm.com/infocenter/cicsts/v5r1/index.jsp to look for CEMT display info. Maybe we know this so well we don't need to document it any more. I noticed the RCF in the back of the books for CICS go to Hursley Park in the UK. Lots of postage! Thanks again, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Help with CICS CEMT display
Kolusu, Thank you for your suggestions. I tabbed to the beginning of the line and hit PF1 and just got the general help. I placed the cursor on TAS and hit PF1, and also on TRA and hit PF1. Yup, I also tried it with the cursor on SUS. The link is a good one. But it doesn't tell me the field names I am seeing on the display: Tas(029) Tra(JNL2) Sus Tas Pri( 255 ) Sta(U ) Use(CICMNX1 ) Uow(CDBC6D3E2D965E09) Tas(0002138) Tra(CEMT) Fac(0001) Run Ter Pri( 255 ) Sta(TO) Use(PMSBDH ) Uow(CDBE117F38E7F508) The second entry is me running CEMT. It has a field called FAC. Not sure why after all these years things just show up as RUN and TER like on the CEMT display. I would imagine it's a facility and I'm runnable. I keep looking, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Sri h Kolusu Sent: Thursday, September 11, 2014 4:22 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Help with CICS CEMT display Dave, Place the cursor on the transaction you are interested and press ENTER and CICS will display the transaction in detail Check this link which explains in detail about CEMT INQ TASK http://pic.dhe.ibm.com/infocenter/cicsts/v4r1/index.jsp?topic=%2Fcom.ibm.cics.ts.doc%2Fdfha7%2Ftransactions%2Fcemt%2Fdfha71l.html Thanks Kolusu IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU wrote on 09/11/2014 02:17:08 PM: From: Hansen, Dave L - Eagan, MN dave.l.han...@usps.gov To: IBM-MAIN@LISTSERV.UA.EDU Date: 09/11/2014 02:17 PM Subject: Help with CICS CEMT display Sent by: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Dear Listeners (Still not on the CICS-L listserv yet), I entered a CICS command. It was CEMT INQ TAS. Here is the output from my 3,720 emulation: Tas(043) Tra(AAON) Sus Tas Pri( 255 ) Sta(SD) Use(CICMNX1 ) Uow(CDBC6D36F2AD2309) Hty(EKCWAIT ) Tas(053) Tra(XPFS) Sus Tas Pri( 001 ) Sta(S ) Use(CICMNX1 ) Uow(CDBC6D3956983D08) Hty(EKCWAIT ) Tas(0002101) Tra(CEMT) Fac(0001) Run Ter Pri( 255 ) Sta(TO) Use(PMSBDH ) Uow(CDBE0A26F9188109) Once there was a time I would INSERVICE and ACQUIRE stuff. Now I'm just trying to find out what the layout of the display is. I see the following fields: TAS(xxx) TRA(xxx) SUS TAS PRI(xxx) STA(xx) USE(XXX) UOW(xxx) HTY(xxx). I can guess that TAS is task and TRA is transaction. And I'd bet SUS is suspended. I tried PF1, but it wasn't the help I was looking for. I would like to find some information like: Results The following example output is typical output from the inquire command. TAS(n) ppp ddd cc TCL() USE() ATT(s) CPU(s) RUA(s) HTI(s) HTY() HVA() This is from: CEKL INQUIRE TASK documented in the CICS Supplied Transactions book. I can find a whole section on HTY codes listed under The resources that CICS tasks can wait for documented at the infocenter. I found EKCWAIT. I even tried Using the information center @ http:// pic.dhe.ibm.com/infocenter/cicsts/v5r1/index.jsp to look for CEMT display info. Maybe we know this so well we don't need to document it any more. I noticed the RCF in the back of the books for CICS go to Hursley Park in the UK. Lots of postage! Thanks again, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
CICS help finding books?
Dear Group, I am getting back into CICS. I did try to subscribe to the CICS-L group, but haven't heard back yet. I looked at the CICS TS for z/OS 5.1: System Definition Guide (SC34-2871-00). This book references a few books I can't find. In Chapter 34 Processing system initialization parameters on page 294 under END of CICS startup it says: see Administering with CICS supplied transactions in Administering. I did find CICSPlex SM Administration (SC34-2880-00). Q). What CICS TS for z/OS 5.1 book is Administering? In Chapter 10 Sharing the CSD between different releases of CICS on page 21 at the end of the last paragraph it says: 'see Entry parameters for the DFHCSDUP program in Configuring. Q). What CICS TS for z/OS 5.1 book is Configuring? This is what I tried to send to CICS-L: In the CICS TS V5R1 book under: Other CICS publications is a listing of more CICS publications. One listed is Designing and Programming CICS Applications, SR23-9692. I looked at IBM Pubs and Red Books but could not find it. I may have found it on Amazon: http://www.amazon.com/Designing-Programming-CICS-Applications-Horswill/dp/1565926765 Q). Is SR23-9692 an O'Reilly book and not an IBM book? Many thanks in advance, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: CICS help finding books?
Thank you. I was looking all over for publication numbers. Thanks again, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Sri h Kolusu Sent: Wednesday, September 10, 2014 3:30 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: CICS help finding books? Dave, Both links you referred are hyper links and if I click on them I get to the respective manuals Q1 links to http://pic.dhe.ibm.com/infocenter/cicsts/v5r1/index.jsp?topic=%2Fcom.ibm.cics.ts.systemprogramming.doc%2Ftopics%2Fdfha7mc.html Q2 links to http://pic.dhe.ibm.com/infocenter/cicsts/v5r1/index.jsp?topic=%2Fcom.ibm.cics.ts.resourcedefinition.doc%2Fcsdup%2FentryParameters.html Thanks, Kolusu IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU wrote on 09/10/2014 01:15:53 PM: From: Hansen, Dave L - Eagan, MN dave.l.han...@usps.gov To: IBM-MAIN@LISTSERV.UA.EDU Date: 09/10/2014 01:16 PM Subject: CICS help finding books? Sent by: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Dear Group, I am getting back into CICS. I did try to subscribe to the CICS- L group, but haven't heard back yet. I looked at the CICS TS for z/ OS 5.1: System Definition Guide (SC34-2871-00). This book references a few books I can't find. In Chapter 34 Processing system initialization parameters on page 294 under END of CICS startup it says: see Administering with CICS supplied transactions in Administering. I did find CICSPlex SM Administration (SC34-2880-00). Q). What CICS TS for z/OS 5.1 book is Administering? In Chapter 10 Sharing the CSD between different releases of CICS on page 21 at the end of the last paragraph it says: 'see Entry parameters for the DFHCSDUP program in Configuring. Q). What CICS TS for z/OS 5.1 book is Configuring? This is what I tried to send to CICS-L: In the CICS TS V5R1 book under: Other CICS publications is a listing of more CICS publications. One listed is Designing and Programming CICS Applications, SR23-9692. I looked at IBM Pubs and Red Books but could not find it. I may have found it on Amazon: http://www.amazon.com/Designing- Programming-CICS-Applications-Horswill/dp/1565926765 Q). Is SR23-9692 an O'Reilly book and not an IBM book? Many thanks in advance, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: z/OS technical overviews for new(ish) system programmers (UNCLASSIFIED)
What it means to be authorized in MVS can send you in many directions :) -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Storr, Lon A CTR USARMY HRC (US) Sent: Friday, June 20, 2014 11:37 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: z/OS technical overviews for new(ish) system programmers (UNCLASSIFIED) Classification: UNCLASSIFIED Caveats: NONE Hello List, We have a couple of team members wanting to learn more about MVS internals. They already understand quite a bit of usage (e.g. SMP/E, PARMLIB, TSO and JCL) but are interested in soldifying their understanding of operating system fundamentals. I'm attempting to assemble an information roadmap and find very little that introduces the operating system with a fairly narrow scope at a reasonably introductory level. There are books that describe bits and pieces of it, ad-nauseum, but I find little that paints all of these pieces together into a bigger picture. Some sources that I have found include Introduction to the new Mainframe: z/OS Basics and some volumes in the ABCs of System Programming series. They do a fair job of providing a technical overview of the various storage managements and IOS. I'd especially like to see something that describes components in terms of new hardware capabilities and how MVS has evolved: 1) The original dispatcher (especially RBs and interrupt management), task management (especially the difference between DUs), program management (especially the PSW and what APF means), storage management and I/O management 2) Serialization techniques over the years (WAIT/POST, ENQ/DEQ, Locks, Latches) 3) Additions to the dispatcher (SRM and WLM) 4) Storage evolution (24bit-to-31bit in XA, ARs and data spaces in ESA, 31bit-to-64bit in z/OS) 5) Centralized (shared) programming support (e.g. SVCs, subsystems, PCs) 6) Availability improvements (e.g. GRS, sysplex [XCF] and parallel sysplex [XES]) I'd appreciate pointers to any materials you deem relevant. Thanks, Alan Classification: UNCLASSIFIED Caveats: NONE -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Now IEBGENER, Was Help with IEBCOPY?
Lizette, Thank you for your suggestion. This is a flat to PDS thing and does not include VSAM. I have got this to work: 'LMMREN DATAID('INDD') MEMBER(VTAMAPPL) NEWNAME(VTAMAPPP) NOENQ' I will look for a copy. Copy and rename can be interesting, especially with VSAM and ADRDSSU. For VSAM I got this to work: RENUNC(VPS.VPSMN3.VPSCKPT.V2R10, - VPS.VPSMN1.VPSCKPT) - IIRC, the VSAM parts came out like .I and .D instead of .INDEX and .DATA. Still learning all these ins and outs of MVS. Probably will be for a while. Thanks again, Have a great weekend, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Lizette Koehler Sent: Thursday, March 20, 2014 7:49 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Now IEBGENER, Was Help with IEBCOPY? An interesting process might be to write a REXX using ISPF LM functions. You can have a panel prompt for your user, and selection info. Then use ISPF To save members You can read and write members once you get use to the process. It might be very helpful to invoke ISPF, unless you are going to use this as a Batch process. You can still write it with ISPF LM functions, just some considerations have to be kept in mind. Lizette -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Hansen, Dave L - Eagan, MN Sent: Thursday, March 20, 2014 9:20 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Now IEBGENER, Was Help with IEBCOPY? Dear Group, Thank you for the discussion on this. I started trying to look into writing a REXX exec to select my KEY input and build the dataset members needed to continue. I used to do this using the ISPF panels by hand. I thought the panel was using IBM code. But I was told it was not and we did something so it was this way. Thank you for pointing out that using IEBCOPY with REXX also pulled in some other vendor software. I can read the same file in and massage my key for each need. I usually build two members that have the same information in two different formats that are static and I can go back and reference. So, after consideration. I will go back to REXX EXECIO. I need to massage the data anyway. It will run two steps, reading the same file twice, but creating different outputs. I learned more about the MVS utilities :) Was wondering if IEBGENER allowed creating two members from the same input data, in one step. IEBGENER appears to not loop back to the top to re-evaluate (edit) the same input data. Amazing how copy and sort can lead down so many paths. Need more GOBACK commands :) Thanks again for sharing your knowledge and thoughts with me, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Paul Gilmartin Sent: Thursday, March 20, 2014 10:48 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Now IEBGENER, Was Help with IEBCOPY? On Thu, 20 Mar 2014 08:31:27 -0400, Shmuel Metz (Seymour J.) wrote: The plain old IEBGENER would be best batch option for a non-source type dataset, Why is it bettwer than, e.g., IDCAMS REPRO? Choose your evil. It's all relative. IEBGENER: o Allows the programmer to omit (some) attributes from SYSUT2, in which case they are (optionally) replicated from SYSUT1 o Requires that supplied attributes of SYSUT2 be compatible with SYSUT1. REPRO: o Requires that the programmer supply (more) attributes of the output file o Allows the attributes of the output file to differ (more) from the inout file. On Thu, 20 Mar 2014 08:41:21 -0500, Tom Marchant wrote: Your output file is a PDS MEMBER. A PDS member is a sequential data set. You don't need GENERATE. The OP's initial objective appeared to involve some editing, in which case he needs a control file. On 2014-03-20, at 07:49, Blaicher, Christopher Y. wrote: //SYSUT2 DD DISP=SHR,DSN=output-pds(member-name) You can use SHR or OLD for DISP Beware. If you use SHR for PDS SYSUT2 and your two jobs run concurrently, Bad Things might happen. PDSE and/or newer releases of z/OS may be more robust. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Now IEBGENER, Was Help with IEBCOPY?
Dear Group, Thank you for the discussion on this. I started trying to look into writing a REXX exec to select my KEY input and build the dataset members needed to continue. I used to do this using the ISPF panels by hand. I thought the panel was using IBM code. But I was told it was not and we did something so it was this way. Thank you for pointing out that using IEBCOPY with REXX also pulled in some other vendor software. I can read the same file in and massage my key for each need. I usually build two members that have the same information in two different formats that are static and I can go back and reference. So, after consideration. I will go back to REXX EXECIO. I need to massage the data anyway. It will run two steps, reading the same file twice, but creating different outputs. I learned more about the MVS utilities :) Was wondering if IEBGENER allowed creating two members from the same input data, in one step. IEBGENER appears to not loop back to the top to re-evaluate (edit) the same input data. Amazing how copy and sort can lead down so many paths. Need more GOBACK commands :) Thanks again for sharing your knowledge and thoughts with me, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Paul Gilmartin Sent: Thursday, March 20, 2014 10:48 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Now IEBGENER, Was Help with IEBCOPY? On Thu, 20 Mar 2014 08:31:27 -0400, Shmuel Metz (Seymour J.) wrote: The plain old IEBGENER would be best batch option for a non-source type dataset, Why is it bettwer than, e.g., IDCAMS REPRO? Choose your evil. It's all relative. IEBGENER: o Allows the programmer to omit (some) attributes from SYSUT2, in which case they are (optionally) replicated from SYSUT1 o Requires that supplied attributes of SYSUT2 be compatible with SYSUT1. REPRO: o Requires that the programmer supply (more) attributes of the output file o Allows the attributes of the output file to differ (more) from the inout file. On Thu, 20 Mar 2014 08:41:21 -0500, Tom Marchant wrote: Your output file is a PDS MEMBER. A PDS member is a sequential data set. You don't need GENERATE. The OP's initial objective appeared to involve some editing, in which case he needs a control file. On 2014-03-20, at 07:49, Blaicher, Christopher Y. wrote: //SYSUT2 DD DISP=SHR,DSN=output-pds(member-name) You can use SHR or OLD for DISP Beware. If you use SHR for PDS SYSUT2 and your two jobs run concurrently, Bad Things might happen. PDSE and/or newer releases of z/OS may be more robust. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Dynamic VIPA and Sysplex Distributor - Question
Dear VIPA Gurus, We are playing with dynamic VIPA and sysplex distributor on z/OS V1R13. The Network guy is puzzled with some of this and I think I got enough information from him. External users use the same VIPA to access our application no matter where it runs. Application runs in one place at a time. When the application started task tries to come up, it is managed by this routing thing (the heart of the DVIPA and sysplex distributor management which runs on one of our LPARs). The Network guy showed me some stuff on how he set this up on VTAM for TCP and IIRC he correlated the VIPA address with some kind of IP Address that wasn't the VIPA or the raw interface IP Address. Q). Should the application on the host side default to the IP Address of the stack, or should the application on the host side be configured with the DVIPA? Q). Would these IP Addresses that correlate to the DVIPA be used on the host side behind the router? Would one of these addresses be what I should configure for our application with on the host side? Q). Any experiences anyone would like to share? Thank you, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: APAR OA30338 for PDSE Users
Charles, U5636 was created with IP Address 56.165.0.57 and is available for your use. Let me know if you have any questions. I will wait for your Email on Deleting U9634. - Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Charles Mills Sent: Thursday, March 20, 2014 3:59 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: APAR OA30338 for PDSE Users Actually, it's TOO precise. Too much detail, not enough useful information. There is a joke that is too long to post here but the punchline is his answer was perfectly accurate and absolutely useless, so I knew it had to be the IBM Building. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Jim McAlpine Sent: Thursday, March 20, 2014 9:30 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: APAR OA30338 for PDSE Users Tony, thanks for making me feel a bit better. I was a bit too quick on the trigger but I was in a hurry to get some stuff done and got a bit flustered as a result. I do agree that the error message could have been a bit more precise. Jim On Thu, Mar 20, 2014 at 3:06 PM, Tony Harminc t...@harminc.net wrote: On 20 March 2014 10:48, Jim McAlpine jim.mcalp...@gmail.com wrote: Thanks Tom, that was the cause of the problem. I logged off TSO and back on again and was able to delete the offending dataset. Sorry for sending everyone off on a wild goose chase. Well you didn't exactly have ideal information to work with. I mean, seriously, IEC614I SCRATCH FAILED - RC 008, DIAGNOSTIC INFORMATION IS (043D57D3), SYSACCT,DB2B04,E54I.OLAS.PDEFLIB is hardly the most friendly way of saying dataset is in use by job the way other programs generally do under similar circumstances. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
FW: APAR OA30338 for PDSE Users
Sorry for the wrong post. - Dave -Original Message- From: Hansen, Dave L - Eagan, MN Sent: Thursday, March 20, 2014 4:11 PM To: 'IBM Mainframe Discussion List' Subject: RE: APAR OA30338 for PDSE Users Charles, U5636 was created with IP Address 56.165.0.57 and is available for your use. Let me know if you have any questions. I will wait for your Email on Deleting U9634. - Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Charles Mills Sent: Thursday, March 20, 2014 3:59 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: APAR OA30338 for PDSE Users Actually, it's TOO precise. Too much detail, not enough useful information. There is a joke that is too long to post here but the punchline is his answer was perfectly accurate and absolutely useless, so I knew it had to be the IBM Building. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Jim McAlpine Sent: Thursday, March 20, 2014 9:30 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: APAR OA30338 for PDSE Users Tony, thanks for making me feel a bit better. I was a bit too quick on the trigger but I was in a hurry to get some stuff done and got a bit flustered as a result. I do agree that the error message could have been a bit more precise. Jim On Thu, Mar 20, 2014 at 3:06 PM, Tony Harminc t...@harminc.net wrote: On 20 March 2014 10:48, Jim McAlpine jim.mcalp...@gmail.com wrote: Thanks Tom, that was the cause of the problem. I logged off TSO and back on again and was able to delete the offending dataset. Sorry for sending everyone off on a wild goose chase. Well you didn't exactly have ideal information to work with. I mean, seriously, IEC614I SCRATCH FAILED - RC 008, DIAGNOSTIC INFORMATION IS (043D57D3), SYSACCT,DB2B04,E54I.OLAS.PDEFLIB is hardly the most friendly way of saying dataset is in use by job the way other programs generally do under similar circumstances. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Help with IEBCOPY?
Dear listeners, I am trying to use IEBCOPY to copy a sequential data set to a partitioned dataset. We are running z/OS V1R13. I looked in the DFSMSdfp Utilities (SC26-7414-07). I found Example 8: Loading a Data Set. However this example says the sequential data set was created using an IEBCOPY unload operation. I found Example 9: Unload Selected Members, Load, Copy and Merge. However the sequential datasets are used as output. I tried C I=INDD1,O=OUTDD1 and S M=(DRSSKEY,KEYLRS). I would like the flat file to be copied into two PDS members in the same dataset. If I can get one member created that would be nice. My problem may be IEBCOPY can't do that. My messages are: FCO105I C I=INDD1,O=OUTDD1 FCO105I S M=(DRSSKEY,KEYLRS) FCO110I LOADING TO PDSE OUTDD=OUTD1 VOL=xxx DSN= xxx FCO111I FROM PDSU INDD=INDD1 VOL=xx DSN=xxx FCO710A SYNADAF DATA - 618F,D,INDD1 ,UNKNOWN,WRNG.LEN.RECORD,087800,BSAM FCO702A DSN IN ERROR = xxx FCO701A DDNAME INDD1 PERMANENT I/O ERROR WHEN READING UNLOADED DATASET BLOCK 1 The first message FCO710A says there is more information in FCO700A. The second message FCO701A says it's trying to read from the unloaded dataset. Q). Can I use IEBCOPY to copy a flat file to a PDS? Q). I am running a REXX exec using IEBCOPY. Would you recommend a different approach for my REXX exec? Thank you, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Now IEBGENER, Was Help with IEBCOPY?
Gerhard and all, I have been kicking the sample around. I have been working with these control statements using IEBGENER: V1 = GENERATE MAXNAME=2,MAXGPS=1 V2 =MEMBER NAME=DRSSKEY /* V3 = GROUP1 RECORD IDENT=(8,'FIRSTMEM',1) */ V3 = GROUP1 RECORD IDENT V4 =MEMBER NAME=KEYLRS My input file is a sequential file. My output is a PDS. Both are predefined. Generate is required for a PDS. MAXNAME is set to 2 because I want to create two members: DRSSKEY and KEYLRS with two MEMBER statements. MAXGRP is set to 1 because I only have 1 GROUP statement. Not sure what GROUP1 does for me, it looks like it's just a label. Member name DRSSKEY works great. I can iebgener a flat file to a PDS member. However, I 'm lost on the IDENT. It talks about editing. If I just key GROUP1 RECORD IDENT it wants more. If I give it the 'FIRSTMEM' it appears to not match and stops with only DRSSKEY created in the PDS from the flat file. IDENT identifies the last record of a collection of records in the input data set. The first RECORD statement (GROUP1) identifies the last record to be placed in the first member. The name of this record (FIRSTMEM) appears in the first eight positions of the input record. This looks to be evaluating what's in my flat file. The remaining MEMBER and RECORD statements define the second and third members. There is no RECORD statement associated with the third MEMBER statement, the remainder of the input file will be loaded as the third member. Do I need to know what's in my input file? I just want the whole flat file as a member (or two) in a PDS. If this does editing I don't know what to do with that. Q). How can I code the IDENT so it matches and creates my second member in the PDS? Yes, I could run this process twice (or do a copy to get my second member). Thank you, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Gerhard Adam Sent: Wednesday, March 19, 2014 12:02 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Help with IEBCOPY? From the DFSMSdfp Utilities manual. In this example, a partitioned data set (consisting of three members) is created from sequential input. //TAPEDISK JOB ... //STEP1EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=A //SYSUT1 DD DSNAME=INSET,UNIT=tape,LABEL=(,SL), // DISP=(OLD,KEEP),VOLUME=SER=001234 //SYSUT2 DD DSNAME=NEWSET,UNIT=disk,DISP=(,KEEP), // VOLUME=SER=12,SPACE=(TRK,(10,5,5)), // DCB=(RECFM=FB,LRECL=80,BLKSIZE=2000) //SYSINDD * GENERATE MAXNAME=3,MAXGPS=2 MEMBER NAME=MEMBER1 GROUP1 RECORD IDENT=(8,'FIRSTMEM',1) MEMBER NAME=MEMBER2 GROUP2 RECORD IDENT=(8,'SECNDMEM',1) MEMBER NAME=MEMBER3 /* -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Paul Gilmartin Sent: Wednesday, March 19, 2014 9:55 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Help with IEBCOPY? On Wed, 19 Mar 2014 09:45:26 -0700, Gerhard Adam wrote: You're using the wrong utility. You want IEBGENER. Maybe. -Original Message- Behalf Of Hansen, Dave L - Eagan, MN Sent: Wednesday, March 19, 2014 9:41 AM I tried C I=INDD1,O=OUTDD1 and S M=(DRSSKEY,KEYLRS). I would like the flat file to be copied into two PDS members in the same dataset. If I can get one member created that would be nice. What's the format of your flat file? How are the two members delimited. The first message FCO710A says there is more information in FCO700A. The second message FCO701A says it's trying to read from the unloaded dataset. Anything that's not a PDS is presumed to have been unloaded by IEBCOPY. Q). Can I use IEBCOPY to copy a flat file to a PDS? Only if it has been unloaded by IEBCOPY. Q). I am running a REXX exec using IEBCOPY. Would you recommend a different approach for my REXX exec? IEBGENER? I don't know the full capabilities of IEBGENER. Can it stop some known delimiter? At worst, read records with EXECIO and write with EXECIO. Someone will surely suggest DFSORT or ICEUTIL. Not in my skill set. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RC 24 from ISRSUPC (Was 0C4 from TSOEXEC IEBCOMPR)
Gil, Sorry for the delay. We don't have ISRSUPC in the SYS1.LPALIB. LINK worked, but I didn't figure out the error. LINKMVS has not failed in either of the two EXECs I used them in. ISRSUPC will work with a LINK: 49 *-* address LINK ISRSUPC 'FILECMP,DELTAL' L ISRSUPC L FILECMP,DELTAL O ISRSUPC FILECMP,DELTAL ISRSUPC - MVS/PDF FILE/LINE/WORD/BYTE/SFOR COMPARE UTILITY- ISPF FOR z/OS 2014/03/07 11.02PAGE 1 Right now I don’t know why I’m getting this warning. Perhaps SYSIN needs something in it? ISRS010W :: PROCESS OPTION PARAMETER IS NOT A VALID PROCESS OPTION. IT IS IGNORED. +++ RC(4) +++ The examples from Sri work great! They use LINKMVS. I am not sure what LINKPGM would do for me. Thanks, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Paul Gilmartin Sent: Friday, March 07, 2014 5:56 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: RC 24 from ISRSUPC (Was 0C4 from TSOEXEC IEBCOMPR) On Fri, 7 Mar 2014 22:41:44 +, Hansen, Dave L - Eagan, MN wrote: 44 *-* /* CALL *(ISRSUPC) */ 45 *-* CALL *(ISRSUPC) 'FILECMP,DELTAL' L CALL *(ISRSUPC) 'FILECMP,DELTAL' I was told by IBM I don't have ISRSUPC in the SYS1.LPALIB. I had to use LINKMVS to get it to work. CALL will just hang. Were they right? Does LINKMVS succeed in cases where CALL * fails? Just hang? No message? No ABEND? ... I had thought that CALL* uses the same TASKLIB/STEPLIB(/ISPLLIB) search order as LINKMVS. Did it at least get you to just hang up the phone for a while? -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RC 24 from ISRSUPC (Was 0C4 from TSOEXEC IEBCOMPR)
Mr. Metz, Thank you for suggesting LINK. I don't know why CALL isn't working for me. I have ADDRESS TSO at the start of my EXEC. 48 *-* CALL *(ISRSUPC)'FILECMP,DELTAL' L CALL *(ISRSUPC)'FILECMP,DELTAL' INVALID DATA SET NAME, *(ISRSUPC)'FILECMP INVALID KEYWORD, DELTAL' +++ RC(12) +++ Kolusu, I tried your link and it took me to appendix A in the ISPF Users Guide. I tried searching for FILECMP and DELTAL. I didn't find any information on these. I looked at the samples and the JCL has PARM=(DELTAL,LINECMP,'',''). I searched the whole users guide for LINECMP and only found this //COMPARE EXEC PGM=ISRSUPC,PARM=('LINECMP,CHNGL,UPDCNTL'). Q). Where can I find information on DELTAL and FILECMP? I tried using CYTPE(FILE) but I get INVALID KEYWORD, CTYPE(FILE). SUPERC offers four compare levels. What book am I missing? address LINK ISRSUPC 'FILECMP,DELTAL' ISRS010W :: PROCESS OPTION PARAMETER IS NOT A VALID PROCESS OPTION. IT IS IGNORED. +++ RC(4) +++ Q). RC 4 is a warning. Erroneous input detected. I looked at Table 24. Summary of process options. I didn't see any that stood out. Do I need a Process Option? What do I need to do to get past the RC 4? At least it's Friday, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Shmuel Metz (Seymour J.) Sent: Thursday, March 06, 2014 8:43 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: RC 24 from ISRSUPC (Was 0C4 from TSOEXEC IEBCOMPR) In 9380636879776208.wa.paulgboulderaim@listserv.ua.edu, on 03/06/2014 at 04:20 PM, Paul Gilmartin paulgboul...@aim.com said: So, in Rexx: address TSO call *(ISRSUPC) 'FILE' That will work, but it's overkill. Why not use address LINK ISRSUPC 'FILE' instead? -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RC 24 from ISRSUPC (Was 0C4 from TSOEXEC IEBCOMPR)
Seymour, 44 *-* /* CALL *(ISRSUPC) */ 45 *-* CALL *(ISRSUPC) 'FILECMP,DELTAL' L CALL *(ISRSUPC) 'FILECMP,DELTAL' I was told by IBM I don't have ISRSUPC in the SYS1.LPALIB. I had to use LINKMVS to get it to work. CALL will just hang. Thank you and have a good weekend, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Shmuel Metz (Seymour J.) Sent: Friday, March 07, 2014 2:18 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: RC 24 from ISRSUPC (Was 0C4 from TSOEXEC IEBCOMPR) In cc42e2f56d60f24fb8a6bcc639d1d9632c657...@samtcasxmb13.usa.dce.usps.gov, on 03/07/2014 at 03:35 PM, Hansen, Dave L - Eagan, MN dave.l.han...@usps.gov said: I don't know why CALL isn't working for me. You seem to be missing a space. Try CALL *(ISRSUPC) 'FILECMP,DELTAL' -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: 0C4 from TSOEXEC IEBCOMPR
Terry, Thank you for your update. I am changing course away from IEBCOMPR and moving towards ISRSUPC. I found our ISPF SAMPLIB that has ISRSCLST and ISRSPROC. I would like to automate comparing a bunch of FONT libs. Our ISPF LOAD lib has ISRSUPC. I tried TSOEXEC ISRSUPC in my EXEC. It just hung. I looked at what was required and I thought with the defaults that maybe something would complete. OK, I can do this. I'll just call ISPF from my EXEC. I tried ISPEXEC SELECT PGM(ISRSUPC). I've done some panels, but I have not done much with calling ISPF programs. This also just hung. My trace === 30 *-* ISPEXEC SELECT PGM(ISRSUPC) L ISPEXEC SELECT PGM(ISRSUPC) It looks like the example ISRSCLST. But I didn't pass LISTING, CTYPE, or PROCESS. They should default. Q). Both calls to ISRSUPC just hang. Is there something in the environment I have not taken into consideration I need to setup? Can ISRSUPC be called from either TSOEXEC and ISPEXEC? Thanks again for your insight, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Terry Sambrooks Sent: Thursday, March 06, 2014 2:14 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: 0C4 from TSOEXEC IEBCOMPR Hi Dave, Acknowledging that an example for comparing two PDSEs may existing in the z/OS V1R12.0 DFSMSdfp Utilities (SC26-7414-07) manual. When I last looked at IEBCOMPR in the utilities manual, I notice the very first paragraph is Recommendation: Use the SuperC utility instead of IEBCOMPR. SuperC is part of ISPF/PDF and the High Level Assembler Toolkit Feature. SuperC can be processed in the foreground as well as in batch and its report is more useful. IEBCOMPR was never brilliant as it would stop after 10 consecutive errors, which is easily induced if a record is deleted from a file. Kind Regards - Terry Director KMS-IT Limited 228 Abbeydale Road South Dore Sheffield S17 3LA UK Reg : 3767263 Outgoing e-mails have been scanned, but it is the recipients responsibility to ensure their anti-virus software is up to date. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
RC 24 from ISRSUPC (Was 0C4 from TSOEXEC IEBCOMPR)
Dear Group, Ok, I got IEBCOMPR to work: ALLOC FI(SYSUT1) DA('PMSBDH.VPS.LRS.AFP.V2R10.FDEFLIB') SHR ALLOC FI(SYSUT2) DA('VPS.LRS.VPS.V2R10.FDEFLIB') SHR ALLOC DD(SYSPRINT) DA(*) REU ALLOC DD(SYSIN) RECFM(F B) LRECL(80) NEW REU QUEUE COMPARE TYPORG=PO EXECIO queued() DISKW SYSIN (FINIS CALL *(IEBCOMPR) CC=RC if cc 0 Then Do SAY IEBCOMPR FAILED FOR AFP.V2R10.FDEFLIB ... FREE FI(SYSUT1 SYSUT2 SYSIN SYSPRINT) With IEBCOMPR I look for a RC of 0. I found this site: http://computer-programming-forum.com/38-rexx/35af2e8f164fb280.htm and this EXEC: /* test si version prod et approd identique */ say Test si version PROD et APPROD identique address TSO alloc fi(newdd) da('A3ZP.PROD.CICS(pgm)') shr reu address TSO alloc fi(olddd) da('A3WD.APPROD3.CICS(pgm)') shr reu address tso call *(isrsupc) if rc = 0 then do say version identique. end else do say ! VERSION PROD APPROD DIFFERENTES ! exit end Mostly this just hangs for me, but once I did get an RC of 24. In the ISPF User's Guide it says RC 24 is ERROR. I/O Error writing to the output listing file. Q). Does this Example need some more work? I found some doc that said ISRSUPC was documented in the ISPF User guide. Vol 2. I have been looking for where the KEYWORDS are listed for ISRSSUPC. In appendix A they list some stuff. It says: The keywords and parameters are: CTYPE Specifies the compare type. The parameter can be one of the SuperC compare types (File, Line, Word, or Byte). To call the Search-For program, use CTYPE(SRCH). PROCESS Specifies the process options OK, I want ISRSUPC to use a CTYPE of FILE to do a file level compare. I tried: CALL *(ISRSUPC) FILE INVALID KEYWORD, FILE CALL *(ISRSUPC) CTYPE(FILE) INVALID KEYWORD, CTYPE(FILE)FILE I saw PGM=ISRSUPC),PARM=(DELTAL,LINECMP,'',''). So I tried: CALL *(ISRSUPC) FILECMP INVALID KEYWORD, FILECMP Q). Where are the Keyword and Parameters for SUPERC (aka ISRSUPC) found? Thanks again, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Sri h Kolusu Sent: Thursday, March 06, 2014 12:29 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: 0C4 from TSOEXEC IEBCOMPR Q. Do IEBCOMPR and ISRSUPC both support alternate DDName lists?) Paul, I do believe IEBCOMPR can be invoked using alternate DDname list(example shown below), but with ISRSUPC I get RC of 24 /* REXX - Invoke IEBCOMPR With alternate DDnames. */ ALLOC FI(PDS1) DA('KOLUSU.PMR66403.JCL') SHR ALLOC FI(PDS2) DA('KOLUSU.PMR66403.JCL') SHR ALLOC DD(REP) DA(*) REU ALLOC DD(CTL) NEW REU RECFM(F B) LRECL(80) QUEUE COMPARE TYPORG=PO EXECIO QUEUED() DISKW CTL (FINIS PROG = 'IEBCOMPR' PARM = '' /* STANDARD PARM, AS FROM JCL */ DDLIST = COPIES('00'X,8) ||, /* DDNAME 1 OVERRIDE: SYSLIN */ COPIES('00'X,8) ||, /* DDNAME 2 OVERRIDE: N/A */ COPIES('00'X,8) ||, /* DDNAME 3 OVERRIDE: SYSLMOD */ COPIES('00'X,8) ||, /* DDNAME 4 OVERRIDE: SYSLIB */ LEFT('CTL', 8) ||, /* DDNAME 5 OVERRIDE: SYSIN*/ LEFT('REP', 8) ||, /* DDNAME 6 OVERRIDE: SYSPRINT */ COPIES('00'X,8) ||, /* DDNAME 7 OVERRIDE: SYSPUNCH */ LEFT('PDS1', 8) ||, /* DDNAME 8 OVERRIDE: SYSUT1 */ LEFT('PDS2', 8) ||, /* DDNAME 9 OVERRIDE: SYSUT2 */ COPIES('00'X,8) ||, /* DDNAME 10 OVERRIDE: SYSUT3 */ COPIES('00'X,8) ||, /* DDNAME 11 OVERRIDE: SYSUT4 */ COPIES('00'X,8) ||, /* DDNAME 12 OVERRIDE: SYSTERM */ COPIES('00'X,8) ||, /* DDNAME 13 OVERRIDE: N/A */ COPIES('00'X,8) /* DDNAME 14 OVERRIDE: SYSCIN */ ADDRESS 'LINKMVS' PROG 'PARM DDLIST' FREE FI(PDS1 PDS2 CTL REP) EXIT RC Sri Hari Kolusu DFSORT Development IBM Corporation Email: skol...@us.ibm.com Phone: 408-927-2187 Tie Line: 457-2187 IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu wrote on 03/06/2014 09:34:58 AM: From: Paul Gilmartin paulgboul...@aim.com To: IBM-MAIN@listserv.ua.edu, Date: 03/06/2014 09:35 AM Subject: Re: 0C4 from TSOEXEC IEBCOMPR Sent by: IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu On Thu, 6 Mar 2014 09:20:56 -0800, Sri h Kolusu wrote: Hansen, The following
TSO COPY Help
Fellow TSO Users, I have an exec that does COPY 'LRS.LRSKEYS' 'VPS.LRS.PROD.LRSKEYS'. I kept getting a message Please free 'VPS.LRS.PROD.LRSKEYS'. Other jobs are waiting to use it.. I did a SYSCMD(RO *ALL,D GRS,RES=(SYSDSN,VPS.LRS.PROD.LRSKEYS)) and it also identified me as locking the file 'VPS.LRS.PROD.LRSKEYS'. So the OS/MVT and OS/VS2 TSO Data Utilities: COPY, FORMAT,LIST,MERGE User's Guide and Reference (SC28-6765-4) shows the options for 'COPY'. I do not see an ALLOCATE or FREE as an option. Q). Should I be able to use COPY and not lock my 'VPS.LRS.PROD.LRSKEYS' dataset? Q). If COPY does lock my file 'VPS.LRS.PROD.LRSKEYS', how do I free what I didn't allocate? If you look in the TSO/E commands and subcommands there is an SMCOPY. But no COPY. I have an exec that does SMCOPY fromdataset( 'LRS.LRSKEYS') todataset( 'VPS.LRS.PROD.LRSKEYS'). I kept getting a message DATA SET LRS.LRSKEYS NOT IN CATALOG OR CATALOG CAN NOT BE ACCESSED OUTPUT DATA SET NOT FOUND - ASSUMED TO BE NEW. When looking at SMCOPY, I did not see a new option. Q). Does SMCOPY need an allocate? And then will SMCOPY need a free? Any suggestions? Thanks in advance, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TSO COPY Help
Allan, Thank you - the free worked. Just thought there would be an option for COPY and SMCOPY. Thanks again, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Staller, Allan Sent: Thursday, January 02, 2014 12:46 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: TSO COPY Help If COPY does lock my file 'VPS.LRS.PROD.LRSKEYS', how do I free what I didn't allocate? FREE DA('VPS.LRS.PROD.LRSKEYS') A simple logoff/logon should also resolve *your* allocation. However, I suspect that the dataset 'VPS.LRS.PROD.LRSKEYS' may also be allocated to the VPS started task. The TSO UTILITIES/COMMANDS assume DISP=OLD (or DISP=NEW) for the output dataset. Either disposition will look for an exclusive ENQ on the dataset name. Thus, any allocation *you* attempt will fail. IMO, the simplest resolution would be to execute IEBCOPY in batch with a specified disposition of SHR for the target dataset. This should only be done if you understand, that the target dataset 'VPS.LRS.PROD.LRSKEYS' is not opened for OUTPUT by the VPS STC. HTH, snip I have an exec that does COPY 'LRS.LRSKEYS' 'VPS.LRS.PROD.LRSKEYS'. I kept getting a message Please free 'VPS.LRS.PROD.LRSKEYS'. Other jobs are waiting to use it.. I did a SYSCMD(RO *ALL,D GRS,RES=(SYSDSN,VPS.LRS.PROD.LRSKEYS)) and it also identified me as locking the file 'VPS.LRS.PROD.LRSKEYS'. So the OS/MVT and OS/VS2 TSO Data Utilities: COPY, FORMAT,LIST,MERGE User's Guide and Reference (SC28-6765-4) shows the options for 'COPY'. I do not see an ALLOCATE or FREE as an option. Q). Should I be able to use COPY and not lock my 'VPS.LRS.PROD.LRSKEYS' dataset? Q). If COPY does lock my file 'VPS.LRS.PROD.LRSKEYS', how do I free what I didn't allocate? If you look in the TSO/E commands and subcommands there is an SMCOPY. But no COPY. I have an exec that does SMCOPY fromdataset( 'LRS.LRSKEYS') todataset( 'VPS.LRS.PROD.LRSKEYS'). I kept getting a message DATA SET LRS.LRSKEYS NOT IN CATALOG OR CATALOG CAN NOT BE ACCESSED OUTPUT DATA SET NOT FOUND - ASSUMED TO BE NEW. When looking at SMCOPY, I did not see a new option. Q). Does SMCOPY need an allocate? And then will SMCOPY need a free? /snip -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
SNMP V3 Replacement?
Dear Group, I keep hearing SNMP is being replaced. I still see SNMP in the IBM books. However: According to the following Microsoft KB article, SNMP has been deprecated in Windows Server 8: http://technet.microsoft.com/en-us/library/hh831568.aspx Any ideas as to what the future of Simple Network Management might include? Or is it just the Windows group that's ditching SNMP? Happy Friday, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
DISPLAY TCPIP,,NETSTAT help
Happy Friday, CROSS-POSTED to IBMTCP-L and IBM-MAIN. I think it's been a long week. I tried two commands with MAX=* and got different results. COnn and SOCKets look like they can take the same parameters. My Global Configuration Information: says MaxRecs: 100. If the report output is truncated, the n value specifies the number of records for which all output lines are successfully displayed. D TCPIP,TCPDFLT,N,CO,CLI=VPS*,FORM=LONG,MAX=* EZD0101I NETSTAT CS V1R13 TCPDFLT 313 USER ID CONN STATE . 3 OF 9 RECORDS DISPLAYED D TCPIP,TCPDFLT,N,SOCK,CLI=VPS*,FORM=LONG,MAX=* EZD0101I NETSTAT CS V1R13 TCPDFLT 425 SOCKETS INTERFACE STATUS: .. 7 OF 7 RECORDS DISPLAYED END OF THE REPORT Q). If my global is 100, and my max is * (or some large number), why does SOCK show 7 of 7, and CO only shows 3 of 9? I'd like to see all 9 of 9. I don't think I need FORM= to be able to use MAX=. Thank you, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Allocation problem with LMCOPY
CROSS POSTED to ISPF-L and IBM-MAIN Dear Helpers, LMFREE doesn't have any extra parameters. I keep getting a message about ALREADY IN USE, TRY LATER+, DATA SET IS ALLOCATED TO ANOTHER JOB OR USER. GRS shows I'm doing this to myself. This is my LMCOPY EXEC: ALLOC FI(LMIN)DA('file1') OLD REUSE ALLOC FI(LMOUT) DA('file2') OLD REUSE Address ISPEXEC LMINIT DATAID(INDD) DNAME(LMIN) ENQ(SHRW) LMINT DATAID(OUTDD) DDNAME(LMOUT) ENQ(SHRW) LMCOPY FROMID('INDD') TODATAID('OUTDD') FROMMEM(mema) TOMEM(mema) REPLACE LMFREE DATAID('INDD') LMFREE DATAID('OUTDD') The LMFREE does not generate an error. I get no errors running the EXEC and it does what I want. Except it's doesn't free my dataset. I added: Address TSO FREE FI(INDD OUTDD). It generated an error FILE INDD NOT FREED, IS NOT ALLOCATED. Q). Do I need to OPEN and CLOSE to do an LMFREE correctly? Thank you, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Allocation problem with LMCOPY
Jon, Thank you for the write up. I used the DATASET and this works fine. George, Paul and Tom, Thank you for also pointing out the ddnames. Yes, I retyped the exec and see an incorrect DNAME. This is my new EXEC: 'LMINIT DATAID(INDD) DATASET('PMSBDH.LIB.DOC') ENQ(EXCLU)' 'LMINIT DATAID(OUTDD) DATASET('VPS.WORKSPC') ENQ(EXCLU)' 'LMCOPY FROMID('INDD') TODATAID('OUTDD') FROMMEM(VPSBYNET) TOMEM(VPSBYNET) REPLACE' 'LMCOPY FROMID('INDD') TODATAID('OUTDD') FROMMEM(VPSBYDST) TOMEM(VPSBYDST) REPLACE' 'LMCOPY FROMID('INDD') TODATAID('OUTDD') FROMMEM(XESPRTRS) TOMEM(XESPRTRS) REPLACE' 'LMFREE DATAID('INDD')' 'LMFREE DATAID('OUTDD')' Thanks again to all that helped, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Thomas Berg Sent: Wednesday, October 23, 2013 11:46 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Allocation problem with LMCOPY BTW, I see that you wrote: LMINIT DATAID(INDD) DNAME(LMIN) ENQ(SHRW) it should be: LMINIT DATAID(INDD) DDNAME(LMIN) ENQ(SHRW) (NOTE DDname, not Dname.) Best Regards Thomas Berg ___ Thomas Berg Specialist zOS\RQM\IT Delivery SWEDBANK AB (Publ) -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Thomas Berg Sent: Wednesday, October 23, 2013 5:23 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Allocation problem with LMCOPY Do: Address TSO FREE FI(LMIN LMOUT) (NOTE the ddnames...) Best Regards Thomas Berg ___ Thomas Berg Specialist zOS\RQM\IT Delivery SWEDBANK AB (Publ) -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Hansen, Dave L - Eagan, MN Sent: Wednesday, October 23, 2013 5:04 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Allocation problem with LMCOPY CROSS POSTED to ISPF-L and IBM-MAIN Dear Helpers, LMFREE doesn't have any extra parameters. I keep getting a message about ALREADY IN USE, TRY LATER+, DATA SET IS ALLOCATED TO ANOTHER JOB OR USER. GRS shows I'm doing this to myself. This is my LMCOPY EXEC: ALLOC FI(LMIN)DA('file1') OLD REUSE ALLOC FI(LMOUT) DA('file2') OLD REUSE Address ISPEXEC LMINIT DATAID(INDD) DNAME(LMIN) ENQ(SHRW) LMINT DATAID(OUTDD) DDNAME(LMOUT) ENQ(SHRW) LMCOPY FROMID('INDD') TODATAID('OUTDD') FROMMEM(mema) TOMEM(mema) REPLACE LMFREE DATAID('INDD') LMFREE DATAID('OUTDD') The LMFREE does not generate an error. I get no errors running the EXEC and it does what I want. Except it's doesn't free my dataset. I added: Address TSO FREE FI(INDD OUTDD). It generated an error FILE INDD NOT FREED, IS NOT ALLOCATED. Q). Do I need to OPEN and CLOSE to do an LMFREE correctly? Thank you, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TSO REXX and GRS Commnad Output
Thank you for your reply. The TSO/E REXX Reference documents GETMSG. It also provides some examples of using GETMSG. Example 4 is what I started with. It doesn't show CONSPROF. Things are working much better with CONSPROF. A healthy dose of RTFM has been prescribed. Thanks again, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Shmuel Metz (Seymour J.) Sent: Friday, October 04, 2013 8:56 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: TSO REXX and GRS Commnad Output In cc42e2f56d60f24fb8a6bcc639d1d96306ca5...@samtcasxmb13.usa.dce.usps.gov, on 10/02/2013 at 06:52 PM, Hansen, Dave L - Eagan, MN dave.l.han...@usps.gov said: We are running z/OS V1R13 and the TSO/E REXX Reference shows some Examples. I have no idea what example you were looking at, but that manual is very clear on needing CONSPROF if you want to retrieve messages. To use GETMSG, you must: Have CONSOLE command authority Have solicited or unsolicited messages stored rather than displayed at the terminal during a console session. Your installation may have set up a console profile for you so that the messages are not displayed. You can also use the TSO/E CONSPROF command to specify that solicited or unsolicited messages should not be displayed during a console session. My Return code is 4. 4 GETMSG processing was successful. However, GETMSG did not retrieve the message. There are several reasons why GETMSG may not be able to retrieve the message based on the arguments you specify on the function call. GETMSG returns a function code of 4 if one of | | the following occurs: | No messages were available to be retrieved | The messages did not match the search criteria you specified on the function| | | call You specified the time argument and the time limit expired before the message was | | | available.| I noticed that while I traced the above EXEC that it looked like I got the messages back to my terminal screen. Expected, given the rc 4. So I tried OUTTRAP. No luck. This is one of several annoying cases where IBM uses TPUT instead of PUTLINE; I suspect that in this case they had no choice. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
How Many Sysplex Distributors?
CROSS-POSTED to IBMTCP-L and IBM-MAIN. Dear Networking Friends: Is it OK to run more than one Sysplex Distributor in a Sysplex? Thank you, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
TSO REXX and GRS Commnad Output
Dear REXX people, I am trying to get the result from a GRS command into an array. We are running z/OS V1R13 and the TSO/E REXX Reference shows some Examples. It shows mcode = getmsg('dispmsg.','sol',,,120). So the stem dispmsg. will have the solicited messages. I tried to get this EXEC to work. I traced it. The GRS command works and produces four messages: ISG343I 09.19.51 GRS STATUS NO ENQ RESOURCE CONTENTION EXITS NO REQUESTS PENDING FOR ISGLOCK STRUCTURE NO LATCH CONTENTION EXISTS My Return code is 4. Perhaps the return code tells me how many messages I got back. My EXEC dies on the Do i = 1 to CNSL.0 with Bad arithmetic conversion. CNSL.0 shows up as CNSL.0 in the trace. address TSO 'CONSOLE ACTIVATE' address CONSOLE 'D GRS,C' mrc = 0 msgindex = 0 /* RETRIEVE OUTPUT COMMAND */ mrc = getmsg('CNSL.','SOL',,,3) Do i = 1 to CNSL.0 msgindex = msgindex + 1 msg.msgindex = CNSL.i End msg.0 = msgindex Do i = 1 to msg.0 Say msg.i End address TSO 'CONSOLE DEACTIVATE' Q). What am I missing? Why doesn't CNSL. Get populated? I saw the EXAMPLE 4 and tried to get that to work with solicited messages. I noticed that while I traced the above EXEC that it looked like I got the messages back to my terminal screen. So I tried OUTTRAP. No luck. address TSO 'CONSOLE ACTIVATE' X = OUTTRAP(CNSL.) address CONSOLE 'D GRS,C' X = OUTTRAP('OFF') Say 'CNSL.0' CNSL.0 address TSO 'CONSOLE DEACTIVATE' In this EXEC my CNSL. Did get set to 0. Thank you, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TSO REXX and GRS Commnad Output
THANK YOU! I added the CONSPROF and it works: CONSPROF SOLDISPLAY(NO) CONSPROF UNSOLDISPLAY(NO) address TSO 'CONSOLE ACTIVATE' CONSOLE SYSCMD(RO *ALL,D GRS,C) mrc = getmsg('CNSL.','SOL',,,3) Do i = 1 to CNSL.0 Say i CNSL.i If i // 20 = 0 Then Do Say Press 'ENTER' to clear the screen Pull resp clr End End 'CONSOLE DEACTIVATE' CONSPROF SOLDISPLAY(YES) Q). Should I set UNSOLIDISPLAY to YES? I guess I don't know what it was. Thanks Again, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Mark Zelden Sent: Wednesday, October 02, 2013 2:05 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: TSO REXX and GRS Commnad Output On Wed, 2 Oct 2013 18:52:27 +, Hansen, Dave L - Eagan, MN dave.l.han...@usps.gov wrote: Dear REXX people, I am trying to get the result from a GRS command into an array. We are running z/OS V1R13 and the TSO/E REXX Reference shows some Examples. It shows mcode = getmsg('dispmsg.','sol',,,120). So the stem dispmsg. will have the solicited messages. I tried to get this EXEC to work. I traced it. The GRS command works and produces four messages: ISG343I 09.19.51 GRS STATUS NO ENQ RESOURCE CONTENTION EXITS NO REQUESTS PENDING FOR ISGLOCK STRUCTURE NO LATCH CONTENTION EXISTS My Return code is 4. Perhaps the return code tells me how many messages I got back. My EXEC dies on the Do i = 1 to CNSL.0 with Bad arithmetic conversion. CNSL.0 shows up as CNSL.0 in the trace. address TSO 'CONSOLE ACTIVATE' address CONSOLE 'D GRS,C' mrc = 0 msgindex = 0 /* RETRIEVE OUTPUT COMMAND */ mrc = getmsg('CNSL.','SOL',,,3) Do i = 1 to CNSL.0 msgindex = msgindex + 1 msg.msgindex = CNSL.i End msg.0 = msgindex Do i = 1 to msg.0 Say msg.i End address TSO 'CONSOLE DEACTIVATE' Q). What am I missing? Why doesn't CNSL. Get populated? I saw the EXAMPLE 4 and tried to get that to work with solicited messages. You are authorized to use console, correct? If you do it interactively (not tracing the REXX exec) do you get the response back at the terminal? Have you tried to set CONSPROF as part of your exec? Try adding this: CONSPROF UNSOLDISP(NO) SOLDISP(NO) Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS mailto:m...@mzelden.com ITIL v3 Foundation Certified Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html Systems Programming expert at http://search390.techtarget.com/ateExperts/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
z/OS Static Route Advertisements
Cross posted to IBMTCP-L and IBM-MAIN. Dear group, I thought I knew what I was talking about. However, z/OS V1R13 static routes are replaceable! So before the dynamic routing gets done we have connectivity through our static route. Then the routing updates replace our static route. A static route should only be for my IP stack and it should only be for out bound traffic. I heard our static route was advertised by OUR LAN group and now it won't be. Like any route we should advertise where our routes go and what they cost. I advertise who I am connected to so when you send things to me a can forward them. If it's a direct route then there are no intervening hops (like our static route). So I am confused about dynamic (replaceable) static routes. Q). Does OSPF advertise the static route change? Thanks again, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Please help with JES2 EXIT 40
CROSS-POSTED to IBM_MAIN and JES2-L Dear Group, This simple task to move print from one JES spool to another is still dragging on. Does anyone have a copy of a working EXIT40 that moves print between spools? I have modified SYS1.SHASAMP(HASX40A) with the following code: LHR9, PDBDRMT(PDBDRMT - x'1C82' - 2 bytes in length) - Load R9 with PDBDRMT value, fill the other half with good stuff. MVC PDBDRMT(2),ZEROES (PDBDRMT - x'' - 2 bytes in length). CVD R9,ANS(ANS - 8 bytes in length) - Convert X'1C82' to Packed Decimal '00 00 00 00 00 07 29 8C'. MVC INAREA(8),BLANKS (Pre load OUTAREA with 8 spaces). MVC INAREA(1),EWE (Move U to position 1 of OUTAREA for a length of 1). UNPK NUMOUT(4),ANS(NUMOUT - 4 bytes in length) - Convert '00 00 00 00 00 07 29 8C' to 'F7 F2 F9 F8'. If the first operand is too short to contain all digits of the second operand, The remaining left-most portion of the second operand is ignored. MVC PDBUSER(8),INAREA (Move 'E4 F7 F2 F9 F8 40 40 40' to PDBUSER). LTORG ANS DS CL8 BLANKS DC XL8'4040404040404040' ZEROES DC XL2'' EWEDC CL1'U' OUTAREA DS 0CL8 INAREA DS CL1 NUMOUT DS CL4 HOLDER DS CL3 My logic was just update the PDBDNODE. But now I see the RMT field also needs to be updated. Thank you, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Please help with JES2 EXIT 40
). Is there an advantage to using N2 over MN1? The terminology gets confusing. I tried this just to confuse myself: I ran three jobs to print output, but I put them on HOLD. My OUTPUTS were: DEFAULT=Y,DEST=N4.U9889DP,CLASS=H DEFAULT=Y,DEST=N2.U9889DP,CLASS=H *** OWNNODE *** DEFAULT=Y,DEST=N12.U9889DP,CLASS=H I looked at SDSF O and saw: RMT is Blank and NODE is 2 for all three. DEST is LOCAL . The output for N2.U9889DP has an extra piece with DEST U9889DP (The actual payload to print). Q). Why doesn't 4 or 12 show up under NODE? I used N4 and N12. I am not sure why you are not getting answers to your questions or guidance. Perhaps no one has ever needed to do this function in an Exit. You may need to work with JES2 L2 to get this resolved. However, searching the internet with IBM JES2 EXIT 40 brought up this URL: http://www.cbttape.org/xephon/xephonm/mvs0001.pdf (yes it does have a code sample) Lizette -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Hansen, Dave L - Eagan, MN Sent: Tuesday, September 17, 2013 9:00 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Please help with JES2 EXIT 40 CROSS-POSTED to IBM_MAIN and JES2-L Dear Group, This simple task to move print from one JES spool to another is still dragging on. Does anyone have a copy of a working EXIT40 that moves print between spools? I have modified SYS1.SHASAMP(HASX40A) with the following code: LHR9, PDBDRMT(PDBDRMT - x'1C82' - 2 bytes in length) - Load R9 with PDBDRMT value, fill the other half with good stuff. MVC PDBDRMT(2),ZEROES (PDBDRMT - x'' - 2 bytes in length). CVD R9,ANS(ANS - 8 bytes in length) - Convert X'1C82' to Packed Decimal '00 00 00 00 00 07 29 8C'. MVC INAREA(8),BLANKS (Pre load OUTAREA with 8 spaces). MVC INAREA(1),EWE (Move U to position 1 of OUTAREA for a length of 1). UNPK NUMOUT(4),ANS(NUMOUT - 4 bytes in length) - Convert '00 00 00 00 00 07 29 8C' to 'F7 F2 F9 F8'. If the first operand is too short to contain all digits of the second operand, The remaining left-most portion of the second operand is ignored. MVC PDBUSER(8),INAREA (Move 'E4 F7 F2 F9 F8 40 40 40' to PDBUSER). LTORG ANS DS CL8 BLANKS DC XL8'4040404040404040' ZEROES DC XL2'' EWEDC CL1'U' OUTAREA DS 0CL8 INAREA DS CL1 NUMOUT DS CL4 HOLDER DS CL3 My logic was just update the PDBDNODE. But now I see the RMT field also needs to be updated. Thank you, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Please help with JES2 EXIT 40
Allan, Thank you for the suggestion. I worked with IBM to identify the best way to do this. We looked at the JES 2 ROUTE commands. If something is in the MVS spool we only want to forward it if it is destined for a U Printer. PREFIX=* DEST=(ALL) OWNER=* SORT=JOBNAME/A SYSNAME= NP JOBNAME JobIDOwnerPrty C FormsDest Tot-Rec AAB7192P JOB10744 PRODID 15 A STD U6857 8 AAD6520P JOB08936 PRODID 15 A STD U9851351 AAD6520P JOB13720 PRODID 15 A STD U9851546 AAFL03VP JOB11101 PRODID 2 N STD LOCAL 1,501,911 AAF021VP JOB11097 PRODID 15 N STD LOCAL 52 So in the above list we want to select only DESTs U6875 and U9851. We have thousands of U Printers and we need to respect the U6857 and U9851. We could only do this by issuing the command for each of the thousand U printers, and then we would repeat it during the day. Thanks again, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Staller, Allan Sent: Tuesday, September 17, 2013 12:42 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Please help with JES2 EXIT 40 I believe this can be done with JES commands. An exit seems to be overkill for this task. Why go to all the work of an exit? Something similar to $ROUTE,PRT,J1-,DEST=NODE1,NODE=NODE2 where NODE2 is the other spool. (sorry, don't have time to look up the syntax. Check the JES Commands manual appropriate to your version of JES). Run this at a fairly frequent interval (5 min???) and I doubt anyone will notice the lag. FWIW, snip This simple task to move print from one JES spool to another is still dragging on. Does anyone have a copy of a working EXIT40 that moves print between spools? /snip -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How to display JES2 fields from the PDDB
Joe, Thank you for the tips on slip traces. We still are trying to figure out the PDBDNODE change consequences. Sorry for the blank post earlier. Thanks again, Dave -Original Message- From: Hansen, Dave L - Eagan, MN Sent: Thursday, September 12, 2013 3:19 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: RE: How to display JES2 fields from the PDDB -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Joe D'Alessandro Sent: Wednesday, September 11, 2013 11:48 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: How to display JES2 fields from the PDDB Hello: You may be better served by using an IF SLIP and writing trace records (A=TRACE) to a GTF that specifies TRACE=SLIP so that you can get a greater variety of PDDB iterations. A dump is going to just get you one PDDB at that point in time. Use $DMOD(modname) to get the address of the exit’s load point. Use that address to build the SLIP. Here is an example of a SLIP one of my co-workers wrote in the past: SLIP SET,IF,DISABLE,ID=TRCJ,ACTION=TRACE,J=JES2, RA=(1A9DE4F8+01F0,1A9DE4F8+0FC6), TD=(STD,REGS), END It looks legit to me. I never did an IF trace for a JES2 exit, but I have used IF for other traces and in those cases I actually coded a module name. The RANGE you code would be the address in your exit where you knew the PDDB’s address was loaded into reg2. You might just place the IF on one instruction (in the above example, he was tracing code path thru some module). And you would add to the TRDATA parameter that the locations pointed to by reg2 should be written to the trace record, e.g., TD=(STD,REGS,2r?+14,2r?+20) Which means “dump the standard trace record and the register values and what reg2 is pointing to plus x’14’ thru x’20’. After you set the SLIP (and warn everyone first that you are setting a PER trap), start the GTF to capture the trace records. Then submit jobs to create PDDBs. For what it's worth, my observation of a PDDB found this combination of values (JES2 v1.11): PDBDRMT is interpreted as a U value or a Rnnn value depending on PDBDNODE. I was only checking for certain values of PDBDNODE so I came up with this partial set of field contents: PDBDNODE PDBDRMT PDBDUSER zero ¬zero spacesPDBDRMT is a U value our-node ¬zero spacesPDBDRMT is Rnnn value. our-node zero U PDBDUSER contains the actual U value our-node zero spaceslocal SYSOUT I did not care if PDBDNODE contained another node's value so I am not going to state what would be in PDBDRMT or PDBDUSER in that case, but the SLIP / TRACE should find that if you need to know. regards, Joe D'Alessandro -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How to display JES2 fields from the PDDB
-Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Joe D'Alessandro Sent: Wednesday, September 11, 2013 11:48 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: How to display JES2 fields from the PDDB Hello: You may be better served by using an IF SLIP and writing trace records (A=TRACE) to a GTF that specifies TRACE=SLIP so that you can get a greater variety of PDDB iterations. A dump is going to just get you one PDDB at that point in time. Use $DMOD(modname) to get the address of the exit’s load point. Use that address to build the SLIP. Here is an example of a SLIP one of my co-workers wrote in the past: SLIP SET,IF,DISABLE,ID=TRCJ,ACTION=TRACE,J=JES2, RA=(1A9DE4F8+01F0,1A9DE4F8+0FC6), TD=(STD,REGS), END It looks legit to me. I never did an IF trace for a JES2 exit, but I have used IF for other traces and in those cases I actually coded a module name. The RANGE you code would be the address in your exit where you knew the PDDB’s address was loaded into reg2. You might just place the IF on one instruction (in the above example, he was tracing code path thru some module). And you would add to the TRDATA parameter that the locations pointed to by reg2 should be written to the trace record, e.g., TD=(STD,REGS,2r?+14,2r?+20) Which means “dump the standard trace record and the register values and what reg2 is pointing to plus x’14’ thru x’20’. After you set the SLIP (and warn everyone first that you are setting a PER trap), start the GTF to capture the trace records. Then submit jobs to create PDDBs. For what it's worth, my observation of a PDDB found this combination of values (JES2 v1.11): PDBDRMT is interpreted as a U value or a Rnnn value depending on PDBDNODE. I was only checking for certain values of PDBDNODE so I came up with this partial set of field contents: PDBDNODE PDBDRMT PDBDUSER zero ¬zero spacesPDBDRMT is a U value our-node ¬zero spacesPDBDRMT is Rnnn value. our-node zero U PDBDUSER contains the actual U value our-node zero spaceslocal SYSOUT I did not care if PDBDNODE contained another node's value so I am not going to state what would be in PDBDRMT or PDBDUSER in that case, but the SLIP / TRACE should find that if you need to know. regards, Joe D'Alessandro -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
How to display JES2 fields from the PDDB
Dear Group, I am debugging a JES2 EXIT40. I was asked what do the fields PDBDNODE, PDBDRMT and PDBUSER contain. I am told PDBDRMT may not contain a non-zero value. There is no command which will give me this information. I am told I can set a slip trap on entry to the exit and take a dump at that point. Q). Is there a good book on taking a dump from an Exit? Does anyone have an example of a slip trap to help me debug our PDDB (REG 2 is $PDDB, offset x'14' for 12 bytes is the routing info)? Thank you, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How to display JES2 fields from the PDDB
Ed, Thank you for the suggestion. We do not have (E)JES, but I looked it up. Thanks again , Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Ed Jaffe Sent: Wednesday, September 11, 2013 11:50 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: How to display JES2 fields from the PDDB On 9/11/2013 9:01 AM, Hansen, Dave L - Eagan, MN wrote: Dear Group, I am debugging a JES2 EXIT40. I was asked what do the fields PDBDNODE, PDBDRMT and PDBUSER contain. I am told PDBDRMT may not contain a non-zero value. There is no command which will give me this information. I am told I can set a slip trap on entry to the exit and take a dump at that point. Q). Is there a good book on taking a dump from an Exit? Does anyone have an example of a slip trap to help me debug our PDDB (REG 2 is $PDDB, offset x'14' for 12 bytes is the routing info)? If you are an (E)JES customer, you can issue the DU (dump) line command against the job to browse a comprehensive dump of all its SPOOL-resident control blocks. The part you are interested in looks like this: * * I O T (ALLOCATION) * SPOOL ADDRESS: 02.023C55 COMMON SECTION: 0068 C9D6E340 E2D4C6C4 E4D4D740 0002AFB6 *IOT SMFDUMP ..®¶* 0010 0078 CBF2AA52 1800 02023C55 *ô2¡ê...í* 0020 0088 ** 0030 0098 0145 66BC 0002 *...á..ï* 0040 00A8 1000 0280 *...Ø* 0050 00B8 ** === Data at relative offset 00C8 through 00D7 is same as above === TGAE SECTION: 0070 0223 C500 *E...* 0080 0010 ** === Data at relative offset 0020 through 013F is same as above === PDDB ENTRY: 01B0 68800050 02023C53 0001 *ÇØë* 01C0 0010 0180E201 *.ØS.* 01D0 0020 0800 0002 007E *...=* 01E0 0030 E2E3C440 40404040 5C5C5C5C 5C5C5C5C *STD * 01F0 0040 40404040 40404040 * * 0200 0050 5C5C5C5C 5C5C5C5C 5C5C5C5C 5C5C5C5C ** 0210 0060 5C5C5C5C 5C5C5C5C FF00 ** 0220 0070 0800 ** 0230 0080 CBF2AA52 *ô2¡ê* 0240 0090 40404040 * * 0250 00A0 40404040 40404040 40404040 D1C5E2D1 * JESJ* 0260 00B0 C3D3C9D5 40404040 40404040 5001A051 *CLIN .µé* 0270 00C0 1555 829DB29D *íí.íb¸¥¸* 0280 00D0 8DA71515 B7819315 15151515 829DB29D *ýx..¼al.b¸¥¸* 0290 00E0 8DA71515 B7B6969C *ýx..¼¶oæ* 02A0 00F0 808C918C B7819315 *Øðjð¼al.* 02B0 0100 15151515 B7BDB7A4 15151515 E2D4C640 *¼]¼uSMF * 02C0 0110 40404040 8000 * ..Ø.* 02D0 0120 00020402 ** 02E0 0130 ** 02F0 0140 0200 ** 0300 0150 E2D4C64B E2D4C6C4 E4D4D74B *SMF.SMFDUMP.* 0310 0160 E2F0F1F7 F6F0F5F4 4BC4F0F0 F0F0F0F0 *S0176054.D00* 0320 0170 F14BD1C5 E2D1C3D3 C9D54040 40404040 *1.JESJCLIN * etc... -- Edward E Jaffe Phoenix Software International, Inc 831 Parkview Drive North El Segundo, CA 90245 http://www.phoenixsoftware.com/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
FW: JES2 Node Question
I request for knowledge. CROSS POSTED to JES2 and IBM. From: Hansen, Dave L - Eagan, MN Sent: Wednesday, September 11, 2013 10:45 AM To: 'jes...@listserv.vt.edu'; 'i...@listserv.uark.edu' Subject: JES2 Node Question Dear Group, I have been working with IBM to Implement a JES2 EXIT 40. I am doing this without too much JES knowledge. I was asked to move output from one MVS spool to another. We had a product (VPS) that would take the print off the MVS spool and send it to remote printers. Now we don't run that software at our west side location. I just want to change N1.U1234 to N2.U1234. Then JES will ROUTE the output from N1 to N2. However the change results in N1.U1234 being modified to N2.R1234. I did some testing and things are not as I expected. Q). On the SDSF screen - With the EXIT in place, Why doesn't Node reflect my change to N2? RMT is now 1234. NODE is supposed to be the JES Print Node. I would expect the node to be the destination node. From SDSF I entered NODE. It see N2, MN1 and OWNNODE. So we are #2 aka MN1. Q). Is there an advantage to using N2 over MN1? The terminology gets confusing. I tried this just to confuse myself: I ran three jobs to print output, but I put them on HOLD. My OUTPUTS were: DEFAULT=Y,DEST=N4.U9889DP,CLASS=H DEFAULT=Y,DEST=N2.U9889DP,CLASS=H *** OWNNODE *** DEFAULT=Y,DEST=N12.U9889DP,CLASS=H I looked at SDSF O and saw: RMT is Blank and NODE is 2 for all three. DEST is LOCAL . The output for N2.U9889DP has an extra piece with DEST U9889DP (The actual payload to print). Q). Why doesn't 4 or 12 show up under NODE? I used N4 and N12. Perhaps we have something in JES setup to change something to R? We are testing this on two separate JES2 systems. They may not be the same, and I sure don't know what is normal. On one system I see SDSF output with RMT as 7298, NODE as BLANK, and DEST as U7298. Q). Why would this job have a BLANK NODE? The systems are different and I bet the jobs we ran were different also. I guess it all depends. I'm just not sure what it all depends on. The reason I ask is my assembler job is looking to match $OWNNODE to PDBDNODE. I took out that line because I have no idea what these NODEs should be. Right now I just change PDBDNODE regardless of what it was. Please send help, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: JES2 EXIT 40 ASMA90 Parm Question
Thank You Michael and Seymour for your thought invoking responses. I will use RENT. Thanks Again, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Toole, Michael Sent: Wednesday, August 21, 2013 3:03 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: JES2 EXIT 40 ASMA90 Parm Question Reentrant code considerations are contingent on the calling environment.An exit routine called from the JES2 main task must be reentrant in the JES2 sense. The JES2 dispatching unit, commonly called JES2 processors, running under a processor control element (PCE) perform the processing for the JES2 main task. The JES2 dispatcher controls what PCE is currently active (that is, what JES2 processor is currently running). Because a JES2 processor doesn't relinquish control to another JES2 processor involuntarily, an exit routine, invoked out of a JES2 main task processor may use a nonreentrant work area; the work area is serialized if the exit routine doesn't issue a $WAIT macro or until the exit routine or service called from an exit routine does issue the $WAIT macro. When the exit routine issues the $WAIT macro directly or through a called routine, control returns to the JES2 dispatcher and the serialization on the nonreentrant work area ceases. The nonreentrant work area may also be passed between exit routines, or between an exit routine and JES2, before a $WAIT macro call. Work areas to be used across a $WAIT must either be within the processor work area established as part of the processor control element (PCE) or else must be directly owned by the processor. In the same JES2 reentrant sense, an exit routine may search or manipulate a JES2 queue providing it has ownership of the queue and doesn't issue a $WAIT macro until this action is completed.An exit routine called from a JES2 subtask, from the user environment, or from the FSS environment must be reentrant in the MVS sense. The exit routine must be capable of taking an MVS interrupt at any point in its processing. The exit routine must be able to handle the simultaneity of execution with other subtasks and user address space, or functional subsystem (FSS) routines and with the JES2 main task.The following actions may produce unpredictable results: Modifying control block fields designed for use by the JES2 main task only (for example, $DOUBLE, $GENWORK, and so on.) Accessing checkpointed data from the subtask, user, or FSS environment. Mike Michael K. Toole Sr. I.T. Consultant The Auto Club Group 1 Auto Club Drive Dearborn, Mi. 48126 313-336-1783 mto...@aaamichigan.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Hansen, Dave L - Eagan, MN Sent: Wednesday, August 21, 2013 11:40 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: JES2 EXIT 40 ASMA90 Parm Question CROSS-POSTED to ASSEMBLER-LIST and IBM-MAIN Dear Group, I worked with IBM to determine the best way to move print from one JES2 spool to another was by using EXIT 40. Last time I was assembling a CSECT I needed the PARM RENT. In SYS1.SHASSAMP is HASIASM which has NORENT. In SYS1.SHASSAMP is HASX40A which is what I am modifying. I added the SYS1.SHASMAC DD to the JCL. The z/OS V1R13.0 JES2 Installation Exits talks about Exit 40: Modifying SYSOUT characteristics. I have RMODE ANY. It also says I need AMODE 31. The HLASM V1R5 Language Reference has figure 26 AMODE/RMODE Defaults. It says RMODE 31 (was ANY) defaults to AMODE 31. I think I have meet the requirements. The first two lines in HASX40A are: *PROCESS USING(WARN(15)),SUPRWARN(324,420,436,437) ACONTROL CPAT(NOSYSL,NOCASE),FLAG(PAGE0) But the *PROCESS generates two messages. It looks like WARN(15) may be obsolete. ** ASMA437N Attempt to override invocation parameter in a *PROCESS statement. Suboption 15 of USING option ignored. ** ASMA420N Error in a *PROCESS statement parameter - USING(WARN(15)) My program assembles clean with this JCL: //ASM EXEC PGM=ASMA90, // PARM='NORENT,DECK,NOOBJ,USING(WARN(3))', // REGION=6M //SYSLIB DD DISP=SHR,DSN=SYS1.MACLIB // DD DISP=SHR,DSN=SYS1.SHASMAC // DD DISP=SHR,DSN=SYS1.MODGEN,VOL=SER=S7XPA2,UNIT=3390 //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,1)) //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(10,1)) //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(10,1)) //SYSPRINT DD SYSOUT=* //SYSINDD DISP=SHR,DSN=SYS2.LIBRSRC.CNTL(HASX40) //SYSPUNCH DD DSN=OBJ,DISP=(,PASS),SPACE=(CYL,(3,1)), // UNIT=SYSDA,DCB=BLKSIZE=1600 //* //LKEDEXEC PGM=IEWL,PARM='XREF,LIST,RENT,REFR,AC=0' //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,1)) //SYSPRINT DD SYSOUT=* //OBJ DD DSN=OBJ,DISP=(OLD,DELETE) //SYSLMOD DD DISP=SHR,DSN=SYS2.LINKLIB //SYSLIN DD * INCLUDE OBJ ENTRY HASX40 NAME HASX40(R) /* Q). Do I want NORENT for my JES2 EXIT 40? It deals
JES2 EXIT 40 ASMA90 Parm Question
CROSS-POSTED to ASSEMBLER-LIST and IBM-MAIN Dear Group, I worked with IBM to determine the best way to move print from one JES2 spool to another was by using EXIT 40. Last time I was assembling a CSECT I needed the PARM RENT. In SYS1.SHASSAMP is HASIASM which has NORENT. In SYS1.SHASSAMP is HASX40A which is what I am modifying. I added the SYS1.SHASMAC DD to the JCL. The z/OS V1R13.0 JES2 Installation Exits talks about Exit 40: Modifying SYSOUT characteristics. I have RMODE ANY. It also says I need AMODE 31. The HLASM V1R5 Language Reference has figure 26 AMODE/RMODE Defaults. It says RMODE 31 (was ANY) defaults to AMODE 31. I think I have meet the requirements. The first two lines in HASX40A are: *PROCESS USING(WARN(15)),SUPRWARN(324,420,436,437) ACONTROL CPAT(NOSYSL,NOCASE),FLAG(PAGE0) But the *PROCESS generates two messages. It looks like WARN(15) may be obsolete. ** ASMA437N Attempt to override invocation parameter in a *PROCESS statement. Suboption 15 of USING option ignored. ** ASMA420N Error in a *PROCESS statement parameter - USING(WARN(15)) My program assembles clean with this JCL: //ASM EXEC PGM=ASMA90, // PARM='NORENT,DECK,NOOBJ,USING(WARN(3))', // REGION=6M //SYSLIB DD DISP=SHR,DSN=SYS1.MACLIB // DD DISP=SHR,DSN=SYS1.SHASMAC // DD DISP=SHR,DSN=SYS1.MODGEN,VOL=SER=S7XPA2,UNIT=3390 //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,1)) //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(10,1)) //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(10,1)) //SYSPRINT DD SYSOUT=* //SYSINDD DISP=SHR,DSN=SYS2.LIBRSRC.CNTL(HASX40) //SYSPUNCH DD DSN=OBJ,DISP=(,PASS),SPACE=(CYL,(3,1)), // UNIT=SYSDA,DCB=BLKSIZE=1600 //* //LKEDEXEC PGM=IEWL,PARM='XREF,LIST,RENT,REFR,AC=0' //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,1)) //SYSPRINT DD SYSOUT=* //OBJ DD DSN=OBJ,DISP=(OLD,DELETE) //SYSLMOD DD DISP=SHR,DSN=SYS2.LINKLIB //SYSLIN DD * INCLUDE OBJ ENTRY HASX40 NAME HASX40(R) /* Q). Do I want NORENT for my JES2 EXIT 40? It deals with being reentrant. Not sure what this exit should have. Q). Does my PARM=USING(WARN(3)) override the *PROCESS USING(WARN(15))? Then I can remove USING from the *PROCESS (and maybe not get any messages). Thank you, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
JES2 Destination Node Change Question
Dear JES2 experts, I am not well versed in JES2. Node AB will no longer have printers. I need to direct the output to node CD for DESTs of U*. Wild cards can be fun. These printers are not defined to JES2 as DESTIDs == /$ADDDEST(JSV458),DEST=N1.U113 So $TOJQ,/DEST=AB.U*,QUEUE=X will select NODE AB and DEST U*. Q). Will $TOJ,/DEST=AB,U*,/DEST=CD.U* change AB.U1234 to CD.U1234 and AB.U6789 to CD.U6789? Q). Would there be a better way to point all the U* DESTs to NODE CD? Thank you, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Panel Graphics - Dynamic Area Question
Group, I took out all the x'70' stuff. It looks like it works if you have the right terminal settings. I had to adjust the width to get it to format correctly. /* REXX */ address ISPEXEC CONTROL ERRORS RETURN S = '0123456789ABCDEF' H = '' do i1 = 1 by 1 to 16 do i2 = 1 by 1 to 16 n = SUBSTR(S,i1,1) || SUBSTR(S,i2,1) H = H || x2c(n) || ' ' end end A = H X = H B = COPIES('G',512) Y = COPIES('g',512) address ISPEXEC VPUT (A B X Y) address ISPEXEC CONTROL DISPLAY REFRESH address ISPEXEC DISPLAY PANEL(GRAPHESC) exit )ATTR % TYPE(TEXT)COLOR(WHITE) * TYPE(TEXT)COLOR(TURQ) + TYPE(TEXT)COLOR(BLUE) # TYPE(TEXT)COLOR(TURQ) HILITE(REVERSE) $ AREA(DYNAMIC) SCROLL(OFF) EXTEND(OFF) ? AREA(DYNAMIC) SCROLL(OFF) EXTEND(OFF) g TYPE(CHAR)INTENS(HIGH) COLOR(GREEN) GE(OFF) G TYPE(CHAR)INTENS(HIGH) COLOR(GREEN) GE(ON) )BODY + +# Displayable Characters In Graphical Escape Mode + + + *Graphical Escape%OFF+*Graphical Escape%ON+ + +0 1 2 3 4 5 6 7 8 9 A B C D E F 0 1 2 3 4 5 6 7 8 9 A B C D E F + +---+ +---+ + 0+|$A,B $+| 0+|?X,Y ?+| 0 + 1+|$ $+| 1+|? ?+| 1 + 2+|$ $+| 2+|? ?+| 2 + 3+|$ $+| 3+|? ?+| 4 + 4+|$ $+| 4+|? ?+| 5 + 5+|$ $+| 5+|? ?+| 6 + 6+|$ $+| 6+|? ?+| 7 + 7+|$ $+| 7+|? ?+| 8 + 8+|$ $+| 8+|? ?+| 9 + 9+|$ $+| 9+|? ?+| 0 + A+|$ $+| A+|? ?+| A + B+|$ $+| B+|? ?+| B + C+|$ $+| C+|? ?+| C + D+|$ $+| D+|? ?+| D + E+|$ $+| E+|? ?+| E + F+|$ $+| F+|? ?+| F + +---+ +---+ + + )END Displayable Characters In Graphical Escape Mode Graphical Escape OFF Graphical Escape ON 0 1 2 3 4 5 6 7 8 9 A B C D E F 0 1 2 3 4 5 6 7 8 9 A B C D E F --- --- 0 |- - | 0 | . . . . . . . . . . . . . . . | 0 1 | | 1 |. . . . . . . . . . . . . . . . | 1 2 | | 2 |. . . . . . . . . . . . . . . . | 2 3 | | 3 |. . . . . . . . . . . . . . . . | 4 4 | a b c d e f g h i - - - - - - | 4 | . . . . . . . . . ¢ . ( + | | 5 5 |- j k l m n o p q r - - - - - - | 5 | . . . . . . . . . ! $ * ) ; ¬ | 6 6 |- - s t u v w x y z - - - - - - | 6 |- / . . . . . . . . ¦ , % _ ? | 7 7 |Ø § þ Õ Ð Ñ € ë - - - - - - - | 7 |. . . . . . . . . ` : # @ ' = | 8 8 |~ † ƒ ‚ … ³ - - - - Æ Ç ó © ¾ ¸ | 8 |. a b c d e f g h i . . . . . . | 9 9 | Ý Þ ß Ü Û - - - - ã â ‡ ê ˆ ½ | 9 |. j k l m n o p q r . . . . . . | 0 A |ý ‰ Ä Š ‹ - - - - - ï ¬ Ž ò ø | A |. ~ s t u v w x y z . . . . . . | A B |à î ì æ ù - õ \ ö - · ¶ ˜ ô | | B |. . . . . . . . . . . . . . . . | B C |{ ¨ ± ¦ À Ú Ã Á “ - å ç Ó è Ô í | C |{ A B C D E F G H I . . . . . . | C D |} ° ² Å Ù ¿ ´ Â ” - Ÿ ! ü û ‘ ä | D |} J K L M N O P Q R . . . . . . | D E |Ï • – — - - - - - - ð ñ Ò é ’ ® | E |\ . S T U V W X Y Z . . . . . . | E F |™ š ž ¡ ¢ £ ¤ ¥ « - ú ÷ µ ¯| F |0 1 2 3 4 5 6 7 8 9 . . . . . . | F --- --- Later, Dave -Original Message- From: Hansen, Dave L - Eagan, MN Sent: Monday, August 05, 2013 1:20 PM To: isp...@listserv.nd.edu Subject: RE: Panel Graphics - Dynamic Area Question Dear Group, I tried to get this to work but I haven't used a Dynamic Area before. I looked at: z/OS V1R13.0 ISPF Dialog Developer's Guide and Reference. I didn't find too much on Dynamic Area examples. I searched SISPSAMP for AREA(DYNAMIC) and didn't get a hit. Q). Does the AREA(DYNAMIC) need to be specified twice on the same line with different attrchars? When I change my attrchars $ and ? to TYPE(TEXT) COLOR(RED) I do not get an error. Otherwise I get an RC 20 (Severe error.). By trial and error I removed enough to get my panel to display without a sever error. Q). Is there an easy way to identify what
FW: Panel Graphics - Dynamic Area Question
Dear IBM-MAIN readers, Cross-Posted Yesterday on ISPF-L. Thought I'd send it to the big list. Still trying to get the Dynamic Area to work. Thanks, Dave -Original Message- From: Hansen, Dave L - Eagan, MN Sent: Monday, August 05, 2013 1:20 PM To: isp...@listserv.nd.edu Subject: RE: Panel Graphics - Dynamic Area Question Dear Group, I tried to get this to work but I haven't used a Dynamic Area before. I looked at: z/OS V1R13.0 ISPF Dialog Developer's Guide and Reference. I didn't find too much on Dynamic Area examples. I searched SISPSAMP for AREA(DYNAMIC) and didn't get a hit. Q). Does the AREA(DYNAMIC) need to be specified twice on the same line with different attrchars? When I change my attrchars $ and ? to TYPE(TEXT) COLOR(RED) I do not get an error. Otherwise I get an RC 20 (Severe error.). By trial and error I removed enough to get my panel to display without a sever error. Q). Is there an easy way to identify what is causing the RC 20 without removing code until it works? The REXX part worked well. Here is my Panel: )ATTR % TYPE(TEXT)COLOR(WHITE) * TYPE(TEXT)COLOR(TURQ) + TYPE(TEXT)COLOR(BLUE) # TYPE(TEXT)COLOR(TURQ) HILITE(REVERSE) $ AREA(DYNAMIC) SCROLL(OFF) EXTEND(OFF) /* $ TYPE(TEXT)COLOR(RED) */ ? AREA(DYNAMIC) SCROLL(OFF) EXTEND(OFF) /* ? TYPE(TEXT)COLOR(RED) */ /* g TYPE(CHAR)INTENS(HIGH) COLOR(GREEN) GE(ON) */ /* G TYPE(CHAR)INTENS(HIGH) COLOR(GREEN) GE(OFF) */ )BODY + +# Displayable Characters In Graphical Escape Mode + + +*Graphical Escape%OFF+ *Graphical Escape%ON+ + 0 1 2 3 4 5 6 7 8 9 A B C D E F 0 1 2 3 4 5 6 7 8 9 A B C D E F + 0 $A,B $+0 ?X,Y?+0 + 1 $$+1 ? ?+1 + 2 $$+2 ? ?+2 + 3 $$+3 ? ?+3 + 4 $$+4 ? ?+4 + 5 $$+5 ? ?+5 + 6 $$+6 ? ?+6 + 7 $$+7 ? ?+7 + 8 $$+8 ? ?+8 + 9 $$+9 ? ?+9 + A $$+A ? ?+A + B $$+B ? ?+B + C $$+C ? ?+C + D $$+D ? ?+D + E $$+E ? ?+E + F $$+F ? ?+F + 0 1 2 3 4 5 6 7 8 9 A B C D E F 0 1 2 3 4 5 6 7 8 9 A B C D E F + +* 4/2009 by + www.schlabb.de )END My REXX: address ISPEXEC CONTROL ERRORS RETURN s = '0123456789ABCDEF' h = '' do i1 = 1 by 1 to 16 do i2 = 1 by 1 to 16 n = SUBSTR(s,i1,1) || SUBSTR(s,i2,1) h = h || x2c(n) || ' ' end end a = h x = h b = COPIES('G',512) y = COPIES('g',512) trace i address ISPEXEC DISPLAY PANEL(GRAPHESC) exit Many thanks in advance, Dave -Original Message- From: ISPF discussion list [mailto:isp...@listserv.nd.edu] On Behalf Of Mosley, George Sent: Friday, July 12, 2013 4:46 PM To: isp...@listserv.nd.edu Subject: Re: Panel Graphics Thanks, Robert. Beautiful tool! George Mosley -Original Message- From: ISPF discussion list [mailto:isp...@listserv.nd.edu] On Behalf Of Robert Prins Sent: Friday, July 12, 2013 10:31 AM To: isp...@listserv.nd.edu Subject: Re: Panel Graphics On 12 July 2013 17:09, Mosley, George george.mos...@icbc.com wrote: I'd like to put some text inside a true graphic box on a panel, as opposed to fashioning a primitive one with the +, - and | characters. Is there, by chance, a guide somewhere as to what special characters are available? Or, even better - does anyone have a technique for creating a box? Fixed pitch font needed: Panel: GRAPHESC === CUT ===)PANEL /* --- PANELS -- */ /* */ /* Module: TEMPLATE */ /* */ /* Language : ISPF Panel*/ /* */ /* Function : Show displayable chars in graphical escape mode */ /* */ /* Author: www.schlabb.de*/ /* */ /* Date created : April 21st 2009 */ /* */ /* - */ )ATTR % TYPE(TEXT)COLOR(WHITE
Help with FTP MKD using LIKE?
Dear FTP Friends, I have been moving z/OS PDS datasets using FTP between two z/OS V1R13 systems. I was told I don't have to pre-allocate the datasets if I use LIKE with MKD. I tried: MKD 'VPS.PARMLIB1' - LIKE 'VPS.PARMLIB3' CD 'VPS.PARMLIB1' LCD 'VPS.PARMLIB1' MPUT * QUIT This didn't work: EZA1736I MKD 'VPS.PARMLIB1' - EZA1542I Usage: MKDIR directory .(like local_mvs_directory. EZA1735I Std Return Code = 44000, Error Code = 7 I tried: MKD 'VPS.PARMLIB1' LIKE 'VPS.PARMLIB3' CD 'VPS.PARMLIB1' LCD 'VPS.PARMLIB1' MPUT * QUIT This didn't work: EZA1736I MKD 'VPS.PARMLIB1' LIKE 'VPS.PARMLIB3' EZA1542I Usage: MKDIR directory .(like local_mvs_directory. EZA1735I Std Return Code = 44000, Error Code = 7 I tried: MKD VPS.PARMLIB1 (LIKE 'VPS.PARMLIB3' CD VPS.PARMLIB1 LCD VPS.PARMLIB1 MPUT * QUIT This didn't work: EZA1736I MKD VPS.PARMLIB1 (LIKE 'VPS.PARMLIB3' EZA1542I Usage: MKDIR directory .(like local_mvs_directory. EZA1735I Std Return Code = 44000, Error Code = 7 I tried: MKD VPS.PARMLIB1 (LIKE 'VPS.PARMLIB3' CD VPS.PARMLIB1 LCD VPS.PARMLIB1 MPUT * QUIT This didn't work: EZA1736I MKD VPS.PARMLIB1 (LIKE 'VPS.PARMLIB3' EZA1701I MKD VPS.PARMLIB1 (LIKE 'VPS.PARMLIB3' 501 A qualifier in VPS.PARMLIB1 (LIKE 'VPS.PARMLIB3' is more than 8 characters EZA1735I Std Return Code = 44501, Error Code = 2 OK, What am I missing? Many thanks in advance. Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Help with FTP MKD using LIKE?
Rob, Thank you for your quick response. Not having the (LIKE in quotes did it. Advance to GO and collect $200! Thanks again, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Klan, Rob (RET-DAY) Sent: Wednesday, July 24, 2013 12:20 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Help with FTP MKD using LIKE? Darnthought I had pasted actual results for you Below is those results , , , PASS, ,230 UKLANRX is logged on. Working directory is UKLANRX.., ,Command:, mkdir 'uklanrx.jcl.cntlx' (like 'uklanrx.jcl.cntl' , SITE PDSTYPE=PDS RECFM=FB BLKSIZE=5680 DIRECTORY=130 LRECL=80 PRIMARY=120, , SECONDARY=0 TRACKS, ,200 SITE command was accepted, , MKD 'uklanrx.jcl.cntlx', ,257 'UKLANRX.JCL.CNTLX' created., ,Command:, -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Hansen, Dave L - Eagan, MN Sent: Wednesday, July 24, 2013 1:09 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Help with FTP MKD using LIKE? Dear FTP Friends, I have been moving z/OS PDS datasets using FTP between two z/OS V1R13 systems. I was told I don't have to pre-allocate the datasets if I use LIKE with MKD. I tried: MKD 'VPS.PARMLIB1' - LIKE 'VPS.PARMLIB3' CD 'VPS.PARMLIB1' LCD 'VPS.PARMLIB1' MPUT * QUIT This didn't work: EZA1736I MKD 'VPS.PARMLIB1' - EZA1542I Usage: MKDIR directory .(like local_mvs_directory. EZA1735I Std Return Code = 44000, Error Code = 7 I tried: MKD 'VPS.PARMLIB1' LIKE 'VPS.PARMLIB3' CD 'VPS.PARMLIB1' LCD 'VPS.PARMLIB1' MPUT * QUIT This didn't work: EZA1736I MKD 'VPS.PARMLIB1' LIKE 'VPS.PARMLIB3' EZA1542I Usage: MKDIR directory .(like local_mvs_directory. EZA1735I Std Return Code = 44000, Error Code = 7 I tried: MKD VPS.PARMLIB1 (LIKE 'VPS.PARMLIB3' CD VPS.PARMLIB1 LCD VPS.PARMLIB1 MPUT * QUIT This didn't work: EZA1736I MKD VPS.PARMLIB1 (LIKE 'VPS.PARMLIB3' EZA1542I Usage: MKDIR directory .(like local_mvs_directory. EZA1735I Std Return Code = 44000, Error Code = 7 I tried: MKD VPS.PARMLIB1 (LIKE 'VPS.PARMLIB3' CD VPS.PARMLIB1 LCD VPS.PARMLIB1 MPUT * QUIT This didn't work: EZA1736I MKD VPS.PARMLIB1 (LIKE 'VPS.PARMLIB3' EZA1701I MKD VPS.PARMLIB1 (LIKE 'VPS.PARMLIB3' 501 A qualifier in VPS.PARMLIB1 (LIKE 'VPS.PARMLIB3' is more than 8 characters EZA1735I Std Return Code = 44501, Error Code = 2 OK, What am I missing? Many thanks in advance. Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
ISRE093 - In Use ** Imacro problem **
Dear Masters of MVS IMACROS, We are running z/OS V1R13 and I have coded two macros from the ISPF Edit and Edit Macros book. I created ISRIMBED: ADDRESS ISPEXEC ISREDIT MACRO (MEMBER) /* Member name passed */ /* as input */ ISREDIT LINE_AFTER .ZL='MEMBER MEMBER' /* Add member ID line */ ISREDIT (LINENBR) = LINENUM .ZL/* Get line number */ ISREDIT COPY AFTER .ZL MEMBER /* Copy member at end */ ISREDIT (NEWLL) = LINENUM .ZL /* Get new last line# */ IF LINENBR = NEWLL THEN /* If no data was */ EXIT 8/* copied, then exit */ ELSE DO NEWNBR = LINENBR + 1 ISREDIT LABEL NEWNBR= .FIRST /* Label first */ /* line copied*/ ISREDIT RESET EXCLUDED /* Make sure there are */ /* no previously */ /* excluded lines*/ ISREDIT EXCLUDE ALL .FIRST .ZL /* Exclude newly */ /* copied lines */ ISREDIT FIND ALL .IM 1 .FIRST .ZL /* Show lines */ FINDRC = LASTCC /* containing .im */ /* in column 1 */ ISREDIT DELETE ALL X .FIRST .ZL /* Delete any lines*/ /* still excluded*/ ISREDIT (NEWLL) = LINENUM .ZL /* Update last line*/ /* number after delete */ IF FINDRC = 0 THEN/* If .im was found */ DO WHILE (LINENBR NEWLL) /* for all remaining */ /* copied lines */ LINENBR = LINENBR + 1/* Shift all .im */ ISREDIT SHIFT LINENBR ) 8 /* lines right 8 */ END END EXIT 1 /* Place cursor on */ /* command line */ ISRIMBED reads LIST: .im imbedname1 ** .im imbedname2 ** .im imbedname3 This works great! I also created ISRMBRS: 'ISREDIT MACRO (NESTMAC)' /*/ /* Get dataid for data set and issue LMOPEN */ /*/ 'ISREDIT (DATA1) = DATAID' 'ISREDIT (CURMEM) = MEMBER' Address ispexec 'LMOPEN DATAID('data1') OPTION(INPUT)' member = ' ' lmrc = 0 /*/ /* Loop through all members in the PDS, issuing the EDIT service for */ /* each. The macro specified on the ALLMEMS invocation is passed as */ /* an initial macro on the EDIT service call.*/ /*/ Do While lmrc = 0 Address ispexec 'LMMLIST DATAID('data1') OPTION(LIST), MEMBER(MEMBER) STATS(NO)' lmrc = rc If lmrc = 0 member = curmem Then do Say 'Processing member' member Address ispexec 'EDIT DATAID('data1') MEMBER('member') MACRO('nestmac')' end End /*/ /* Free the member list and close the dataid for the PDS.*/ /*/ Address ispexec 'LMMLIST DATAID('data1') OPTION(FREE)' Address ispexec 'LMCLOSE DATAID('data1')' Exit 0 From a test library (PMSBDH.IMACRO.TEST), not in my concatenation I EDIT a member named TEST and key ISRMBRS ISRIMBED. This keeps failing saying the member is in use. I did an ALTLIB Add to concatenate my PMSBDH.IMACRO Library. It says PMSBDH.IMACRO.TEST(TEST) is in use by PMSBDH (me). If I look at the message ISRE093 it says Or release the member from another logical screen. I keep logging off and back on. But this does not resolve the issue. The MACRO appears to be running as designed. I pass ISRIMBED to ISRMBRS. I get the dataid for the data set and issue the LMOPEN. My last instruction is EDIT DATAID(ISR1) MEMBER(TEST ) MACRO(isrimbed). Q). What am I missing? The only thing I saw in tracing was the MEMBER name had blanks at the end in the EDIT DATAID Call. How did I get a lock on my own TEST member? Thanks again, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
FW: FW: ISRE093 - In Use ** Imacro problem **
Dear List Groups, Thank you for the replies. I had a few things going on. #1). I cut and pasted the example from the book. I lost my quotes and had to put them back. As pointed out, the NOT EQUAL did not come across either. Also as pointed out, I can't EDIT what I'm already editing and a point was made for starting with VIEW instead of EDIT. #2). I changed the sample ISRIMBED to check that something valid got passed as the LIST name. I also changed the sample ISRMBRS to check that something valid got passed as the MACRO name. I identified I was trying to pass two parameters instead of one. ISRMBRS wants a MACRO name. If I gave it ISRSLREX and it worked fine because ISRSLREX didn't need any parameters. However ISRIMBED wants the LIST dataset name. I saw how they handled parameter lists in ISRCHGS. Thanks again for all the help I received on this. I also have been trying to convert from the CLIST look to the REXX look. I found some keywords like LINE needed the COL (like in ISRBOX) and I couldn't use COL. Have a great weekend, Dave -Original Message- From: ISPF discussion list [mailto:isp...@listserv.nd.edu] On Behalf Of Jeffrey Ranney Sent: Friday, July 05, 2013 12:33 PM To: isp...@listserv.nd.edu Subject: Re: FW: ISRE093 - In Use ** Imacro problem ** Mr Prins hit the nail on the proverbial head... -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Help with Netstat Portl?
Lizette, Thank you for pointing out EZANS. It does provide the ability to scroll up and down the PORTList. There also is a [NetView] NV for z/OS V5R4 V6R1 IP Management Rapid (Installation) Results Package (zNVIPMGT RRP) from Mr. Castiglia. Do you know what zNVIPMGT will do for me? It sounds like I can rapidly manage IP (and maybe PORTLists). Thank you, Dave -Original Message- From: Lizette Koehler [mailto:stars...@mindspring.com] Sent: Friday, June 28, 2013 7:39 PM To: 'IBM Mainframe Discussion List' Cc: Hansen, Dave L - Eagan, MN Subject: RE: Help with Netstat Portl? The EZANS Tool has now been made a real tool (don't worry - it is still for free). You can go to the following web site to down-load the latest version, which supports z/OS releases from V1R4 through V1R12. The official name of the tool now is: The IBM z/OS Communications Server Network Utility Assistant http://www.ibm.com/support/docview.wss?uid=swg24029203 I have incorporated solutions for all known problems. I will continue to request that you send me a note if you discover things that do not work as they should, or if you have suggestions for improvements. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Hansen, Dave L - Eagan, MN Sent: Friday, June 28, 2013 9:00 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: FW: Help with Netstat Portl? Dear List, I worked with IBM and found out TSO NETSTAT does not support the MAXRECS parameter. ONLY TSO NETSTAT supports REPORT which means you don't need to scroll through the display realtime. Have a good weekend, Dave From: Hansen, Dave L - Eagan, MN Sent: Wednesday, June 26, 2013 10:57 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Help with Netstat Portl? Dear Portlisters, We are running z/OS V1R13. If I go to TSO and enter Netstat Portl my display is not limited by MAXRECs from the Global Configuration: D TCPIP,,NETSTAT,CONFIG GLOBAL CONFIGURATION INFORMATION: TCPIPSTATS: NO ECSALIMIT: 000K POOLLIMIT: 000K MLSCHKTERM: NO XCFGRPID:IQDVLANID: 0 SYSPLEXWLMPOLL: 060 MAXRECS: 100 EXPLICITBINDPORTRANGE: 0-0 IQDMULTIWRITE: YES AUTOIQDX: ALLTRAFFIC WLMPRIORITYQ: NO If I look at the Portl Help I get: D TCPIP,TCPDFLT,HELP,PORTL EZZ0380I D...NETSTAT,PORTLIST,FORMAT=LONG|SHORT It looks like there is a difference between the System Console and TSO. From the System Console: D TCPIP,TCPDFLT,NETSTAT,PORTL 100 OF 1797 RECORDS DISPLAYED D TCPIP,TCPDFLT,NETSTAT,PORTL,MAX=200 == This worked! == 200 OF 1797 RECORDS DISPLAYED END OF THE REPORT D TCPIP,TCPDFLT,PORTL,FORMAT=LONG EZZ0401I SYNTAX ERROR IN FILE: CONSOLE ON LINE: 1 AT: ',' EZZ0371I D...(NETSTAT|HELP|DISPLAY|VARY|OMPROUTE|OSAINFO| 198 EZZ0371I SYSPLEX|STOR) From TSO: Netstat Portl - Runs like a Deer! Hope you don't have 1797 ports. Netstat Portl,max=200 Incorrect Option: PORTL,MAX=200 Netstat Portl,Format=Long Incorrect option: PORTL,FORMAT=LONG Q). How do you limit the TSO Netstat Portl? Q). How do you get the Netstat Portl Long Format to work with TSO (Or the System Console? Many thanks in advance, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
FW: Help with Netstat Portl?
Dear List, I worked with IBM and found out TSO NETSTAT does not support the MAXRECS parameter. ONLY TSO NETSTAT supports REPORT which means you don't need to scroll through the display realtime. Have a good weekend, Dave From: Hansen, Dave L - Eagan, MN Sent: Wednesday, June 26, 2013 10:57 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Help with Netstat Portl? Dear Portlisters, We are running z/OS V1R13. If I go to TSO and enter Netstat Portl my display is not limited by MAXRECs from the Global Configuration: D TCPIP,,NETSTAT,CONFIG GLOBAL CONFIGURATION INFORMATION: TCPIPSTATS: NO ECSALIMIT: 000K POOLLIMIT: 000K MLSCHKTERM: NO XCFGRPID:IQDVLANID: 0 SYSPLEXWLMPOLL: 060 MAXRECS: 100 EXPLICITBINDPORTRANGE: 0-0 IQDMULTIWRITE: YES AUTOIQDX: ALLTRAFFIC WLMPRIORITYQ: NO If I look at the Portl Help I get: D TCPIP,TCPDFLT,HELP,PORTL EZZ0380I D...NETSTAT,PORTLIST,FORMAT=LONG|SHORT It looks like there is a difference between the System Console and TSO. From the System Console: D TCPIP,TCPDFLT,NETSTAT,PORTL 100 OF 1797 RECORDS DISPLAYED D TCPIP,TCPDFLT,NETSTAT,PORTL,MAX=200 == This worked! == 200 OF 1797 RECORDS DISPLAYED END OF THE REPORT D TCPIP,TCPDFLT,PORTL,FORMAT=LONG EZZ0401I SYNTAX ERROR IN FILE: CONSOLE ON LINE: 1 AT: ',' EZZ0371I D...(NETSTAT|HELP|DISPLAY|VARY|OMPROUTE|OSAINFO| 198 EZZ0371I SYSPLEX|STOR) From TSO: Netstat Portl - Runs like a Deer! Hope you don't have 1797 ports. Netstat Portl,max=200 Incorrect Option: PORTL,MAX=200 Netstat Portl,Format=Long Incorrect option: PORTL,FORMAT=LONG Q). How do you limit the TSO Netstat Portl? Q). How do you get the Netstat Portl Long Format to work with TSO (Or the System Console? Many thanks in advance, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Help with Netstat Portl?
Dear Portlisters, We are running z/OS V1R13. If I go to TSO and enter Netstat Portl my display is not limited by MAXRECs from the Global Configuration: D TCPIP,,NETSTAT,CONFIG GLOBAL CONFIGURATION INFORMATION: TCPIPSTATS: NO ECSALIMIT: 000K POOLLIMIT: 000K MLSCHKTERM: NO XCFGRPID:IQDVLANID: 0 SYSPLEXWLMPOLL: 060 MAXRECS: 100 EXPLICITBINDPORTRANGE: 0-0 IQDMULTIWRITE: YES AUTOIQDX: ALLTRAFFIC WLMPRIORITYQ: NO If I look at the Portl Help I get: D TCPIP,TCPDFLT,HELP,PORTL EZZ0380I D...NETSTAT,PORTLIST,FORMAT=LONG|SHORT It looks like there is a difference between the System Console and TSO. From the System Console: D TCPIP,TCPDFLT,NETSTAT,PORTL 100 OF 1797 RECORDS DISPLAYED D TCPIP,TCPDFLT,NETSTAT,PORTL,MAX=200 == This worked! == 200 OF 1797 RECORDS DISPLAYED END OF THE REPORT D TCPIP,TCPDFLT,PORTL,FORMAT=LONG EZZ0401I SYNTAX ERROR IN FILE: CONSOLE ON LINE: 1 AT: ',' EZZ0371I D...(NETSTAT|HELP|DISPLAY|VARY|OMPROUTE|OSAINFO| 198 EZZ0371I SYSPLEX|STOR) From TSO: Netstat Portl - Runs like a Deer! Hope you don't have 1797 ports. Netstat Portl,max=200 Incorrect Option: PORTL,MAX=200 Netstat Portl,Format=Long Incorrect option: PORTL,FORMAT=LONG Q). How do you limit the TSO Netstat Portl? Q). How do you get the Netstat Portl Long Format to work with TSO (Or the System Console? Many thanks in advance, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
OMVS OEDIT invocation help?
Dear Shell people, Is there an OMVS ListServ? Some time ago I had a problem with OMVS and getting OEDIT to work. I posted what our script did. As I remember it just did an OMVS Lines.. command. I couldn't find what it did that enabled OEDIT to work. I was told use TSO OMVS and not =6 OMVS. Sure enough I could OEDIT a file if I used TSO OMVS. Now neither works and the dude has left. My log is easy. I enter oedit testfile and the screen blinks only to return the prompt so I can enter the same command again. We are running z/OS V1R13. Created with touch testfile and chmod 755 testfile. Q). How can I debug this? Q). Anyone else seen this? Q). Should something be in a log somewhere? Confused, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: OMVS OEDIT invocation help?
Thank you. I will check my logon proc. An ALTADD of SYS1.SBPXEXEC resolved the issue. Thanks again, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Mark Zelden Sent: Thursday, June 20, 2013 2:28 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: OMVS OEDIT invocation help? On Thu, 20 Jun 2013 19:00:27 +, Hansen, Dave L - Eagan, MN dave.l.han...@usps.gov wrote: Dear Shell people, Is there an OMVS ListServ? Some time ago I had a problem with OMVS and getting OEDIT to work. I posted what our script did. As I remember it just did an OMVS Lines.. command. I couldn't find what it did that enabled OEDIT to work. I was told use TSO OMVS and not =6 OMVS. Sure enough I could OEDIT a file if I used TSO OMVS. Now neither works and the dude has left. My log is easy. I enter oedit testfile and the screen blinks only to return the prompt so I can enter the same command again. We are running z/OS V1R13. Created with touch testfile and chmod 755 testfile. Q). How can I debug this? Q). Anyone else seen this? Q). Should something be in a log somewhere? Use the DDLIST command (or TSO ISRDDN) to see if SYS1.SBPXEXEC is in your SYSEXEC or SYSPROC concatenation. If not, add it to the logon PROC or logon CLIST/EXEC or create a CLIST / EXEC that adds it via ALTLIB. The former is a better option otherwise you need to execute the ALTLIB exec after you enter ISPF and need to use things like ISHELL, OEDIT, OBROWSE, etc. There are also various freeware utilities that will re-allocate your entire contention for for SYSPROC/SYSEXEC that could be used or one of the utilities that just adds it to the existing concatenation. Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS mailto:m...@mzelden.com Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html Systems Programming expert at http://expertanswercenter.techtarget.com/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Batch TSO COPY?
Group, I have a copy of the old TSO DATA Utilities SC28-6765-4. I have it working. It helps when you can find documentation. We do not have the help file loaded and I didn't have a book or know what I was talking about. I am still learning more about the MVS utilities. I did learn about SMC (SMCOPY - documented in the TSO/E User's Guide etc.) thanks to Greg's post. I was asked why I would use such an old thing. I came from the VM/VSE side of the house and have been using COPY for a while on MVS. I now know about SMCOPY and should probably use that. The goal is to run a batch job to distribute files. The first job took a printer definition and split it into two different printer definitions so job class would now select which one to use. I have over 500 printer members and didn't want any more practice with the 3.3 panel utility. Thanks again for all the help and suggestions, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of R.S. Sent: Tuesday, June 18, 2013 3:51 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Batch TSO COPY? W dniu 2013-06-18 20:32, Greg Dorner pisze: This works for me: //COPYEXEC PGM=IKJEFT01 //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * SMC FDS('XX.X...()') + TDS('...XXX()') -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN What is the original problem? What goal is to be achieved? If we talk about copying files in batch, then tools like IEBGENER, ICEGENER, IEBCOPY, IDCAMS, DSS come to mind. If we talk about some abstract excercise then I give up. -- Radoslaw Skorupka Lodz, Poland -- Treść tej wiadomości może zawierać informacje prawnie chronione Banku przeznaczone wyłącznie do użytku służbowego adresata. Odbiorcą może być jedynie jej adresat z wyłączeniem dostępu osób trzecich. Jeżeli nie jesteś adresatem niniejszej wiadomości lub pracownikiem upoważnionym do jej przekazania adresatowi, informujemy, że jej rozpowszechnianie, kopiowanie, rozprowadzanie lub inne działanie o podobnym charakterze jest prawnie zabronione i może być karalne. Jeżeli otrzymałeś tę wiadomość omyłkowo, prosimy niezwłocznie zawiadomić nadawcę wysyłając odpowiedź oraz trwale usunąć tę wiadomość włączając w to wszelkie jej kopie wydrukowane lub zapisane na dysku. This e-mail may contain legally privileged information of the Bank and is intended solely for business use of the addressee. This e-mail may only be received by the addressee and may not be disclosed to any third parties. If you are not the intended addressee of this e-mail or the employee authorised to forward it to the addressee, be advised that any dissemination, copying, distribution or any other similar activity is legally prohibited and may be punishable. If you received this e-mail by mistake please advise the sender immediately by using the reply facility in your e-mail software and delete permanently this e-mail including any copies of it either printed or saved to hard drive. BRE Bank SA, 00-950 Warszawa, ul. Senatorska 18, tel. +48 (22) 829 00 00, fax +48 (22) 829 00 33, www.brebank.pl, e-mail: i...@brebank.pl Sąd Rejonowy dla m. st. Warszawy XII Wydział Gospodarczy Krajowego Rejestru Sądowego, nr rejestru przedsiębiorców KRS 025237, NIP: 526-021-50-88. Według stanu na dzień 01.01.2013 r. kapitał zakładowy BRE Banku SA (w całości wpłacony) wynosi 168.555.904 złotych. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: z/OS VSAM FTP Advice?
Steve, Thank you for your suggestion. I have worked with EDI, but it didn't come to mind. This listserv really helps many of us out. Thanks again, Dave -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Steve Thompson Sent: Wednesday, May 15, 2013 4:48 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: z/OS VSAM FTP Advice? From: Hansen, Dave L - Eagan, MN dave.l.han...@usps.gov Date: 05/15/2013 05:31 PM Dear Group, I have been looking at ways to FTP VSAM files between two z/OS systems. I learned that VSE totally supports FTPing of VSAM files, even when VSE is the server. But I don't have a VSE system to bounce my z/OS VSAM files off of. I found something called DDMFTP from the Microsoft Developers Network that works with the Host Integration Server 2004 using the stream input/output protocol of the IBM Distributed Data Management (DDM) architecture. It interoperates with a specific target DDM server implementation called IBM Distributed FileManager. The DDM server is available as a component of the IBM Data Facility Storage Management Subsystem (DFSMS). Does other software work with IBM's Distributed FileManager? I think I figured out VSAM is not supported under z/OS FTPD. To move a VSAM file it looks like I need to convert it to a flat file. Once you move the flat file you have all the VSAM work to get it back into a cluster. Q). Are there any other options (or software) I may be missing to move VSAM clusters between data centers? --- I think you will find that Connect:Direct for z/OS will do this for you. And if you configure it, you can have the data encrypted across the wire -- assuming that security is a concern. You could do an ADRDSSU to dump the VSAM cluster, then FTP the dumpds to the other z/OS system, where you can take ADRDSSU to restore it. Regards, Steve Thompson formerly of the MFT group at IBM (still w/ IBM, just diff group) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
FW: Help with IBM Session Mgr Script
Group, Got no takers on this one. I asked IBM for help and they were very kind once again: *** Extract of IBM PMR *** The Waitappl for non-SNA sessions is looking for a 3270 WCC with the keyboard restore bit set from TSO. A non-SNA LU0 needs TSO to send the WCC to unlock the keyboard. With SNA LU2, the RU with EB (End-Bracket) or CD (Change Direction) will cause the keyboard to unlock and does not need the 3270 WCC keyboard restore flow. As for the reasons for WAITAPPL for both SNA and non-SNA, it is best to look at the actual 3270 flow for both types of sessions and then ensure the script handles the output flows. A simple method of doing this is to issue the ISM STARTSC OFF for your TSO session number to disable the startscript processing. Then issue the ISM command RECORD ON from the menu and then proceed to logon to TSO. When you get to where you no longer want ISM startscript to automate the logon, escape to the ISM menu and issue the RECORD OFF command. Now issue the ISM REPLAY command. In my example below, I logged on using a non-SNA LU. -- REPLAYX TN32 091C2F21 ID RECORD Title --- 001 S EWRT 002 O EWRT 'Session st' 003 O EWRT 'Session Es' 004 O EWRT 005 O EWRT 'WINMVS23' 006 I ENTER 'logon appl' 007 O EWRTA '*-' 008 O WRT 009 I ENTER 010 O EWRT '--' 011 I ENTER 'passwrd' 012 O EWRT 013 O EWRT 014 O WRT 'ICH70001I' 015 O WRT 'IKJEFLD3' 016 O WRT '***' 017 I ENTER 018 O EWRTA 'something else' 019 O WRT 'tsolib act' 020 O WRT 'READY ' 021 O WRT 022 I ENTER '@@' 023 O WRT 'COMMAND @@' 024 O WRT 'READY ' 025 O WRT 026 I ENTER 'pdf' 027 O WSF 028 O EWRTA '. Menu Uti' 029 E EWRTA '. Menu Uti' Use the PF11 key on the REPLY panel to view the details of the records. Those with an 'O' type are output records that the WAITAPPL would look for. My record id 008 resets the keyboard from the TSO logon flow. - DEC HEX Record 008 O WRT Length 2 X'0002' 0 X'F1C2' CMD - WRT WCC (RESTKB) - There is no cheat sheet but this is a good method to understand what your TSO LOGON script needs to wait for in the output flows. *** End of extract of IBM PMR *** It's been a long time since I've been involved analyzing these flows. I wrote this one down. Thank you, Dave From: Hansen, Dave L - Eagan, MN Sent: Friday, May 10, 2013 1:43 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Help with IBM Session Mgr Script Fellow Scripters, We are running z/OS V1R13 and IBM Session Manager (ISM) 3.100B. Currently there is an OPEN APAR PM86725 regarding using the wrong logmode for mod 5 terminals. The users are complaining it takes too long to logon so I have been looking at our TSO LOGON script and I have a few questions. I do not see anything in our scripts checking if t_model is set to 5. But I am seeing a difference between SNA and NON-SNA. Years ago there was real 3270 CUT, DFT etc. I guess I look at the session manager like my old NCR/COMTEN NCP. The remote network was SNA and the host was not. SRM resided in an NCR Comten Communications Processor (CP) where it performs switching functions that allow BSC and SNA 3270 devices to communicate selectively with any of up to 31 different host access methods. Currently terminals bind to the session manager from TN3270 which can be SNA or not. Once at the session manager main screen you can select your logmode to the application which can be SNA or not. I mainly use D4A32793 which is SNA. I can also use D4B32793 which is not SNA. The application works fine with the terminal and I don't see a difference between the logmodes when binding to the application. Here is what we have in our TSO LOGON script: First part of current script - Enter our userid: Domax 10 appltime 10 Do until found Waitappl If noresp Let t_message = 'Timed out - User prompt' Endsess Return End Outscan 'ENTER' End The next section is supposedly required for NON-SNA for a write to restore the keyboard: If s_sna = 'N' Waitappl End Input sba 2 1 text t_user Key enter I don't see any examples in the book regarding S for ACTIVE SNA sessions or N for ACTIVE NON-SNA sessions. A WAITAPPL is getting output from the APPL. Q). Do I need this Waitappl for NON-SNA sessions? The First part (above) entered the TSO userid. The second part (not shown) is just like the First part except it enters the password and does an outscan for 'TSO/E LOGON'. The next section has code for both SNA and NON-SNA. I assume the pause is for the operator to see the screen. The users
z/OS VSAM FTP Advice?
Dear Group, I have been looking at ways to FTP VSAM files between two z/OS systems. I learned that VSE totally supports FTPing of VSAM files, even when VSE is the server. But I don't have a VSE system to bounce my z/OS VSAM files off of. I found something called DDMFTP from the Microsoft Developers Network that works with the Host Integration Server 2004 using the stream input/output protocol of the IBM Distributed Data Management (DDM) architecture. It interoperates with a specific target DDM server implementation called IBM Distributed FileManager. The DDM server is available as a component of the IBM Data Facility Storage Management Subsystem (DFSMS). Does other software work with IBM's Distributed FileManager? I think I figured out VSAM is not supported under z/OS FTPD. To move a VSAM file it looks like I need to convert it to a flat file. Once you move the flat file you have all the VSAM work to get it back into a cluster. Q). Are there any other options (or software) I may be missing to move VSAM clusters between data centers? Thank you, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Help with IBM Session Mgr Script
Fellow Scripters, We are running z/OS V1R13 and IBM Session Manager (ISM) 3.100B. Currently there is an OPEN APAR PM86725 regarding using the wrong logmode for mod 5 terminals. The users are complaining it takes too long to logon so I have been looking at our TSO LOGON script and I have a few questions. I do not see anything in our scripts checking if t_model is set to 5. But I am seeing a difference between SNA and NON-SNA. Years ago there was real 3270 CUT, DFT etc. I guess I look at the session manager like my old NCR/COMTEN NCP. The remote network was SNA and the host was not. SRM resided in an NCR Comten Communications Processor (CP) where it performs switching functions that allow BSC and SNA 3270 devices to communicate selectively with any of up to 31 different host access methods. Currently terminals bind to the session manager from TN3270 which can be SNA or not. Once at the session manager main screen you can select your logmode to the application which can be SNA or not. I mainly use D4A32793 which is SNA. I can also use D4B32793 which is not SNA. The application works fine with the terminal and I don't see a difference between the logmodes when binding to the application. Here is what we have in our TSO LOGON script: First part of current script - Enter our userid: Domax 10 appltime 10 Do until found Waitappl If noresp Let t_message = 'Timed out - User prompt' Endsess Return End Outscan 'ENTER' End The next section is supposedly required for NON-SNA for a write to restore the keyboard: If s_sna = 'N' Waitappl End Input sba 2 1 text t_user Key enter I don't see any examples in the book regarding S for ACTIVE SNA sessions or N for ACTIVE NON-SNA sessions. A WAITAPPL is getting output from the APPL. Q). Do I need this Waitappl for NON-SNA sessions? The First part (above) entered the TSO userid. The second part (not shown) is just like the First part except it enters the password and does an outscan for 'TSO/E LOGON'. The next section has code for both SNA and NON-SNA. I assume the pause is for the operator to see the screen. The users are complaining about slow response time so I was going to remove it. Do until found If s_sna = 'S' Waitappl DISPLAY Pause 2 Else Waitappl End If noresp Endsess Return End ..(other code) End So for ACTIVE NON-SNA sessions I once again do a waitappl. But what's different is for ACTIVE SNA sessions. For these I see a waitappl DISPLAY and a pause. The waitappl is the last waitappl so it will default to DISPLAY. Q). Why do I need a waitappl for both the ACTIVE SNA and ACTIVE NON-SNA sessions when in the First part (above) we only do a waitappl for ACTIVE NON-SNA sessions? Have a great weekend, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Load Balancing and Interface Statements - LanGroup?
Valued helpers, We are running z/OS v1R13 and I am now looking at LanGroups. We changed from DEVICE/LINK statements to INTERFACE statements in our TCP/IP Config. Now I have one LanGroup and one VipaOwner instead of four LanGroups and four VipaOwners. I have looked through the IP Config reference and guide and I didn't find anything on LanGroups. I looked in the IP System administrator's commands under the Netstat Devlinks report and it talks about the IPv4 LAN Group Summary. It says The stack creates a LAN group when it detects redundant connectivity to a LAN. With DEVICE /LINK definitions: NETSTAT DEVL - LanGroup: 0001 NameStatus ArpOwnerVipaOwner --- --- - -- OSA9100LNK ACT OSA9100LNK Yes LanGroup: 0002 NameStatus ArpOwnerVipaOwner --- --- - -- OSA9000LNK ACT OSA9000LNK Yes LanGroup: 0003 NameStatus ArpOwnerVipaOwner --- --- - -- OSA9300LNK ACT OSA9300LNK Yes LanGroup: 0004 NameStatus ArpOwnerVipaOwner --- --- - -- OSA9200LNK ACT OSA9200LNK Yes With INTERFACE definitions: NETSTAT DEVL - LanGroup: 0001 NameStatus ArpOwnerVipaOwner --- --- - -- OSA9500LNK ACT OSA9500LNK No OSA9600LNK ACT OSA9600LNK No OSA9400LNK ACT OSA9400LNK Yes OSA9700LNK ACT OSA9700LNK No Q). Do these new LAN group assignments and VipaOwner assignments have any impact on Load Balancing across the four OSAs? Should we be concerned about these changes? Thank you, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
FW: [Service Request Helpdesk #290267] 290267
Valued Readers, I never heard back on this and called IBM. For a long time every time I print my IBM service request the first two lines of the next page are ‘missing”. However where these two lines should be printing is a big black bar that does not show up when viewing the SR. The big black bar only shows up at the top of the document when you view it before printing. I turned off headers and trailers and that only got rid of the “Page 1 of” at the top and the “https” at the bottom. I think this has been this way for a while. Have a good weekend, Dave -Original Message- From: srhelpd...@us.ibm.com [mailto:srhelpd...@us.ibm.com] Sent: Friday, February 15, 2013 2:11 PM To: Hansen, Dave L - Eagan, MN Subject: [Service Request Helpdesk #290267] 290267 Hello, I apologize for the inconvenience. This issue was reported as a bug to our application development team. I do not have a scheduled resolution date at this time, however this issue currently being reviewed. Thank you, IBM SR Support Team On Fri Feb 15 10:22:25 2013, dave.l.han...@usps.gov wrote: On Fri, Feb 15, 2013 at 11:20 AM (EST), an IBM support customer submitted the following information via the Customer Assistance page from IP address 9.57.56.253: Topic: sr Subject: Print lines missing Description: When printing multiple pages of an SR the top lines of the next page are not printed in a visible area. They are over printed with the big black bar that is at the top of the first page. The user group did not respond when asked if others had this problem. Other users here have the problem. But only with SRs. Thank you, Dave Web page URL: https://www-946.ibm.com/sr/help/sr_helpdesk.html The customer's information is: - Name: Mr. Dave Hansen - Company: USPS -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Service Request Print lines 'missing'?
Valued Readers, For a long time every time I print my IBM service request the first two lines of the next page are 'missing. However where these two lines should be printing is a big black bar that does not show up when viewing the SR. The big black bar only shows up at the top of the document when you view it before printing. I turned off headers and trailers and that only got rid of the Page 1 of at the top and the https at the bottom. Q). Is this a problem for lots of people? Q). Is there a fix so I don't have to hand write the two lines after printing? Many thanks in advance, Dave -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Static Vs Dynamic Routing 101 Question
Thank you Chris, I got some reading to do. You did a great job in putting this together for me. IBM and CISCO can come up with some interesting add-ons. Thanks again, Dave Dave Hansen Eagan Software Systems Branch 651-406-1208 dave.l.han...@usps.gov -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Chris Mason Sent: Sunday, November 25, 2012 4:53 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Static Vs Dynamic Routing 101 Question Dave Ideally questions regarding Communications Server, both the IP and SNA components, should be posed in the IBMTCP-L list: For IBMTCP-L subscribe / signoff / archive access instructions, send email to lists...@vm.marist.edu with the message: INFO IBMTCP-L However, since I'm here, I'll have a shot at providing an answer. I believe that static routes are always preferred over dynamic routes ... No. You need to become familiar with the description of the (NO)REPLACEABLE parameter of the ROUTE statement which, since it's not too much, the text of which follows: quote REPLACEABLE | NOREPLACEABLE Indicates whether or not the static route can be replaced by OMPROUTE and router advertisements when a dynamic route to the same destination is discovered. NOREPLACEABLE Indicates that static routes cannot be replaced by dynamic routes. The static route is always used to reach the destination, regardless of when dynamic routes are available. This is the default setting. This parameter can be abbreviated as NOREPL. REPLACEABLE Indicates that the static route can be replaced by OMPROUTE and router advertisements when a dynamic route to the same destination is discovered. This parameter can be abbreviated REPL. Restrictions: - Only one type (replaceable or nonreplaceable) of static route can be defined to the same destination. All static routes defined to a destination must match the type of the first static route defined to that destination. Any definitions that do not match that type are rejected. - Replaceable static routes cannot be defined to destination addresses that correspond to dynamic VIPAs for which the TCP/IP stack is a sysplex distributor target. Tip: You can use the Netstat ROUTE/-r RSTAT command to display all replaceable static routes currently configured. /quote http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/F1A1B4B1/2.9 With OMPROUTE (OSPF) does CommServer override ... a static route? Yes, if permitted by the specification of REPLACEABLE on the ROUTE statement. I am told the static routes in CommServer are only honoured until the dynamic routes get in the routing tables.[1] You have been told correctly - perhaps by someone who has read the description of the ROUTE statement - assuming, of course, that REPLACEABLE has been specified on the ROUTE statement. And then I'm told these dynamic routes will take preference to the static routes. The issue - and I mean issue in its traditional sense, not the recently emerged euphemism so favoured between the shining seas but most regrettably spreading throughout the supposedly English-speaking world - does not arise. The replaced static routes will have disappeared. Check the display of the routing table, the actual one, NETSTAT ROUTE, not the OMPROUTE one. Perhaps you need to appreciate that the IP logic of Communications Server provides an API for OMPROUTE to use in order to manage the routing table. I first encountered probably a rudimentary version of this API when teaching myself the socket API from the description of the C sockets API, the only API - not counting Pascal - at the time. Among the options of the ioctl() call, you find the so-called commands SIOCADDRT and SIOCDELRT. That - together with the rtrouteh.h structure - told me all I needed to know about how dynamic routing protocol programs worked. Does this mean that CommServer's OSPF can override ... a ... route that ... was established with a static definition? Yes. Be aware that the operation of the routing table can these days be adjusted by use of Policy-based routing - I assume based on the name of the function. This is a function with which I have yet to acquaint myself. http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/F1A1B3B1/1.6.17 - [1] Note that, since I was obliged to correct a couple of typos, I took a liberty in correcting another! - Chris Mason On Fri, 23 Nov 2012 11:42:27 -0600, Hansen, Dave L - Eagan, MN dave.l.han...@usps.gov wrote: Group, We are embattled over the question of static routes. We are running z/OS V1R13. I believe that static routes are always preferred over dynamic routes (there are some exceptions if the Administrative Distance - AD is changed). And that changing a static route requires manual intervention. Q). With OMPROUTE (OSPF) does CommServer override or reset a static route? I am told the static routes in CommServer are only
z/OS V1R13 problems with VV.MM = 'ALIAS' on 3.4?
Group, Does anyone else see 'ALIAS' as the VV.MM on 3.4 for TCPIP? MNPC#1 EDIT TCPIP.SEZAINSTRow 1 of 00680 Command === Scroll === PAGE Name Prompt SizeInit Mod VV MM ID _ ACLIENT ALIAS _ ACTIONS ALIAS The ISPF editor automatically generates and maintains statistics. Version Number is Initialized to 1 when the member is created. Modification Level is # of times version has been modified. Q). Should I see something other than 'ALIAS'? Thank you, Dave Dave Hansen Eagan Software Systems Branch 651-406-1208 dave.l.han...@usps.gov -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN