|
Is there a Hello World COBOL example for DOS/VS?
13
Hi folks. Of all the languages around in this Mainframe work, Cobol is the only one I played with a little in the past with OpenCobolIDE (although I find Fortran not that hostile :-) ... But here I'm struggling because at the stacked principles that have to be all right in order for a JOB to work. Does someone know about some fundamental/basic examples of DOS/VS COBOL JOBs to start to play with? I've not found even the classic Hello World sample to check whether fcobol wakes up. Thank you very much in advance. Cheers.
|
|
VTAM DOS/VS
8
Been working on VTAM under DOS/VS. Reading all the notes, emails, etc, I have collected over time I have got VTAM up and running under DOS/VS. Does do anything, as I have no appl that will run under it. A bunch of questions about it,that I have not figured out yet. ex: Do you run VTAM under Power yes/no..... I have tried to run it at a higher priority than power, but not sure about it. Numerous other questions, but one at a time... The code can be found at github.com/tchandler48/DOS5PEXT along with the documentation in the HOWTO pdf..... Any help, comments, etc, will be greatly appreciated.... Thank you Tom c
|
|
Gentlemen, here the web page that I created to access via browser any Mainframe connected. Simply filling IP address and TN3270 port. These are pictures of my Mainframe being accessed thru Internet. I can make the page available for tests, accessing my Mainframe. Use the inbox to request a test.
|
|
Earliest FORTRAN COMPILER available for use with Hercules.
12
Hello Everyone! I know this may sound strange, but when you're trying to delve into the history of computer technologies, the earliest version of a program can be much more valuable than the latest one. In 1958, FORTRAN II was released. Is there a version of it available for DOS360? What is the earliest version of FORTRAN that is accessible for Hercules? Best wishes, Andre
|
|
Can anyone please share a JCL file with program that takes more than 0 seconds to run?
5
Hello everyone! I want to create a large queue of jobs, but I don't know how to do it. Currently, when I submit a job to the card reader, it completes instantly in 0 seconds. This is frustrating because I want to observe the job's progress. I would like to learn how DOS/VS uses FG's to manage numerous jobs in different languages. Once again, I want to wait for each job to complete. My plan is to pause all execution somehow, then create a substantial queue of jobs, and finally resume execution while monitoring the ongoing processes. Could someone help me with this endeavor? Even if you can provide only one JCL file, I would greatly appreciate your help. Or if you can explain how I can create a job queue or monitor its progress, that would be very helpful. Best wishes, Andre
|
|
Going back to the future and writing programs for mainframes in the process
23
Hello Everyone, My name is Andre, and i am new ibmuser. All my life i thought that Altair 8800 was the "first" computer, but then i have learned about mainframes. :) My interest grew stronger and stronger, and then i found moshix channel at YouTube. That was the beginning of my journey. Well, while other people try to run most recent operating systems, i was really interested in ancient ones.Tried UNIXv7, Multics and even CTSS. But for me they are not so complicated as IBM OS/360. It is like OS from other dimension, from planet Nibiru. Some companies do not release any good documentation, but IBM is not one of them, they release TOO MUCH, and their documentation is really hard to read or understand. Maybe it was done intentionally, so people would be forced to buy support, i don't know. So why DOS/VS? For me it is because this OS is closest to DOS360, and run perfectly on Hercules. What is my goal? To write my own assembler program(not just hello world, but something more advanced) and run it successfully on DOS/VS. Plus points if it also would run on DOS/360. What is my problem? Every time i find a good book about assembler, it seems that i found a book for wrong type of assembler. Nothing works. I am truly fascinated by programmers of that period. Recently i started to read magnificent book by Bill Qualls "Mainframe Assembler Programming". He gives a lot of code examples and recommends to run them on PC/370 by Don Higgins. https://www.billqualls.com/assembler/ But it turns out, that those examples are useless, because they use macros of PC/370 program and those macros not present in IBM OS's. How to import them, i don't know. Also, i have big problem with JCL. It seems that for every type of OS there is different syntax for JCL. And lots of sites cover JCL for latest z/OS, not for DOS/VS. I am looking for help here, only because i feel that i am stuck. Maybe there is someone, who also read Bill Qualls book and was able to run his examples on Hercules. Or maybe someone would recommend other good assembly book, with examples that would work on DOS/VS. Or maybe someone would share with me universal JCL for DOS/VS that should run almost any intermediate assembly program. Any help are welcomed. Best wishes, Andre
|
|
VTAPE Data handler Initialization Failed
17
Hello List. My name is Manuel, we are running zVSE Hercules, and when run a VTAPE job to restore a .AWS file using VTAPE Server, got this msg: Our architecture is: One Windows Server running HercGUI with zVSE 4.3 flavor, and VTAPE Server resides on same server Thnks in advance Best regards
|
|
XXINIT Partition Initiation Jobs
3
What causes the XXINIT Jobs to be put back in the Reader Queue after they are run at IPL Startup time? Also if the XXINIT Jobs are accidently deleted from the reader queue, is there anyway to get them back into the queue?
|
|
questions about STXIT and EXIT in DOS/VS, DOS/VSE, VSE/SP, etc.
3
Hello, all, Happy 2023 to everyone. Does anyone have some example(s) of using STXIT to trap e.g. illegal opcodes or unimplemented SVCs, e.g. to handle them in some way, such as by emulating the missing functionality, before using EXIT to resume program execution? Thanks in advance. All the best, Mark S. Waterbury
|
|
DOS/VS Questions
4
Hello guys, First, I want to thank my VM friends with the support they gave me on setting the time zone via DMKSYS. VM runs great! I have several questions for DOS/VS Rel. 34 (George Shedlock files) running as a guest of VM/CE 1.1.2. Now that VM has the correct day and time, my guest DOSVS machine has the correct time but is off one day in the future (plus 24 hours). I tried the 'SET DATE=' command at IPL time and receive an INVALID RESPONSE message but the SET command with no parameters works fine. For example, right now the date shows 10/19/22 when it is actually 10/18/22. Where or how do I correct this? I stopped the printer task via POWER via 'P 00E'. I then restart it with 'S LST,00E,A,,VM' to indicate that output should be spooled to VM, but I get no output until I shutdown the DOSVS guest and logoff. Shouldn't the above create a printer file in VM? I am using HercPRT v1.8.0.5692 which should generate a PDF file. Also, the printer device is defined as: 000E 1403 127.0.0.1:3213 sockdev cctape=(1=1,7=2,13=3,19=4,25=5,31=6,37=7,43=8,63=9,49=10,55=11,61=12) BTW, VM files print just fine producing beautiful PDF files. I keep getting the message F1 0P31D R DVC NOT OP SYS015=02C CCSW= NOT AVAILABLE CCB=A6A420 SNS=0 whenever I start POWER. I respond with 'CANCEL' and all is well with POWER startup. Why am I getting this message? Finally, how do I edit the POWERV job executed in F1 (when 'ASSGN SYSIN,SYSRES' is entered)? I want to see if/where/how the device 02C is being specified and also to start the LST task by spooling the output to VM.
|
|
If anyone chooses to re-assemble the DOS/VS supervisor, I will first recommend creating a new one, defining a new name (ie. $$A$SUPx). After doing so, the POWER statement to spool output to VM (PSTART LST,00E,A,,VM) will not work. A PDZAP is required. Following is a dialog between me and Professor Rene Ferland which corrects this situation. -------------------------------------------------------------------- Greetings Professor Ferland, I apologize for contacting you directly and, if you prefer, I'll open a thread on /g/H390-DOSVS. On 8/14/21, in response to Steve Orso, you wrote: On Fri, Aug 13, 2021 at 03:20 PM, <stephen.orso@...> wrote: [...] and in particular what you need to do to run it under VM/370. Have you run your DOS/360 under VM/370? It should not be very hard. But the one problem I see is handshaking (automatic close of spool print/punch files), probably not implemented on DOS/360. The OS has to be patched for that. George Shedlock did it for DOS/VS. Cheers, Rene FERLAND, Montreal I'm particularly interested in the bold statements in your response. I generated a supervisor to change the storage allocations for each partition. After re-IPLing with the new supervisor, I've lost the ability to spool print to VM/CE using HercPRT. Is there a subsequent task to be done? -- Best Regards, Jim Snellen FIRST RESPONSE Hello Jim, Unfortunately, I am not sure I can help you. George Shedlock is the one who implemented handshaking. He knew the operating system, assembler and what to do. Me I can only guess from the jobs he provided. If you logon to the DOSVS virtual machine, minidisk 191 contains all the material of George Shedlock. There are two update jobs: SGSVC UPDATE A, and SGATAB UPDATE A. From what I understand, the first is to update (or add?) supervisor call SVC56 (presumably for handshaking). It will punch a job in the reader queue that has then to be run to perform the update. The same is true for SGATAB UPDATE A, which updates the tables and constants. If you just changed the supervisor, I would assume you don't have to run these jobs again. The updates they made are likely still there. What you probably need to do is change/run the job $$A$SUP1 ZAPS A. This job modifies the $$A$SUP1 phase in the core library for handshaking. It makes a very small change to the supervisor binary at a specific address. Presumably, when you re-assembled the supervisor, your new binary does not have the modification and that's why handshaking does not work anymore. I don't know if you can run George Shedlock's job as such for your new supervisor, or if you need to change the address because of the changes you made. One possible way to find out is to re-assemble George Shedlock original supervisor ($$A$SUP1 DOSVS A) and examine the listing to determine where the ZAP is done and find the equivalent in your new supervisor. That's the best I can do for you. Good luck! Rene FERLAND, Montreal SECOND RESPONSE Hello Jim, I have assembled George Shedlock's original $$A$SUP1 supervisor and I can see what the ZAP has done to it. It (apparently) changes the last bit of SYSFLAG4 (check the PNG attached): I think the ZAP says to check (VER) for 6001,6808 at address 738 and, if it is there, replace it with 6001,6809 (REP). So, check your own supervisor for SYSFLAG4, find the address and value, and adjust the ZAP accordingly? :-) Cheers, Rene FERLAND, Montreal REPLY Hello Professor, As always, you have come through again! My changes to the new supervisor did not change the offset so I was able to run the PDZAP using the new name. The VM handshake works wonderfully. With your permission, I will post this dialog on /g/H390-DOSVS so that others may benefit from your wisdom. Thank you. Attachments area
|
|
dosvs rel 34 3270 program in asm
4
I am looking for an example of a 3270 program written in DOSVS rel 34 ASM. Want to try and learn some things. If anyone has an example or location of example, please advise. Thank You tom c
|
|
POWER/VS "DISP=I" (insert) JECL
FYI: I can't recall whether I've ever mentioned this before or not, but in case I haven't, I just wanted to pass along a handy helpful tip to those DOS/VS(E) geeks out there who might not already know about POWER/VS's little know (but incredibly handy!) "DISP=I" JECL command: POWER/VS "DISP=I" (insert) Example job stream to catalog the "A." source for a macro, and then also automatically catalog the "edited" E deck too via the little know but incredibly handy POWER/VS "DISP=I" JECL command (DISP=I means "insert", as in "automatically insert the specified spooled device output back into the card reader"). Note the "DISP=I" usage on the "* $$ PUN" punch card midway through the below job stream where punched output is normally spooled: * $$ JOB JNM=BAS,CLASS=0 * $$ LST CLASS=A // JOB BAS CATALS A.BAS // ASSGN SYS001,SYSRES // ASSGN SYS002,SYSRES // EXEC MAINT CATALS A.BAS BKEND MACRO &BAS BAS &R14,&SUBRTN &BAS DC 0H'0',X'4D',AL.4(&R14,0),S(&SUBRTN) MEND BKEND /* /& >>>>> * $$ PUN CLASS=A,DISP=I // JOB BAS EDECK ASSEMBLY A.BAS TO E.BAS // ASSGN SYSLST,IGN // OPTION DECK // EXEC ASSEMBLY PUNCH '* $$ JOB JNM=BAS,CLASS=0,DISP=D' PUNCH '* $$ LST CLASS=A,DISP=D' PUNCH '// JOB BAS CATALS E.BAS EDITED MACRO' PUNCH '// EXEC MAINT' END /* // RESET SYSLST // OPTION EDECK,NODECK // EXEC ASSEMBLY COPY BAS END /* // ASSGN SYSLST,IGN // OPTION DECK // EXEC ASSEMBLY PUNCH '/*' PUNCH '/&&' PUNCH '* $$ EOJ' END /* /& * $$ EOJ The end result is, the macro is automatically cataloged to BOTH the A. and E. source sublibraries with one simple submission of a simple job stream. There is NO NEED to manually capture the punched output from // OPTION EDECK assembly and then manually wrap it with JCL and manually submit it to catalog the "edited" macro to the E. sublibrary. Instead, by simply using a "DISP=I" JECL card, it is done for you automatically in one job stream! -- "Fish" (David B. Trout) Software Development Laboratories http://www.softdevlabs.com mail: fish@...
|
|
z Architecture Mode
17
Folks, Does anyone know how to configure Hercules to allow an IPL in z Architecture mode. John Rankin
|
|
jcl input
8
Thank you to all who helped me on my nested subroutine issue. Made a ton of progress on it. New issue.... I want to include the data that my program uses in the JCL job stream and my program will read this data for use. I have been trying to find information/examples of how to do it. ex: * $$ JOB JNM=TEST,CLASS=0,DISP=D * $$ LST LST=00E,JSEP=1,CLASS=A,DISP=D // JOB TEST // EXEC TEST DATA LINE ONE DATA LINE TWO DATA LINE THREE /* /& * $$ EOJ What I would like is for TEST to read the DATA LINE xxxx from the JCL. The program is written in DOS/VS REL 34 ASM. Any suggestions or comments will be welcome. /cheers /tom c
|
|
I am looking for documentation/examples of how to nest multiple layers of subroutines in DOS/VS ASM. I can do one-nesting, but if I try to nest two levels main -> sub1 -> sub2 -> sub1 -> main the system seems to hang or loop. Trying to figure it out for an app that I am writing. Cheers tom c
|
|
EchoParm
Fran Hensler wrote a routine, EchoParm, which allows for the use of EXEC PARM= . The program compiles but will not run via DOS/VS rel 34. It is stated in the JCL: Restriction: This program will work in DOS/VS R34 only if * * modifications to $JOBCTLE are made to support * * the PARM= field on the EXEC statement. What I am trying to locate is the modifications to $JOBCTLE. for DOSVS rel 34. I have emailed the author and waiting for response. If anyone has any information about the above changes to $JOBCTLE for DOSVS rel 34, it would be appreciated. Thank You /tom c
|
|
BUFF40 jcl/documentation Fortran
7
I have BUFF40 compiling and linking via dos/vs. Does anyone have any jcl and/or documentation on how to run and use this code. Thank you tom c
|
|
Hi Guys I’ve released a new Control Panel for IBM 370/138 (https://github.com/rsanchovilla/SimH_cpanel) It includes the bugfixes done by Richard Cornwell in his Sims repo. Now simulator can sysgen and boot DOS/VS As usual, ready to run packages are available. Best Regards Roberto
|
|
PL-360
8
I have managed to get PL-360 running under dos/vs. If interest, I will upload a zip file with all the code, manuals, and instructions. Cheers /Tom c
|
Image Name
Sat 8:39am
Sat 8:39am