Re: Let's Talk About RSCS
Here's an update.? After extensive testing and numerous suggestions from others in the community, I think I have found an answer.
?
On the VM/RSCS side, you need to start the line with a buffer size of 606.
?
START NODEA PARM H02 B606
?
Using this configuration I am able to cleanly punch jobs from a VM user, via RSCS, to JES2.? Unless I route the output otherwise, it comes back to the RSCS virtual machine, which prints the output on VM's PRT1.
?
I'm still testing, but am posting my results here in case anyone else wants to try.
|
Re: Losing virt-real setup upon rebuilding the nucleus...can't it be prevented?
Aha ... that makes sense!
?
So... Would that mean that, whenever I run VMFLOAD VRLOAD DMKLCL , there should no longer need to re-run VRSIZE, as long as I moved the resulting DMKSLC TEXT A filo onto the LoCaL modifications 594/E minidisk, isn't it?
?
Thank you very much for your reply, it was very helpful to further understand what's going on!
?
Cheers
--
Alejandro Olivan.
Spain.
|
Re: Losing virt-real setup upon rebuilding the nucleus...can't it be prevented?
So... here's the deal
?
VMFLOAD is an EXEC that creates a "nucleus load deck". It takes its input from another EXEC that is a list of files to be concatenated into a single "punch" file. .
?
The thing that makes VMFLOAD create a "nucleus load deck" is that the first file listed in its "load list" EXEC is "DMKLD00E LOADER".. This is an IPLable program that loads and links the other object files in the "load list" into memory and then transfers control to the entry point names on an LDT card at the end of the 'load list'. This same process is used to create a CP nucleus and a CMS nucleus... just different "load lists".
?
Specifically for the V=R situation, you must invoke VMFLOAD with the VRLOAD EXEC load list (or some derivative). The only difference between this load list and the standard CPLOAD EXEC load list is that VRLOAD includes an additional entry for "DMKSLC". This file (DMLSLC TEXT) contains a "SLC" loader control that moves the location counter so to create the V=R "hole" in the loadable CP nucleus.
?
The VRSIZE utility program is what creates the DMKSLC TEXT file references in the VRLOAD load list.
?
As far as the CPLOAD MAP and VRNUC MAP, those are manually created from the nucleus load process...
?
For lots more info, check out this source:
?
cheers, William
?
|
Re: Losing virt-real setup upon rebuilding the nucleus...can't it be prevented?
Hi, thank you for your help.
?
The fun thing is that, while I got it to work by switching from what I learn from documents to do:
?
VMFLOAD VRLOAD DMKHRC
?
to
?
VMFLOAD VRLOAD DMKLCL
?
by applying the 'LCL vs HRC' logic ... after reading your point, quite a bunch of questions came to my mind! :-)
?
So... is VRLOAD a kind of 'variant' of CPLOAD but just for 'virt-real' enabled CP?
Does it require a run of VRESIZE command anytime I rebuild the nucleus, for something non-VR realated? (DMKRIO, DMKSYS, DMKBOX...) anyways??
And what about VRNUC MAP? ... does it 'replace' CPLOAD MAP? I mean, can I simply erase CPLOAD MAP and keep VRNUC MAP at minidisk E?
?
Thank you.
Cheers.
?
--
Alejandro Olivan.
Spain.
|
Re: Losing virt-real setup upon rebuilding the nucleus...can't it be prevented?
when rebuilding the nucleus replace this:
?? vmfload cpload dmklcl
with this to maintain v=r:
?? vmfload vrload dmklcl
On 10/15/24 08:19, Alejandro olivan
Alvarez wrote:
toggle quoted message
Show quoted text
Hi folks.
?
After yet another adventure messing with DMK*** stuff (now
I've been playing with DMKBOX out of curiosity from the last
threads), I have realized that, always, whenever I rebuild the
nucleus, I get back to no virt-real storage.
So, whenever I tune DMKSYS, DMKRIO, DMKBOX, etc...after
IPLing and checking that? the changes worked as intended and
backing up stuff to minidisk 594 / E , then, I have to re-run
the VRSIZE recipe once again to let the system as it was... so,
the question is: could that be done somehow 'in a row'?
I mean, could one, after getting CPLOAD MAP, run VRSIZE and
rebuild again to get VR? Or why is the VR setup lost in the
first place?
?
Cheers!
--
Alejandro Olivan.
Spain.
|
Losing virt-real setup upon rebuilding the nucleus...can't it be prevented?
Hi folks.
?
After yet another adventure messing with DMK*** stuff (now I've been playing with DMKBOX out of curiosity from the last threads), I have realized that, always, whenever I rebuild the nucleus, I get back to no virt-real storage.
So, whenever I tune DMKSYS, DMKRIO, DMKBOX, etc...after IPLing and checking that? the changes worked as intended and backing up stuff to minidisk 594 / E , then, I have to re-run the VRSIZE recipe once again to let the system as it was... so, the question is: could that be done somehow 'in a row'?
I mean, could one, after getting CPLOAD MAP, run VRSIZE and rebuild again to get VR? Or why is the VR setup lost in the first place?
?
Cheers!
--
Alejandro Olivan.
Spain.
|
Re: Let's Talk About RSCS
I still can't punch jobs to MVS from VM for some reason but, in tests today, output routed from MVS to VM transfers with no I/O errors.? So far, I have routed jobs with various amounts of output, from 153 lines of MVS output (90 records on the VM SPOOL) to 11071 lines (11145 records on VM).
?
In case the issue is not with the RSCS start command, here are my Hercules config statements for the link.? They seem to mirror yours though, so I don't think there's an issue here.
?
Note: Pi4 is the hostname for my Pi host OS.
?
MVS - 670 is JES2 line 1, the one I used for connecting to VM
670 2703 dial=no lport=37908 rhost=Pi4 rport=37913 # RJE to VM/370 (JES line 1)
?
VM - 040 is the CUA defined as NODEA in RSCS
040 2703 dial=no lport=37913 rhost=Pi4 rport=37908 # RJE link to JS08 (NODEA - SML mode to MVS RJE line)
?
As for routing the output to a specific user, the best I've been able to come up with is draining the VM printer or changing the output class or whatever so the output doesn't print by default and using the TRANSFER command to move the output file to the requestor's queue.
?
JES2 thinks it's talking to a dumb RJE workstation, not a smart system with an OS and multiple users.? If you had a level of JES2 that supported NJE, you could use that and Peter Coghlan's updated RSCS to set up an NJE link and get closer to what it sounds like you want.? I've used his modified RSCS to support both NJE and RJE links with good success, though I don't remember specifically testing RJE jobs with massive output for I/O errors.? Typically just IEFBR14s to see the connection works.
?
|
Re: Let's Talk About RSCS
Hi Jeff:
I've gone both up and down in buffer size.
I can send a short command or a short JCL from RSCS to JES. ?No problem there. ?But when I send a larger job, maybe 20 lines, the IO errors start. ?There seems to be something wrong in the way the BSC conversation over TCP is being handled.
Now in the case of the short JCL (an IEFBR14 job, for example), it will run and output will come back to RSCS. ?Since the output is not tagged in any way to go back to my user, it gets printed on PRT1. ?Aside from the IO issues, the next thing I need to figure out is if there is any JCL that could tell RSCS to route the job back to PRT on my userid.
On Sat, 2024-10-12 at 02:21 -0700, Jeff Snyder wrote: Hi Daniel, ? Try using the following for your RSCS link start command: ? START NODEA PARM H02 B999 ? Page 35 in the manual "GC20-1816-3 VM/370 Remote Spooling Communications Subsystem Users Guide, Release 3" documents the parms for the start command and describes the H parm as the line number of the JES2 remote line VM is connecting to.? I'm suggesting B999 to bump the buffer size up to possibly counteract the I/O errors on data flowing from JES2 to VM.? I've used that on other links with success, so it may work here as well. ? When I use this start command, I am able to start the RSCS link, followed by the JES2 line.? I get one I/O error when I start the JES2 line, but none after that. ? I am able to use the RSCS CMD command to send commands to JES2 and get the response files back.? I am getting an "invalid destination" when I punch files to RSCS with NODEA in the tag, but I suspect that's because the AXSROUTE COPY file is empty. ? Eventually, when I want to bring it down, I just $PLINE<n>.? When JES2 shuts down the line, RSCS detects that and deactivates the link. ? Jeff ?
|
Re: Let's Talk About RSCS
Hi Daniel,
?
Try using the following for your RSCS link start command:
?
START NODEA PARM H02 B999
?
Page 35 in the manual "GC20-1816-3 VM/370 Remote Spooling Communications Subsystem Users Guide, Release 3" documents the parms for the start command and describes the H parm as the line number of the JES2 remote line VM is connecting to.? I'm suggesting B999 to bump the buffer size up to possibly counteract the I/O errors on data flowing from JES2 to VM.? I've used that on other links with success, so it may work here as well.
?
When I use this start command, I am able to start the RSCS link, followed by the JES2 line.? I get one I/O error when I start the JES2 line, but none after that.
?
I am able to use the RSCS CMD command to send commands to JES2 and get the response files back.? I am getting an "invalid destination" when I punch files to RSCS with NODEA in the tag, but I suspect that's because the AXSROUTE COPY file is empty.
?
Eventually, when I want to bring it down, I just $PLINE<n>.? When JES2 shuts down the line, RSCS detects that and deactivates the link.
?
Jeff
?
|
Re: EE goes XEDIT - testing new features
#rexx
#VMCE
I am working on a prototype of RDRLIST+PEEK running inside EE. Which features are most important for you to have as a Proof Of Concept ?
EE does not have special functionality for RDRLIST+PEEK, just the infrastructure is used as it is done by IBM using XEDIT and REXX. Some tools present in VM/370 CE are used: EXECIO and EXECUTIL. which run in the transient area. The transient version of EXECIO is not on the S disk but it is on MAINT 093 .
?
listfile execio module * (label isodate ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
Filename Filetype Fm ?Format ? ?Recs Blocks ? ? Date ? ?Time ? Label ?
EXECIO ? MODULE ? F2 ?V ?7296 ? ? ?2 ? ? 10 ?2022-06-12 13:42 ?MNT093?
EXECIO ? MODULE ? I2 ?V ?7296 ? ? ?3 ? ? 10 ?2021-12-11 16:37 ?CMSDSK?
EXECIO ? MODULE ? S2 ?V ?7296 ? ? ?3 ? ? 10 ?2021-12-11 16:37 ?CMSDSK?
Ready; T=0.01/0.01 23:55:49 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
?
See an example below how an EE macro using the freshly implemented EXTRACT /CURSOR/ feature can be assigned to a PF key. Its standard task is SPLTJOIN but PEEK is called in RDRLIST.
?
Martin
?
?SJ ? ? ? EE ? ? ? A1 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? V 255 ?Workl=125 Size=24 Line=13 ? ??
?====> ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? 1 /* REXX */ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? 2 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? 3 "extract /line/cursor/fname/ftype" ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? 4 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? 5 if (ftype.1 = "LISTING" & fname.1 = "LISTFILE") then do ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? 6 ? if cursor.7 < 0 then exit cursor.7 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? 7 ? "locate :"cursor.7 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? 8 ? "extract /curline/" ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? 9 ? parse var curline.3 fn ft fm . ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ?10 ? "xedit" fn ft fm ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ?11 ? exit rc ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ?12 end ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ?13 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ?14 if (ftype.1 = "LISTING" & fname.1 = "RDRLIST") then do ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ?15 ? if cursor.7 < 0 then exit cursor.7 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ?16 ? "locate :"cursor.7 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ?17 ? "extract /curline/" ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ?18 ? parse var curline.3 spoolid . ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ?19 ? "peek" spoolid ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ?20 ? exit rc ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ?21 end ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ?22 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ?23 "spltjoin" ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ?24 exit rc ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
Unchanged ? ? ? ? ? ? ? Load=0xD38000 ? ? ? ? ? ? ? x V1.3.2.0016_241005-1113 ? ? ? ? ? ?
?RDRLIST ?LISTING ?A1 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? V 125 ?Workl=125 Size=113 Line=13 ? ?
?====> ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? 1 1568 Z ? ?102 ?1 PRT NONE CPWATCH ? 2024-08-12 13:32:41 ? ? ? ? ? ? ? ? ? CPWATCH ?
? ? 2 1635 A ? ? 17 ?1 DSK NONE MECAFF ? ?2024-09-15 18:32:45 LISTFILE EE ? ? ? MECAFF ??
? ? 3 1689 N ? ?373 ?1 DSK NONE MECAFF ? ?2024-10-07 04:59:36 EESUBCOM ASSEMBLE MECAFF ??
? ? 4 1688 N ? ?232 ?1 RDR NONE MECAFF ? ?2024-10-07 04:59:19 EESUBCOM ASSEMBLE MECAFF ??
? ? 5 1687 N ? ?233 ?1 PUN NONE MECAFF ? ?2024-10-07 04:59:09 EESUBCOM ASSEMBLE MECAFF ??
? ? 6 1686 N ? ?241 ?1 RDR NONE MECAFF ? ?2024-10-07 04:58:42 EESUBCOM ASSEMBLE MECAFF ??
? ? 7 1604 A ? 1001 ?1 DSK NONE MECAFF ? ?2024-08-26 13:03:52 EESUBCOM LISTING ?MECAFF ??
? ? 8 1670 N ? 1934 ?1 RDR NONE MECAFF ? ?2024-10-05 20:33:03 SJ ? ? ? EE ? ? ? MECAFF ??
? ? 9 1296 A ? ? 31 ?1 RDR NONE CMSUSER ? 2022-09-22 14:27:49 ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ?10 1435 T ? ? ?6 ?1 CON NONE MAINT ? ? 2022-10-14 06:39:01 ? ? ? ? ? ? ? ? ? MAINT ? ?
? ?11 1290 T ? ? ?2 ?1 CON NONE MAINTC ? ?2022-09-17 20:20:36 ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ?12 1437 T ? ? ?3 ?1 CON NONE MAINT ? ? 2022-10-14 06:43:18 ? ? ? ? ? ? ? ? ? MAINT ? ?
? ?13 1685 N ? ?531 99 RDR NONE MECAFF ? ?2024-10-06 14:50:31 RXUSERFN ASSEMBLE DISTCODE?
? ?14 1352 N ? 4454 ?1 RDR NONE MAINT ? ? 2022-10-11 05:43:20 LDT ? ? ?DMSINIW ?MAINT ? ?
? ?15 1668 N ? ? 65 ?1 RDR NONE MECAFF ? ?2024-10-05 20:25:37 EE$MACRO EXEC ? ? MECAFF ??
? ?16 1675 N ? ?125 ?1 RDR NONE MECAFF ? ?2024-10-05 20:52:56 EEMAIN ? H ? ? ? ?MECAFF ??
? ?17 1696 A ? ?590 ?1 PUN NONE MECAFF ? ?2024-10-10 13:16:27 RECEIVE ?TEMP ? ? MECAFF ??
? ?18 1232 Z ? ?102 ?1 PRT NONE CPWATCH ? 2022-08-16 12:18:33 ? ? ? ? ? ? ? ? ? CPWATCH ?
? ?19 1383 A ? 6059 ?1 PRT NONE CMSBATCH ?2022-10-11 08:54:37 CMSBATCH JOB ? ? ?CMSBATCH?
? ?20 1665 A ? 3796 ?1 PRT NONE MAINT ? ? 2024-10-05 17:44:01 DMSXIO ? DMSHRC ? MAINT ? ?
? ?21 1346 A ? ? ?7 ?1 PRT NONE MAINT ? ? 2022-10-11 05:11:18 DMSLCL ? CNTRL ? ?MAINT ? ?
? ?22 1347 A ? ? ?7 ?1 PRT NONE MAINT ? ? 2022-10-11 05:11:25 DMSLCL ? CNTRL ? ?MAINT ? ?
? ?23 1375 A ? ?324 ?1 PRT NONE MAINT ? ? 2022-10-11 08:39:01 ? ? ? ? ? ? ? ? ? MAINT ? ?
? ?24 1397 A ? ?992 ?1 PRT NONE MAINT ? ? 2022-10-12 11:10:06 DMSEXC ? DMSLCL ? MAINT ? ?
Modified* ? ? ? ? ? ? ? Load=0xD38000 ? ? ? ? ? ? ? x V1.3.2.0016_241005-1113 ? ? ? ? ? ?
|
Re: Let's Talk About RSCS
Thanks for that pointer Mark...it is at least enlightening. ?Perhaps someone else can better interpret the message, but to me it looks like a read error on the JES2 side.
On Thu, 2024-10-10 at 11:48 -0700, Mark A. Stevens via groups.io wrote: On Thu, Oct 10, 2024 at 01:28 PM, Daniel L. Srebnick wrote:
Otherwise, we see the IO errors (which is what
I'm trying to resolve).
Look at the manual, and search for $HASP094, around page 98 of 416. There is an explanation of all the bits there. ? http://www.bitsavers.org/pdf/ibm/370/MVS/GC28-1374-1_MVS_370_Message_Library_System_Messages_Volume_1_AHL-IEA_Jan85.pdf ? $HASP-6 MVS/370 System Messages Volume 1 ? ?... Mark S. ?
|
Re: Let's Talk About RSCS
On Thu, Oct 10, 2024 at 01:28 PM, Daniel L. Srebnick wrote:
Otherwise, we see the IO errors (which is what
I'm trying to resolve).
Look at the manual, and search for $HASP094, around page 98 of 416. There is an explanation of all the bits there.
?
http://www.bitsavers.org/pdf/ibm/370/MVS/GC28-1374-1_MVS_370_Message_Library_System_Messages_Volume_1_AHL-IEA_Jan85.pdf
?
$HASP-6 MVS/370 System Messages Volume 1
?
?... Mark S.
?
|
Re: Let's Talk About RSCS
The /*ROUTE RPINT RMT1 is intentional, to not crash the connection back
to the VM/RSCS side. Otherwise, we see the IO errors (which is what
I'm trying to resolve).
toggle quoted message
Show quoted text
On Thu, 2024-10-10 at 11:26 -0700, Mark A. Stevens via groups.io wrote: On Mon, Oct 7, 2024 at 01:16 PM, Daniel L. Srebnick wrote:
However, if I include a /*ROUTE PRINT RMT1 to send the output to my
RJE80 remote, all is well.? This is just a guess, but perhaps there
is too much data too fast coming back over the line from JES2 to
RSCS and the code cannot handle it so it throw errors. IIRC when you submit from a remote station (VM, or RJE) and you want
the output back to that station, you need the /*ROUTE as you
specified, otherwise it will attempt to print on the "local" MVS
system, and it appears your LINE2 is set up for RMT02 not RMT1. Below
is the TK4- configuration.
?
?RFEVIEW ?SYS1.JES2PARM(JES2PARM) - 1.02 ? ? ? ? ? ? ? ? ? ? ? ? ?
Columns 1 72?
?Command ===> ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
?Scroll ===> CS
?000149 *** ? ? ? * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ?
?000150 LINE2 ?
?UNIT=671,EBCDIC,TRANSP,HISPEED,FDUPLEX,NOADISC,CODEA,IFACEA ? ?
?000151 RMT2 ? ? 3780,NUMPR=1,LINE=2,NUMRD=1,NUMPU=1,TRANSP,NOTABS ?
? ? ? ? ? ?
?000152 R2.PR1 ? START,CLASS=XA,UCS=QN,FCB=6,SEP,AUTO,PRWIDTH=151 ? ?
? ? ? ? ??
?000153 R2.PU1 ? CLASS=B ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ?
?000154 R2.RD1 ? CLASS=A ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ?
?000155 DESTID NAME=RMT02,DEST=R2 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ? ? ??
?000156 *** ? ? ? * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ?
?
I Hope This Helps
?
?... Mark S.
?
|
Re: Let's Talk About RSCS
On Mon, Oct 7, 2024 at 01:16 PM, Daniel L. Srebnick wrote:
However, if I include a /*ROUTE PRINT RMT1 to send the output to my RJE80 remote, all is well.? This is just a guess, but perhaps there is too much data too fast coming back over the line from JES2 to RSCS and the code cannot handle it so it throw errors.
IIRC when you submit from a remote station (VM, or RJE) and you want the output back to that station, you need the /*ROUTE as you specified, otherwise it will attempt to print on the "local" MVS system, and it appears your LINE2 is set up for RMT02 not RMT1. Below is the TK4- configuration.
?
?RFEVIEW ?SYS1.JES2PARM(JES2PARM) - 1.02 ? ? ? ? ? ? ? ? ? ? ? ? ? Columns 1 72?
?Command ===> ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?Scroll ===> CS
?000149 *** ? ? ? * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
?000150 LINE2 ? ?UNIT=671,EBCDIC,TRANSP,HISPEED,FDUPLEX,NOADISC,CODEA,IFACEA ? ?
?000151 RMT2 ? ? 3780,NUMPR=1,LINE=2,NUMRD=1,NUMPU=1,TRANSP,NOTABS ? ? ? ? ? ? ?
?000152 R2.PR1 ? START,CLASS=XA,UCS=QN,FCB=6,SEP,AUTO,PRWIDTH=151 ? ? ? ? ? ? ??
?000153 R2.PU1 ? CLASS=B ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
?000154 R2.RD1 ? CLASS=A ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
?000155 DESTID NAME=RMT02,DEST=R2 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
?000156 *** ? ? ? * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
?
I Hope This Helps
?
?... Mark S.
?
|
Re: Let's Talk About RSCS
The scenario posted is without tcpnje.
On the MVS side we have:
# RJE 0670 2703 dial=IN lport=3780 0671 2703 lport=3781 rhost=localhost rport=3880 dial=no
Device 671 is the RSCS connection.
On the VM side we have:
# RJE 0040 2703 lport=3880 rhost=localhost rport=3781 dial=no
On Thu, 2024-10-10 at 11:06 -0700, Mark A. Stevens via groups.io wrote: On Mon, Oct 7, 2024 at 01:16 PM, Daniel L. Srebnick wrote:
Next I configured RSCS (the one distributed with CE).? This connects just fine to MVS.? It took some head scratching, but determined that:
If you'd like to save some of us from losing more hair ;-) would you share your hercules configuration lines for VM and for MVS? ? I wasn't sure if I needed TCPNJE for both, either, or neither. ? ?... Mark S.
|
Re: Let's Talk About RSCS
On Mon, Oct 7, 2024 at 01:16 PM, Daniel L. Srebnick wrote:
Next I configured RSCS (the one distributed with CE).? This connects just fine to MVS.? It took some head scratching, but determined that:
If you'd like to save some of us from losing more hair ;-) would you share your hercules configuration lines for VM and for MVS?
?
I wasn't sure if I needed TCPNJE for both, either, or neither.
?
?... Mark S.
|
Re: Possible bug in BREXX parse instruction
Martin was correct. I have a fix under test right now that correctly parses the case this thread stated with, and every other PARSE instruction in all the Rexx code I have. It was particularly helpful to re-read both Mike's TRL2 and the ANSI Rexx standard side-by-side with the BREXX code. The fix hits both template.c and interpre.c.
I hope to have a Beta release out Real Soon, with the intent of getting it into the next VM/CE release.
Ross
|
I want to be able to submit jobs to JES2 (MVS 3.8j TK5) from VM/370 1.2 CE, but don't want to run MVS as a guest under VM/370.? I get much better performance running a separate Hercules SDL instance for each, and also can use 2 CPUs for MVS.
?
First I made sure RJE is working fine under MVS.? It is, and I can submit jobs and get output from RJE80 running under either Windows or Linux/Wine.
?
Next I configured RSCS (the one distributed with CE).? This connects just fine to MVS.? It took some head scratching, but determined that:
?
START NODEA PARM HASP
?
is what I needed to make the connection from the RSCS end.? I do the following:
?
TAG DEV PUN NODEA
SPOOL PUN RSCS
PUN TEST JCL
?
and my job immediately runs over on the MVS side.? However, the print dataset is not able to make the return trip.? The line "jams" as follows:
?
$HASP094 I/O ERROR ON LINE2??? 671,02,0C00,003D,B400
$HASP094 I/O ERROR ON LINE2??? 671,02,0E00,023D,B400
$HASP094 I/O ERROR ON LINE2??? 671,02,0C00,003D,B400
$HASP094 I/O ERROR ON LINE2??? 671,02,0E00,023D,B400
$HASP094 I/O ERROR ON LINE2??? 671,02,0C00,003D,B400
$HASP094 I/O ERROR ON LINE2??? 671,02,0E00,023D,B400
$HASP094 I/O ERROR ON LINE2??? 671,02,0C00,003D,B400
$HASP094 I/O ERROR ON LINE2??? 671,02,0E00,023D,B400
?
However, if I include a /*ROUTE PRINT RMT1 to send the output to my RJE80 remote, all is well.? This is just a guess, but perhaps there is too much data too fast coming back over the line from JES2 to RSCS and the code cannot handle it so it throw errors.
?
Anyway, I'd like for this to work better, and if I can provide any test data to someone capable and willing to persue the challenge, I'd be happy and greatful.
?
Dan
|
Re: Where is the source code of ASSEMBLER XF (IFOX00) in VM/370 Community Edition V1R1.2 ?
#VMCE
Hi Tony,
You must have missed my many posts over on the Turnkey Group!? For my IFOX00 refurbishment project I took the source code that was generated by Paul Gorlinsky¡¯s excellent work and merged in some later Usermod changes contributed by Greg Price. Additionally, I updated the code to address the problem introduced when the IFOX00 developers shipped an APAR that did not follow the rules for GETMAIN parameter lists as we discussed in previous postings years ago. We never really fully resolved that issue but at least the source was updated to avoid the Getmain Abend.
The IFOX00 refurbishment project was incredibly time consuming. For example, even a seemingly trivial change like supporting the _ underscore character in variable names took days of work due to some IFOX00 developers ignoring coding standards and hard coding values.
Subsequently, I put my IFOX00 refurbishment project on hold because I prioritized some later projects that would provide significant benefits to a larger number of MVS 3.8 users and enable the transition to 3390 DASD. Hence my contributions and postings on the Turnkey Group. After completion of a current large project I will return to the IFOX00 refurbishment project. So, nothing really to contribute at this time as the IFOX00 code is definitely WIP.
Regards
Tom
|
I think I have enough new building blocks in EE that RDRLIST should be doable in a similar way as XEDIT does. As a proof of concept, I have downstripped RECEIVE EXEC Y2 to use it as a PEEK macro. PEEK EE reads NETDATA from cards and places the decoded records into the editor.
Note that the currently uploaded bleeding edge preview of EE is significantly behind, see the EE thread for news to come.
?
Martin
?
On Tue, Jun 22, 2021 at 10:32 PM, Jim Salvino wrote:
In VM/370 CE 1.1.1 is there an EXEC, MODULE, etc that provide the functionality that RDRLIST provides?
Thanks!
On Tue, Jun 22, 2021 at 11:06 PM, Dave Wade wrote:
Jim,
No, just waiting for some one to write it.
Dave
|
Martin Scheffler
Mark A. Stevens