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.
|
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
|
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
|
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
|
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?
|
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.
|
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.
|
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
|
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
|
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
|
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.
|
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
|
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
|
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.
|
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)
|
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
|
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
|
TSO TEST command on MVS TK5
6
Hi, I'm trying to use TEST to debug a simple assembler language program. TEST's LIST sub-command doesn't work. Is this a known problem? I can share my source code and the JCL I'm using to assemble the program if that word be useful. Mike KB2GHZ
|
REVEDIT Help
7
Hello all, I try to set the syntax coloring in REVEDIT, but do not know the relevant command (HILITE does not work). The HELP in REVEDIT shows only the first page. If I select say the item LINE COMMANDS, the mask is closed. My questions: - which command can I use for the syntax coloring? - why I can't select a menu item in HELP (see above)? - is there any (Web...?) documentation for the REVEDIT (as well for the REVIEW)? Thanks
|
help with restoring a dasdi dump/restore tape
19
I have a file, fairly old, that looks like it is a DASDI dump restore tape. It is clearly an EBCIDIC tape. I am not even sure what is on it as I probably received this in the late 1990's. I would like to restore it, if possible. I'm guessing it is a dump of a 3330, but I don't know an do not know enough about the format of a DASDI dump/restore tape to figure it out. Also I'm not sure what format it is in as the filetype says TAP. So, how do I mount this on Hercules? Just like any other tape (het or aws) or something else. I'm presuming that once I get it mounted TAPEMAP will help me figure out what is on it and what DASD volume type I need to restore it. If it is a DASDI dump tape, I guessing I can just IPL from it and restore it to DASD as I would have years ago, but that may not be a correct/best approach in this instance. Guidance will be appreciated. By the way here is a png of the first part of the file. Thanks, - Mark
|