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
