I am trying to run DOS/VS under VM/370 using the "5pack" downloaded from the same site as VM/370 CE.

I was able to IPL successfully (as far as I can tell - new to DOS/VS so still wrapping my head around parts of this) and was able to direct the printer to spool output to CMSUSER under VM.


I am not sure if the issues I am facing are purely VM issues or are DOS/VS issues so wasn't sure if best to ask here or on the DOSVS list but it looks to me like I may have some sort of handshaking issue between them; hoping someone can point me in the right direction or let me know if I should join the DOSVS list to ask over there...


I created a copy of the NOTHING JCL as a file owned by CMSUSER:


type nothing jcl

// JOB NOTHING
/&

Ready; T=0.01/0.01 05:37:51


When I try submitting that to DOS/VS:


spool pun to dosvs
Ready; T=0.01/0.01 05:38:19
punch nothing jcl
PUN FILE 0263? TO? DOSVS??? COPY 01 NOHOLD
Ready; T=0.01/0.01 05:38:23



I am getting this on the DOS/VS console:


18 BG :READ? NOTHING? JCL????? A1 CMS191 12/26/23?? 5:33
19*BG 1S01D? INVALID STATEMENT.
20
0D07D? ENTER RESPONSE




I press ENTER at that point (on the DOS/VS console) and get this:


05 BG
06 BG EOJ NO NAME
07??? DATE 12/27/23,CLOCK 05/39/20
08 F1 1Q34I? LST WAITING FOR WORK ON 00E
09 BG // JOB NOTHING
10??? DATE 12/27/23,CLOCK 05/39/20
11 BG EOJ NOTHING
12??? DATE 12/27/23,CLOCK 05/39/20,DURATION 00/00/00
13 F1 1Q34I? LST WAITING FOR WORK ON 00E
14 F1 1Q34I?? BG WAITING FOR WORK



At that time CMSUSER receives *two* files on its reader from DOS/VS:


PRT FILE 0264 FROM DOSVS??? COPY 01 NOHOLD
PRT FILE 0265 FROM DOSVS??? COPY 01 NOHOLD


These contain:


?--- OK????????????????? ID=0264 AUTONAME????????? LINE=000001 OF 000003 CASE=U
:READ? NOTHING? JCL????? A1 CMS191 12/26/23 5:33
1S01D? INVALID STATEMENT.

EOJ NO NAME DATE 12/27/23,CLOCK 05/39/20


?--- OK????????????????? ID=0265 NOTHING?????????? LINE=000001 OF 000002 CASE=U
// JOB NOTHING DATE 12/27/23,CLOCK 05/39/20
EOJ NOTHING DATE 12/27/23,CLOCK 05/39/20,DURATION 00/00/00



I have another JCL deck I had tried putting together based on some commands I found in one of the DOS/VS manuals on bitsavers; this deck specifically:


type listio jcl

// JOB CMSUSER
// LISTIO
// PAUSE
/&

Ready; T=0.01/0.01 05:51:42



If I then try submitting this to DOS/VS:


punch listio jcl
PUN FILE 0272? TO? DOSVS??? COPY 01 NOHOLD
Ready; T=0.01/0.01 05:52:12


I get another round of this:


16 BG :READ? NOTHING? JCL????? A1 CMS191 12/26/23?? 5:33
17*BG 1S01D? INVALID STATEMENT.
18
19
20
0D07D? ENTER RESPONSE
BG



****?? NOTE that in spite of the fact that I punched "LISTIO JCL", DOS/VS is reading "NOTHING JCL" - it looks like there is a delay and it reads one JCL deck after I submit the next one???



If I press ENTER to clear that one out then submit NOTHING JCL again, then I get this on the DOS/VS console:


14 BG :READ? LISTIO?? JCL????? A1 CMS191 12/26/23?? 5:48
15*BG 1S01D? INVALID STATEMENT.
16
17
18
19
20
0D07D? ENTER RESPONSE
BG



Now I get the LISTIO JCL...? after ENTER:


?01 BG
?02 BG EOJ NO NAME
?03??? DATE 12/27/23,CLOCK 05/54/39
?04 F1 1Q34I? LST WAITING FOR WORK ON 00E
?05 BG // JOB CMSUSER
?06??? DATE 12/27/23,CLOCK 05/54/39
?07*BG 1S03D? INVALID STATEMENT.


ENTER again:


08 BG
09 BG // PAUSE



ENTER again:



10 BG
11 BG EOJ CMSUSER
12??? DATE 12/27/23,CLOCK 05/55/29,DURATION 00/00/49
13 F1 1Q34I? LST WAITING FOR WORK ON 00E
14 F1 1Q34I?? BG WAITING FOR WORK





So my current issues are that there seems to be a one-deck lag between submitting a JCL deck from CMS and processing that deck in DOS/VS, and that for some reason my JCL seems to be invalid, which I can guess I may have gotten something wrong in my LISTIO JCL, but the NOTHING JCL looks like it should be right?


I do have the JCL decks set as fixed format 80 columns in CMS...



Here are the print files that get spooled to CMSUSER when LISTIO JCL is processed:


?--- OK????????????????? ID=0276 AUTONAME????????? LINE=000001 OF 000003 CASE=U
:READ? LISTIO?? JCL????? A1 CMS191 12/26/23 5:48
1S01D? INVALID STATEMENT.
EOJ NO NAME DATE 12/27/23,CLOCK 05/54/39



?--- OK????????????????? ID=0277 CMSUSER?????????? LINE=000001 OF 000006 CASE=U
// JOB CMSUSER DATE 12/27/23,CLOCK 05/54/39
// LISTIO
// LISTIO
1S03D? INVALID STATEMENT.
// PAUSE
EOJ CMSUSER DATE 12/27/23,CLOCK 05/55/29,DURATION 00/00/49

On Tue, Dec 26, 2023 at 03:01 AM, Frank D. Engel, Jr. wrote:

spool pun to dosvs
Ready; T=0.01/0.01 05:38:19
punch nothing jcl
PUN FILE 0263? TO? DOSVS??? COPY 01 NOHOLD

Hello Frank,

I think your problem comes from the fact that you punch the job with a header. Punch without a header instead:

punch nothing jcl ( noheader

Cheers,

Rene FERLAND, Montreal

开云体育

Thank you!

That clears up one problem, though I am still seeing the one-submission lag.? That is, if I take turns punching NOTHING JCL and LISTIO JCL, then when I punch one of them, it is the other that processes.? If I punch LISTIO JCL now, it is NOTHING JCL that processes, and the LISTIO JCL that I punch now will not process until I punch something else (or a second copy of it).

The // LISTIO statement in my LISTIO JCL also gets flagged as invalid (though it is documented as valid in one of the IBM books I found), but that one doesn't seem to be a VM issue...

开云体育

I figured out the issue with LISTIO - I was missing an argument.

Changing that line to // LISTIO ALL fixed that problem.

I tried shutting down DOS/VS and re-IPLing it to see if that would clear up the "off-by-one" submission issue, but sadly it persists after the IPL.

Compared to the instructions in the DOSVS readme that is bundled with CE, I have modified my DOSIPL EXEC as follows:

CP SPOOL PUNCH *????????????????????????? ?
PUNCH NOTHING JCL A ( NOH?????????????????
CP SPOOL PUNCH OFF??????????????????????? ?
CP SPOOL 00E CLASS A????????????????????? ?
CP SPOOL 00E TO CMSUSER?????????????????? ?
CP DEFINE 1403 00F??????????????????????? ?
PRT? 00F DEFINED????????????????????????? ?
CP SPOOL 00F CLASS R????????????????????? ?
CP SPOOL 00F TO CMSUSER?????????????????? ?
CP IPL 360????????????????????????????????

I added one command to the end of the IPL procedure to support the class R printer that is set up by that:

S PRT,00F,R

My LISTIO JCL now reads:

// JOB LISTIO
// LISTIO ALL
// PAUSE??? ?
/&??????????

I created a SUBDOS EXEC to submit the JCL decks correctly:

CP SPOOL PUN TO DOSVS
PUNCH &1 &2 &3 (NOH?

It remains the case that:

subdos listio jcl

* nothing jcl actually processes (the one submitted by the DOSIPL EXEC???)

subdos nothing jcl

* listio jcl processes

subdos listio jcl

* nothing jcl processes

etc.

On Tue, Dec 26, 2023 at 03:29 AM, Frank D. Engel, Jr. wrote:

The // LISTIO statement in my LISTIO JCL also gets flagged as invalid (though it is documented as valid in one of the IBM books I found), but that one doesn't seem to be a VM issue...

Yes, LISTIO needs an argument, that's why it fails here.

On Tue, Dec 26, 2023 at 04:52 AM, Frank D. Engel, Jr. wrote:

* nothing jcl actually processes (the one submitted by the DOSIPL EXEC???)

Yes, the one from DOSIPL EXEC, so no need to submit it again from CMSUSER. This job is there to ready the card reader task automatically at IPL.

You have nicely customized DOSIPL EXEC to your needs, that's great. :-)

Cheers,

Rene FERLAND, Montreal

P.S. -- At this point, I think any further questions about DOS/VS should be sent to H390-DOSVS.

开云体育

Looks like this crossed over with my other reply.?

POWER/VS is running in F1.

I removed the PAUSE - I had only added it because the LISTIO was failing and I wanted to see if something else would work (that was an easy thing to try).? No longer needed now that the issue with LISTIO was worked out.

I shut down DOS/VS again and when I logged in as dosvs, I did a q rdr and indeed the last deck was left in the reader.

I purged that before doing another IPL.

Now it is working as expected, without the alternating behavior.

I suspect that when a deck was loaded onto the reader DOS/VS was reading one deck then stopping until informed that another was available, but the fact that a deck was on the reader then the DOSIPL EXEC submitted another left it with two decks but it only expected (and thus only read) one, leaving the other behind?

In any case, this seems to be working now.

Thank you!

To fix the problem that only one job is executed when you quickly submit more than one job: code
? ?CP SP RDR CONT
in the startup of the DOS guest.

If a job sits waiting in the VM rdr queue of DOS, issue a CP READY 00C in the DOS machine

(I hope my rusty memory has this all right)
--
Kris Buelens

开云体育

Good info - I figured there had to be something like CP READY 00C and was starting to dig through the help to try to find it, so this cut short that search a bit.

The CP SP RDR CONT option looks promising as well.

Thank you!