Re: POWER II source distribution
Hi! I attach the configuration file I use, and the hercules log (which is very long!) On 6/27/23 20:21, Fish Fish wrote: [...]
BG 0P10I C EQUIP CHK SYS005=281
CCSW=0210006B080E400CA8 SNS=1040000000C0 CCB=006CD8
BG 0P10I C EQUIP CHK SYS004=280
CCSW=0210006B080E400CA8 SNS=1040000000C0 CCB=006AC8
BG 0P73I JOB POWER01 CANCELED DUE TO I/O ERROR
The aws file is the one referenced above in this thread,
and destination file was successfuly created by hetinit...
so no clue what's going wrong. Enable CCW tracing for both devices ('t+280' and 't+281' Hercules commands) and try your job again and post the resulting Hercules logfile.
Seeing your Hercules configuration file would help too.
, I noticed two messages appearing just before the I/O error: I find relevant that, just before the I/O Error, two lines show up that look very suspicious: 11:15:00 HHC00204E 0:0281 Tape file tape/power-deblock.aws, type aws: error in function readhdr_awstape(), offset 0x0000000000000D20: end of file (uninitialized tape) and 11:15:00 HHC00204E 0:0280 Tape file tape/ibm.360d052006.dos.power.II.with.rje.opt2.v4m1.aws, type aws: error in function readhdr_awstape(), offset 0x0000000000000D0A: end of file (uninitialized tape) Strangely but, before these errors show up, there was a lot of activity both on the log regarding devices 280 and 281, and on the tape files themselves, as I see on the filesystem that their sizes changed, so it looks like hercules was initially happy handling the tapes but at some point the thing went wrong. Thank you very much. Regards.
|
Re: POWER II source distribution
On Tue, Jun 27, 2023 at 09:35 AM, Alejandro olivan Alvarez wrote:
>> Has anyone succeded in getting POWER completed?
Yes, I have. :-) See below:
Trying 127.0.0.1...
Connected to 127.0.0.1.
Escape character is '^]'.
HHC01027I Hercules version 4.5.0.10830-SDL-g58578601, built on Nov 26 2022 16:26:19
HHC01031I Running on EPICURUS (Windows-6.2.9200. unknown 64-bit Intel(R) x64 LP=4, Cores=2, CPUs=1)
HHC01018I 0:001F COMM: client 127.0.0.1 devtype 1052: connected
?
0I10A GIVE IPL CONTROL COMMANDS
set date=06/27/23,clock=16/51/00
BG? 0I20I DOS IPL COMPLETE
BG? 1I00A? READY FOR COMMUNICATIONS.
BG? log
BG
BG? // JOB POWER01 CATALOG POWER RELO AND SOURCE
? ?16.51.33
BG? * DEBLOCK POWER TO SCRATCH TAPE, 1 FILE
BG? // ASSGN SYS004,X'280'? ? ? ? ? ? ? ? ? INPUT TAPE
BG? // ASSGN SYS005,X'281'? ? ? ? ? ? ? ? ? OUTPUT TAPE
BG? // UPSI 10100000? ? ? ? ? ? ? ? ? ? ? ? USE UNLABELED TAPES
BG? * RESPOND 'Y' TO MSG '8001D IS IT EOF'
BG? // EXEC TPTP
BG? ?8001D IS IT EOF
Y
BG? EOJ POWER01
? ?16.51.36,DURATION 00.00.02
BG? 1C00A? ATTN. 0 0C.
BG
Your case is worth investigating I guess.
Cheers,
Rene FERLAND, Montreal
|
Re: POWER II source distribution
[...] BG 0P10I C EQUIP CHK SYS005=281
CCSW=0210006B080E400CA8 SNS=1040000000C0 CCB=006CD8
BG 0P10I C EQUIP CHK SYS004=280
CCSW=0210006B080E400CA8 SNS=1040000000C0 CCB=006AC8
BG 0P73I JOB POWER01 CANCELED DUE TO I/O ERROR
The aws file is the one referenced above in this thread,
and destination file was successfuly created by hetinit...
so no clue what's going wrong. Enable CCW tracing for both devices ('t+280' and 't+281' Hercules commands) and try your job again and post the resulting Hercules logfile. Seeing your Hercules configuration file would help too. -- "Fish" (David B. Trout) Software Development Laboratories mail: fish@...
|
Re: POWER II source distribution
Hi! I stumbled with this thread as, precissely, getting POWER on DOS/360 as explained at tutorial ?is the first (and I bet, the only) thing that goes wrong. Has anyone succeded in getting POWER completed? ... At the very first JOB to deblock the POWER tape into another tape, I got an unexpected job cancellation due to I/O error:
BG? // JOB POWER01 CATALOG POWER RELO AND SOURCE
? ?12.02.17
BG? * DEBLOCK POWER TO SCRATCH TAPE, 1 FILE
BG? // ASSGN SYS004,X'280'? ? ? ? ? ? ? ? ? INPUT TAPE
BG? // ASSGN SYS005,X'281'? ? ? ? ? ? ? ? ? OUTPUT TAPE
BG? // UPSI 10100000? ? ? ? ? ? ? ? ? ? ? ? USE UNLABELED TAPES
BG? * RESPOND 'Y' TO MSG '8001D IS IT EOF'
BG? // EXEC TPTP
BG 0P10I? C? EQUIP CHK? SYS005=281
? ? ? ? ? ?CCSW=0210006B080E400CA8 SNS=1040000000C0 CCB=006CD8?
BG 0P10I? C? EQUIP CHK? SYS004=280
? ? ? ? ? ?CCSW=0210006B080E400CA8 SNS=1040000000C0 CCB=006AC8?
BG? 0P73I JOB POWER01? CANCELED DUE TO I/O ERROR?
The aws file is the one referenced above in this thread, and destination file was successfuly created by hetinit... so no clue what's going wrong.
Regards.?
|
Re: Is there a Hello World COBOL example for DOS/VS?
>> I guess It would be therefore reasonable, upon success on the patching, to keep a copy of the resulting, patched, dos/vs 3350s and replace the ones shipped with vm/ce.
I thought about something like that for a while, but I feel it is better to leave the 5-pack as is. People can customized it to their needs whenever necessary. Besides, not that many people use DOS/VS for COBOL programming, so it is often more "fruitful" to help people via this group like I did with you.
?
If I am right, George Shedlock built his 5-pack based on the DOS/VS system he worked on, in his professional career. I assume he was an assembler programmer and did not pay that much attention to the old DOS/360 COBOL and PL/I compilers requirements. Since I didn't (and still don't) know how to patch a compiler, I came up with a first degree solution at the time: add a 2314 disk and change the BG labels of the work files. That is what I explain in a video on the Youtube channel of Moshix. I believe the SORT program on DOS/VS also needs a 2314 for its work files, so the added disk could be used for that too.
?
Anyway, I am glad you have fun with POWER and FCOBOL now. Enjoy DOS/VS, it has more to offer than one might think at first. :-)
?
Cheers,
?
Rene FERLAND, Montreal
?
|
Re: Is there a Hello World COBOL example for DOS/VS?
Alejandro olivan Alvarez wrote: [...] So I needed to read a litle on those queue management
commands ... pdisplay and pdelete, [...] Just be very careful not to confuse "D" (which is the abbreviation for the PDISPLAY command) with "L" (which is the abbreviation for the PDELETE command)! I still remember an incident from years and years ago at the shop I used to work at, where an inexperienced newbie mistakenly thought "d" meant "delete" and "l" mean "list", and ended up deleting the entire list queue when she entered the command "l lst,*"!! (Oops!!) :) So keep in mind: "L" = DELETE "D" = "DISPLAY" -- "Fish" (David B. Trout) Software Development Laboratories mail: fish@...
|
Re: Is there a Hello World COBOL example for DOS/VS?
It works now!!! :-D
Thank you all very very much!
It also turned out that I got quite a bit of old jobs queued there... quite a mess.
So I needed to read a litle on those queue management commands ... pdisplay and pdelete, but also psetup and pgo since (don't know why) one of my past hellocob attempts triggered an 'IQ40A' message and was stuck on the lst queue.... overall, I managed to clean all up, and jobs started to run an print nicely...? a ton of fun!!!
Cheers.
|
Re: Is there a Hello World COBOL example for DOS/VS?
Wow... This gets even more interesting! ... So, those XXInit jobs are worth taking a look at and dig a little...I feel I may learn some fundamentals there
I Guess It would be therefore reasonsable, upon success on the patching, to keep a copy of the resulting, patched, dos/vs 3350s and replace the ones shipped with vm/ce
Thanks!
Hello Alejandro,
?
There is nothing wrong with the JCL, the problem comes from the compiler. I forgot about it when I posted my demo programs. The COBOL F compiler of DOS/VS is actually the one of DOS/360 and it expects the working files to be stored on a 2314 disk, while they are on a 3350 on DOS/VS. Moreover, the compiler uses SYS004 for a work file while it is logically assigned to the card reader by the XXINITBG job (after POWER is started), hence the C102I message you get.
?
For the programs to compile/run, you need to modify XXINITBG and patch the COBOL compiler so it will accept work files on a 3350. Here's what you can do:
?
1. Delete the current XXINIT jobs from the reader queue:
?
? ?PDELETE RDR,*XX
?
2. Submit the attached job 1-XXINIT.jcl to replace them.
?
3. Release the new XXINIT jobs:
?
? ?PRELEASE RDR,*XX
?
4. Submit the attached job 2-COBZAP.jcl to patch the compiler.
?
After that, you should be able to compile FCOBOL programs in BG.
?
Cheers,
?
Rene FERLAND, Montreal
?
P.S. -- The COBZAP job was written by Bill Carlborg, not me.
|
Re: Is there a Hello World COBOL example for DOS/VS?
Hello Alejandro,
?
There is nothing wrong with the JCL, the problem comes from the compiler. I forgot about it when I posted my demo programs. The COBOL F compiler of DOS/VS is actually the one of DOS/360 and it expects the working files to be stored on a 2314 disk, while they are on a 3350 on DOS/VS. Moreover, the compiler uses SYS004 for a work file while it is logically assigned to the card reader by the XXINITBG job (after POWER is started), hence the C102I message you get.
?
For the programs to compile/run, you need to modify XXINITBG and patch the COBOL compiler so it will accept work files on a 3350. Here's what you can do:
?
1. Delete the current XXINIT jobs from the reader queue:
?
? ?PDELETE RDR,*XX
?
2. Submit the attached job 1-XXINIT.jcl to replace them.
?
3. Release the new XXINIT jobs:
?
? ?PRELEASE RDR,*XX
?
4. Submit the attached job 2-COBZAP.jcl to patch the compiler.
?
After that, you should be able to compile FCOBOL programs in BG.
?
Cheers,
?
Rene FERLAND, Montreal
?
P.S. -- The COBZAP job was written by Bill Carlborg, not me.
|
Re: Is there a Hello World COBOL example for DOS/VS?
toggle quoted message
Show quoted text
Interesting... some good news/bad news situation here:
The bad news is that Hello Worl in cobol does not work.
The good news (to me) is that it wasn't that different from the one I came up and tried before posting here.
Now, the exact issue is that DOS/VS says this at the console:
BG // JOB HELLO
? ? ? DATE 06/18/23,CLOCK 09/53/27
BG C102I? ? ? ?UNSUPPORTED DEVICE TYPE-SYS004
BG 0S02I JOB HELLO? ? CANCELED DUE TO PROGRAM REQUEST
BG EOJ HELLO? ??
? ? ? DATE 06/18/23,CLOCK 09/53/27,DURATION 00/00/00
F1 1Q34I? ? ? BG WAITING FOR WORK
It is very shocking to me that it doesn't work, since, well, it is a DOS/VS as it comes in VM370/CE, and overall and otherwise it behaves as expected... I read a little on those 'problem program' 'labels' SYS00x but, to be honest, it all sounds to me as fascinating as cryptic.
No need to mention that the other two programs suffer the same doom, as are laconically cancelled for the very same unsupported TYPE-SYS004 device... quite pesky this DOS/VS guy...
Cheers!?
|
Re: Is there a Hello World COBOL example for DOS/VS?
Interesting... some good news/bad news situation here:
The bad news is that Hello Worl in cobol does not work.
The good news (to me) is that it wasn't that different from the one I came up and tried before posting here.
Now, the exact issue is that DOS/VS says this at the console:
BG // JOB HELLO
? ? ? DATE 06/18/23,CLOCK 09/53/27
BG C102I? ? ? ?UNSUPPORTED DEVICE TYPE-SYS004
BG 0S02I JOB HELLO? ? CANCELED DUE TO PROGRAM REQUEST
BG EOJ HELLO? ??
? ? ? DATE 06/18/23,CLOCK 09/53/27,DURATION 00/00/00
F1 1Q34I? ? ? BG WAITING FOR WORK
It is very shocking to me that it doesn't work, since, well, it is a DOS/VS as it comes in VM370/CE, and overall and otherwise it behaves as expected... I read a little on those 'problem program' 'labels' SYS00x but, to be honest, it all sounds to me as fascinating as cryptic.
No need to mention that the other two programs suffer the same doom, as are laconically cancelled for the very same unsupported TYPE-SYS004 device... quite pesky this DOS/VS guy...
Cheers!?
|
Re: Is there a Hello World COBOL example for DOS/VS?
Hi guys.
Thank you for your help! I appreciate this very much.
By one side, I have yet another fork on investigation path, since I have missed that DOS/360 site (probably all my research and googiln has always been '370' focused/filtered) ... I feel that's gonna be fun, since a kick look at it makes me thing this site covers a whole OS sysgen, which sounds lika is a ton of fun!
On the other side, now with 3 'known to work' Jobs, I feel more confident approaching DOS/VS (forgot to mention, I run DOS/VS as a VM370-CE guest). I have a starting point :-)
Cheers!??
|
Re: Is there a Hello World COBOL example for DOS/VS?
On Fri, Jun 16, 2023 at 09:37 AM, Alejandro olivan Alvarez wrote:
Does someone know about some fundamental/basic examples of DOS/VS COBOL JOBs to start to play with? I
I have attached three demo programs for you, including the Hello World program. :-) Cheers, Rene FERLAND, Montreal
|
Re: Is there a Hello World COBOL example for DOS/VS?
That is for dos360 , but the examples should work in doses
Which dosvs are you?using?
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.
|
Is there a Hello World COBOL example for DOS/VS?
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.
|
Re: Can anyone please share a JCL file with program that takes more than 0 seconds to run?
?Hello Rene!
Thank you so much for this explanation. I am going to try this right now.
Hope this would create some load for my personal mainframe. :)
Best wishes,
Andre
toggle quoted message
Show quoted text
On Sat, Jun 10, 2023 at 09:56 PM, René Ferland wrote:
Hello Andre,
?
To my knowledge, on DOS/VS, jobs of different classes (running in different partitions) will execute concurrently. Within a class, POWER dispatches jobs according to their priority (0 to 9, 9 highest), proceeding FIFO if the priorities are the same. On George Shedlock 5-pack, the default priority (when it is not coded in the * $$ JOB statement) is 3 (hard coded in POWER).
?
Here's a suggestion for you. Create a series of jobs like these:
?
* $$ JOB JNM=JOBxx,CLASS=n,DISP=H,PRI=p
* $$ LST CLASS=A,DISP=D,JSEP=0
// JOB Jxx
// LISTIO SYS
// EXEC LSERV
/&
* $$ EOJ
?
For each job number xx, choose a class (n=0,2,3,4) and a priority (p=0,1,...,9), and then submit them. They will be all kept in the reader queue because of the DISP=H parameter. Then release all of them at the same time with the POWER command: PRELEASE RDR,*JOB and check how POWER will dispatch the execution.
?
Cheers,
?
Rene FERLAND, Montreal
?
P.S. -- If you want longer execution, repeat LISTIO and LSERV within the job. On my Mac, running these ten times (inside the same job) took about fifteen seconds real-time.
?
|
Re: Can anyone please share a JCL file with program that takes more than 0 seconds to run?
Hello Andre,
?
To my knowledge, on DOS/VS, jobs of different classes (running in different partitions) will execute concurrently. Within a class, POWER dispatches jobs according to their priority (0 to 9, 9 highest), proceeding FIFO if the priorities are the same. On George Shedlock 5-pack, the default priority (when it is not coded in the * $$ JOB statement) is 3 (hard coded in POWER).
?
Here's a suggestion for you. Create a series of jobs like these:
?
* $$ JOB JNM=JOBxx,CLASS=n,DISP=H,PRI=p
* $$ LST CLASS=A,DISP=D,JSEP=0
// JOB Jxx
// LISTIO SYS
// EXEC LSERV
/&
* $$ EOJ
?
For each job number xx, choose a class (n=0,2,3,4) and a priority (p=0,1,...,9), and then submit them. They will be all kept in the reader queue because of the DISP=H parameter. Then release all of them at the same time with the POWER command: PRELEASE RDR,*JOB and check how POWER will dispatch the execution.
?
Cheers,
?
Rene FERLAND, Montreal
?
P.S. -- If you want longer execution, repeat LISTIO and LSERV within the job. On my Mac, running these ten times (inside the same job) took about fifteen seconds real-time.
?
|
Re: Can anyone please share a JCL file with program that takes more than 0 seconds to run?
As you know, DOS/VS is managed by POWER. It is POWER that you want to control, not DOS/VS.
You can put DISP=H on the POWER JECL ... * $$ JOB JNM=XXX,DISP=H
Then, you can use PRELEASE to release the jobs one at a time and watch them run. PRELEASE RDR,Jobname to release them one at a time.
Joe
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
|
Re: Can anyone please share a JCL file with program that takes more than 0 seconds to run?
Andre,
You can put a JCL? ?PAUSE statement in your job
I forget the exact JCL syntax,? I haven't used dos/vs for awhile, and am just a casual / novice user.
One of the distributions of DOS/VS out there already has "pause" jobs "preloaded" in the rdr, after IPL or running the ...init.. job.
I forget which distro it is.
You can also enter a job "interactively" from the console (I think it was dos 34 ??),??
Mike
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
|
Can anyone please share a JCL file with program that takes more than 0 seconds to run?
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
|
René Ferland