|
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.
|
|
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
|
|
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
|
|
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
|
|
Short version: is the CBT 476 corrupted or there is a job to extract further, so that these PDS members of CBT429.FILE476 (such as MACLIB, CNTL,... etc.) is generated as library for me to use as LISP program and JCLLIB etc. ---- Longer version on accessing CBT tape mostly but NOT CBT 476 on Lisp: After 10 years (last time I found I am asking for this in a yahoo group!), I finally see some CBT tapes and hence for most it seems to work as follows: 1. Under TK5 update 3, you download the dasd and then follow the instruction to override the related .conf (by zip -o) 2. Then after running TK5 3. modify and submit the job as recommended (Strangely the ISPF cc-cc cut can cut to the clipboard but cannot insert ... hence have to retype some JCL). 4. All ok and catalog 5. ISPF =3.4 CBT429 6. Found all the CBT tape mostly work (in the sense you can see allocation result of them) 7. some of these have no allocation info and if you s it it got error and if you e it it will say dataset not on catalog 8. But for 476, it does have allocation info and one can get into it by e i.e. CBT429.FILE476(@FILE476) is readable 10. Now what to do next? In some other PDS I browse they are just some JCL, source etc. But the other files here are odd e.g. CBT429.FILE476(CNTL): CBT429.FILE476(MACLIB) ... many of these file names under this PDS seems to be itself also a library as well. 11. For this tape is there another step I need to run to extract these "libraries" into proper libraries. 12. I must have missed one tool or one JCL somewhere to extract these:
|
|
MVS 3.8 TK5 Shutdown
6
Hello everyone! I'm running the fairly new TK5 release 3 under HercGUI version 1.19.0.5966. I've tried both the recommended "/f bsppilot,shutnow" as described in the TK5 Introduction and User Manual and the "s shutdown" command issued from the MVS console. Both begin the shutdown process but stops at IST127I SNASOL STILL ACTIVE- VTAM TERMINATION WAITING IST127I JRP STILL ACTIVE- VTAM TERMINATION WAITING and the system waits. What is the proper way to shutdown MVS and get "$HASP000 ALL AVAILABLE FUNCTIONS COMPLETE" so I can quiesce and terminate my system?
|
|
MVS 38J JES2 Spool Unload/Reload
The public domain version of MVS 3.8J does not contain a utility to offload and reload the JES2 spool. I quickly looked at the CBTTAPE.org site and did not find any compatible solutions for 38J. Have any of you folks written such a utility for MVS 3.8J? Any pointers will be appreciated. Let me know if I missed something....?? Thanks in advance, Larry Belmontes
|
|
Message HHC01448S Config file
12
Hi When I use the path ¡°d:/mvs¡± in my Hercules config file definitions, it works fine. But when I use ¡°d:/mvs_vxry¡± it crashes as shown in the log below I was lost and finally I tried to change the path and fortunately it worked. The message is weird ¡°20:09:27 HHC01448S Config file[1] D:/MVS_VxRy/Parms/config.cnf: missing device number or device type¡± Because all devices are there. Jo?o 20:09:27 HHC00100I Thread id 00000b9c, prio 5, name 'impl_thread' started 20:09:27 HHC00100I Thread id 00001bec, prio 4, name 'logger_thread' started 20:09:27 HHC01413I Hercules version 4.6.0.10941-SDL-g65c97fd6 20:09:27 HHC01414I (C) Copyright 1999-2023 by Roger Bowler, Jan Jaeger, and others 20:09:27 HHC01417I ** The SDL 4.x Hyperion version of Hercules ** 20:09:27 HHC01415I Build date: Jun 8 2023 at 15:48:12 20:09:27 HHC01413I Hercules version 4.6.0.10941-SDL-g65c97fd6 20:09:27 HHC01414I (C) Copyright 1999-2023 by Roger Bowler, Jan Jaeger, and others 20:09:27 HHC01417I ** The SDL 4.x Hyperion version of Hercules ** 20:09:27 HHC01415I Build date: Jun 8 2023 at 15:48:12 20:09:27 HHC01417I Built with: Microsoft Visual Studio 2008 (MSVC 150030729 1) 20:09:27 HHC01417I Build type: Windows MSVC AMD64 host architecture build 20:09:27 HHC01417I Modes: S/370 ESA/390 z/Arch 20:09:27 HHC01417I Max CPU Engines: 64 20:09:27 HHC01417I Using shared libraries 20:09:27 HHC01417I Using Fish threads Threading Model 20:09:27 HHC01417I Using Error-Checking Mutex Locking Model 20:09:27 HHC01417I With Shared Devices support 20:09:27 HHC01417I With Dynamic loading support 20:09:27 HHC01417I With External GUI support 20:09:27 HHC01417I With Partial TCP keepalive support 20:09:27 HHC01417I With IPV6 support 20:09:27 HHC01417I With HTTP Server support 20:09:27 HHC01417I With sqrtl support 20:09:27 HHC01417I With Signal handling 20:09:27 HHC01417I With Watchdog monitoring 20:09:27 HHC01417I With CCKD BZIP2 support 20:09:27 HHC01417I With HET BZIP2 support 20:09:27 HHC01417I With ZLIB support 20:09:27 HHC01417I With Regular Expressions support 20:09:27 HHC01417I With Object REXX support 20:09:27 HHC01417I Without Regina REXX support 20:09:27 HHC01417I With Automatic Operator support 20:09:27 HHC01417I Without National Language Support 20:09:27 HHC01417I With CCKD64 Support 20:09:27 HHC01417I With Transactional-Execution Facility support 20:09:27 HHC01417I With "Optimized" instructions 20:09:27 HHC01417I With OPTION_USE_SKAIP_AS_LOCK 20:09:27 HHC01417I With OPTION_SIE2BK_FLD_COPY 20:09:27 HHC01417I Machine dependent assists: cmpxchg1 cmpxchg4 cmpxchg8 cmpxchg16 hatomics=msvcIntrinsics 20:09:27 HHC01417I Running on: DESKTOP-R22K5RK (Windows-6.2.9200 Intel(R) x64) LP=4, Cores=2, CPUs=1 20:09:27 HHC01417I Built with crypto external package version 1.0.0.52-ga5096e5 20:09:27 HHC01417I Built with decNumber external package version 3.68.0.102-g3aa2f45 20:09:27 HHC01417I Built with SoftFloat external package version 3.5.0.105-g4b0c326 20:09:27 HHC01417I Built with telnet external package version 1.0.0.63-g729f0b6 20:09:27 HHC00018W Hercules is NOT running in elevated mode 20:09:27 HHC00007I Previous message from function 'impl' at impl.c(1192) 20:09:27 HHC02323W This build of Hercules has only partial TCP keepalive support 20:09:27 HHC00007I Previous message from function 'impl' at impl.c(1238) 20:09:27 HHC00150I Crypto module loaded (C) Copyright 2003-2016 by Bernard van der Helm 20:09:27 HHC00151I Activated facility: Message Security Assist 20:09:27 HHC00151I Activated facility: Message Security Assist Extension 1, 2, 3 and 4 20:09:27 HHC17531W REXX(OORexx) dlopen 'rexx.dll' failed: N?o foi poss¨ªvel encontrar o m¨®dulo especificado. 20:09:27 HHC00007I Previous message from function 'OORexxLoad' at hRexxapi.c(1340) 20:09:27 HHC17511E REXX() Could not enable either Rexx package 20:09:27 HHC00007I Previous message from function 'Enable' at hRexx.c(515) 20:09:27 HHC17511E REXX() Could not enable default Rexx package 20:09:27 HHC00007I Previous message from function 'InitializeRexx' at hRexx.c(262) 20:09:27 HHC17500I REXX() Mode : Command 20:09:27 HHC17500I REXX() MsgLevel :
|
|
JES2 modification
3
I have developed and tested a modification for the JES2 output writer that issues a devinit command to Hercules for each print data set which splits up the output for printer and punch devices. I am not a system programmer but am good with assembler language. As a result I have no idea how to turn this coder into a usermod for general use. Entries look like If anyone is interested. I am more than willing to share this code. The code was developed from the system generated by Jay Maynard's excellent sysgen instructions. -- J. R. Michael Wegemer Mississauga ON, Canada -- J. R. Michael Wegemer Mississauga, ON
|
|
MVS 3.8j Master Console
7
Good afternoon. I am trying to use a 3278 model, 4 definition for my master console. The manual GC26-3792-8_OS_VS2_System_Generation_Reference_Release_3.8_Oct80 says that I can specify a 3278 model 4 (figure 8 part 2 of 2 on page 29) but when I try that I get an mnote saying that it is invalid. CONSMST CONSOLE C MCONS=010, C ALTCONS=009, C AREA=04, C PFK=12, C ROUTCDE=ALL MSTCONS IODEVICE C UNIT=3278, C MODEL=4, C ADDRESS=010, C FEATURE=(EBKY3277,DOCHAR,KB78KEY,AUDALRM,NUMLOCK, C SELPEN,PTREAD) * 73+ 5,* * * IEIIOD101 MSTCONS-UNIT VALUE 3278 INVALID Can someone please direct me to where I have gone wrong? Thanks -- J. R. Michael Wegemer Mississauga ON, Canada -- J. R. Michael Wegemer Mississauga, ON
|
Image Name
Sat 8:39am
Sat 8:39am