Re: What were RACF profile classes $INT
Len Rugen wrote: We were doing some cleanup and ran across some RACF classes, $INT, $INTAPPL, $INTPROJ and $INTTBL. The only comment is something about INFOSESSION. The $INT class has some profiles that look like: PTI.INTEGRATOR.CONFIGURE PTI.INTEGRATOR.HELPDESK PTI.INTEGRATOR.RUNTIME PTI.INTEGRATOR.SYSOPER PTI.INTEGRATOR.WORKBENCH The bad part is that the update has one of my old userid's and says it was done in the late 90's, and I don't remember it yet anyway. I suspect it was something for a trail or a project that was killed off, this is about the time it was decided to convert everything to PeopleSoft on non-mainframe equipment. I think I can delete it, but I'm just a little courious. These are installation-defined classes. IBM never provide classes with classname containing numeric of national character. Usually such names are administrator-chosen (not hard coded in the application). Set up some audit and see whether it is ued. -- Radoslaw Skorupka Lodz, Poland -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Memory limit / IEFUSI / QUICK SURVEY
Shmuel Metz , Seymour J. [EMAIL PROTECTED] wrote in message news:[EMAIL PROTECTED]... In [EMAIL PROTECTED], on 11/22/2005 at 09:27 AM, Vernooy, C.P. - SPLXM [EMAIL PROTECTED] said: It will limit the amount of virtual storage an address space can get and thus the amount of real storage needed to back it. FSVO thus. Unless it is page fixed, the amount of real storage needed is dependent on the usage pattern, not the size. I meant this for an address space that would getmain 2GB virtual in a short period and also use it. The system can only provide this by massive page outs in other address spaces, Untrue; it can also provide that with massive pageouts in the same address space. I think there is some misunderstanding about the circumstances: you are referring to a system running in the stable situation I mentioned. In this situation, your answers above are valid. I am referring to a sudden change in the stable situation caused by a job starting, getting 2 GB and using it immediately. This causes RSM to cope with by rapidly making Real room for the 2 GB Virtual storage. This causes massive page outs of non-recently referenced pages from all other ASIDs, resulting in a high(er) page in rate for the time following this event, when the system creates a new stable situation, where the offenders pages will also be paged out and the victims pages will be paged in again. The system can handle this very well, but it needs some time and paging activity to adapt to the new situation. This sudden massive page out is what I mean when I say, that a job blows a large part of the working set of the rest of the ASIDs out of real storage. Via IEFUSI you can control how large this amount of storage is, that RMS must suddenly make available to a new job and control the consequences of such a mis-behaving of unforseen storage user. We see this effect already with the WMQI Broker, that does this with chunks of 0.5 GB for each Execution Group and if you restart a Broker with 5 execution groups, you have a sudden request for 2.5 GB real, that will display the above described effect. Depending on the amount of real storage the effects can be acceptable or dramatic/catastrophic. We have 8 GB Real in the Broker's systems and see the paging effect without problematic consequences for the rest of the system, but if you have 4GB I am quite sure your system will be nearly brought down to its knees for a couple of minutes to reach a new stable situation. Controlling the offender is controlling your system. Kees. ** For information, services and offers, please visit our web site: http://www.klm.com. This e-mail and any attachment may contain confidential and privileged material intended for the addressee only. If you are not the addressee, you are notified that no part of the e-mail or any attachment may be disclosed, copied or distributed, and that any other action related to this e-mail or attachment is strictly prohibited, and may be unlawful. If you have received this e-mail by error, please notify the sender immediately by return e-mail, and delete this message. Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its employees shall not be liable for the incorrect or incomplete transmission of this e-mail or any attachments, nor responsible for any delay in receipt. ** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Mainframe DASD in SAN
John, i've had managed a single HDS 9960 box that had both MVS volumes and OPEN-3 volumes. i had the MVS OPEN-3 vols on separate disk array groups. - ravi. On Mon, 21 Nov 2005 08:54:50 -0600, Chase, John [EMAIL PROTECTED] wrote: Hi, All, Couldn't find anything in the archives on this topic (since January 2004), so Is anybody using DASD that has been carved out of a Storage Area Network (SAN)? I.e., you have a big SAN box in which your mainframe DASD resides along with your non-mainframe disk? TIA, -jc- -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Is there an IBM supplied DSECT that maps the linkage stack entry?
No there is not. And oh by the way even after you get all that you need from the Principles of Operation, be aware that there are sections of a linkage stack within which the entries are, and you cannot necessarily navigate from one section to the next using architected-by-hardware structures. And of course you need to be sensitive to the architecture level, as the LSE has changed from ESA/390 to z/Architecture. Peter Relson z/OS Core Technology Design -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: dynamic LPA
In Don Ault's append, change exit to exit routine in the words. It is MODULE or MODNAME in the command syntax. And for IEFACTRT, as Barbara Nitz pointed out, the actual exit name is one of SYS.IEFACTRT, SYSSTC.IEFACTRT, etc depending upon your SMF specifications. Peter Relson z/OS Core Technology Design -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: What were RACF profile classes $INT
Len, These profiles are probably for the CA (then Platinum) product INFOSESSION, which was a client server/host integration product. Wayne Driscoll Product Developer Western Metal Supply NOTE: All opinions are strictly my own. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Len Rugen Sent: Tuesday, November 22, 2005 6:14 PM To: IBM-MAIN@BAMA.UA.EDU Subject: What were RACF profile classes $INT We were doing some cleanup and ran across some RACF classes, $INT, $INTAPPL, $INTPROJ and $INTTBL. The only comment is something about INFOSESSION. The $INT class has some profiles that look like: PTI.INTEGRATOR.CONFIGURE PTI.INTEGRATOR.HELPDESK PTI.INTEGRATOR.RUNTIME PTI.INTEGRATOR.SYSOPER PTI.INTEGRATOR.WORKBENCH The bad part is that the update has one of my old userid's and says it was done in the late 90's, and I don't remember it yet anyway. I suspect it was something for a trail or a project that was killed off, this is about the time it was decided to convert everything to PeopleSoft on non-mainframe equipment. I think I can delete it, but I'm just a little courious. Thanks -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: SYS1.UADS - when is it read?
On 11/22/2005 10:57 AM, Patrick Lyon wrote: On Tue, 22 Nov 2005 08:33:25 -0600, Dave Butts [EMAIL PROTECTED] wrote: Patrick, I can't speak for ACF2 or RACF, but the conversion to Top Secret is incredibly simple. One of the TSS manuals has a chapter on how to do it. It is as simple as running a batch job to perform the conversion. HTH, Dave Dave, we have RACF. Perhaps there is something available within RACF that will do the same. I will do some checking. Thanks for the tip! The conversion utility is part of TSO/E, and is called RACONVRT. Look in the TSO/E Customization manual for information. As I recall it does not copy the user's logon command (from the logon panel) during the conversion process, but I believe that if you leave the user entries in UADS until after their first logon, that TSO/E will grab the command from UADS at that time, and put it into RACF. Walt Farrell, CISSP z/OS Security Design, IBM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: displaying hexadecimal content of a field in COBOL
-Original Message- From: IBM Mainframe Discussion List On Behalf Of Art Celestini I was hoping one of the COBOL gurus would pick up on my assembler example. I haven't tried this, so I don't know what the compiler will generate for the INSPECT (hopefully just a simple TRanslate instruction), but this is the kind of thing I had in mind. 4-byte internal-hex input goes into WS-HEX-INPUT-ARG and 8-byte external- hex output comes out in WS-HEX-OUTPUT: 01 WS-HEXWORK-AREA. 05 WS-HEX-INPUT-AREA. 10 WS-HEX-INPUT-ARGPIC X(4). 10 FILLER PIC X. 05 WS-HEX-INPUT-COMP3 REDEFINES WS-HEX-INPUT-AREA PIC S9(9) COMP-3. 05 WS-HEX-OUTPUT-AREA. 10 WS-HEX-OUTPUT PIC X(8). 10 FILLER PIC X. 05 WS-HEX-OUTPUT-DISPLAY REDEFINES WS-HEX-OUTPUT-AREA PIC S9(9). ... MOVE WS-HEX-INPUT-COMP3 TO WS-HEX-OUTPUT-DISPLAY. INSPECT WS-HEX-OUTPUT CONVERTING X'FAFBFCFDFEFF' TO 'ABDCEF'. PP 5655-G53 IBM Enterprise COBOL for z/OS 3.3.1 DMYCOBOL Date 11/23/2005 Time 07:13:20 ... 18 MOVE 000386 5820 912C L 2,300(0,9) BLW=0 00038A F844 D0E8 2000 ZAP 232(5,13),0(5,2)TS2=0 WS-HEX-INPUT-COMP3 000390 F384 2005 D0E8 UNPK 5(9,2),232(5,13) WS-HEX-OUTPUT-DISPLAY TS2=0 19 INSPECT 000396 DC07 2005 A018 TR5(8,2),24(10) WS-HEX-OUTPUT PGMLIT AT +20 -jc- -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: displaying hexadecimal content of a field in COBOL
Thanks John! I'm assuming the translate table generated by the compiler leaves X'F0'-X'F9' unchanged. (I don't know if the compiler prints the whole table.) If so, it looks like it should work just fine. --Art At 08:20 AM 11/23/2005, Chase, John wrote: -Original Message- From: IBM Mainframe Discussion List On Behalf Of Art Celestini I was hoping one of the COBOL gurus would pick up on my assembler example. I haven't tried this, so I don't know what the compiler will generate for the INSPECT (hopefully just a simple TRanslate instruction), but this is the kind of thing I had in mind. 4-byte internal-hex input goes into WS-HEX-INPUT-ARG and 8-byte external- hex output comes out in WS-HEX-OUTPUT: 01 WS-HEXWORK-AREA. 05 WS-HEX-INPUT-AREA. 10 WS-HEX-INPUT-ARGPIC X(4). 10 FILLER PIC X. 05 WS-HEX-INPUT-COMP3 REDEFINES WS-HEX-INPUT-AREA PIC S9(9) COMP-3. 05 WS-HEX-OUTPUT-AREA. 10 WS-HEX-OUTPUT PIC X(8). 10 FILLER PIC X. 05 WS-HEX-OUTPUT-DISPLAY REDEFINES WS-HEX-OUTPUT-AREA PIC S9(9). ... MOVE WS-HEX-INPUT-COMP3 TO WS-HEX-OUTPUT-DISPLAY. INSPECT WS-HEX-OUTPUT CONVERTING X'FAFBFCFDFEFF' TO 'ABDCEF'. PP 5655-G53 IBM Enterprise COBOL for z/OS 3.3.1 DMYCOBOL Date 11/23/2005 Time 07:13:20 ... 18 MOVE 000386 5820 912C L 2,300(0,9) BLW=0 00038A F844 D0E8 2000 ZAP 232(5,13),0(5,2)TS2=0 WS-HEX-INPUT-COMP3 000390 F384 2005 D0E8 UNPK 5(9,2),232(5,13) WS-HEX-OUTPUT-DISPLAY TS2=0 19 INSPECT 000396 DC07 2005 A018 TR5(8,2),24(10) WS-HEX-OUTPUT PGMLIT AT +20 -jc- == Art Celestini Celestini Development Services Phone: 201-670-1674Wyckoff, NJ = http://celestini.com = Mail sent to the From address used in this post will be rejected by our server. Please send off- list email to: ibmmainat-signcelestinidotcom. == -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: displaying hexadecimal content of a field in COBOL
-Original Message- From: IBM Mainframe Discussion List On Behalf Of Art Celestini Thanks John! I'm assuming the translate table generated by the compiler leaves X'F0'-X'F9' unchanged. (I don't know if the compiler prints the whole table.) If so, it looks like it should work just fine. Looks like it gens the whole table, starting at offset 20 (x'14'): (LIT+0) FFFC 1000 0001 C4D4E8C3 D6C2D6D3 00010203 04050607 08090A0B |DMYCOBOL| (LIT+32) 0C0D0E0F 10111213 14151617 18191A1B 1C1D1E1F 20212223 24252627 28292A2B || (LIT+64) 2C2D2E2F 30313233 34353637 38393A3B 3C3D3E3F 40414243 44454647 48494A4B | .¢.| (LIT+96) 4C4D4E4F 50515253 54555657 58595A5B 5C5D5E5F 60616263 64656667 68696A6B |(+|.!$*).¬-/.,| (LIT+128)6C6D6E6F 70717273 74757677 78797A7B 7C7D7E7F 80818283 84858687 88898A8B |%_?..:#@'=.abcdefghi..| (LIT+160)8C8D8E8F 90919293 94959697 98999A9B 9C9D9E9F A0A1A2A3 A4A5A6A7 A8A9AAAB |.jklmnopqrstuvwxyz..| (LIT+192)ACADAEAF B0B1B2B3 B4B5B6B7 B8B9BABB BCBDBEBF C0C1C2C3 C4C5C6C7 C8C9CACB |.ABCDEFGHI..| (LIT+224)CCCDCECF D0D1D2D3 D4D5D6D7 D8D9DADB DCDDDEDF E0E1E2E3 E4E5E6E7 E8E9EAEB |.JKLMNOPQRSTUVWXYZ..| (LIT+256)ECEDEEEF F0F1F2F3 F4F5F6F7 F8F9C1C2 C4C3C5C6 012C 0001 |0123456789ABDCEF| -jc- [ snip ] 19 INSPECT 000396 DC07 2005 A018 TR5(8,2),24(10) WS-HEX-OUTPUT PGMLIT AT +20 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: MP3000 emulated IO
MPTS adapter numbers and slot positions: You can specify adapter slot/device identifier in MPTS configuration. Relation of physical slot numbers and slot/device identifiers is given in MP3000 installation manual (SY24-6154-02), page 5-3 and in redbook Multiprise 3000 Basic Emulated I/O Definitions (SG24-5669-00), page 38: Slot slot identifier LG09 0064 LG10 0065 LG11 0066 LG12 0067 LG17/18 000B If slot is not specified in MPTS and you have multiple ethernet or multiple tokenring adapters, then ethernet adapters are assigned from bottom to top, tokenring adapters are assigned from top to bottom. The same device driver IBM 10/100 Ethernet PCI adapter can be used for both built-in ethernet adapter and additional ethernet adapters. (You should use current device driver; old version may not recognize built-in adapter). Each occurrence of ethenet driver in config.sys assigns the next ethernet adapter and displays (at boot time) slot identifiers of all ethernet cards recognized and what slot is assigned. This order of adapters is described in MP3000 Service guide (SY24-6155-02), page 2-10 and MP3000 Installation manual (SY24-6154-02), pages 6-35, 6-40. If ethernet adapter is to be used by mainframe TCPIP, then specify 'D' as 'type of Ethernet driver support' in 'properties of IBM IEEE 802.2' Device map Run awscfg, put cursor on device definition or driver name LCS3172, press F1, read help (D:\P390\LCS3172.DOC) The help file contains example of TCPIP definition and explanation of adapter numbering. Device numbers are not related to network adapters. You should use only one device pair (even,odd) to access all network adapters. You need more than one device pair, if devices are used by multiple instances of TCPIP, e.g. more LPARs. The same adapter cannot be used by multiple instances of TCPIP at the same time. PROFILE.TCPIP Adapter number specified in PROFILE.TCPIP is equal to sequential number (beginning with 0) of those network adapters in MPTS, that have protocol IEEE 802.2 specified. Example: 2 LPARs, we need 3 Ethernet adapters. Use adapter on SBC (single board computer - slot LG17/18) for TCPIP OS/2 and 2 additional adapters for 2 LPARs - in slots LG11, LG12. MPTS: adapter 0 Ethernet adapter (slot LG17) protocol TCPIP (used by TCPIP OS/2) protocol IEEE 802.2 (may be used by LPAR1 and LPAR2 SNA and OS/2 SNA, specify type='I') 1 Ethernet adapter (slot LG12) protocol IEEE 802.2 (used by TCPIP LPAR1, specify type='D') 2 Ethernet adapter (slot LG11) protocol IEEE 802.2 (used by TCPIP LPAR2, specify type='D') device map: ccuu type drivercomment 00CC 3088 LCS3172 Read channel LPAR1 00CD 3088 LCS3172 Write channel LPAR1 00CE 3088 LCS3172 Read channel LPAR2 00CF 3088 LCS3172 Write channel LPAR2 IOCP: CNTLUNIT CUNUMBR=FCCC,PATH=(FC),UNIT=3172,UNITADD=((CC,1)) IODEVICE ADDRESS=(05CC,1),CUNUMBR=(FCCC),UNIT=3172, X UNITADD=CC,PART=PAR1 CNTLUNIT CUNUMBR=FCCD,PATH=(FC),UNIT=3172,UNITADD=((CD,1)) IODEVICE ADDRESS=(05CD,1),CUNUMBR=(FCCD),UNIT=3172, X UNITADD=CD,PART=PAR1 CNTLUNIT CUNUMBR=FCCE,PATH=(FC),UNIT=3172,UNITADD=((CE,1)) IODEVICE ADDRESS=(05CE,1),CUNUMBR=(FCCE),UNIT=3172, X UNITADD=CE,PART=PAR2 CNTLUNIT CUNUMBR=FCCF,PATH=(FC),UNIT=3172,UNITADD=((CF,1)) IODEVICE ADDRESS=(05CF,1),CUNUMBR=(FCCF),UNIT=3172, X UNITADD=CF,PART=PAR2 PROFILE.TCPIP, LPAR PAR1: DEVICE LCS1 LCS 5CC LINK ETH1 ETHERNET 1 LCS1 PROFILE.TCPIP, LPAR PAR2: DEVICE LCS2 LCS 5CE LINK ETH2 ETHERNET 2 LCS2 If 2 ethernet cards are used in the same LPAR, then 1 device pair is sufficient: DEVICE LCS1 LCS 5CC LINK ETH1 ETHERNET 1 LCS1 LINK ETH2 ETHERNET 2 LCS1 Tomas On Mon, 14 Nov 2005 14:02:19 -0600, Peter Ten Eyck [EMAIL PROTECTED] wrote: Does anyone have experience with MP3000 emulated IO? I have been reviewing manuals GC38-0610-01 and SG24-5669-00 to try and understand this stuff. I am trying to understand the relationship between all the definitions: Ethernet card in physical slot Logical slot MPTS definitions Device Map IOCDS device number TCP/IP profile member In particular how do the MPTS definitions relate to the Device Map definitions? Also what is the Logical Adapter Number in the MPTS definition used for? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: displaying hexadecimal content of a field in COBOL
it looks like it should work just fine. And this is as good code as you would get with an assembler routine. Better, in a way, because you save the linkage instructions. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Art Celestini Sent: Wednesday, November 23, 2005 8:34 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: displaying hexadecimal content of a field in COBOL Thanks John! I'm assuming the translate table generated by the compiler leaves X'F0'-X'F9' unchanged. (I don't know if the compiler prints the whole table.) If so, it looks like it should work just fine. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IEFSSNXX
On Tue, 22 Nov 2005 15:22:40 -0500, Binyamin Dissen [EMAIL PROTECTED] wrote: On Tue, 22 Nov 2005 14:34:46 -0500 Schramm, Rob [EMAIL PROTECTED] wrote: :Does anyone know how much overhead is introduced by a subsys that is not :used on a system? :For example.. if I have :1)10 subsys (same on all systems), :2)10 production (db2, mq etc) :3)20 test subsystems (more db2 and mq) :What is the impact of having a single IEFSSN00 that contains all of the :subsystems v.s. separating it out somewhat? A small amount of CSA. And extra code path for anything that runs the SSCT chain. All broadcast SSI requests, which include WTO, command, and task termination processing, run the entire SSCT chain. Having unused subsystems defined slows down this process. Only directed SSI requests - those sent to a particular named subsystem - use a hash table lookup. Bill Neiman z/OS Development -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: FTP Initial Directory
In [EMAIL PROTECTED], on 11/22/2005 at 07:34 AM, Paul Gilmartin [EMAIL PROTECTED] said: How did they rationalize ignoring the customers who, to avoid catalog proliferation, assign multiple TSO User IDs to a single HLQ? What customers? That's a mode of operation that IBM never supported. I've done local mods to allow it, but it gets ugly, due to OCO. Such rejections can be reversed. Be my guest. I can't do anything as long as I'm unemployed, and even when I get a new job there's no guaranty that it will be with a SHARE member, much less a SHARE member that has the requirement. I don't recall the requirement number, but it was in the 1990's. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: displaying hexadecimal content of a field in COBOL
Replying to myself -Original Message- From: Chase, John -Original Message- From: IBM Mainframe Discussion List On Behalf Of Art Celestini [ snip ] 01 WS-HEXWORK-AREA. 05 WS-HEX-INPUT-AREA. 10 WS-HEX-INPUT-ARGPIC X(4). 10 FILLER PIC X. 05 WS-HEX-INPUT-COMP3 REDEFINES WS-HEX-INPUT-AREA PIC S9(9) COMP-3. ... MOVE WS-HEX-INPUT-COMP3 TO WS-HEX-OUTPUT-DISPLAY. INSPECT WS-HEX-OUTPUT CONVERTING X'FAFBFCFDFEFF' TO 'ABDCEF'. PP 5655-G53 IBM Enterprise COBOL for z/OS 3.3.1 ... 18 MOVE 000386 5820 912C L 2,300(0,9) BLW=0 00038A F844 D0E8 2000 ZAP 232(5,13),0(5,2) TS2=0 WS-HEX-INPUT-COMP3 000390 F384 2005 D0E8 UNPK 5(9,2),232(5,13) WS-HEX-OUTPUT-DISPLAY TS2=0 19 INSPECT 000396 DC07 2005 A018 TR5(8,2),24(10) WS-HEX-OUTPUT PGMLIT AT +20 It just occurred to me that the ZAP instruction generated for the COBOL MOVE statement could lead to S0C7s, so I checked the PoPs manual: Only the second operand is checked for valid sign and digit codes. What's significant here is that the second operand IS checked. Suppose the second operand (WS-HEX-INPUT-ARG) is initially the SNA sense code x'087D0001'. The fact that it's redefined as a COBOL COMP-3 field does not make it so. I believe the ZAP in this instance would choke on the 'D' in the middle of the number. What's needed here is a means to generate the UNPK instruction without the ZAP, and I can't think of any -jc- -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Determining size information for existing QSAM dataset
In [EMAIL PROTECTED], on 11/22/2005 at 01:25 PM, Ted MacNEIL [EMAIL PROTECTED] said: Doesn't the LISTDSI() function run without a TSO environment? As I recall, it will run in a TSO or Unix environment but not in a bare IRXJCL environment. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: SYS1.UADS - when is it read?
On Wed, 23 Nov 2005 08:16:57 -0500, Walt Farrell [EMAIL PROTECTED] wrote: The conversion utility is part of TSO/E, and is called RACONVRT. Look in the TSO/E Customization manual for information. As I recall it does not copy the user's logon command (from the logon panel) during the conversion process, but I believe that if you leave the user entries in UADS until after their first logon, that TSO/E will grab the command from UADS at that time, and put it into RACF. Walt Farrell, CISSP z/OS Security Design, IBM Thanks Walt - I shall look it up. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: displaying hexadecimal content of a field in COBOL
Sorry, I didn't notice the ZAP initially. If you want to pursue it, you could try playing with the S (sign indicator) in the pictures. (Try removing it from one or the other, or both, operands.) I believe the ZAP is added by the compiler to ensure sign consistency. But, obviously, we don't want it here. --Art At 09:11 AM 11/23/2005, Chase, John wrote: [...snip] It just occurred to me that the ZAP instruction generated for the COBOL MOVE statement could lead to S0C7s, so I checked the PoPs manual: Only the second operand is checked for valid sign and digit codes. What's significant here is that the second operand IS checked. Suppose the second operand (WS-HEX-INPUT-ARG) is initially the SNA sense code x'087D0001'. The fact that it's redefined as a COBOL COMP-3 field does not make it so. I believe the ZAP in this instance would choke on the 'D' in the middle of the number. What's needed here is a means to generate the UNPK instruction without the ZAP, and I can't think of any == Art Celestini Celestini Development Services Phone: 201-670-1674Wyckoff, NJ = http://celestini.com = Mail sent to the From address used in this post will be rejected by our server. Please send off- list email to: ibmmainat-signcelestinidotcom. == -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: dynamic LPA
A question related to the topic being discussed: Are the SYS1.PARMLIB(PROGxx) entries: LPA ADD DSNAME(SYS1.MVS.EXITLOAD) MODNAME(...) always processed before: EXIT ADD EXITNAME(SYS.name) MODNAME(...) during z/OS initialization? Or, are they processed in as specified via PARMLIB sequence? (In such a case one needs to ensure to specify PROGxx LPA entries before corresponding EXITs). Since I not sure of the above, and I did not conduct an appropriate experiment to ascertain the above - I still load my exits into LPA via IEALPA00. Thanks ... Janek -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Master Catalog
Is there an easy way to backup a master catalog? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Master Catalog
Is there ab=n easy way to backup a master catalog ? WSBrown -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Master Catalog
On Wed, 23 Nov 2005 09:28:37 -0600, Warren Brown [EMAIL PROTECTED] wrote: Is there ab=n easy way to backup a master catalog ? WSBrown -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html //STEP1 EXEC PGM=IDCAMS,REGION=0M EXPORT @YOUR.MASTERCAT/PASSWD OUTFILE (SYSUT2) TEMP //SYSPRINT DD SYSOUT=* //SYSUT2 DD UNIT=TAPE,DISP=(,CATLG,DELETE),VOL=(,RETAIN),LABEL=1, // DSN=MVS.DUMP.CATALOGS(+1), // DCB=(GDG,RECFM=U,BLKSIZE=32760,TRTCH=COMP) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Master Catalog
On the DFSMS Bookshelf there is manual titled Managing Catalogs. In that manual there is a chapter on backing up catalogs. That should provide you with all of the information you need. The manuals are your friends. Don Imbriale -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Warren Brown Sent: Wednesday, November 23, 2005 10:28 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Master Catalog Is there an easy way to backup a master catalog? *** Bear Stearns is not responsible for any recommendation, solicitation, offer or agreement or any information about any transaction, customer account or account activity contained in this communication. *** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IEFSSNXX
On Wed, 2005-11-23 at 08:05 -0600, Bill Neiman wrote: All broadcast SSI requests ... run the entire SSCT chain. Having unused subsystems defined slows down this process. I'd be surprised if the delay was measurable. REALLY surprised. -- David Andrews A. Duda and Sons, Inc. [EMAIL PROTECTED] -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: displaying hexadecimal content of a field in COBOL
use this instead 10 WS-UNPK PIC 9(9)V. 10 WS-PACK. 15 WS-PACKN PIC S9(9) COMP-3. ** * CONVERT X'FA' THRU X'FF' TO CHAR A THRU F * * TRANSLATE TABLE* ** 10 WS-CONVERT-FROMPIC X(6) VALUE X'FAFBFCFDFEFF'. 10 WS-CONVERT-TO PIC X(6) VALUE 'ABCDEF'. with this for code MOVE 0 TO WS-PACKN MOVE WS-CONNECT-REASCD-X (1:4) TO WS-PACK (1:4) MOVE WS-PACKN TO WS-UNPK MOVE WS-UNPK (1:8) TO PRINT-VALUE (1:8) INSPECT PRINT-VALUE (1:8) CONVERTING WS-CONVERT-FROM TO WS-CONVERT-TO The ZAP does not care about the embedded A thru F in the digits position - It only checks the sign nibble. See POP for deteails. This is the code I use to display DB2 return codes so I know it handles c,d,e and f in digits position. the code to leave the sign + 1 digit of decimal is there to prevent S0C7 on the sign nibble. Mike -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IEFSSNXX
I'd be surprised if the delay was NOT measurable. But I suspect the delay is not significant. Don Imbriale On Wed, 23 Nov 2005 10:43:42 -0500, David Andrews [EMAIL PROTECTED] wrote: I'd be surprised if the delay was measurable. REALLY surprised. -- David Andrews A. Duda and Sons, Inc. [EMAIL PROTECTED] -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: dynamic LPA
re: ms. Nitz's last contribution (i don't this will work ) actually, i think it does work: i'm running z/os 14, and my smfprm00 reads (in part): exits(iefactrt,iefusi, ) and when i do a d prog.exit the output is (in part): sys.iefactrt sys.iefusi. and both of those exits are working quite well, as far as i can tell . == /s/ tuco bonno graduate, College of Conflict Management, University of Southeast Asia. I partied on the Ho Chi Minh trail -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IEFSSNXX
Bill Neiman wrote: All broadcast SSI requests, which include WTO, command, and task termination processing, run the entire SSCT chain. Having unused subsystems defined slows down this process. Only directed SSI requests - those sent to a particular named subsystem - use a hash table lookup. That's true. But, the additional path length is negligible. Only active subsystems that capture SVC 35 will actually get control. A dummy subsystem without an SSVT (no INIT routine created one) adds only three additional instructions. One with an SSVT adds just a few more. No big deal. We're not talking about thousands of entries here. -- .-. | Edward E. Jaffe|| | Mgr, Research Development| [EMAIL PROTECTED]| | Phoenix Software International | Tel: (310) 338-0400 x318 | | 5200 W Century Blvd, Suite 800 | Fax: (310) 338-0801| | Los Angeles, CA 90045 | http://www.phoenixsoftware.com | '-' -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IEFSSNXX
On Wed, 23 Nov 2005 09:09:00 -0800, Edward E. Jaffe wrote: Bill Neiman wrote: All broadcast SSI requests, which include WTO, command, and task termination processing, run the entire SSCT chain. Having unused subsystems defined slows down this process. Only directed SSI requests - those sent to a particular named subsystem - use a hash table lookup. That's true. But, the additional path length is negligible. Only active subsystems that capture SVC 35 will actually get control. A dummy subsystem without an SSVT (no INIT routine created one) adds only three additional instructions. One with an SSVT adds just a few more. No big deal. We're not talking about thousands of entries here. No, but we are talking about millions of calls (especially from task termination processing on some software - your software probably isn't task challenged, Ed). Count the WTOs in a syslog for an estimate of the WTO cost per subsystem. Tasks are harder to get a handle on, but there is always SVC sampling (RYO) for ATTACH/DETACH if you are curious. -- Tom Schmidt Madison, WI -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
sftp interactive under uss shell?
The user's guide for openSSH states, sftp is an interactive file transfer program similar to ftp which performs all operations over an encrypted ssh transport. It may also use many features of ssh, such as public key authentication and compression. sftp connects and logs into the specified host and then enters an interactive command mode. For those who use sftp on zOS, do you enter this interactive mode using the uss shell? I haven't made much progress trying to get an interactive session under the uss shell, and wanted to make sure this is the way that it's supposed to be done. Or is otelnet the only way to establish the interactive mode? Thanks, Joel -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: sftp interactive under uss shell?
In a recent note, Joel Ivey said: Date: Wed, 23 Nov 2005 11:33:14 -0600 For those who use sftp on zOS, do you enter this interactive mode using the uss shell? I haven't made much progress trying to get an interactive session under the uss shell, and wanted to make sure this is the way that it's supposed to be done. Or is otelnet the only way to establish the interactive mode? How would you use otelnet without getting to a uss shell? -- gil -- StorageTek INFORMATION made POWERFUL -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IEFSSNXX
Tom Schmidt wrote: No, but we are talking about millions of calls (especially from task termination processing on some software - your software probably isn't task challenged, Ed). Count the WTOs in a syslog for an estimate of the WTO cost per subsystem. Tasks are harder to get a handle on, but there is always SVC sampling (RYO) for ATTACH/DETACH if you are curious. The total number of broadcast SSI calls, expressed nominally, is not important. That will vary depending on system, workload, and measurement interval. What's important is the amount of additional overhead, calculated as a percentage of the system's capacity, that can be attributed to maintaining dummy subsystems in IEFSSNxx. Generally, the number of broadcast SSI requests is tiny (relatively speaking) when compared to the work being executed by a system. For any single broadcast SSI request, imagine how many instructions are being executed by each of the subsystems that actually care about the SSI calls being broadcast. A few extra instructions in the SSI router needed to loop through some dummy entries is a drop in the bucket compared to what's going on there! (I don't know what task challenged means, but we do have products with subsystems that process EOT/EOM events for cleanup purposes and, of course, we have lots of software that does multitasking. Various other subsystems, JES included, capture and process SVC 34/35 requests.) In our (admittedly smallish) environment, we share a single IEFSSNxx member across all systems. We know doing so isn't _absolutely_ free. But nothing worthwhile ever is. I thought Wayne Driscoll put it well when he said, ... but when weighing this against the management/change control issue, make it, in my opinion, a no-brainer to share one IEFSSNxx across the plex. Obviously, YMMV. -- .-. | Edward E. Jaffe|| | Mgr, Research Development| [EMAIL PROTECTED]| | Phoenix Software International | Tel: (310) 338-0400 x318 | | 5200 W Century Blvd, Suite 800 | Fax: (310) 338-0801| | Los Angeles, CA 90045 | http://www.phoenixsoftware.com | '-' -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IEFSSNXX
On Wed, 2005-11-23 at 11:25 -0600, Tom Schmidt wrote: Count the WTOs in a syslog for an estimate of the WTO cost per subsystem. Taking Ed's estimate of three instructions per inactive SSCVT, and assuming 10M WTOs per day, and ten inactive subsystems... that's roughly a CPU second per day spent cycling down the chain. There must be bigger fish to fry. -- David Andrews A. Duda and Sons, Inc. [EMAIL PROTECTED] -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: sftp interactive under uss shell?
-Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Paul Gilmartin Sent: Wednesday, November 23, 2005 12:19 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: sftp interactive under uss shell? In a recent note, Joel Ivey said: Date: Wed, 23 Nov 2005 11:33:14 -0600 For those who use sftp on zOS, do you enter this interactive mode using the uss shell? I haven't made much progress trying to get an interactive session under the uss shell, and wanted to make sure this is the way that it's supposed to be done. Or is otelnet the only way to establish the interactive mode? How would you use otelnet without getting to a uss shell? -- gil -- StorageTek INFORMATION made POWERFUL Well, if you're a masochist, you use TSO OMVS to get a UNIX shell. I confess to doing this sometimes. This is an interactive shell. I have used it to do ftp (not sftp) functions with no problems. Granted, it is just as easy to do ftp from TSO ISPF option 6 or the READY prompt. Or did you mean that otelnet will only get a uss shell. I.e. it cannot be used for anything else. Well, I guess that depends on what you call a shell. If you are strange enough, you could make a person's shell something like: tn3270 127.0.0.1 where is a port defined to TCPIP as a TN3270 port. Also assuming that you find a tn3270 program for z/OS UNIX (there doesn't appear to be one in z/OS 1.4). Most server userids that I have defined which must have an OMVS segment, end up with /bin/true as the shell. And they don't have a TSO segment or CICS segment. Neither are they on the APPL profiles for our CICS regions. This stops them from being used interactively. -- John McKown Senior Systems Programmer UICI Insurance Center Information Technology This message (including any attachments) contains confidential information intended for a specific individual and purpose, and its' content is protected by law. If you are not the intended recipient, you should delete this message and are hereby notified that any disclosure, copying, or distribution of this transmission, or taking any action based on it, is strictly prohibited. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IEFSSNXX
On Wed, 23 Nov 2005 13:39:14 -0500, David Andrews [EMAIL PROTECTED] wrote: On Wed, 2005-11-23 at 11:25 -0600, Tom Schmidt wrote: Count the WTOs in a syslog for an estimate of the WTO cost per subsystem. Taking Ed's estimate of three instructions per inactive SSCVT, and assuming 10M WTOs per day, and ten inactive subsystems... that's roughly a CPU second per day spent cycling down the chain. There must be bigger fish to fry. Perhaps true, but the issue isn't entirely one of the amount of CPU seconds per DAY. A large part of performance has to do with the nonuniform arrival rate of the instructions in question. Specifically, the activity doesn't spread itself evenly thoughout the day -- it usually happens in clumps or clusters. Usually when you are already busy (and in these cases generally when lots of tasks are terminating with lots of messages being issued). So having the extra few instructions serves to make a bad situation worse. I'm generally opposed to making bad things worse - I believe I am paid to make bad things better. When you reduce the size of the clump (i.e., the height on the graph) then you give yourself more headroom. And things get better (even if it isn't obvious when things aren't bad). -- Tom Schmidt Madison, WI -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Running COBOL under z/os.e
It looks like someone has finally contributed the interface program that allows running COBOL programs under z/os.e as file 727 on the CBT. I have no idea who could have done this (wink, wink, nudge, nudge). Hats off to Sam K and Sam G. And the very best of the season to you, yours, and theirs. http://www.cbttape.org/updates.htm -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Running COBOL under z/os.e
Isn't that equivelent to stealing? Dave Jousma Principal Systems Programmer [EMAIL PROTECTED] 616.653.8429 -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Hal Merritt Sent: Wednesday, November 23, 2005 3:12 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Running COBOL under z/os.e It looks like someone has finally contributed the interface program that allows running COBOL programs under z/os.e as file 727 on the CBT. I have no idea who could have done this (wink, wink, nudge, nudge). This e-mail transmission contains information that is confidential and may be privileged. It is intended only for the addressee(s) named above. If you receive this e-mail in error, please do not read, copy or disseminate it in any manner. If you are not the intended recipient, any disclosure, copying, distribution or use of the contents of this information is prohibited. Please reply to the message immediately by informing the sender that the message was misdirected. After replying, please erase it from your computer system. Your assistance in correcting this error is appreciated. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Running COBOL under z/os.e
In a message dated 11/23/2005 2:17:35 P.M. Central Standard Time, [EMAIL PROTECTED] writes: Isn't that equivelent to stealing? Or violating the license agreement and voiding the warrantee(s)? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Running COBOL under z/os.e
I'm actually surprised Sam would get in the middle of that with CBT. Dave Jousma Principal Systems Programmer [EMAIL PROTECTED] 616.653.8429 This e-mail transmission contains information that is confidential and may be privileged. It is intended only for the addressee(s) named above. If you receive this e-mail in error, please do not read, copy or disseminate it in any manner. If you are not the intended recipient, any disclosure, copying, distribution or use of the contents of this information is prohibited. Please reply to the message immediately by informing the sender that the message was misdirected. After replying, please erase it from your computer system. Your assistance in correcting this error is appreciated. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Running COBOL under z/os.e
-Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Jousma, David Sent: Wednesday, November 23, 2005 2:17 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: Running COBOL under z/os.e Isn't that equivelent to stealing? Dave Jousma Principal Systems Programmer [EMAIL PROTECTED] 616.653.8429 That depends entirely on the Terms and Conditions in the license. I think that IBM allows COBOL in specific cases, such as DB2 Stored Procedures. I don't know if this is truly stealing or just cheating. In any case, I do think that it is outside the spirit and intent as one of my high school teachers always used to say. But spirit and intent have little to do with legal. -- John McKown Senior Systems Programmer UICI Insurance Center Information Technology This message (including any attachments) contains confidential information intended for a specific individual and purpose, and its' content is protected by law. If you are not the intended recipient, you should delete this message and are hereby notified that any disclosure, copying, or distribution of this transmission, or taking any action based on it, is strictly prohibited. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Running COBOL under z/os.e
-Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Ed Finnell Sent: Wednesday, November 23, 2005 2:24 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: Running COBOL under z/os.e In a message dated 11/23/2005 2:17:35 P.M. Central Standard Time, [EMAIL PROTECTED] writes: Isn't that equivelent to stealing? Or violating the license agreement and voiding the warrantee(s)? Well, looking at: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/CEEA8160/PREF ACE quote Restrictions: The following restrictions apply to z/OS.e(TM): * The following compilers are not licensed for use on z/OS.e: o COBOL o PL/I o FORTRAN * Execution of applications written in the following languages is not functionally supported on z/OS.e: o COBOL (except for precompiled COBOL DB2(r) stored procedures and other precompiled COBOL applications using the Language Environment preinitialization interface (CEEPIPI)) /quote So, I guess it is indeed legit to do this. Now, what COBOL can run under normal LE, but not under CEEPIPI? That's the question! Also in: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/e0z2b161/1.11 quote Application programming: z/OS.e does not run the following types of applications: CICS, IMS, COBOL (with an exception), Fortran, and PL/I (with an exception). The COBOL exception is that precompiled COBOL DB2 stored procedures and other precompiled applications that use the Language Environment preinitialization interface (CEEPIPI) are supported. The PL/I exception is that precompiled PL/I applications are supported. These COBOL and PL/I applications could be compiled on a z/OS system, then run on a z/OS.e system. /quote -- John McKown Senior Systems Programmer UICI Insurance Center Information Technology This message (including any attachments) contains confidential information intended for a specific individual and purpose, and its' content is protected by law. If you are not the intended recipient, you should delete this message and are hereby notified that any disclosure, copying, or distribution of this transmission, or taking any action based on it, is strictly prohibited. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Running COBOL under z/os.e
No. The original, unmodified program CEEPIPI is documented in IBM Language Environment for MVS VM Programming Guide Document Number SC26-4818-05. The use is explicitly documented as allowed: * Execution of applications written in the following languages is not functionally supported on z/OS.e: o COBOL (*except* for precompiled COBOL DB2(r) stored procedures and other precompiled COBOL applications using the Language Environment preinitialization interface (CEEPIPI)) You may not run the compiler under z/os.e. The COBOL program must have been complied using LE runtimes. There is no restriction found as to which compliers may be used. -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Ed Finnell Sent: Wednesday, November 23, 2005 2:24 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: Running COBOL under z/os.e In a message dated 11/23/2005 2:17:35 P.M. Central Standard Time, [EMAIL PROTECTED] writes: Isn't that equivelent to stealing? Or violating the license agreement and voiding the warrantee(s)? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Running COBOL under z/os.e
In a message dated 11/23/2005 3:14:23 P.M. Central Standard Time, [EMAIL PROTECTED] writes: You may not run the compiler under z/os.e. The COBOL program must have been complied using LE runtimes. There is no restriction found as to which compliers may be used. Other than the one in the first sentence? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: LE Error CEE5101C - RC=156, Reason=0D070200/ABEND U4093-90
Found it and fixed it. Searching on CEE5101C lead me to http://www-1.ibm.com/support/docview.wss?uid=isg1II12870 among other APARs. It says that the resolution is ... use the setdubdefault assembler callable service so that new subtasks are dubbed as separate processes. It's documented in UNIX System Services Programming: Assembler Callable Services Reference as 2.166 set_dub_default (BPX1SDD) -- Set the Dub Default Service. I called it with a code of 1 (DUBPROCESS) at the start of the program and the problem went away. Charles -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: sftp interactive under uss shell?
Joel Ivey wrote: The user's guide for openSSH states, sftp is an interactive file transfer program similar to ftp which performs all operations over an encrypted ssh transport. It may also use many features of ssh, such as public key authentication and compression. sftp connects and logs into the specified host and then enters an interactive command mode. For those who use sftp on zOS, do you enter this interactive mode using the uss shell? I haven't made much progress trying to get an interactive session under the uss shell, and wanted to make sure this is the way that it's supposed to be done. Or is otelnet the only way to establish the interactive mode? Thanks, Joel I'm not sure what is meant by interactive mode. You must have ssh up and working. You do not really ssh to the z/OS host, you actually must have a sftp client and you sftp to z/OS. Under the covers this does create a ssh session to Unix System Services. Depending on your requirments we found that ftps (FTP SSL'ed) was easier to implment and use. One big advantage of FTP SSL is that it is full real ftp and so you can ftp to/from MVS data sents. ssh FTP only allows you to ftp files in HFS or ZFS systems. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: displaying hexadecimal content of a field in COBOL
It looks like if we change the S9(9)s to 9(9)s the ZAP goes away and an Or-Immediate is added. This Or-Immediate is unnecessary (it operates on one of the garbage bytes) but it is harmless. My POPs also says that the second operand is checked for valid =digit= codes, as well as valid sign. So, the ZAP had to go. IDENTIFICATION DIVISION. PROGRAM-ID. TEST01. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-HEXWORK-AREA. 05 WS-HEX-INPUT-AREA. 10 WS-HEX-INPUT-ARGPIC X(4). 10 FILLER PIC X. 05 WS-HEX-INPUT-COMP3 REDEFINES WS-HEX-INPUT-AREA PIC 9(9) COMP-3. 05 WS-HEX-OUTPUT-AREA. 10 WS-HEX-OUTPUT PIC X(8). 10 FILLER PIC X. 05 WS-HEX-OUTPUT-DISPLAY REDEFINES WS-HEX-OUTPUT-AREA PIC 9(9). PROCEDURE DIVISION. MOVE WS-HEX-INPUT-COMP3 TO WS-HEX-OUTPUT-DISPLAY. INSPECT WS-HEX-OUTPUT CONVERTING X'FAFBFCFDFEFF' TO 'ABDCEF'. GOBACK. ... 18 MOVE 000322 5820 912C L 2,300(0,9) BLW=0 000326 F384 2005 2000 UNPK 5(9,2),0(5,2) WS-HEX-OUTPUT-DISPLAY WS-HEX-INPUT-COMP3 00032C 96F0 200D OI13(2),X'F0' WS-HEX-OUTPUT-DISPLAY+8 19 INSPECT 000330 DC07 2005 A016 TR5(8,2),22(10) WS-HEX-OUTPUT PGMLIT AT +18 ... At 09:11 AM 11/23/2005, Chase, John wrote: [...snip] It just occurred to me that the ZAP instruction generated for the COBOL MOVE statement could lead to S0C7s, so I checked the PoPs manual: Only the second operand is checked for valid sign and digit codes. What's significant here is that the second operand IS checked. Suppose the second operand (WS-HEX-INPUT-ARG) is initially the SNA sense code x'087D0001'. The fact that it's redefined as a COBOL COMP-3 field does not make it so. I believe the ZAP in this instance would choke on the 'D' in the middle of the number. What's needed here is a means to generate the UNPK instruction without the ZAP, and I can't think of any == Art Celestini Celestini Development Services Phone: 201-670-1674Wyckoff, NJ = http://celestini.com = Mail sent to the From address used in this post will be rejected by our server. Please send off- list email to: ibmmainat-signcelestinidotcom. == -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: displaying hexadecimal content of a field in COBOL
Mike: Please see my other recent post on this topic regarding the ZAP. (I think it =does= care about X'A' through X'F' in the digit positions.) I also believe that using variable names in the INSPECT rather than literals will cause the generation of a lot of additional code to dynamically build the translate table. I might be wrong, but I don't think the compiler is smart enough to figure out that you never change WS-CONVERT-FROM or WS-CONVERT-TO, and it can therefore generate a static table. --Art At 10:48 AM 11/23/2005, Mike Bell wrote: use this instead 10 WS-UNPK PIC 9(9)V. 10 WS-PACK. 15 WS-PACKN PIC S9(9) COMP-3. ** * CONVERT X'FA' THRU X'FF' TO CHAR A THRU F * * TRANSLATE TABLE* ** 10 WS-CONVERT-FROMPIC X(6) VALUE X'FAFBFCFDFEFF'. 10 WS-CONVERT-TO PIC X(6) VALUE 'ABCDEF'. with this for code MOVE 0 TO WS-PACKN MOVE WS-CONNECT-REASCD-X (1:4) TO WS-PACK (1:4) MOVE WS-PACKN TO WS-UNPK MOVE WS-UNPK (1:8) TO PRINT-VALUE (1:8) INSPECT PRINT-VALUE (1:8) CONVERTING WS-CONVERT-FROM TO WS-CONVERT-TO The ZAP does not care about the embedded A thru F in the digits position - It only checks the sign nibble. See POP for deteails. This is the code I use to display DB2 return codes so I know it handles c,d,e and f in digits position. the code to leave the sign + 1 digit of decimal is there to prevent S0C7 on the sign nibble. == Art Celestini Celestini Development Services Phone: 201-670-1674Wyckoff, NJ = http://celestini.com = Mail sent to the From address used in this post will be rejected by our server. Please send off- list email to: ibmmainat-signcelestinidotcom. == -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: dynamic LPA
exits(iefactrt,iefusi, ) and when i do a d prog.exit the output is (in part): sys.iefactrt sys.iefusi . Exactly. *SYS*.iefactrt, not just *IEFACTRT* as Don specified. This is the most common mistake one makes when dealing with replacing an SMF exit (I've been down that road, myself). Barbara Nitz -- 10 GB Mailbox, 100 FreeSMS/Monat http://www.gmx.net/de/go/topmail +++ GMX - die erste Adresse für Mail, Message, More +++ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
