Re: Issues while trying to install COD
Hi, I have tried initiating IPL step 3 times. But in each time, the Operating systems messages panel shows the message interface unavailable message only. No other messages displaying in the screen. In the Guide, Under Restore topic, the below line is mentioned as a note. Depending on the version of ICKDSF you used, you may need to IPL the tape drive to get to the correct location of the DFDSS program They just mentioned the ICKDSF version in the highlighted manner. But they didnt specify the link between the Version and IPL process particularly. I mean whether its related to count(no of ipl) or something else(thru some command etc) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSORT/ICETOOL/ICEMAN: Grouping records
Many thx Kolusu, got it. On Wed, May 14, 2014 at 4:52 PM, Sri h Kolusu skol...@us.ibm.com wrote: Toni Cecil, It is quite easy to split the records into multiple files. You need to use OUTFIL processing. Since you are dealing with dataset names, I believe that your VOLSER name starts after 44 bytes as DSName can be a max of 44 bytes. So I assumed that the VOLSER starts at position 50. //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD * +1+2+3+4+5+6+ DSN1 CART1 DSN2 CART1 DSN3 CART1 DSN4 CART1 DSN5 CART2 DSN6 CART2 DSN7 CART3 DSN8 CART3 DSN9 CART3 //CART1DD SYSOUT=* //CART2DD SYSOUT=* //CART3DD SYSOUT=* //SYSINDD * OPTION COPY INREC BUILD=(C'HSEND WAIT RECALL ',1,44,81:50,8) OUTFIL FNAMES=CART1,INCLUDE=(81,5,CH,EQ,C'CART1'),BUILD=(1,80) OUTFIL FNAMES=CART2,INCLUDE=(81,5,CH,EQ,C'CART2'),BUILD=(1,80) OUTFIL FNAMES=CART3,INCLUDE=(81,5,CH,EQ,C'CART3'),BUILD=(1,80) //* or alternatively you can use the following control cards too if you need to build the output differently for each output file. //SYSINDD * OPTION COPY OUTFIL FNAMES=CART1,INCLUDE=(50,5,CH,EQ,C'CART1'), BUILD=(C'HSEND WAIT RECALL ',1,44,80:X) OUTFIL FNAMES=CART2,INCLUDE=(50,5,CH,EQ,C'CART2'), BUILD=(C'HSEND WAIT RECALL ',1,44,80:X) OUTFIL FNAMES=CART3,INCLUDE=(50,5,CH,EQ,C'CART3'), BUILD=(C'HSEND WAIT RECALL ',1,44,80:X) //* Further if you have any questions please let me know Thanks, Kolusu DFSORT Development From: Toni Cecil acbi...@gmail.com To: IBM-MAIN@listserv.ua.edu, Date: 05/14/2014 02:25 AM Subject:DFSORT/ICETOOL/ICEMAN: Grouping records Sent by:IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu Hello, can you pls give me an hint about how to use DFSORT to perform the following? input dsn: FB-80 with: dsn tape volser --- 1 1234567890123456 dsn1 cart1 dsn2 cart1 dsn3 cart1 dsn4 cart1 dsn5 cart2 dsn6 cart2 dsn7 cart3 dsn8 cart3 dsn9 cart3 I want to an outfile grouped by tape volser like this: outfile for cart1 with: HSEND WAIT RECALL dsn1 HSEND WAIT RECALL dsn2 HSEND WAIT RECALL dsn3 HSEND WAIT RECALL dsn4 outfile for cart2 with: HSEND WAIT RECALL dsn5 HSEND WAIT RECALL dsn6 I've seached on Smart DFSORT Tricks manual and on DFSORT Application Programming Guide but so far I didn't find the way. Many thx, A.Cecilio -- 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: Issues while trying to install COD
Please open a PMR. (Repost to list server...sorry for the double post.) Subscribe Nallasivam.V , IBM-MAIN wrote: Hi, I have tried initiating IPL step 3 times. But in each time, the Operating systems messages panel shows the message interface unavailable message only. No other messages displaying in the screen. In the Guide, Under Restore topic, the below line is mentioned as a note. Depending on the version of ICKDSF you used, you may need to IPL the tape drive to get to the correct location of the DFDSS program They just mentioned the ICKDSF version in the highlighted manner. But they didnt specify the link between the Version and IPL process particularly. I mean whether its related to count(no of ipl) or something else(thru some command etc) -- 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
Re: supervisor state vs. problem state
Could having a logical processor to physical processor ratio of greater than 2 (e.g. 8 logicals in a 3 CP cec) be bad? I'd say yes. What is it that you think you are gaining by having so many logical processors defined to an LPAR? Hiperdispatch, for example, parks processors that are viewed as extra. Peter Relson z/OS Core Technology Design -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IFASMFR
On Wed, 14 May 2014 17:07:00 -0400, Robert A. Rosenberg wrote: By having a dummy macro under the Operating System FMID (and supplying a SUPing copy of the Macro in the Component) ... It is possible to do that, not with SUP, but with VERSION. Doing so leads to other complications. It only works if DB2 is installed in the same target zone. That in turn requires that DB2 be reinstalled with each new version of the operating system. There are different complications when DB2 is installed in a different target zone than z/OS. If both products install the macro in SYS1.MACLIB, the effect is that the macro is updated outside of SMP/E with respect to the z/OS target zone. It gets worse if there are two versions of DB2 installed. If DB2 installs it in a different target library, care must be taken by all users of the macro to concatenate the DB2 MACLIB ahead of the z/OS MACLIB. -- Tom Marchant -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Somewhat OT: Another way to send messages to Android / iPhone / Desktop
I realize that most of the people here are not likely to be interested. But if, like me, you sometimes have problems getting timely SMS text messages from a z/OS (or other) system, this free product might be of some interest. https://pushover.net/ The major problem is that all the messages go through _their_ server(s). So, of course, this means don't use it for proprietary information or other restricted information. It appears that you cannot host your own server to do this. -- There is nothing more pleasant than traveling and meeting new people! Genghis Khan Maranatha! John McKown -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: supervisor state vs. problem state
In my previous response I took this to mean 8 lp/3 pp spread over several lpars. I agree that on a single lpar this would be *BAD*. snip Could having a logical processor to physical processor ratio of greater than 2 (e.g. 8 logicals in a 3 CP cec) be bad? I'd say yes. What is it that you think you are gaining by having so many logical processors defined to an LPAR? Hiperdispatch, for example, parks processors that are viewed as extra. Peter Relson z/OS Core Technology Design /snip -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Somewhat OT: Another way to send messages to Android / iPhone / Desktop
Sorry, it is free to send messages. But the client, installed on the device, costs money (one time charge). For a company, they do have a bulk rate. If I had seen that, I would not have posted the message. I ask forgiveness. On Thu, May 15, 2014 at 8:25 AM, John McKown john.archie.mck...@gmail.comwrote: I realize that most of the people here are not likely to be interested. But if, like me, you sometimes have problems getting timely SMS text messages from a z/OS (or other) system, this free product might be of some interest. https://pushover.net/ The major problem is that all the messages go through _their_ server(s). So, of course, this means don't use it for proprietary information or other restricted information. It appears that you cannot host your own server to do this. -- There is nothing more pleasant than traveling and meeting new people! Genghis Khan Maranatha! John McKown -- There is nothing more pleasant than traveling and meeting new people! Genghis Khan Maranatha! John McKown -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
FINDING CLUSTER NAME
G'Day, I am trying to find the CLUSTER name of the VSAM components. We have a daily diagnose job run on the volumes and it picked up the DATA INDEX components. IDC3302I ACTION ERROR ON SYS1.ICFCAT.APPLIC IDC3351I ** VSAM I/O RETURN CODE IS 16 - RPLFDBWD = X'93080010' IDC21364I ERROR DETECTED BY DIAGNOSE: VVDS ENTRY: HESP.BALFWD.DEFINE.DATA (Z) RECORD: X'0002C9AB' OFFSET: X'0002' REASON: 19 - CATLG ENTRY NOT FOUND IDC21365I VVDS RECORD DISPLAY: RECORD: X'0002C9AB' I do not want to delete them because I do not know who is the owner also, I do not know the impact it could cause. I would like to recatalog the CLUSTER however I do not know how I should go about finding the name. Can anybody suggest something that could help me track down the CLUSTER name? Thanks. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FINDING CLUSTER NAME
LISTC ENT(' HESP.BALFWD.DEFINE.DATA') ALL The cluster name will be in the specified in the output. The most likely name is ' HESP.BALFWD.DEFINE' snip I am trying to find the CLUSTER name of the VSAM components. We have a daily diagnose job run on the volumes and it picked up the DATA INDEX components. IDC3302I ACTION ERROR ON SYS1.ICFCAT.APPLIC IDC3351I ** VSAM I/O RETURN CODE IS 16 - RPLFDBWD = X'93080010' IDC21364I ERROR DETECTED BY DIAGNOSE: VVDS ENTRY: HESP.BALFWD.DEFINE.DATA (Z) RECORD: X'0002C9AB' OFFSET: X'0002' REASON: 19 - CATLG ENTRY NOT FOUND IDC21365I VVDS RECORD DISPLAY: RECORD: X'0002C9AB' I do not want to delete them because I do not know who is the owner also, I do not know the impact it could cause. I would like to recatalog the CLUSTER however I do not know how I should go about finding the name. Can anybody suggest something that could help me track down the CLUSTER name? /snip -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FINDING CLUSTER NAME
Allan, I tried out your suggestion however it didn't work : LISTC ENT('HESP.BALFWD.DEFINE.DATA') ALL IDC3012I ENTRY HESP.BALFWD.DEFINE.DATA NOT FOUND IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLEG-42 IDC1566I ** HESP.BALFWD.DEFINE.DATA NOT LISTED IDCAMS SYSTEM SERVICES On Thu, 15/5/14, Staller, Allan allan.stal...@kbmg.com wrote: Subject: Re: FINDING CLUSTER NAME To: IBM-MAIN@LISTSERV.UA.EDU Received: Thursday, 15 May, 2014, 11:42 PM LISTC ENT(' HESP.BALFWD.DEFINE.DATA') ALL The cluster name will be in the specified in the output. The most likely name is ' HESP.BALFWD.DEFINE' snip I am trying to find the CLUSTER name of the VSAM components. We have a daily diagnose job run on the volumes and it picked up the DATA INDEX components. IDC3302I ACTION ERROR ON SYS1.ICFCAT.APPLIC IDC3351I ** VSAM I/O RETURN CODE IS 16 - RPLFDBWD = X'93080010' IDC21364I ERROR DETECTED BY DIAGNOSE: VVDS ENTRY: HESP.BALFWD.DEFINE.DATA (Z) RECORD: X'0002C9AB' OFFSET: X'0002' REASON: 19 - CATLG ENTRY NOT FOUND IDC21365I VVDS RECORD DISPLAY: RECORD: X'0002C9AB' I do not want to delete them because I do not know who is the owner also, I do not know the impact it could cause. I would like to recatalog the CLUSTER however I do not know how I should go about finding the name. Can anybody suggest something that could help me track down the CLUSTER name? /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
TSO 3270 Data Stream question
Hi, I am doing TSO TPUTs in Full screen mode I copied some code from the following URL www.tommysprinkle.com/mvs/P3270/sbaxlate.com Which has code to translate a ROW and COLUMN into a sba (screen buffer address) I have 10 lines which I try to TPUT in lines 1 10 using the following codes X11XXYY1DF8 where XX and YY is the screen buffer address. I do fine till row 5 After which my TSO terminal emulater gives me error invald buffer address 2260 as I have a 24 x 80 screen wih 1.920 postions the sba code is E3 D4 Listed below ithe code used to translate the the row and column Thanks SET_BUF DS 0H ST XLNK,SAVE_BUF L R0,ROW L R1,COL BCTR R0,0 BCTR R1,0 MHR0,=H'80' ARR1,R0 SLL R1,2 STCM R1,B'0010',SBACMD SRL R1,2 STCM R1,B'0001',SBACMD+1 NCSBACMD(2),=X'3F3F' TRSBACMD(2),TABLE L XLNK,SAVE_BUF BRXLNK TABLEDCX'40C1C2C3C4C5C6C7C8C94A4B4C4D4E4F' ABCDEFGHI¢.(+| DCX'50D1D2D3D4D5D6D7D8D95A5B5C5D5E5F' JKLMNOPQR!$*);¬ DCX'6061E2E3E4E5E6E7E8E96A6B6C6D6E6F' -/STUVWXYZ¦,%_? DCX'F0F1F2F3F4F5F6F7F8F97A7B7C7D7E7F' 0123456789:#@'= -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TSO 3270 Data Stream question
I agree that decimal location 2260 could be addressed by using the 3270 order x'11E3D4' in 12-bit addressing mode. For a 24 by 80 screen, column 1 of row 5 means decimal location 4 x 80 which is 320. For this location I would expect the order x'11C540'. Cheers, Greg -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
V2.1 TCPIP Obey SYNTAXCHECK Coexistence
Hi All. Posting here and on the TCPIP list. In doing some dynamic VIPA changes with an associate, the coded OBEY member had some syntax issues. I went searching for a syntax type check that can be done prior and found in V2.1 of z/OS they added the SYNTAXCHECK parameter. I've done extensive googling and the like and cannot find if this is rolled back to V1.13 via coexistence maintenance or not? Any knowledge would be appreciated. Thanks, Pat Lyon -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FINDING CLUSTER NAME
Looking back at the OP, it seems that a) someone has issued a DEL NSCR on the cluster, or b) someone wiped out a volume without properly deleting the data. I would try DEF CL(HESP.BALFWD.DEFINE) VOL(XX) RECATALOG). There are a number of caveats here. There are a fair number of attributes that must be present on the DEF RECAT request and these must match the attributes of the original cluster. E.g. If the original cluster was a KSDS, the INDEXED keyword must be added to the DEF RECAT request. If something is missing or incorrectly specified, the IDC3009I message will indicate the possibilities. There are too many to cover in a brief email. Try to find a recent catalog listing if possible. Otherwise guess, correct, retry. Repeat until successful. Is a backup/dump available? If so, delete the cluster components and recover from backup/dump (see below). Is it possible the cluster has been redefined somewhere else? (after the DEL NSCR) If all else fails, there is no risk in deleting the component(s), since no one can access the data. To delete the component, use IDCAMS in batch: DEL HESP.BALFWD.DEFINE.DATA VVR FILE(DD1) Where DD1 points to the volume in question. HTH, snip I tried out your suggestion however it didn't work : LISTC ENT('HESP.BALFWD.DEFINE.DATA') ALL IDC3012I ENTRY HESP.BALFWD.DEFINE.DATA NOT FOUND IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLEG-42 IDC1566I ** HESP.BALFWD.DEFINE.DATA NOT LISTED IDCAMS SYSTEM SERVICES On Thu, 15/5/14, Staller, Allan allan.stal...@kbmg.com wrote: Subject: Re: FINDING CLUSTER NAME To: IBM-MAIN@LISTSERV.UA.EDU Received: Thursday, 15 May, 2014, 11:42 PM LISTC ENT(' HESP.BALFWD.DEFINE.DATA') ALL The cluster name will be in the specified in the output. The most likely name is ' HESP.BALFWD.DEFINE' snip I am trying to find the CLUSTER name of the VSAM components. We have a daily diagnose job run on the volumes and it picked up the DATA INDEX components. IDC3302I ACTION ERROR ON SYS1.ICFCAT.APPLIC IDC3351I ** VSAM I/O RETURN CODE IS 16 - RPLFDBWD = X'93080010' IDC21364I ERROR DETECTED BY DIAGNOSE: VVDS ENTRY: HESP.BALFWD.DEFINE.DATA (Z) RECORD: X'0002C9AB' OFFSET: X'0002' REASON: 19 - CATLG ENTRY NOT FOUND IDC21365I VVDS RECORD DISPLAY: RECORD: X'0002C9AB' I do not want to delete them because I do not know who is the owner also, I do not know the impact it could cause. I would like to recatalog the CLUSTER however I do not know how I should go about finding the name. Can anybody suggest something that could help me track down the CLUSTER name? /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 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FINDING CLUSTER NAME
On 15/05/2014 11:42 PM, Staller, Allan wrote: LISTC ENT(' HESP.BALFWD.DEFINE.DATA') ALL The cluster name will be in the specified in the output. The most likely name is ' HESP.BALFWD.DEFINE' What Allan said Of course, the catalog entry may not exist, hence the problem. Also check for non-VSAM entries of the same name pointing to DFHSM migrated data sets (if you run DFHSM, of course). If you would like proof of the cluster name without relying on the odds-on likelihood that the cluster name is the data component name with the trailing .DATA chopped off, then you could browse the contents of the VVDS where the names should appear in plain text. I have not done so for years, but to browse VVDS - and BCS for that matter - files I used to use an APF authorized alias of the public domain REVIEW command. REVIEW contains no MODESET macros - the system lets normal VSAM OPEN process BCS and VVDS files (for INPUT, anyway) if the environment is APF authorized. At least, it did a few years back, and I have not heard of any changes in this area. And I should also say that for every other use of REVIEW (available from the CBT tape) it is best to not run it APF authorized. For one thing, as a rule ISPF does not like its services being invoked in an APF authorized environment. Topic drifting ever so slightly, time was when BSAM could read VSAM components. Around 1986 it even seemed to bypass RACF, but the RACF hole was soon plugged. DFP V2R4 introduced the requirement that DCB (input only) access to VSAM required APF authorization, but that only worked when the VSAM component being opened did not have more than 16 extents. Ah, good times... :) Cheers, Greg -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FINDING CLUSTER NAME
Thanks Allan for your help. On Fri, 16/5/14, Staller, Allan allan.stal...@kbmg.com wrote: Subject: Re: FINDING CLUSTER NAME To: IBM-MAIN@LISTSERV.UA.EDU Received: Friday, 16 May, 2014, 12:10 AM Looking back at the OP, it seems that a) someone has issued a DEL NSCR on the cluster, or b) someone wiped out a volume without properly deleting the data. I would try DEF CL(HESP.BALFWD.DEFINE) VOL(XX) RECATALOG). There are a number of caveats here. There are a fair number of attributes that must be present on the DEF RECAT request and these must match the attributes of the original cluster. E.g. If the original cluster was a KSDS, the INDEXED keyword must be added to the DEF RECAT request. If something is missing or incorrectly specified, the IDC3009I message will indicate the possibilities. There are too many to cover in a brief email. Try to find a recent catalog listing if possible. Otherwise guess, correct, retry. Repeat until successful. Is a backup/dump available? If so, delete the cluster components and recover from backup/dump (see below). Is it possible the cluster has been redefined somewhere else? (after the DEL NSCR) If all else fails, there is no risk in deleting the component(s), since no one can access the data. To delete the component, use IDCAMS in batch: DEL HESP.BALFWD.DEFINE.DATA VVR FILE(DD1) Where DD1 points to the volume in question. HTH, snip I tried out your suggestion however it didn't work : LISTC ENT('HESP.BALFWD.DEFINE.DATA') ALL IDC3012I ENTRY HESP.BALFWD.DEFINE.DATA NOT FOUND IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLEG-42 IDC1566I ** HESP.BALFWD.DEFINE.DATA NOT LISTED IDCAMS SYSTEM SERVICES On Thu, 15/5/14, Staller, Allan allan.stal...@kbmg.com wrote: Subject: Re: FINDING CLUSTER NAME To: IBM-MAIN@LISTSERV.UA.EDU Received: Thursday, 15 May, 2014, 11:42 PM LISTC ENT(' HESP.BALFWD.DEFINE.DATA') ALL The cluster name will be in the specified in the output. The most likely name is ' HESP.BALFWD.DEFINE' snip I am trying to find the CLUSTER name of the VSAM components. We have a daily diagnose job run on the volumes and it picked up the DATA INDEX components. IDC3302I ACTION ERROR ON SYS1.ICFCAT.APPLIC IDC3351I ** VSAM I/O RETURN CODE IS 16 - RPLFDBWD = X'93080010' IDC21364I ERROR DETECTED BY DIAGNOSE: VVDS ENTRY: HESP.BALFWD.DEFINE.DATA (Z) RECORD: X'0002C9AB' OFFSET: X'0002' REASON: 19 - CATLG ENTRY NOT FOUND IDC21365I VVDS RECORD DISPLAY: RECORD: X'0002C9AB' I do not want to delete them because I do not know who is the owner also, I do not know the impact it could cause. I would like to recatalog the CLUSTER however I do not know how I should go about finding the name. Can anybody suggest something that could help me track down the CLUSTER name? /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 -- 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: FINDING CLUSTER NAME
What Allan and Greg said Of course, if you want the proof of the cluster name and you don't have REVIEW installed, you can simply do an IDCAMS PRINT against the VVDS dataset on the volume where the .DATA resides to find the associated cluster name. I did this last week. :-) Rex -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Greg Price Sent: Thursday, May 15, 2014 9:31 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: FINDING CLUSTER NAME On 15/05/2014 11:42 PM, Staller, Allan wrote: LISTC ENT(' HESP.BALFWD.DEFINE.DATA') ALL The cluster name will be in the specified in the output. The most likely name is ' HESP.BALFWD.DEFINE' What Allan said Of course, the catalog entry may not exist, hence the problem. Also check for non-VSAM entries of the same name pointing to DFHSM migrated data sets (if you run DFHSM, of course). If you would like proof of the cluster name without relying on the odds-on likelihood that the cluster name is the data component name with the trailing .DATA chopped off, then you could browse the contents of the VVDS where the names should appear in plain text. I have not done so for years, but to browse VVDS - and BCS for that matter - files I used to use an APF authorized alias of the public domain REVIEW command. REVIEW contains no MODESET macros - the system lets normal VSAM OPEN process BCS and VVDS files (for INPUT, anyway) if the environment is APF authorized. At least, it did a few years back, and I have not heard of any changes in this area. And I should also say that for every other use of REVIEW (available from the CBT tape) it is best to not run it APF authorized. For one thing, as a rule ISPF does not like its services being invoked in an APF authorized environment. Topic drifting ever so slightly, time was when BSAM could read VSAM components. Around 1986 it even seemed to bypass RACF, but the RACF hole was soon plugged. DFP V2R4 introduced the requirement that DCB (input only) access to VSAM required APF authorization, but that only worked when the VSAM component being opened did not have more than 16 extents. Ah, good times... :) Cheers, Greg -- 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
Re: FINDING CLUSTER NAME
The VVDS will also show the catalog name where it should be cataloged. Jon Perryman On Thursday, May 15, 2014 7:39 AM, Pommier, Rex rpomm...@sfgmembers.com wrote: What Allan and Greg said Of course, if you want the proof of the cluster name and you don't have REVIEW installed, you can simply do an IDCAMS PRINT against the VVDS dataset on the volume where the .DATA resides to find the associated cluster name. I did this last week. :-) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FINDING CLUSTER NAME
Good point, Jon. I had thought of mentioning a potentially mis-cataloged dataset earlier but had forgotten that when I posted my note. Rex -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Jon Perryman Sent: Thursday, May 15, 2014 10:10 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: FINDING CLUSTER NAME The VVDS will also show the catalog name where it should be cataloged. Jon Perryman On Thursday, May 15, 2014 7:39 AM, Pommier, Rex rpomm...@sfgmembers.com wrote: What Allan and Greg said Of course, if you want the proof of the cluster name and you don't have REVIEW installed, you can simply do an IDCAMS PRINT against the VVDS dataset on the volume where the .DATA resides to find the associated cluster name. I did this last week. :-) -- 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
Re: FINDING CLUSTER NAME
John, If you issue a listcat on the DATA or INDEX it should show the CLUSTER---x name unless the cluster was 'deleted noscratch' which removes the name from the catalog and leaves the data/index files on dasd. Is this what you are encountering ??? John Clifford IBM Consultant On Thu, May 15, 2014 at 8:36 AM, John Dawes jhn_da...@yahoo.com.au wrote: G'Day, I am trying to find the CLUSTER name of the VSAM components. We have a daily diagnose job run on the volumes and it picked up the DATA INDEX components. IDC3302I ACTION ERROR ON SYS1.ICFCAT.APPLIC IDC3351I ** VSAM I/O RETURN CODE IS 16 - RPLFDBWD = X'93080010' IDC21364I ERROR DETECTED BY DIAGNOSE: VVDS ENTRY: HESP.BALFWD.DEFINE.DATA (Z) RECORD: X'0002C9AB' OFFSET: X'0002' REASON: 19 - CATLG ENTRY NOT FOUND IDC21365I VVDS RECORD DISPLAY: RECORD: X'0002C9AB' I do not want to delete them because I do not know who is the owner also, I do not know the impact it could cause. I would like to recatalog the CLUSTER however I do not know how I should go about finding the name. Can anybody suggest something that could help me track down the CLUSTER name? Thanks. -- 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
IBM still looking at more challenges than opportunities
I think this article is of interest to a lot of the list readership..this might no be a good time to get into the IT business. http://finance.yahoo.com/blogs/daily-ticker/ibm-still-looking-at-more-challenges-than-opportunities-141439978.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Is there an SMP/E list somewhere out there?
I have some SMP/E questions and I am curious if there is an SMP/E list floating about somewhere. If any knows of one, would you kindly point me to it? Thanks, Chuck Charles (Chuck) Hardee Senior Systems Engineer/Database Administration CCG Information Technology Thermo Fisher Scientific 300 Industry Drive Pittsburgh, PA 15275 Direct: 724-517-2633 FAX: 412-490-9230 chuck.har...@thermofisher.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FINDING CLUSTER NAME
Listcat for the data / index will not always work. The HLQ of the data / index is not necessarily pointing to the correct catalog. E.g. ALTER 'AAA.BBB.DATA') NEWNAME('DDD.EEE.DATA'). Jon Perryman. On Thursday, May 15, 2014 8:31 AM, John Clifford johnrcl...@gmail.com wrote: If you issue a listcat on the DATA or INDEX it should show the CLUSTER---x name unless the cluster was 'deleted noscratch' which removes the name from the catalog and leaves the data/index files on dasd. Is this what you are encountering ??? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FINDING CLUSTER NAME
Jon, I ran the IDCAM PRINT of the VVDS and this is what it shows: *...)Z..HESP.BALFWD.DEFINE.DA* *TA..HESP.BALFWD.DEFINE..SYS1.ICF* *CAT.APPLIC.HESP.BALFWD.DEFINE..* *.. {...* ** *..{.* *..STANDARDINTMOIN...* *.-..* *-. * ** ** *.. .* *... * *...;Z..HESP.BALFWD.DEFINE.IN* *DEX..HESP.BALFWD.DEFINE..SYS1.IC* *FCAT.APPLIC.Z8002D.TEST.DEFINE.* ** Just to confirm that I am looking in the right place for the CLUSTER is it found after the SYS1.ICFCAT.APPLI or is listed after the .DATA..? On Fri, 16/5/14, Jon Perryman jperr...@pacbell.net wrote: Subject: Re: FINDING CLUSTER NAME To: IBM-MAIN@LISTSERV.UA.EDU Received: Friday, 16 May, 2014, 1:10 AM The VVDS will also show the catalog name where it should be cataloged. Jon Perryman On Thursday, May 15, 2014 7:39 AM, Pommier, Rex rpomm...@sfgmembers.com wrote: What Allan and Greg said Of course, if you want the proof of the cluster name and you don't have REVIEW installed, you can simply do an IDCAMS PRINT against the VVDS dataset on the volume where the .DATA resides to find the associated cluster name. I did this last week. :-) -- 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: Is there an SMP/E list somewhere out there?
You can post on IBMMAIN. We know a lot (collectively) about SMP/E Lizette -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Hardee, Chuck Sent: Thursday, May 15, 2014 9:01 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Is there an SMP/E list somewhere out there? I have some SMP/E questions and I am curious if there is an SMP/E list floating about somewhere. If any knows of one, would you kindly point me to it? Thanks, Chuck Charles (Chuck) Hardee Senior Systems Engineer/Database Administration CCG Information Technology Thermo Fisher Scientific 300 Industry Drive Pittsburgh, PA 15275 Direct: 724-517-2633 FAX: 412-490-9230 chuck.har...@thermofisher.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Is there an SMP/E list somewhere out there?
I was going to initially but some many get chastised for posting questions here when there is another list available I thought I would ask first. Charles (Chuck) Hardee Senior Systems Engineer/Database Administration CCG Information Technology Thermo Fisher Scientific 300 Industry Drive Pittsburgh, PA 15275 Direct: 724-517-2633 FAX: 412-490-9230 chuck.har...@thermofisher.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Lizette Koehler Sent: Thursday, May 15, 2014 12:15 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Is there an SMP/E list somewhere out there? You can post on IBMMAIN. We know a lot (collectively) about SMP/E Lizette -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Hardee, Chuck Sent: Thursday, May 15, 2014 9:01 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Is there an SMP/E list somewhere out there? I have some SMP/E questions and I am curious if there is an SMP/E list floating about somewhere. If any knows of one, would you kindly point me to it? Thanks, Chuck Charles (Chuck) Hardee Senior Systems Engineer/Database Administration CCG Information Technology Thermo Fisher Scientific 300 Industry Drive Pittsburgh, PA 15275 Direct: 724-517-2633 FAX: 412-490-9230 chuck.har...@thermofisher.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
SMP/E Question regarding automatically relinking a load module with maintenance
I have a vendor product that provides for a customization of the product via a load module. The load module is a table of exits that are called at certain points in the product to allow the user to make decision, perform additional functions, etc. At our site, this module had been set up to take advantage of 5 different exit points. I have created the 5 different exit modules and successfully set them up in SMP/E as usermods. I have also created the vendor's required table module defining the 5 different modules as a usermod and have successfully created the final load module. All looks as it should, however, if I change the source of one of the exit modules and perform an APPLY REDO, the exit is assembled and saved, but the table module is not linked. The table module's linked command includes an INCLUDE for each of the required exit modules, which I thought was how SMP/E knew to monitor those modules for change and perform the relink should any one of them change. I am a bit rusty on creating SMP/E from scratch so I believe I am missing something. Any ideas of what I may have missed in the usermod(s)? Thanks, Chuck Charles (Chuck) Hardee Senior Systems Engineer/Database Administration CCG Information Technology Thermo Fisher Scientific 300 Industry Drive Pittsburgh, PA 15275 Direct: 724-517-2633 FAX: 412-490-9230 chuck.har...@thermofisher.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IBM still looking at more challenges than opportunities
Tsk, computers are a passing fad. On Thu, May 15, 2014 at 11:47 AM, Dave Jones d...@vsoft-software.comwrote: I think this article is of interest to a lot of the list readership..this might no be a good time to get into the IT business. http://finance.yahoo.com/blogs/daily-ticker/ibm-still-looking-at-more-challenges-than-opportunities-141439978.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- zMan -- I've got a mainframe and I'm not afraid to use it -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Is there an SMP/E list somewhere out there?
Chuck, 80% of most people here is smp (tx to ibm reducing z/os version cycle ;-) ). No better plave to ask smp questions! ITschak בתאריך 15 במאי 2014 19:20, Hardee, Chuck chuck.har...@thermofisher.com כתב: I was going to initially but some many get chastised for posting questions here when there is another list available I thought I would ask first. Charles (Chuck) Hardee Senior Systems Engineer/Database Administration CCG Information Technology Thermo Fisher Scientific 300 Industry Drive Pittsburgh, PA 15275 Direct: 724-517-2633 FAX: 412-490-9230 chuck.har...@thermofisher.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Lizette Koehler Sent: Thursday, May 15, 2014 12:15 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Is there an SMP/E list somewhere out there? You can post on IBMMAIN. We know a lot (collectively) about SMP/E Lizette -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Hardee, Chuck Sent: Thursday, May 15, 2014 9:01 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Is there an SMP/E list somewhere out there? I have some SMP/E questions and I am curious if there is an SMP/E list floating about somewhere. If any knows of one, would you kindly point me to it? Thanks, Chuck Charles (Chuck) Hardee Senior Systems Engineer/Database Administration CCG Information Technology Thermo Fisher Scientific 300 Industry Drive Pittsburgh, PA 15275 Direct: 724-517-2633 FAX: 412-490-9230 chuck.har...@thermofisher.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 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SMP/E Question regarding automatically relinking a load module with maintenance
If your APPLY REDO was for the usermod only, I would suggest that you do another APPLY REDO for the table module and/or for the final load module too if you created your final load module via SMP/E. Failing that, have you tried an APPLY REDO GROUP for your usermod? Hardee, Chuck wrote: I have a vendor product that provides for a customization of the product via a load module. The load module is a table of exits that are called at certain points in the product to allow the user to make decision, perform additional functions, etc. At our site, this module had been set up to take advantage of 5 different exit points. I have created the 5 different exit modules and successfully set them up in SMP/E as usermods. I have also created the vendor's required table module defining the 5 different modules as a usermod and have successfully created the final load module. All looks as it should, however, if I change the source of one of the exit modules and perform an APPLY REDO, the exit is assembled and saved, but the table module is not linked. The table module's linked command includes an INCLUDE for each of the required exit modules, which I thought was how SMP/E knew to monitor those modules for change and perform the relink should any one of them change. I am a bit rusty on creating SMP/E from scratch so I believe I am missing something. Any ideas of what I may have missed in the usermod(s)? Thanks, Chuck Charles (Chuck) Hardee Senior Systems Engineer/Database Administration CCG Information Technology Thermo Fisher Scientific 300 Industry Drive Pittsburgh, PA 15275 Direct: 724-517-2633 FAX: 412-490-9230 chuck.har...@thermofisher.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: SMP/E Question regarding automatically relinking a load module with maintenance
It look like the problem is related to the binder and not to SMP. You should review all messages starting with IEW in smp/e SYSPRINT dataset to ensure that binder was called and if so, what is the error. ITschak On Thu, May 15, 2014 at 7:46 PM, CM Poncelet ponce...@bcs.org.uk wrote: If your APPLY REDO was for the usermod only, I would suggest that you do another APPLY REDO for the table module and/or for the final load module too if you created your final load module via SMP/E. Failing that, have you tried an APPLY REDO GROUP for your usermod? Hardee, Chuck wrote: I have a vendor product that provides for a customization of the product via a load module. The load module is a table of exits that are called at certain points in the product to allow the user to make decision, perform additional functions, etc. At our site, this module had been set up to take advantage of 5 different exit points. I have created the 5 different exit modules and successfully set them up in SMP/E as usermods. I have also created the vendor's required table module defining the 5 different modules as a usermod and have successfully created the final load module. All looks as it should, however, if I change the source of one of the exit modules and perform an APPLY REDO, the exit is assembled and saved, but the table module is not linked. The table module's linked command includes an INCLUDE for each of the required exit modules, which I thought was how SMP/E knew to monitor those modules for change and perform the relink should any one of them change. I am a bit rusty on creating SMP/E from scratch so I believe I am missing something. Any ideas of what I may have missed in the usermod(s)? Thanks, Chuck Charles (Chuck) Hardee Senior Systems Engineer/Database Administration CCG Information Technology Thermo Fisher Scientific 300 Industry Drive Pittsburgh, PA 15275 Direct: 724-517-2633 FAX: 412-490-9230 chuck.har...@thermofisher.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 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SMP/E Question regarding automatically relinking a load module with maintenance
Thanks! I added GROUP to one of the APPLY REDOs for one of the exit usermods and now the user mod gets assembled and the table module gets relinked. Exactly what I wanted. Charles (Chuck) Hardee Senior Systems Engineer/Database Administration CCG Information Technology Thermo Fisher Scientific 300 Industry Drive Pittsburgh, PA 15275 Direct: 724-517-2633 FAX: 412-490-9230 chuck.har...@thermofisher.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of CM Poncelet Sent: Thursday, May 15, 2014 12:47 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: SMP/E Question regarding automatically relinking a load module with maintenance If your APPLY REDO was for the usermod only, I would suggest that you do another APPLY REDO for the table module and/or for the final load module too if you created your final load module via SMP/E. Failing that, have you tried an APPLY REDO GROUP for your usermod? Hardee, Chuck wrote: I have a vendor product that provides for a customization of the product via a load module. The load module is a table of exits that are called at certain points in the product to allow the user to make decision, perform additional functions, etc. At our site, this module had been set up to take advantage of 5 different exit points. I have created the 5 different exit modules and successfully set them up in SMP/E as usermods. I have also created the vendor's required table module defining the 5 different modules as a usermod and have successfully created the final load module. All looks as it should, however, if I change the source of one of the exit modules and perform an APPLY REDO, the exit is assembled and saved, but the table module is not linked. The table module's linked command includes an INCLUDE for each of the required exit modules, which I thought was how SMP/E knew to monitor those modules for change and perform the relink should any one of them change. I am a bit rusty on creating SMP/E from scratch so I believe I am missing something. Any ideas of what I may have missed in the usermod(s)? Thanks, Chuck Charles (Chuck) Hardee Senior Systems Engineer/Database Administration CCG Information Technology Thermo Fisher Scientific 300 Industry Drive Pittsburgh, PA 15275 Direct: 724-517-2633 FAX: 412-490-9230 chuck.har...@thermofisher.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 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SMP/E Question regarding automatically relinking a load module with maintenance
Here's how we handle our usermod for SMF exit IEEACTRT. The usermod also marks the corresponding SAMPLIB member so as to cause a regression message if IBM's version changes. REWORK documents the date of last APPLY. This job assembles our source and links everything together. //STEP1 EXEC SMPR13 //SYSIN DD * SET BDY (GLOBAL) . RECEIVE SYSMODS . SET BDY (MVST100) . APPLY S(SMFACT2) REDO . UCLIN . REP SAMP(IEEACTRT) RMID(SMFACT2) /* IN CASE SAMPLE CHANGES */ . ENDUCL . //SMPPTFIN DD DATA,DLM=$$ ++USERMOD (SMFACT2) REWORK(20133432) . ++VER (Z038) FMID (HBB7780) . ++JCLIN . //SMFACT2 EXEC LINKS,PARM='XREF,LIST,LET,NCAL,RENT' //SYSLMOD DD DISP=SHR,DSN=SYS1.LINKLIB //AOSB3DD DISP=SHR,DSN=SYS1.AOSB3 //SYSLIN DD * ORDER SCEACTMS INCLUDE AOSB3(SCEACTMS) INCLUDE AOSB3(IEFTB724) /* CONTAINS IEFYS */ ENTRY SCEACTMS MODE AMODE(31) RMODE(ANY) NAME SCEACTMS(R) ++SRC(SCEACTMS) DISTLIB(ASAMPLIB) . Our modification of SAMPLIB source $$ . . J.O.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 626-302-7535 Office 323-715-0595 Mobile jo.skip.robin...@sce.com From: Hardee, Chuck chuck.har...@thermofisher.com To: IBM-MAIN@LISTSERV.UA.EDU, Date: 05/15/2014 10:08 AM Subject:Re: SMP/E Question regarding automatically relinking a load module with maintenance Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Thanks! I added GROUP to one of the APPLY REDOs for one of the exit usermods and now the user mod gets assembled and the table module gets relinked. Exactly what I wanted. Charles (Chuck) Hardee Senior Systems Engineer/Database Administration CCG Information Technology Thermo Fisher Scientific 300 Industry Drive Pittsburgh, PA 15275 Direct: 724-517-2633 FAX: 412-490-9230 chuck.har...@thermofisher.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of CM Poncelet Sent: Thursday, May 15, 2014 12:47 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: SMP/E Question regarding automatically relinking a load module with maintenance If your APPLY REDO was for the usermod only, I would suggest that you do another APPLY REDO for the table module and/or for the final load module too if you created your final load module via SMP/E. Failing that, have you tried an APPLY REDO GROUP for your usermod? Hardee, Chuck wrote: I have a vendor product that provides for a customization of the product via a load module. The load module is a table of exits that are called at certain points in the product to allow the user to make decision, perform additional functions, etc. At our site, this module had been set up to take advantage of 5 different exit points. I have created the 5 different exit modules and successfully set them up in SMP/E as usermods. I have also created the vendor's required table module defining the 5 different modules as a usermod and have successfully created the final load module. All looks as it should, however, if I change the source of one of the exit modules and perform an APPLY REDO, the exit is assembled and saved, but the table module is not linked. The table module's linked command includes an INCLUDE for each of the required exit modules, which I thought was how SMP/E knew to monitor those modules for change and perform the relink should any one of them change. I am a bit rusty on creating SMP/E from scratch so I believe I am missing something. Any ideas of what I may have missed in the usermod(s)? Thanks, Chuck Charles (Chuck) Hardee Senior Systems Engineer/Database Administration CCG Information Technology Thermo Fisher Scientific 300 Industry Drive Pittsburgh, PA 15275 Direct: 724-517-2633 FAX: 412-490-9230 chuck.har...@thermofisher.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FINDING CLUSTER NAME
Since the VVR layout is OCO, you will have to make a best guess. I personally would have thought it followed the data. Since it matches the value after the catalog, then it's a safe bet that is the cluster name. The INDEX looks suspicious because it has Z8002D.TEST.DEFINE after the catalog name. You could run DIAGNOSE VVDS to see what it says . I've never run into the situation where they don't match. If diagnose doesn't report a problem, then you should try listcat on this cluster name. Jon Perryman On Thursday, May 15, 2014 9:11 AM, John Dawes jhn_da...@yahoo.com.au wrote: *...)Z..HESP.BALFWD.DEFINE.DA* *TA..HESP.BALFWD.DEFINE..SYS1.ICF* *CAT.APPLIC.HESP.BALFWD.DEFINE..* *...;Z..HESP.BALFWD.DEFINE.IN* *DEX..HESP.BALFWD.DEFINE..SYS1.IC* *FCAT.APPLIC.Z8002D.TEST.DEFINE.* ** Just to confirm that I am looking in the right place for the CLUSTER is it found after the SYS1.ICFCAT.APPLI or is listed after the .DATA..? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SMP/E Question regarding automatically relinking a load module with maintenance
Thanks Skip, I'll look it over and compare it to mine. Mine's working now but your process may be easier than what I've set up. Charles (Chuck) Hardee Senior Systems Engineer/Database Administration CCG Information Technology Thermo Fisher Scientific 300 Industry Drive Pittsburgh, PA 15275 Direct: 724-517-2633 FAX: 412-490-9230 chuck.har...@thermofisher.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Skip Robinson Sent: Thursday, May 15, 2014 1:53 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: SMP/E Question regarding automatically relinking a load module with maintenance Here's how we handle our usermod for SMF exit IEEACTRT. The usermod also marks the corresponding SAMPLIB member so as to cause a regression message if IBM's version changes. REWORK documents the date of last APPLY. This job assembles our source and links everything together. //STEP1 EXEC SMPR13 //SYSIN DD * SET BDY (GLOBAL) . RECEIVE SYSMODS . SET BDY (MVST100) . APPLY S(SMFACT2) REDO . UCLIN . REP SAMP(IEEACTRT) RMID(SMFACT2) /* IN CASE SAMPLE CHANGES */ . ENDUCL . //SMPPTFIN DD DATA,DLM=$$ ++USERMOD (SMFACT2) REWORK(20133432) . ++VER (Z038) FMID (HBB7780) . ++JCLIN . //SMFACT2 EXEC LINKS,PARM='XREF,LIST,LET,NCAL,RENT' //SYSLMOD DD DISP=SHR,DSN=SYS1.LINKLIB //AOSB3DD DISP=SHR,DSN=SYS1.AOSB3 //SYSLIN DD * ORDER SCEACTMS INCLUDE AOSB3(SCEACTMS) INCLUDE AOSB3(IEFTB724) /* CONTAINS IEFYS */ ENTRY SCEACTMS MODE AMODE(31) RMODE(ANY) NAME SCEACTMS(R) ++SRC(SCEACTMS) DISTLIB(ASAMPLIB) . Our modification of SAMPLIB source $$ . . J.O.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 626-302-7535 Office 323-715-0595 Mobile jo.skip.robin...@sce.com From: Hardee, Chuck chuck.har...@thermofisher.com To: IBM-MAIN@LISTSERV.UA.EDU, Date: 05/15/2014 10:08 AM Subject:Re: SMP/E Question regarding automatically relinking a load module with maintenance Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Thanks! I added GROUP to one of the APPLY REDOs for one of the exit usermods and now the user mod gets assembled and the table module gets relinked. Exactly what I wanted. Charles (Chuck) Hardee Senior Systems Engineer/Database Administration CCG Information Technology Thermo Fisher Scientific 300 Industry Drive Pittsburgh, PA 15275 Direct: 724-517-2633 FAX: 412-490-9230 chuck.har...@thermofisher.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of CM Poncelet Sent: Thursday, May 15, 2014 12:47 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: SMP/E Question regarding automatically relinking a load module with maintenance If your APPLY REDO was for the usermod only, I would suggest that you do another APPLY REDO for the table module and/or for the final load module too if you created your final load module via SMP/E. Failing that, have you tried an APPLY REDO GROUP for your usermod? Hardee, Chuck wrote: I have a vendor product that provides for a customization of the product via a load module. The load module is a table of exits that are called at certain points in the product to allow the user to make decision, perform additional functions, etc. At our site, this module had been set up to take advantage of 5 different exit points. I have created the 5 different exit modules and successfully set them up in SMP/E as usermods. I have also created the vendor's required table module defining the 5 different modules as a usermod and have successfully created the final load module. All looks as it should, however, if I change the source of one of the exit modules and perform an APPLY REDO, the exit is assembled and saved, but the table module is not linked. The table module's linked command includes an INCLUDE for each of the required exit modules, which I thought was how SMP/E knew to monitor those modules for change and perform the relink should any one of them change. I am a bit rusty on creating SMP/E from scratch so I believe I am missing something. Any ideas of what I may have missed in the usermod(s)? Thanks, Chuck Charles (Chuck) Hardee Senior Systems Engineer/Database Administration CCG Information Technology Thermo Fisher Scientific 300 Industry Drive Pittsburgh, PA 15275 Direct: 724-517-2633 FAX: 412-490-9230 chuck.har...@thermofisher.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: SMP/E Question regarding automatically relinking a load module with maintenance
Clarification on REWORK. Besides documenting the APPLY date (which SMPE shows anyway), it obviates the need to first RESTORE/REJECT the usermod before re-RECEIVE/APPLY, a hassle I don't see the point of for a usermod whose sysmod structure never changes. For re-RECEIVE to work, REWORK must be 'higher' than the previous value. Current date in DDD format is obviously higher each day. The final digit is for multiple retries in a single day. ROT: if you've tried 10 times and still haven't got it right, it's time to knock off for the day and try again tomorrow. ;-) . . J.O.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 626-302-7535 Office 323-715-0595 Mobile jo.skip.robin...@sce.com From: Hardee, Chuck chuck.har...@thermofisher.com To: IBM-MAIN@LISTSERV.UA.EDU, Date: 05/15/2014 11:07 AM Subject:Re: SMP/E Question regarding automatically relinking a load module with maintenance Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Thanks Skip, I'll look it over and compare it to mine. Mine's working now but your process may be easier than what I've set up. Charles (Chuck) Hardee Senior Systems Engineer/Database Administration CCG Information Technology Thermo Fisher Scientific 300 Industry Drive Pittsburgh, PA 15275 Direct: 724-517-2633 FAX: 412-490-9230 chuck.har...@thermofisher.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Skip Robinson Sent: Thursday, May 15, 2014 1:53 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: SMP/E Question regarding automatically relinking a load module with maintenance Here's how we handle our usermod for SMF exit IEEACTRT. The usermod also marks the corresponding SAMPLIB member so as to cause a regression message if IBM's version changes. REWORK documents the date of last APPLY. This job assembles our source and links everything together. //STEP1 EXEC SMPR13 //SYSIN DD * SET BDY (GLOBAL) . RECEIVE SYSMODS . SET BDY (MVST100) . APPLY S(SMFACT2) REDO . UCLIN . REP SAMP(IEEACTRT) RMID(SMFACT2) /* IN CASE SAMPLE CHANGES */ . ENDUCL . //SMPPTFIN DD DATA,DLM=$$ ++USERMOD (SMFACT2) REWORK(20133432) . ++VER (Z038) FMID (HBB7780) . ++JCLIN . //SMFACT2 EXEC LINKS,PARM='XREF,LIST,LET,NCAL,RENT' //SYSLMOD DD DISP=SHR,DSN=SYS1.LINKLIB //AOSB3DD DISP=SHR,DSN=SYS1.AOSB3 //SYSLIN DD * ORDER SCEACTMS INCLUDE AOSB3(SCEACTMS) INCLUDE AOSB3(IEFTB724) /* CONTAINS IEFYS */ ENTRY SCEACTMS MODE AMODE(31) RMODE(ANY) NAME SCEACTMS(R) ++SRC(SCEACTMS) DISTLIB(ASAMPLIB) . Our modification of SAMPLIB source $$ . . J.O.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 626-302-7535 Office 323-715-0595 Mobile jo.skip.robin...@sce.com From: Hardee, Chuck chuck.har...@thermofisher.com To: IBM-MAIN@LISTSERV.UA.EDU, Date: 05/15/2014 10:08 AM Subject:Re: SMP/E Question regarding automatically relinking a load module with maintenance Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Thanks! I added GROUP to one of the APPLY REDOs for one of the exit usermods and now the user mod gets assembled and the table module gets relinked. Exactly what I wanted. Charles (Chuck) Hardee Senior Systems Engineer/Database Administration CCG Information Technology Thermo Fisher Scientific 300 Industry Drive Pittsburgh, PA 15275 Direct: 724-517-2633 FAX: 412-490-9230 chuck.har...@thermofisher.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of CM Poncelet Sent: Thursday, May 15, 2014 12:47 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: SMP/E Question regarding automatically relinking a load module with maintenance If your APPLY REDO was for the usermod only, I would suggest that you do another APPLY REDO for the table module and/or for the final load module too if you created your final load module via SMP/E. Failing that, have you tried an APPLY REDO GROUP for your usermod? Hardee, Chuck wrote: I have a vendor product that provides for a customization of the product via a load module. The load module is a table of exits that are called at certain points in the product to allow the user to make decision, perform additional functions, etc. At our site, this module had been set up to take advantage of 5 different exit points. I have created the 5 different exit modules and successfully set them up in SMP/E as usermods. I have also created the vendor's required table module defining the 5 different modules as a usermod and have successfully created the final load module. All looks as it should, however, if I change the source of one of the exit modules and perform an APPLY REDO, the exit is assembled and saved, but the table module is not linked. The table module's linked command includes an INCLUDE
Re: TSO 3270 Data Stream question
On 5/15/2014 9:41 AM, MichealButz wrote: After which my TSO terminal emulater gives me error invald buffer address 2260 as I have a 24 x 80 screen wih 1.920 postions the sba code is E3 D4 Listed below ithe code used to translate the the row and column Have you actually dumped the buffer when you got the error? Perhaps storage got clobbered? Your code should work, but is horribly inefficient. Try: SET_BUFFL R0,ROW L R1,COL BCTR R0,0 BCTR R1,0 MHR0,=H'80' ARR0,R1 SRDL R0,6 SRL R1,2 SRDL R0,6 SRL R1,2 STCM R1,B'1100',SBACMD (or STH) TRSBACMD(2),TABLE BRXLNK Also I would replace the =H'80' by a variable, allowing you to use the code for different geometries (e.g., 27*132) Gerhard Postpischil Bradford, Vermont -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TSO 3270 Data Stream question
Yes I have as I was running under TESTAUTH Sent from my iPhone On May 15, 2014, at 2:30 PM, Gerhard Postpischil gerha...@charter.net wrote: On 5/15/2014 9:41 AM, MichealButz wrote: After which my TSO terminal emulater gives me error invald buffer address 2260 as I have a 24 x 80 screen wih 1.920 postions the sba code is E3 D4 Listed below ithe code used to translate the the row and column Have you actually dumped the buffer when you got the error? Perhaps storage got clobbered? Your code should work, but is horribly inefficient. Try: SET_BUFFL R0,ROW L R1,COL BCTR R0,0 BCTR R1,0 MHR0,=H'80' ARR0,R1 SRDL R0,6 SRL R1,2 SRDL R0,6 SRL R1,2 STCM R1,B'1100',SBACMD (or STH) TRSBACMD(2),TABLE BRXLNK Also I would replace the =H'80' by a variable, allowing you to use the code for different geometries (e.g., 27*132) Gerhard Postpischil Bradford, Vermont -- 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 3270 Data Stream question
On 5/15/2014 2:33 PM, Micheal Butz wrote: Yes I have as I was running under TESTAUTH E3D4 gives me row 29 column 21, not what you wanted. Row 5 column 1 is C540 So either your conversion doesn't work, or your buffer is getting clobbered. Gerhard Postpischil Bradford, Vermont -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TSO 3270 Data Stream question
Can anyone give me an idea of how to make sense of the table E.G pos 1 or O is X'40' Sent from my iPhone On May 15, 2014, at 2:47 PM, Gerhard Postpischil gerha...@charter.net wrote: On 5/15/2014 2:33 PM, Micheal Butz wrote: Yes I have as I was running under TESTAUTH E3D4 gives me row 29 column 21, not what you wanted. Row 5 column 1 is C540 So either your conversion doesn't work, or your buffer is getting clobbered. Gerhard Postpischil Bradford, Vermont -- 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 3270 Data Stream question
Perhaps this will help: /*rexx*/ /* Generate 3270 codes for cursor positioning */ arg row column scrwidth if scrwidth = '' then scrwidth = 80 codes = 40 C1 C2 C3 C4 C5 C6 C7 C8 C9 4A 4B 4C 4D 4E 4F, 50 D1 D2 D3 D4 D5 D6 D7 D8 D9 5A 5B 5C 5D 5E 5F, 60 61 E2 E3 E4 E5 E6 E7 E8 E9 6A 6B 6C 6D 6E 6F, F0 F1 F2 F3 F4 F5 F6 F7 F8 F9 7A 7B 7C 7D 7E 7F sba = (row*scrwidth)+(column)-(scrwidth+1) sba = d2x(sba,4) sba = x2b(sba) sba1 = x2d(b2x(substr(sba,5,6)))+1 sba2 = x2d(b2x(substr(sba,11,6)))+1 sba1 = word(codes,sba1) sba2 = word(codes,sba2) say DCX'11,sba1,sba2' Alan Field Technical Engineer Principal BCBS Minnesota Phone: 651.662.3546 Mobile: 651.428.8826 From: Micheal Butz michealb...@comcast.net To: IBM-MAIN@LISTSERV.UA.EDU, Date: 05/15/2014 13:59 Subject:Re: TSO 3270 Data Stream question Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Can anyone give me an idea of how to make sense of the table E.G pos 1 or O is X'40' Sent from my iPhone On May 15, 2014, at 2:47 PM, Gerhard Postpischil gerha...@charter.net wrote: On 5/15/2014 2:33 PM, Micheal Butz wrote: Yes I have as I was running under TESTAUTH E3D4 gives me row 29 column 21, not what you wanted. Row 5 column 1 is C540 So either your conversion doesn't work, or your buffer is getting clobbered. Gerhard Postpischil Bradford, Vermont -- 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: SMP/E Question regarding automatically relinking a load module with maintenance
On Thu, 15 May 2014 11:30:19 -0700, Skip Robinson wrote: Clarification on REWORK. Besides documenting the APPLY date (which SMPE shows anyway), it obviates the need to first RESTORE/REJECT the usermod before re-RECEIVE/APPLY, a hassle I don't see the point of for a usermod whose sysmod structure never changes. For re-RECEIVE to work, REWORK must be 'higher' than the previous value. Current date in DDD format is obviously higher each day. The final digit is for multiple retries in a single day. ROT: if you've tried 10 times and still haven't got it right, it's time to knock off for the day and try again tomorrow. ;-) will changing the REWORK and re-RECEIVEing cause the SYSMOD to be selected on APPLY, absent REDO? Even if all the objects appear current in the target zone? Based on what entries in the target CSI? Also (topic drift) The SMP/E manuals say that if the SYSMOD is absent from the SMPPTS, RECEIVE will re-RECEIVE it even if the REWORK is unchanged. But be careful: In our development we may make radical changes in the structure of a PTF (we never send two such versions to field). I have observed that merely deleting from the SMPPTS and re-RECEIVEing leaves tramp entries in the GLOBAL zone. I don't know whether changing REWORK causes such entries to be cleaned up. I rely on REJECT. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SMP/E Question regarding automatically relinking a load module with maintenance
On Thu, 15 May 2014 14:03:00 -0500, Paul Gilmartin wrote: Also (topic drift) The SMP/E manuals say that if the SYSMOD is absent from the SMPPTS, RECEIVE will re-RECEIVE it even if the REWORK is unchanged. I would not assume that I could leave SMP/E in a correct state by deleting a PTF from SMPPTS. I always use REJECT for that purpose. But be careful: In our development we may make radical changes in the structure of a PTF (we never send two such versions to field). IMO, in this case, the correct approach is to 1. RESTORE the PTF from all target zones to which it has been applied. 2. REJECT the PTF 3. RECEIVE the updated PTF 4. Apply the updated PTF (REDO is not needed) I have observed that merely deleting from the SMPPTS and re-RECEIVEing leaves tramp entries in the GLOBAL zone. I'm not surprised. Do it correctly. I wouldn't be surprised if Kurt Q. knows how to clean it up correctly without using REJECT, but I would be surprised if he bothers. I know that I don't know how to do it correctly. I don't know whether changing REWORK causes such entries to be cleaned up. I rely on REJECT. And you should, IMO. If the REWORK is anything more complicated than a code change (e.g. different elements, or a different number of elements), the PTF should be RESTORED before it is REJECTED. -- Tom Marchant -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SMP/E Question regarding automatically relinking a load module with maintenance
There is an error in your usermod. Using group temporarily corrected your problem but you still have a problem. If you change this exit again, you may not get the expected results from APPLY GROUP REDO. Without specifics, we can only guess at the error. For example, if this module was auto linked with the load module instead of SMP/E replacing the module within the load module.In this case, the first APPLY would have assembled the module. The second apply with GROUP would have linked it. If this is the problem, then SMP/e won't specify REPLACE for the binder. Skip's recommendation is good example. Just be aware that you need to ensure the JCLIN matches existing definitions. Your description of the modules and load module structure is not clear so you may have additional modules that are affected. Check with the vendor for a sample on how they recommend installing this as a usermod. Jon Perryman On Thursday, May 15, 2014 10:08 AM, Hardee, Chuck chuck.har...@thermofisher.com wrote: I added GROUP to one of the APPLY REDOs for one of the exit usermods and now the user mod gets assembled and the table module gets relinked. Exactly what I wanted. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: 2014 VM Workshop attendee registration is open for all attendee types: regular, student, sponsor, and spouse!
Ken: Yes, you were registered and paid - you reserved a free polo shirt, and free banquet dinner, no dorm room reserved. Unless you want to turn down the free $65 Aggie debit card for food purchases in the cafeteria, you might want to log back on and add that to your shopping cart, and submit it, too. Tim: Yes, you were registered and paid - you reserved a free polo shirt, and free banquet dinner, a free $65 Aggie debit card for food purchases in the cafeteria, and 3 nights in private dorm room. Tuco: Yes, you were registered and paid - you reserved a free polo shirt, and free banquet dinner, a free $65 Aggie debit card for food purchases in the cafeteria, and 3 nights in 2-person dorm room. Each of you: Whoever registers an attendee should have received a Paypal receipt by e-mail. If not, please let me know by private e-mail. If anyone else has questions about their registration, or general workshop questions, you can (reducing listserve traffic) reach us from the Contact Us link on the web site, or e-mail: webmas...@vmworkshop.org Best regards, Mike Walter 2013/2014 VM Workshop chairman -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Bonno, Tuco Sent: Tuesday, May 13, 2014 07:11 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: 2014 VM Workshop attendee registration is open for all attendee types: regular, student, sponsor, and spouse! same-same (== looking for confirmation ) from tuco bonno (aka sonny) and Tim Connor ; we're both from/with the South Carolina Budget and Control Board in Columba, SC thanks -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Kenneth Barkhau Sent: Tuesday, 13 May, 2014 08:08 To: IBM-MAIN@LISTSERV.UA.EDUmailto:IBM-MAIN@LISTSERV.UA.EDU Subject: Re: 2014 VM Workshop attendee registration is open for all attendee types: regular, student, sponsor, and spouse! Hello Mike, I registered several weeks ago. Can you confirm that you have my registration? Ken Barkhau with Hewlett Packard. Thanks much. Ken On Mon, May 12, 2014 at 7:03 PM, Mike Walter mike.wal...@aon.commailto:mike.wal...@aon.com wrote: Cross-posted to the IBMVM, Linux-390, and IBM-MAIN discussion lists. The 2014 VM Workshop, June 26-28 2014 will be conducted at North Carolina AT State University, Greensboro NC A Guaranteed Registration deadline is hard-coded as 11:59 PM Friday May 30, 2014 due to NC AT requirements for dorm room setup and, manufacturer Polo Shirt and T-Shirt production deadlines. All paid registrations before that deadline are guaranteed to receive: - one no-charge embroidered 2014 VM Polo Shirt (for regular attendees, plus any added purchases), - one no-charge 2014 VM Workshop T-shirt (for students, plus any added purchases), - a reserved dorm room (for those who paid for dorm 'nights' - single rooms are sold out: you'll be paired up with a roommate of the same gender), - an Aggie debit card pre-loaded with $65 for convenient FOOD purchases in the campus cafeteria, - all that above will be available at the VM Workshop registration table beginning Thursday morning. Registrations will still be accepted after 11:59 PM Friday May 30, but after that time no dorm reservations can be accepted, and shirts and Aggie debit cards will be available on a best-effort basis after Guaranteed Registrations have been processed. WHO: z/VM, and Linux on System z Friends WHAT: Location, travel, lodging from dorm rooms ($50/night/bed) up to nearby hotels, travel hints, sponsor information, and registration details for the 2013 VM Workshop have all been posted to: http://www.vmworkshop.org/2014 Session agenda information will be available on the web site in early June, following the close of Session Submissions at 11:59 PM on May 30. WHERE: North Carolina AT State University, Greensboro NC WHEN: SESSION DATES: From Thursday morning JUNE 26 until about 3PM (or so) Saturday JUNE 28. Choose from multiple concurrent presentations packed full of up-to-the-minute technical sessions for all expertise levels of z/VM, and Linux on System z, and from Hands-On Labs including: - z/VM 6.3.0 Installation or Migration (your choice), -'Linux on System z' Installation (SLES or Redhat, your choice), - z/VM BFS and SFS Administration (Byte File System and Shared File System), and - more hands-on labs as they are submitted. Wednesday June 25 is reserved for VM Workshop Volunteer Committee site preparation and lab setup, if you are interested in joining just send me an e-mail asking to join. WHY: Previous VM Workshops have been referred to by the small-minded as: 'a large number of system programmers with some limited adult supervision' (do you really want to miss this!??). Expect another wonderful up close and personal workshop with great content and terrific camaraderie. Come to meet VM old-timers... and
Re: SMP/E Question regarding automatically relinking a load module with maintenance
REWORK has no effect on APPLY, only on RECEIVE. Absent a higher REWORK value, re-RECEIVE will fail with a very descriptive message to the effect that the REWORK value is not higher than the old one. Re-APPLY will fail without REDO if the sysmod already exists in the target zone regardless of whether the latest version of the sysmod differs from one previously RECEIVEd. No comparison is done. You have to be careful that the new sysmod has the same structure (same combination of elements in the same relationship) in order to do what we do. It's our usermod; we haven't changed it for years. Occasionally a sysmod will come from IBM that explicitly instructs the user to first RESTORE/REJECT a previous version of it. Do it. If a sysmod is *not* present in the global and/or target zones, it will RECEIVE and/or APPLY without REWORK or REDO. If you're uncomfortable with REWORK/REDO, then by all means do RESTORE/REJECT first. The key is to get the JCLIN right because that's how SMPE knows how to 'fully install' your sysmod. . . J.O.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 626-302-7535 Office 323-715-0595 Mobile jo.skip.robin...@sce.com From: Jon Perryman jperr...@pacbell.net To: IBM-MAIN@LISTSERV.UA.EDU, Date: 05/15/2014 01:06 PM Subject:Re: SMP/E Question regarding automatically relinking a load module with maintenance Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU There is an error in your usermod. Using group temporarily corrected your problem but you still have a problem. If you change this exit again, you may not get the expected results from APPLY GROUP REDO. Without specifics, we can only guess at the error. For example, if this module was auto linked with the load module instead of SMP/E replacing the module within the load module.In this case, the first APPLY would have assembled the module. The second apply with GROUP would have linked it. If this is the problem, then SMP/e won't specify REPLACE for the binder. Skip's recommendation is good example. Just be aware that you need to ensure the JCLIN matches existing definitions. Your description of the modules and load module structure is not clear so you may have additional modules that are affected. Check with the vendor for a sample on how they recommend installing this as a usermod. Jon Perryman On Thursday, May 15, 2014 10:08 AM, Hardee, Chuck chuck.har...@thermofisher.com wrote: I added GROUP to one of the APPLY REDOs for one of the exit usermods and now the user mod gets assembled and the table module gets relinked. Exactly what I wanted. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SMP/E Question regarding automatically relinking a load module with maintenance
Corrected. RECEIVEd -- APPLied . . . J.O.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 626-302-7535 Office 323-715-0595 Mobile jo.skip.robin...@sce.com From: Skip Robinson jo.skip.robin...@sce.com To: IBM-MAIN@LISTSERV.UA.EDU, Date: 05/15/2014 01:58 PM Subject:Re: SMP/E Question regarding automatically relinking a load module with maintenance Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU REWORK has no effect on APPLY, only on RECEIVE. Absent a higher REWORK value, re-RECEIVE will fail with a very descriptive message to the effect that the REWORK value is not higher than the old one. Re-APPLY will fail without REDO if the sysmod already exists in the target zone regardless of whether the latest version of the sysmod differs from one previously *APPLied*. No comparison is done. You have to be careful that the new sysmod has the same structure (same combination of elements in the same relationship) in order to do what we do. It's our usermod; we haven't changed it for years. Occasionally a sysmod will come from IBM that explicitly instructs the user to first RESTORE/REJECT a previous version of it. Do it. If a sysmod is *not* present in the global and/or target zones, it will RECEIVE and/or APPLY without REWORK or REDO. If you're uncomfortable with REWORK/REDO, then by all means do RESTORE/REJECT first. The key is to get the JCLIN right because that's how SMPE knows how to 'fully install' your sysmod. . . J.O.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 626-302-7535 Office 323-715-0595 Mobile jo.skip.robin...@sce.com From: Jon Perryman jperr...@pacbell.net To: IBM-MAIN@LISTSERV.UA.EDU, Date: 05/15/2014 01:06 PM Subject:Re: SMP/E Question regarding automatically relinking a load module with maintenance Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU There is an error in your usermod. Using group temporarily corrected your problem but you still have a problem. If you change this exit again, you may not get the expected results from APPLY GROUP REDO. Without specifics, we can only guess at the error. For example, if this module was auto linked with the load module instead of SMP/E replacing the module within the load module.In this case, the first APPLY would have assembled the module. The second apply with GROUP would have linked it. If this is the problem, then SMP/e won't specify REPLACE for the binder. Skip's recommendation is good example. Just be aware that you need to ensure the JCLIN matches existing definitions. Your description of the modules and load module structure is not clear so you may have additional modules that are affected. Check with the vendor for a sample on how they recommend installing this as a usermod. Jon Perryman On Thursday, May 15, 2014 10:08 AM, Hardee, Chuck chuck.har...@thermofisher.com wrote: I added GROUP to one of the APPLY REDOs for one of the exit usermods and now the user mod gets assembled and the table module gets relinked. Exactly what I wanted. -- 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 3270 Data Stream question
On 5/15/2014 2:58 PM, Micheal Butz wrote: Can anyone give me an idea of how to make sense of the table E.G pos 1 or O is X'40' Conventionally we use column and row numbers beginning at 1, but 3270 addresses are relative to zero. So 0,0 is 4040. As you should see from your code, the binary address (up to twelve bits) is split into two six bit values, and each of those is translated by the table into printable EBCDIC characters. Gerhard Postpischil Bradford, Vermont -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: z10 IPL from Utility Tape - FIXED
The system is finally up and running. The customer opened a ticket with IBM after getting one of those ACTZ messages and I guess it really just comes down to who happens to be available on any particular day because the customer was instructed to log into the DS6800 system with a special CE code and after some commands were entered the system was able to IPL from the OS volume. I don't have the exact keystrokes used but I will make sure that we have a copy saved somewhere for future use if necessary. It's quite likely that this may have been the problem that plagued us back in 2012. I do not know if this was an oversite during the initial configuration process or not but given the problems we've had - they seem so un IBM like - I wouldn't be surprised if it was. Thanks again for all of the help and suggestions! Karl Severson Raytheon Company -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: z10 IPL from Utility Tape - FIXED
Well, you're welcome for the SWAGs, but I don't think anyone here came close. Except maybe Bob Shannon, who suggested that your DASD subsystem was broken. Easy fix, at least. . . J.O.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 626-302-7535 Office 323-715-0595 Mobile jo.skip.robin...@sce.com From: Karl Severson karl_j_sever...@raytheon.com To: IBM-MAIN@LISTSERV.UA.EDU, Date: 05/15/2014 02:42 PM Subject:Re: z10 IPL from Utility Tape - FIXED Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU The system is finally up and running. The customer opened a ticket with IBM after getting one of those ACTZ messages and I guess it really just comes down to who happens to be available on any particular day because the customer was instructed to log into the DS6800 system with a special CE code and after some commands were entered the system was able to IPL from the OS volume. I don't have the exact keystrokes used but I will make sure that we have a copy saved somewhere for future use if necessary. It's quite likely that this may have been the problem that plagued us back in 2012. I do not know if this was an oversite during the initial configuration process or not but given the problems we've had - they seem so un IBM like - I wouldn't be surprised if it was. Thanks again for all of the help and suggestions! Karl Severson Raytheon Company -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TSO 3270 Data Stream question
Yes but why these printable ebcdic codes Sent from my iPhone On May 15, 2014, at 3:02 PM, Alan Field alan_c_fi...@bluecrossmn.com wrote: Perhaps this will help: /*rexx*/ /* Generate 3270 codes for cursor positioning */ arg row column scrwidth if scrwidth = '' then scrwidth = 80 codes = 40 C1 C2 C3 C4 C5 C6 C7 C8 C9 4A 4B 4C 4D 4E 4F, 50 D1 D2 D3 D4 D5 D6 D7 D8 D9 5A 5B 5C 5D 5E 5F, 60 61 E2 E3 E4 E5 E6 E7 E8 E9 6A 6B 6C 6D 6E 6F, F0 F1 F2 F3 F4 F5 F6 F7 F8 F9 7A 7B 7C 7D 7E 7F sba = (row*scrwidth)+(column)-(scrwidth+1) sba = d2x(sba,4) sba = x2b(sba) sba1 = x2d(b2x(substr(sba,5,6)))+1 sba2 = x2d(b2x(substr(sba,11,6)))+1 sba1 = word(codes,sba1) sba2 = word(codes,sba2) say DCX'11,sba1,sba2' Alan Field Technical Engineer Principal BCBS Minnesota Phone: 651.662.3546 Mobile: 651.428.8826 From: Micheal Butz michealb...@comcast.net To: IBM-MAIN@LISTSERV.UA.EDU, Date: 05/15/2014 13:59 Subject:Re: TSO 3270 Data Stream question Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Can anyone give me an idea of how to make sense of the table E.G pos 1 or O is X'40' Sent from my iPhone On May 15, 2014, at 2:47 PM, Gerhard Postpischil gerha...@charter.net wrote: On 5/15/2014 2:33 PM, Micheal Butz wrote: Yes I have as I was running under TESTAUTH E3D4 gives me row 29 column 21, not what you wanted. Row 5 column 1 is C540 So either your conversion doesn't work, or your buffer is getting clobbered. Gerhard Postpischil Bradford, Vermont -- 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 3270 Data Stream question
Those are the EBCDIC equivalents of the BCD 64-character printable characters standard on IBM hardware of the time before EBCDIC. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Micheal Butz Sent: Thursday, May 15, 2014 5:53 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: TSO 3270 Data Stream question Yes but why these printable ebcdic codes Sent from my iPhone On May 15, 2014, at 3:02 PM, Alan Field alan_c_fi...@bluecrossmn.com wrote: Perhaps this will help: /*rexx*/ /* Generate 3270 codes for cursor positioning */ arg row column scrwidth if scrwidth = '' then scrwidth = 80 codes = 40 C1 C2 C3 C4 C5 C6 C7 C8 C9 4A 4B 4C 4D 4E 4F, 50 D1 D2 D3 D4 D5 D6 D7 D8 D9 5A 5B 5C 5D 5E 5F, 60 61 E2 E3 E4 E5 E6 E7 E8 E9 6A 6B 6C 6D 6E 6F, F0 F1 F2 F3 F4 F5 F6 F7 F8 F9 7A 7B 7C 7D 7E 7F sba = (row*scrwidth)+(column)-(scrwidth+1) sba = d2x(sba,4) sba = x2b(sba) sba1 = x2d(b2x(substr(sba,5,6)))+1 sba2 = x2d(b2x(substr(sba,11,6)))+1 sba1 = word(codes,sba1) sba2 = word(codes,sba2) say DCX'11,sba1,sba2' Alan Field Technical Engineer Principal BCBS Minnesota Phone: 651.662.3546 Mobile: 651.428.8826 From: Micheal Butz michealb...@comcast.net To: IBM-MAIN@LISTSERV.UA.EDU, Date: 05/15/2014 13:59 Subject:Re: TSO 3270 Data Stream question Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Can anyone give me an idea of how to make sense of the table E.G pos 1 or O is X'40' Sent from my iPhone On May 15, 2014, at 2:47 PM, Gerhard Postpischil gerha...@charter.net wrote: On 5/15/2014 2:33 PM, Micheal Butz wrote: Yes I have as I was running under TESTAUTH E3D4 gives me row 29 column 21, not what you wanted. Row 5 column 1 is C540 So either your conversion doesn't work, or your buffer is getting clobbered. Gerhard Postpischil Bradford, Vermont -- This message and any attachments are intended only for the use of the addressee and may contain information that is privileged and confidential. If the reader of the message is not the intended recipient or an authorized representative of the intended recipient, you are hereby notified that any dissemination of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail and delete the message and any attachments from your system. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: z10 IPL from Utility Tape - FIXED
Almost sounds like it was in CE mode! In a message dated 5/15/2014 4:47:50 P.M. Central Daylight Time, jo.skip.robin...@sce.com writes: Except maybe Bob Shannon, who suggested that your DASD subsystem was broken. Easy fix, at least. . -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TSO 3270 Data Stream question
On 5/15/2014 5:52 PM, Micheal Butz wrote: Yes but why these printable ebcdic codes Six bits for a portion of the address leave two bits available. When the 3270 family was introduced, all printable characters had the x'40' bit on. The x'80' bit is set on or off to produce a printable character (see the 360 or 370 reference card for the then extant characters). Modern, extended data stream devices assign special meaning to the x'40' bit, but they also don't support ASCII any more. For example, a bit value of 0A would first get x'40' ORed in, producing x'4A', which is printable. But a value of 16, turned into 56 is not, so x'80' is ORed to produce D6. If your question is why use EBCDIC code, that may be due to early modems, that recognized a few line control characters, and expected printable characters for the data. Also the remote 3270 came in both an EBCDIC and ASCII variety, and ASCII support required printable characters for conversion (IBM 3272/3277 shows remote controls; even those were translated to ASCII printables). Gerhard Postpischil Bradford, Vermont -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: z10 IPL from Utility Tape - FIXED
Karl: From what little I have been following this discussion. I think you should get a better handle on what is you *VALID* IOCP (put it on a tape or other media that can always be reachable). Also have the standalone utilities in standalone form on a media that is always available. Ed On May 15, 2014, at 4:42 PM, Karl Severson wrote: The system is finally up and running. The customer opened a ticket with IBM after getting one of those ACTZ messages and I guess it really just comes down to who happens to be available on any particular day because the customer was instructed to log into the DS6800 system with a special CE code and after some commands were entered the system was able to IPL from the OS volume. I don't have the exact keystrokes used but I will make sure that we have a copy saved somewhere for future use if necessary. It's quite likely that this may have been the problem that plagued us back in 2012. I do not know if this was an oversite during the initial configuration process or not but given the problems we've had - they seem so un IBM like - I wouldn't be surprised if it was. Thanks again for all of the help and suggestions! Karl Severson Raytheon Company -- 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