Thank you Jim.

That did occur to me.? I'm hoping for a more "elegant" solution.? I know back in the day in a multiuser situation there was a way via JCL to get the output back to my VM.? I just don't recall what it was and if it relied upon additional software that we may or may not have access to.

You can spool 00E to your VM userid by logging on your MVS guest and issuing a
#CP SPOOL 00E to yourid CONT NOHOLD

I'm again playing with MVS (TK5 Update 2) under VM/370 CE 1.2.

I've succesfully submitted and executed a batch job from VM to MVS by punching it.? What I cannot figure out is how to tell the JCL to send the output back to my VM PRT device.? I vaguely remember doing this in school a lifetime ago.

Advice/pointers please?

DIRENT is what you're looking for (it's is not a REXX exec)
--
Kris Buelens

I thought I remembered a discussion about there being a REXX program (CBT? VMSHARE?) that would read the minidisk the CP Directory was located and create a USER DIRECT file.

I can't seem to find the discussion or the program. Am I imagining things?

P.S. Merry Christmas & Happy New Year.

?... Mark S.

On 12.13.2023 15:37, Daniel L. Srebnick via groups.io wrote:

Can anyone refer me to a straightfoward document explaining how to configure NJE on my VM/370 CE 1.2 system?? I have NJE configured on my MVS 3.8j host (TK5) and used the excellent docs put together by Bob Polmanter.

I see that I have the RSCS virtual machine running on my installation, I just don't know what to do next to get the two hosts peering.

The developer of the NJE device support and RSCS modifications, Peter
Coghlan, is usually willing to share his in-progress work privately with
people who contact him and let him know they're interested in trying them
out. You can find his email address on his web site,


-Matthew

Thank you Bob.

Can anyone refer me to a straightfoward document explaining how to configure NJE on my VM/370 CE 1.2 system?? I have NJE configured on my MVS 3.8j host (TK5) and used the excellent docs put together by Bob Polmanter.

I see that I have the RSCS virtual machine running on my installation, I just don't know what to do next to get the two hosts peering.

Best regards,

Dan

I uploaded CMSBATCH EXEC to the files section.? Please feel free to use and critique.? So far, it covers Assembler, COBOL, and PL/1.? I suppose I ought to add at least Fortran.

Thanks again to those who helped me along as I get reacquainted with VM/370.

On Thu, Nov 30, 2023 at 03:09 PM, Bob Polmanter wrote:

CP SPOOL CONSOLE TO userid START

and the very last statement should be:

CP SPOOL CONSOLE STOP CLOSE

I wonder if it is necessary to explicitly START/STOP CLOSE. For sure I never did. :-) All my batch jobs starts with the statements:

/JOB userid 1234 jobname
CP SPOOL CONSOLE TO userid
CP SPOOL PRINTER TO userid

The spool console output is sent back to userid in a file of class T, while whatever is printed is sent in an other file of class A. Then I examine the content of those with the SFBROWSE command and choose to purge/print the content with subcommands purge/print of SFBROWSE. I also make sure one of the "real" printers handles class T.

Cheers,

Rene FERLAND, Montreal

Hi Daniel,

It has been a long time since Ive used CMSBATCH, but looking at the statements in your job submission, you didn't actually print anything.? You did direct SYSPRINT and SYSOUT to the terminal, but not to the printer.? And the printer is what you spooled to your userid.

In order to see terminal output, you should spool the console as well, at the beginning of your job:

CP SPOOL CONSOLE TO userid START

and the very last statement should be:

CP SPOOL CONSOLE STOP CLOSE

The added benefit of this is that you can see any errors in the commands in the job stream when the console log is returned to you at end of job.

In lieu of the console log, you could remove the filedefs for SYSPRINT and SYSOUT, and then after the COBOL command you could physically print them with a PRINT command, for example:

PR SYSPRINT LISTING

I'm not sure that is the filename and filetype but you could determine those by running a Cobol compile in your own userid and see what ends up on your disk.

Regards,
Bob

Yes, they are prefixed by CP.? Apologies for omitting that during my description.

/JOB DAN 1234 TESTJOB
cp spool prt system class a
cp link dan 191 191 rr
access 191 b/a
filedef sysprint terminal
cobol testprg1
global txtlib cob360r
load testprg1
filedef sysout?? terminal
start
release 191
cp detach 191
/*

On Thu, Nov 30, 2023 at 12:50 PM, Daniel L. Srebnick wrote:

In both cases, the output ends up being owned by CMSBATCH and queued in class T.

SPOOL is a CP command. In your job, you need to prefix it with CP:

CP SPOOL PRT TO SYSTEM CLASS A
CP SPOOL PRT TO MYUSER

Cheers,

Rene FERLAND, Montreal

CMSBATCH seems to be ignoring my attempts to redirecdt output to either the system printer or back to my reader.

I've tried both of the following at the beginning of my jobs, right after the job card:

SPOOL PRT TO SYSTEM CLASS A

SPOOL PRT TO MYUSER

In both cases, the output ends up being owned by CMSBATCH and queued in class T.

I'm using CE 1.2.? Any thoughts?

On Tue, Nov 28, 2023 at 05:14 PM, Frank D. Engel, Jr. wrote:

I tried that, but it looks like it is off a bit in calculating where to put things:

Actually no, this is normal behavior. With EE,? the number of columns displayed depends on the filetype and the corresponding specification is searched in PROFILE EE.

If you add the line

FTDEFAULTS DIRECT F 80 M 72

to PROFILE EE, you should see things better in 80x24 mode. Or, indeed, you can work in 132x27 mode instead.

Check the file "mecaff-tools-and-console-1.2.5.zip" in the Files section of h390-vm. The ZIP contains the file "MECAFF-tools-Manual-1.2.5.pdf" which explains on page 6 the behavior of EE you observed.

Cheers,

Rene FERLAND, Montreal

开云体育

Interesting...

I tried that, but it looks like it is off a bit in calculating where to put things:

File: USER???? DIRECT?? A1? RECFM: F LRECL:? 80(80) Lines:?? 568 Current:?? TOP
?????????????????????????????????????????????????????????????????????????????? ?
?????????????????????????????????????????????????????????????????????????????? ?
?????????????????????????????????????????????????????????????????????????????? ?
?????????????????????????????????????????????????????????????????????????????? ?
?????????????????????????????????????????????????????????????????????????????? ?
?????????????????????????????????????????????????????????????????????????????? ?
?????????????????????????????????????????????????????????????????????????????? ?
????? ....+....1....+....2....+....3....+....4....+....5....+....6....+....7....
+....8???????????????????????????????????????????????????????????????????????? ?
===== * * * Top of file * * *????????????????????????????????????????????????? ?
?????????????????????????????????????????????????????????????????????????????? ?
===== * US
E00010???????????????????????????????????????????????????????????????????????? ?
===== * This is the VM directory for the VM/370 Community Edition?????????? * US
E00020???????????????????????????????????????????????????????????????????????? ?
===== * US
E00030???????????????????????????????????????????????????????????????????????? ?
===== DIRECTORY 6A1 3350 VM50-1?????????????????????????????????????????????? US
E00040???????????????????????????????????????????????????????????????????????? ?
?????????????????????????????????????????????????????????????????????????????? ?
===>?????????????????????????????????????????????????????????????????????????? ?
02=RingNext 03=Quit 06=SpltJ 07=PgUp 08=PgDw 10=PI 11=ClrCmd 12=Recall???????? ?
Unchanged???????????????????????????????????????????????? ee V1.2.5,? 1 File(s)

I tried changing the setting to 3279-5-E which is a 132x27 setting and that seems a bit better:

File: USER???? DIRECT?? A1????????????????????????????????????????????????????? RECFM: F LRECL:? 80(80) Lines:?? 568 Current:??? 40
?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? ?
=====? MDISK?? 103 3350 001 100 VM50-3 R????????????????????????????????????? USE00300???????????????????????????????????????????? ?
=====? MDISK?? 104 3350 101 100 VM50-4 R????????????????????????????????????? USE00310???????????????????????????????????????????? ?
=====???????????????????????????????????????????????????????????????????????? USE00320???????????????????????????????????????????? ?
===== USER $TEMP$ NOLOG?????????????????????????????????????????????????????? USE00330???????????????????????????????????????????? ?
=====? *?????? cuu type adr num volser mode readpw?? writepw? multpw????????? USE00340???????????????????????????????????????????? ?
=====? MDISK?? 100 3350 020 060 VM50-1 R????????????????????????????????????? USE00350???????????????????????????????????????????? ?
=====? MDISK?? 101 3350 466 044 VM50-2 R????????????????????????????????????? USE00360???????????????????????????????????????????? ?
=====? MDISK?? 102 3350 101 100 VM50-3 R????????????????????????????????????? USE00370???????????????????????????????????????????? ?
=====? MDISK?? 103 3350 001 100 VM50-4 R????????????????????????????????????? USE00380???????????????????????????????????????????? ?
=====???????????????????????????????????????????????????????????????????????? USE00390???????????????????????????????????????????? ?
????? ....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8???????????????????????????????????????????? ?
===== USER $DCSS$ NOLOG?????????????????????????????????????????????????????? USE00400???????????????????????????????????????????? ?
=====? *?????? cuu type adr num volser mode readpw?? writepw? multpw????????? USE00410???????????????????????????????????????????? ?
=====? MDISK?? 101 3350 001 010 VM50-1 R????????????????????????????????????? USE00420???????????????????????????????????????????? ?
=====???????????????????????????????????????????????????????????????????????? USE00430???????????????????????????????????????????? ?
===== USER $DIRECT$ NOLOG???????????????????????????????????????????????????? USE00440???????????????????????????????????????????? ?
=====? *?????? cuu type adr num volser mode readpw?? writepw? multpw????????? USE00450???????????????????????????????????????????? ?
=====? MDISK?? 101 3350 011 002 VM50-1 R????????????????????????????????????? USE00460???????????????????????????????????????????? ?
=====???????????????????????????????????????????????????????????????????????? USE00470???????????????????????????????????????????? ?
===== USER $NUC??? NOLOG????????????????????????????????????????????????????? USE00480???????????????????????????????????????????? ?
===== *??????? cuu type adr num volser mode readpw?? writepw? multpw????????? USE00490???????????????????????????????????????????? ?
=====? MDISK?? 101 3350 530 019 VM50-1 R????????????????????????????????????? USE00500???????????????????????????????????????????? ?
===>?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? ?
02=RingNext 03=Quit 06=SpltJ 07=PgUp 08=PgDw 10=PI 11=ClrCmd 12=Recall???????????????????????????????????????????????????????????? ?
Unchanged???????????????????????????????????????????????????????????????????????????????????????????????????? EE V1.2.5,? 1 File(s)

I can work with that - thank you!

On Mon, Nov 27, 2023 at 11:11 AM, Bob Bolch wrote:

However, the ''No fullscreen support present" is NOT what we should be seeing.

Hello Bob,

I was able to reproduce that behavior with ZOC. The problem disappeared when I change the terminal from 3278-2 to 3279-2-E. So could this be related to the colors used in the EE screen? That would be consistent with EDIT working when 3278-2 is specified.

Cheers,

Rene FERLAND, Montreal