开云体育

ctrl + shift + ? for shortcuts
© 2025 开云体育
zOS Disabled Wait 05D During Initialization
Hi All, When returning from a wonderful vacation, I have encountered a head scratching problem that hopefully someone can help me with. When I try and IPL (using HercGUI and Hercules 4.7, I am gettin the following messages: 2024/09/25 17:25:29.723 0x00001294 IEA371I SYS1.IPLPARM ON DEVICE 0A82 SELECTED FOR IPL PARAMETERS 2024/09/25 17:25:29.752 0x00001294 IEA246I LOAD ID 00 SELECTED 2024/09/25 17:25:29.752 0x00001294 IEA246I NUCLST ID 00 SELECTED 2024/09/25 17:25:29.753 0x00001294 IEA519I IODF DSN = SYS1.IODF01 2024/09/25 17:25:29.753 0x00001294 IEA520I CONFIGURATION ID = CBIPO . IODF DEVICE NUMBER = 0A82 2024/09/25 17:25:29.754 0x00001294 IEA091I NUCLEUS 1 SELECTED 2024/09/25 17:25:30.772 0x00001294 IEA370I MASTER CATALOG SELECTED IS CATALOG.Z113F.MASTER 2024/09/25 17:25:30.834 0x00001294 HHC01315I 0:0A82 CHAN: ccw E7600044 7FD025A4=>01800000 00000000 00000000 00E00000 00000000 00000000 0D0A0000 00000000 00000000 80000000 00000000 06800001 00000001 00000001 01FF0060 00000000 .............\.............................................-.... 2024/09/25 17:25:30.834 0x00001294 HHC01312I 0:0A82 CHAN: stat 0E00, count 0000 2024/09/25 17:25:30.834 0x00001294 HHC01313I 0:0A82 CHAN: sense 80000000 00000001 00000000 00000000 00000000 00000000 00000080 00000000 2024/09/25 17:25:30.834 0x00001294 HHC01314I 0:0A82 CHAN: sense CMDREJ 2024/09/25 17:25:30.835 0x00001294 IEA306I 0A82,0A, I/O ERROR, **,0E00,8000,FDSYS1 2024/09/25 17:25:30.836 0x00001294 HHC00809I Processor CP00: disabled wait state 0002000080000000 000000000000005D 2024/09/25 17:25:30.836 0x00001294 HHC00826W Processor CP00: processor auto-stopped due to disabled wait 2024/09/25 17:25:30.836 0x00001294 HHC00007I Previous message from function 'z900_process_interrupt' at cpu.c(1876) This happens for all the zOS systems that I have (1.11, 1.13, 2.1 and 2.2). It is always on the volume that contains the IODF file. I don't know if this is a Hercules related problem, or an MVS related problem. It happens on both native Windows-10 and Windows-11 running under Parallels on my Mac-M2. Any guidance would be most appreciated. I have a running zOS 2.5 under test with Hercules 4.8 (development) on an external USB drive and can attach the above volumes and read them with no problem. I will also post this to the Hercules-390 group. Thanks... Frank
Started by Frank R @
What is the meaning of ICKDSF INIT OWNERID? 3
Hello there :) I am trying to understand the following command to initialize a DASD //EXAMPLE JOB // EXEC PGM=ICKDSF //SYSPRINT DD SYSOUT=A //SYSIN DD * INIT UNITADDRESS(0353) NOVERIFY VOLID(VOL123) - OWNERID(PAYROLL) /* What is the purpose of the OWNERID? Does it have any effect in MVS or is it just a piece of text for humans? Kind Regards
Started by Sergio @ · Most recent @
MVS-TK5 Update-3: help menu not working 2
Hi Rob, Thank you very much for your work on MVS-TK5! I have a problem with the help menu. Using: - MVS-TK5 Update 3 - c3270 - HERC01 When I am editing a dataset in REVEDIT and then execute the global command help, I get the index of the help page, but no matter which key I press, or which option I select, it always exits back to REVEDIT without showing the expected help page. Is that behavior known? Is it a bug? Kind Regards Sergio Lindo Mansilla Software developer with DevOps tendencies Portfolio: https://binary-sequence.github.io/
Started by Sergio @ · Most recent @
HDR-30 and AWSCKD disk images 9
I though I was really confused and now I know I am, not only are there CKD, and CCKD, but also HDR-30 disk images, and also an AWSCKD disk image. What are these used for? Very little information online about these. I didn’t get any answers in H390-Herc so I’m going to try here. Thanks in advance.
Started by Mike Ward @ · Most recent @
Aethra release date 5
Hello Everyone! I am just interested in progress of Hercules Aethra, what is the release date? I hope it was not abandoned. Best wishes, Andre
Started by Andre @ · Most recent @
Question about TSO commands 20
Hello Everyone! I have a (stupid) question about TK5 TSO commands. When i type HELP in TSO first four lines read: ASM INVOKE ASSEMBLER PROMPTER AND ASSEMBLER F COMPILER. CALC INVOKE ITF:PL/1 PROCESSOR FOR DESK CALCULATOR MODE. COBOL INVOKE COBOL PROMPTER AND ANS COBOL COMPILER. FORT INVOKE FORTRAN PROMPTER AND FORTRAN IV G1 COMPILER. But only ASM is working. If i try to enter CALC, COBOL or FORT - system responds with COMMAND NOT FOUND. I know that TK5 has COBOL and FORTRAN compilers, why then those commands do not work? Best wishes, Andre
Started by Andre @ · Most recent @
Editing Sys1.Parmlib 6
Hi Is there a way to update or replace a sys1.parmlib member using some Hercules batch utility program? TIA Joao -- att. Jo?o
Started by Jo?o Reginato @ · Most recent @
MVS 3.8j (TK5) under VM/CE 1.2 Abend on Z EOD
The subject says almost all. I have an MVS 3.8 (TK5) image that, when run under VM/370 CE 1.2, abends upon receiving a Z EOD: z eod 20.16.17 IEE480I HALT COMMAND ABEND 800, TERMINATED This does not, however, occur when I don't run in a VM guest. Any thoughts on this?
Started by Daniel L. Srebnick @
Type 3/4 user SVCs in 21J 7
I’m looking for some information about installing a type 3/4 SVC on MVS 3.8J. I have started a little project, and I decided that part of it needs a type 3 or 4 SVC, but I’m having all sorts of unexpected problems. Back in the 1960s and 1970s I created and used my own user SVCs on various platforms, such as PCP, MFT, VS1, SVS, and early MVS. But it seems that things have changed since then, and MVS 3.8J is unhappy with my efforts. Obviously there were changes in the late 1970s or maybe early 1980s, and MVS is just not recognising that I have added SVCs to the system. I have found newer instructions for creating user SVCs in z/OS, but they are not very useful as they talk about PARMLIB members that don’t exist in 3.8J. So they’re too new! I wonder if there’s anyone out there in MVS Hercules-land who has done this successfully in TK4- or TK5, or similar. Ideally I’d love a series of instructions such as (1) do this (2) do that (3) do…. But really any pertinent advice would be useful. By the way, can I take it as read that the available user SVCs in TK4- are as listed in SYS1.SYSGEN.CNTL(IOGEN), and that they are (type 3) numbers 231/2/3/4 and (type 4) numbers 241/2/3/4/8? Many thanks to anybody who can advise, JJ P.S. Apolgies for "21J" in the subject heading and in the original posting. I don't kinow where that came from, I meant 3.8J of course.
Started by John James @ · Most recent @
Understanding COBOL S013 U0000 ABEND while accesing variable length records dataset. 14
Hi again folks. I'm getting S013 U0000 abend at the GO step of a COBOL program. The COBOL program is not the problem (I'm studying Jay Moseley's materials... this ona came from : https://www.jaymoseley.com/hercules/isam_cobol/esds_aix_access.htm) but the JCL calling it. For the shake of practice/learning, I do not 'just run' the examples, but rather adapt to my 'shop' and, with this particular one, which came with source code and sample data all inline on the JCL itself, I've separated source code into my COBOL VSAMIO sample sources PDS, the sample data in its dataset, and the actual JCL as a member of my CNTL VSAMIO sample dataset... so far, so good... But I think I'm failing on getting data into my program from the sample data dataset. This is the offending JCL segment from the printing: 27 XXGO EXEC PGM=*.LKED.SYSLMOD,COND=((5,LT,COB),(5,LT,LKED)) 00001900 28 //GO.SYSPRINT DD SYSOUT=A 29 //GO.SYSOUT DD SYSOUT=A 30 //GO.SYSUDUMP DD SYSOUT=A 31 //GO.SYSUT1 DD DSN=ALEX.COBOL.VSAMIO.TESTDAT1,DISP=SHR, // DCB=(LRECL=84,BLKSIZE=4096,RECFM=VB), // SPACE=(TRK,(1)) 32 //GO.SYSUT2 DD DISP=(NEW,PASS),DSN=&&JOINED,UNIT=SYSDA, // DCB=(LRECL=148,BLKSIZE=1480,RECFM=FB), // SPACE=(TRK,(50)) Originally, GO.SYSUT1 DD was simply inline data, so DD * ... STUFF ... /* I have kept the original length and format, 84, VB on the dataset holding de sample data, since that was the allocation I had from the original file. At this step, the COBOL program joinrec joins variable length records into a fixed length one but it fails 12.38.24 JOB 1079 IEF450I ESDSAIXD GO COBUCLG1 - ABEND S013 U0000 - TIME=12.38.24 12.38.24 JOB 1079 ESDSAIXD COBUCLG1 GO PGM=*.DD AB S013 There should be a way to have the data outside of the JCL regardless of its format being different (that's in my understanding what the COBOL program is handling). OR maybe I'm missing it completely? any clues? -- Alejandro Olivan. Spain.
Started by Alejandro olivan Alvarez @ · Most recent @
REVIEW 51.3 2
Hi, Just a note to say that the REVIEW /RFE package is now up to release 51.3 and can be downloaded from https://www.prycroft6.com.au/REVIEW/index.html The main new features of release 51 for the REVIEW browser are: Auto-RECEIVE when browsing an XMIT which presents an un-xmitted copy of the data in a temporary data set - this can be suppressed by the DATA operand or the slash (/) selection code, as appropriate. The new ZOOM command to zoom-in to a single record - use END to back out to the multi-record view. While ZOOM may be better for some long records than HEX, HEXR and HEXX for general browsing, the main purpose of ZOOM is to allow the examination of individual fields of SMF records. To this end a new (large) module called REVSMFZ is now shipped which contains knowledge of the structure of numerous types (and subtypes) of SMF records. When a record with a structure is recognised by ZOOM, the fields of the various record sections will be broken out and displayed below the item name. With R51.3, a smaller module named REVSMF7 is used for MVS/370 (and pre-MVS in some cases) SMF record structure knowledge. Because the item name is shown, if you know the name of a field of particular interest, you can use FIND to quickly locate it in the data display. If you press <enter> when the cursor is over the name of an item (usually shown in red on the screen), the commentary for that item will be shown. Press <enter> again to clear the commentary. Since one of the aims was to reduce the need to scroll right for long records, the fields will generally be formatted to appear in the left-most screen-width of the display. An exception to this is for repeated sections (such as DD I/O sections from types 4, 34 and 30) where longer records may be used so that sections instances can be shown aligned on consecutive records under a single occurrence of the relevant item names. The decimal representation of 16-bit binary, 64-bit binary and long floating point has only been fixed at the 51.3 level. If you want to preserve the display, you can use the CUT command to copy some or all of the ZOOM view records to an existing or new data set. To copy the whole thing, simply issue CUT while viewing the top of the data. In terms of SMF record type coverage, most of the interesting pre-MVS/SE records are catered for apart from those from MF/1. REVSMF7 even has data for the the type 1 (OS wait time) and type 30 (start time sharing) pre-MVS records such as are produced by SVS (but may actually be older than SVS). For z/OS, REVSMFZ has data for many original MVS records plus types 30, 41, 42, 89 and RMF types 70, 71 and 72. Also, many MVS record types have new sections in later OS levels which are also handled. Not all subtypes of supported record types with subtypes may be fully supported. The SMF "knowledge" is based on assembler DSECTs of SMF record sections, so in theory if there is assembler source for an SMF record that is known to always be a specific record type (and subtype where applicable) then it should be able to be added to this scheme. In fact, this scheme could also be extended to non-SMF records (either instead or in addition to) if the relevant filter tables were coded up. Support for many obvious non-MVS records (more RMF records, network products NPDA and NLDM, CICS (apart from the base and product sections), DB2, etc) is not present because either I could not find suitable assembler source code for the structures or I do not have access to sample data with which to debug the formatting. As always, bug reports are welcome. If you have any particular SMF record types and/or subtypes for which you have structure source and sample data that you'd like to see added, feel free to donate the necessary inputs. Cheers, Greg
Started by Greg Price @ · Most recent @
CPU Model Instruction set 6
Hi guys Does Hercules “respect” the instruction set that is present in each CPU Model? I.e: May I run a program with the newest instructions in an older model like 9672? TIA Jo?o -- att. Jo?o
Started by Jo?o Reginato @ · Most recent @
TK5 on Linux Ubuntu 24.04 ? 4
Hello Folks I have been running TK4 andTK5 on Windows for some years (TK4) without any real issues. This week I have been trying to get TK5 U3 to work on the latest Linux LTS Ubuntu Desktop 24.04 (I have also used Ubuntu for quite a while). During MVS IPL though I am getting reams of error messages on the console along the lines of: 11:45:15 HHC01023W Waiting for port 3270 to become free for console connections 11:45:15 HHC01003W 0:068E COMM: waiting 5 seconds for port 27417 to become available Needless to say I can't connect a localhost 3270 session to the instance either. I also tried TK4 and that is giving similar errors. I think it maybe a host (Linux) permission/security issue, anyone got any light to shine on this? Regards Neil
Started by Neil Miller @ · Most recent @
COBOL help iterating dataset member. 38
Hi folks. I'm on Tk5, and I'm trying to learn how to mess with dataset member records from COBOL. After some early successes on getting the compiler happy with accesing the dataset member itself (which has not been straightforward either) I'm getting to the point where I can't progress any longer. Now I'm just trying to simply print 'hello world' on output as a 'proof of iteration', while trying a PERFORM loop on the records of a member. The compiler COB step ends with code 0004 (LKED and GO got both 0000), and a pair of IKF warning error cards are printed (which I'm unable to find on any IBM book around) and the program just does nothing: IKF1043I-W END OF SENTENCE SHOULD PRECEDE END OF PROGRAM . ASSUMED PRESENT. IKF4072I-W EXIT FROM PERFORMED PROCEDURE ASSUMED BEFORE PROCEDURE-NAME . While the actual code looks like this: 000-ITERATE. OPEN INPUT IPBLKFILE. READ IPBLKFILE AT END MOVE HIGH-VALUES TO IPBLKDETAILS PERFORM 001-DISPLAY UNTIL IPBLKDETAILS = HIGH-VALUES CLOSE IPBLKFILE. STOP RUN. 001-DISPLAY. DISPLAY HELLO-CONST UPON CNSL. READ IPBLKFILE AT END MOVE HIGH-VALUES TO IPBLKDETAILS I'm really struggling with finding whether periods and closing statements such as END-READ, etc, have to be in place around (fought my way to here often by sheer try/error) since the 70s compiler on MVS seems to be quite different to most information I'm finding googling around. But now nothing seems to work. So I feel I'm missing semething else here. Any clues? Thanks.
Started by Alejandro olivan Alvarez @ · Most recent @
Private: Re: [H390-MVS] COBOL help iterating dataset member.
Ops, the right form is: If a=b Display a Else Display B. Exit-if. Exit. De: [email protected] <[email protected]> Em nome de Jo?o Reginato via groups.io Enviada em: quarta-feira, 10 de julho de 2024 18:28 Para: [email protected] Assunto: Re: Private: Re: [H390-MVS] COBOL help iterating dataset member. Prioridade: Baixa The suggestion was something like this: If a=b Display a Else Next sentence. But I think it won’t solve the warning msg. Case it is the last sentence in your code, you may add an “exit”. If a=b Display a Else Display B. Exit. -- att. Jo?o -- att. Jo?o
Started by Jo?o Reginato @
Private: Re: [H390-MVS] COBOL help iterating dataset member.
The suggestion was something like this: If a=b Display a Else Next sentence. But I think it won’t solve the warning msg. Case it is the last sentence in your code, you may add an “exit”. If a=b Display a Else Display B. Exit. -- att. Jo?o
Started by Jo?o Reginato @
File Notifications #file-notice
The following files and folders have been uploaded to the Files area of the [email protected] group. /1974_July 3_DPD Program Announcement_OS VS2 Release 2_5752-VS2_f6 MVS.pdf By: Mark Waterbury <mark.s.waterbury@...> Description: 50 years ago this month, MVS (OS/VS2 Rel. 2) was first announced. The following files and folders have been uploaded to the Files area of the [email protected] group. /Evolution of the MVS Operating System.pdf By: Mark Waterbury <mark.s.waterbury@...> Description: IBM Journal of Research & Development, September 1981 article describing the history and evolution of the IBM flagship mainframe OS.
Started by Group Notification @
File /MVS-SU Status 5-17-78 .pdf uploaded #file-notice
The following files and folders have been uploaded to the Files area of the [email protected] group. /MVS-SU Status 5-17-78 .pdf By: Mark Waterbury <mark.s.waterbury@...> Description: Summary of SUs available for MVS as of May 17, 1978. (a bit of MVS history)
Started by Group Notification @
Running 2 MVS under the same Windows 13
Hi How can I run 2 MVS under the same windows? Should I use 2 loopback adapters as different gateways? Is it possible? TIA Jo?o -- att. Jo?o
Started by Jo?o Reginato @ · Most recent @
Configuring a card reader 6
Hello, I want to add a card reader to OS/390 ADCD 2.10, working akin to what I'm used to from TK4-. For that I compared TK4- SYS1.JES2PARM(JES2PARM) to SYS1.ADCD10.PARMLIB(JES2PARM) and I'm lost because both files look very different. Google searches yielded nothing helpful (to me). May I kindly ask for a step by step advice how to add a card reader? I would really appreciate to postpone the indirection of learning how to configure JES2 to a later point in time. Thank you! Note: I have already added the definition in hercules.cnf (copied from TK4- configuration), with the TCP port incremented so the number is unique again. :wq! PoC
Started by Patrik Schindler @ · Most recent @
Current Image
Image Name
Sat 8:39am