|
Unzipping MVS .ZIP data sets
2
Dear all, I'm trying to unzip some of the .ZIP files on the TK5 system but with no success. Does somebody have a working sample how this can be done successfully. Many thanks in advance. Silvio
|
|
MVS 3.8j (TK5) Crashes on Massive SORT
10
I've been playing with a SORT job to stress test my system. It sorts 99,999,999 random 80 byte records. The job works just fine if I am running with 1 CPU. Run MVS with 2 CPUs and it typically locks up, clocks, and sometimes I have to clear SYS1.LOGREC after an IPL. As far as I have read, MVS 3.8j ought to work fine with 2 CPUs but I've verified this enough to know that I can reliably reproduce the issue. If anyone has any ideas and would like me to produce some debug data to sift through, please let me know. In the meantime, I'll run MVS with 1 CPU.
|
|
SORT, REGION and MAIN
3
How do the values of REGION JCL paramater and the SORT parameter MAIN relate to one another. I suspect that REGION might need to be a bit larger than MAIN, but I cannot find any specific explanation. I'm playing around with a SORT of 99,999,999 randomly generated records. To get things work, I set the REGION to 2048K and MAIN to 1984K. The SORT works, but I'd like to be able to come up with the required values more scientifically. Running TK5/Update 3
|
|
Hi :) I am trying to understand how PDSs are allocated in a 3390. Facts: https://www.ibm.com/docs/en/zos/3.1.0?topic=pds-structure https://www.ibm.com/docs/en/zos/3.1.0?topic=pds-directory TSO001: 3390-1, 56,664 bytes/track PDS directory block: 256 bytes/dirBlock PDS EOF record: unknown Sequential Data Set With attributes: Record format: FB LRECL: 80 BLKSZ: 27,920 Primary space: 1 track Secondary space: 0 My expectations: Blocks per track: 2 56,664 bytes/track / 27,920 bytes/block = 2.0295 blocks/track Logical records per block: 349 27,920 bytes/block / 80 bytes/record = 349 records/block Max. logical records per track: 698 349 records/block * 2 blocks = 698 records I am able to confirm my expectations with the following card decks (please, find attached): fill-seq-ds-rc0.jcl (Creates a sequential data set with 698 logical records. RC=0) fill-seq-ds-sb37.jcl (Creates a sequential data set with 698 logical records, and ABENDs when inserting the logical record 699. SB37) Partitioned Data Set With attributes: Record format: FB LRECL: 80 BLKSZ: 27,920 Primary space: 1 track Secondary space: 0 Directory blocks: 1 Directory Blocks Space My expectations: 1 dirBlock = 256 bytes Min. dirEntry = 8+3+1=12 Max. entries = 21 256 / 12 = 21.333 I am able to get 20 members with the following card decks (please, find attached): fill-pds-dblk-rc0.jcl (Creates a PDS with 20 members, 1 logical record each. RC=0) fill-pds-dblk-sb14.jcl (Creates a PDS with 20 members, and ABENDs when creating the 21st member. SB14) Why 20 and not 21? What am I missing? Member Space My expectations: Space taken by directory blocks: 4 records 256 bytes / 80 bytes/record = 3.2 records Seq. DS max. logical records = 698 PDS max. logical records = 694 698 records/track - 4 records = 694 records I am able to create one member with max. 667 records with the following card decks (please, find attached): fill-pds-1member-rc0.jcl (Creates a PDS with 1 member with 667 records. RC=0) fill-pds-1member-sb37.jcl (Creates a PDS but ABENDs adding the member with 668 records. SB37) Why 31 records less? What am I missing? I am only able to create 14 members with 460 records total. 13 members with 34 records and 1 member with 18 records (please, find attached): fill-pds-20members-rc0.jcl (Creates a PDS with 14 members. RC=0) fill-pds-20members-sb37.jcl (Creates a PDS with 13 members, but ABENDs adding the 14th member with 19 records. SB37) Why 238 records less? What am I missing? Kind Regards
|
|
CLIST and TEST subcommands
3
With a few MVS/ESA and /XA systems I used CLISTs under TEST (because CLIST could process the results of TEST subcommands). One command displayed PSW, disassembly, regs. Under TK5 I've tried to do the same thing, and my CLIST library is allocated to SYSPROC, but TEST doesn't execute them. Is there something I need to configure, please? Roops
|
|
Re-create NJE38 Spool
9
I reorganized the work packs on my TK5 system and am now trying to re-create the NJE38 spool. Oddly, I can create and remove it just fine on a TSO pack, but it failed to create on a WORK pack. Here's what JOB0010 is telling me: IDCAMS SYSTEM SERVICES TIME: DEF CL ( NAME( NJE38.NETSPOOL ) /* <== VERIFY */ - RECSZ(4089,4089) - CYL(50) /* <== VERIFY */ - NUMBERED - CISZ(4096) - SHR(4 4) - FILE( SPLVOL ) - VOLUMES( WORK04)) /* <== VERIFY */ - DATA ( NAME( NJE38.NETSPOOL.DATA ) /* <== VERIFY */ - UNIQUE ) IDC3014I CATALOG ERROR IDC3009I ** VSAM CATALOG RETURN CODE IS 106 - REASON CODE IS IGG0CLAQ-4 IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12 IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 12 What am I getting wrong?
|
|
I wonder if there is a standard approved way to expand SYS2.LINKLIB?
11
Greetings. I am about to release some programs that need to use SYS2.LINKLIB, However, SYS2.LINKLIB has very little room for extra programs. I could add a space parameter to the IEBCOPY of the load modules to the installation procedures, and in fact this does work. However I think it would be preferable to expand Linklib so it stays in one extent. Does a safe way exist to do this? Thanks, Clem Clarke
|
|
eqqdelds
9
Hi group members. I learned something new today: where I used to delete datasets (needed to be allocated later in the job) using IEFBR14 or IDCAMS, there is a program called EQQDELDS (part of TWS if I'm not mistaken) that can look at DD statements in following job steps and delete every dataset which already is catalogued, but will be allocated again with disp(new,delete) or disp(new,catlg). Is there a program with equivalent functionality in TK5? Outside of TK5? Or is somebody willing to look into that so I can upgrade some of my JCL and be quicker with new JCL? A quick web search turned up nothing. Please let me know. best regards, René Jansen.
|
|
JCL Expert
19
Hi Does anyone know a utility to just check JCL syntax, like JCL Expert does? TIA Jo?o -- att. Jo?o
|
|
Hi :) Thank you very much for your answers to previous topics. I have a new questions. In MVS-TK5, the DASDs TSO001, TSO002 and TSO003 are 3390. Do all 3390 have 56,664 bytes/track? How can I know which 3390-N model is Hercules emulating? In the device list of the operator console I can see that TSO001, TSO002 and TSO003 have 1114 cyls. Is that the maximum cylinder count of the disk? In the Hercules documentation I found that 3390-1 uses 1113 cyls + 1 alt-cyls. Are all 3390 in MVS-TK5 3390-1? Is the maximum volume size for 3390 in MVS-TK5 (or Hercules) 946MB? Can Hercules emulate 3390-2, 3390-3, 3390-9, 3390-27, 3390-54? Kind Regards
|
|
Hi :) Following my first question about how MVS OS family allocates in integer number of tracks, I am reading https://bitsavers.org/pdf/ibm/dasd/GC20-1649-9_Introduction_to_IBM_Direct-Access_Storage_Devices_and_Organization_Methods_Dec75.pdf But, I find this: Reasons for Blocking Records The primary reason for blocking records is to pack direct access storage more efficiently. With blocked records, there is an Address Marker, Count Area, Key Area, and gaps for each block of records rather than for each logical record. Another reason for blocking is that it may save time. If records are processed consecutively, there is only one rotational delay before reading or writing a block of records. If records are not processed consecutively, however, blocking may be a disadvantage, since it takes longer to be processed. Is IBM 3390 is a CKD disk? If I allocate a data set with block size 512B, it will be read and written in chunks of 512B at a time? if I give a data set a block size of 4KB, it will be read and written in chunks of 4KB at a time? Do all tracks in a CKD disk have the same amount of bytes? The reason why we need set a BLKSIZE is to make the maximum integer number of those user-defined blocks fit in each track? Kind Regards Sergio Lindo Mansilla
|
|
About IBM 3390 and blocks
2
Hi :) Following my first questions about how MVS OS family allocates in integer number of racks, I am reading https://bitsavers.org/pdf/ibm/dasd/GC20-1649-9_Introduction_to_IBM_Direct-Access_Storage_Devices_and_Organization_Methods_Dec75.pdf But, I find this: """ Reasons for Blocking Records The primary reason for blocking records is to pack direct access storage more efficiently. With blocked records, there is an Address Marker, Count Area, Key Area, and gaps for each block of records rather than for each logical record. Another reason for blocking is that it may save time. If records are processed consecutively, there is only one rotational delay before reading or writing a block of records. If records are not processed consecutively, however, blocking may be a disadvantage, since it takes longer to be processed. """ Is IBM 3390 is a CKD disk? If I allocate a data set with block size 512B, it will be read and written in chunks of 512B at a time? if I give a data set a block size of 4KB, it will be read and written in chunks of 4KB at a time? Do all tracks in a CKD disk have the same amount of bytes? The reason why we need set a BLKSIZE is to make the maximum integer number of those user-defined blocks fit in each track? Kind Regards Sergio Lindo Mansilla
|
|
what version(s) of Hercules-390 support the CMPSC opcode?
2
Hi, all: What version(s) of Hercules-390 support the 390/ESA and newer z/arch. CMPSC opcode (Compression Call)? (Apparently this was a microcode-assisted implementation of LZ1 on S/390 models, and millicode on z/arch. models) On this page: https://sdl-hercules-390.github.io/html/ I scrolled down to the "Hercules Frequently-Asked Questions" link. I selected question 5.01: "What architectural features are implemented? I see: The following features of ESA/390 have been implemented: ... Compression and The following features of z/Architecture have been implemented: ... CMPSC-Enhancement Facility ... But, further down the page, it says: The following features of z/Architecture have not yet been implemented: ... DEFLATE-Conversion Facility Regarding: The following features of ESA/390 have been implemented: and The following features of z/Architecture have been implemented: Approx. when was each of these features or facilities implemented and in what version/release of Hercules-390. Or, asking another way: can someone tell me where to find such information? Thanks in advance. Mark S. Waterbury
|
|
CICS Map generator
13
Hello all, anyone know of a good BMS MAP generator software that’s fairly reasonable or free? I don’t need anything like microfocus or some other MF software vendor. Thanks Mike!
|
|
Allocating data set - block vs track vs cylinder
5
Hi, When using in MVS-TK5 the panel 3.2 to allocate a sequential data set Record format: FB Logical record length: 80 Physical block size: 27920 Volume: TSO001 Then I get to allocate in Tracks, Cylinders or Blocks. I wanted to find out the smallest data set that I can create in an IBM 3390. When I try to allocate 1 block, DSLIST shows ALTRK=1 I thought that the minimum allocation in disks was 1 block. But, in MVS-TK5, is 1 track the smallest I can allocate? I have tried to look for more information about it, without success. Could you clarify or point me to the a documentation that explains which component is responsible for that limit? Is it MVS, the disk controller or the disk itself? Kind regards Sergio Lindo Mansilla
|
|
C stack/heap memory model assumption and TSO TCB memory model
6
Hi In a different thread, in a different group (the Turnkey one) somebody mentioned (sorry, I forgot who) that there is a difference between the C (GCC) memory model (stack plus heap) and the TSO (and I presume other programs) memory model based on Task (?) Control Block. As I was brainwashed by Unix at a very early age (let's say, about 20kgs ago) I found this intriguing, as most OS books I knew of did not mention anything of the kind. Did I read too much in that off-hand comment? If there is a difference, what would be a good pointer to a summary of the topic before losing oneself in the overall IBM documentation? Thanks. Any help appreciated, even "don't bother!" :) PS I am asking because I teach, and I want students to at least know what happens (or happened) -- Marco Antoniotti Somewhere over the rainbow
|
|
NJE38 Usage
5
I've played with NJE38, but it's name implies that it can do NJE to a more modern JES2 system. I tried defining a connection between a TK5 system to a z/OS system at a friend's company without success. Despite the fact that NJE38 can use TCP/IP to communicate to another TK5 system, it doesn't seem to work with a modern TCP/IP NJE connection. I'm aware of the lack of SNA facilities in 3.8's VTAM. I don't know if there's a way to RJE to a TK5 system via Hercules and have a modern system connect via RJE instead. Any thoughts? Or is this a fool's errand?
|
|
NJE38 - talking from TK5 update 3 to TK4- with an older version of NJE
3
Dear Forum, so far, I have setup the copy of TK4- from my cloud system on the same Pi 5 where the new install of TK5 is running. Now I try to have them talk to each other via NJE38. There is an older (2.2.x I guess) install of NJE38 on the TK4- system and a more recent version (2.5.0) on TK5 update 3. Having set up the config like this: *NOTE: archives on github and here claim NJE38 Version 2.4.2, however, NJE38 identifies itself as 2.5.0 in the syslog on TK5). Node X484 (TK4-) 094 tcpnje 2703 lnode=X484 rnode=X406 lport=1175 rport=2175 rhost=x406.fritz.box Node X406 (TK5-) 094 tcpnje 2703 lnode=X406 rnode=X484 lport=2175 rport=1175 rhost=x406.fritz.box The syslog of X406 complains about with the following message to syslog HHCTN049E 0094:TCPNJE - Attempt to write 455 bytes to output socket only wrote 0 bytes. Error: Bad file descriptor The Link on the TK5 node is shown "inactive" while the link on TK4- is active. Could it be that running the NJE38 hosts on the very same machine is not supported? Or do I need to upgrade the NJE38 on TK4- to the same level? Nota bene: when issuing /S SHUTDOWN, the NJE38 STC gets purged on the TK4- node but then there is no further progress. TK5- shuts down a whole lot more including VTAM but also does not exit the Hercules emulator. Hmm... -- TK5 on Raspberry Pi 5 with Raspberry OS "bookworm" TK4- on Raspberry Pi 5 with Raspberry OS "bookworm" VM/370 on Raspberry Pi 5 with Raspberry OS "bookworm" Lime and limpid green, a second scene Now fights between the blue you once knew Floating down, the sound resounds Around the icy waters underground Jupiter and Saturn, Oberon, Miranda and Titania Neptune, Titan, stars can frighten (Syd Barrett of Pink Floyd)
|
|
Dear Group Members, my apologies if that question has already been answered. I completed setting up my new Raspberry Pi 5 (8GB) and compiled Hercules for it and downloaded TK5 for it. In TK5.CNTL is a member named TK5$LOGO which looks to me like some screen def that can be interpreted to generate some Assembler code that assembles into a new NETSOL. However, I haven't found that "interpreter". Does this interpreter even exist and if yes, where do I find it? I remember that I customized my TK4- NETSOL before and using some scripting as well, but would love to do it the "standard" way. kind regards Michael -- TK4- on virtual x86 Ubuntu LTS 22.04 TK5 on Pi 5 Raspberry OS "Bookworm" VM/370 on virtual x86 Ubuntu LTS 22.04 Die Katze l?sst das Mausen nicht, Die Jungfern bleiben Coffeeschwestern. Die Mutter liebt den Coffee Brauch, Die Gro?mama trank solchen auch. Wer will da auf die T?chter l?stern? J.S.Bach "Kaffee-Kantate" (BWV 211)
|
|
I am having difficulty compiling a COBOL program with DB2. When I bind, I get a message that the file was not found. I am a newbie in database administration. I would like to know if there is a checklist for DB2 DATASETs so that I can identify which file is missing and proceed with its recovery. I would be very grateful if you could point me to a jcl/proc to validate the DB2 structure and ensure that it is working. I read somewhere that the IBMUSER user was not recommended for accessing DB2. Is this correct? Thank you for your attention.
|
Image Name
Sat 8:39am
Sat 8:39am