开云体育

Hello guys,

Under hercules, it is possible config the producte to use TCP/IP?

Not with any of the standard Hercules releases.

If you can build Hercules from source on Linux/Unix, you may be able
to use this patch to get the TCP/IP software in MUSIC to work:



It is a bit of a hack so expect an occasional crash.

(If you use Sim390 rather than Hercules, it has IUCV and TCP/IP support
built in.)

Regards,
Peter Coghlan.

Hello guys,

Under hercules, it is possible config the producte to use TCP/IP?

What must I add to the config file?

Thanks

Best regards

1) AS $000 : MAKPUBXO OSORT , to make it a public executable.

2)

make this script.

Execute and get your file sorted:

a fragment of the output file:

--

Carlos

Argentina

Iteresting... There's a Music Version with OSSORT already installed

I'm using Rene Ferland's compilation, instead of last Dave Edward's Music 6.2 + Patches.

I moved to the musicx disk the installation and configuration files, and when I tryied to create $SMSG directory, I found it existed and was already installed with OSSORT.

I'll give it a try this evening ....?

--

Carlos

Argentina

HI Peter !

?

Thanks for your fast answer. OSSSORT.ZIP? is in the file section of this group (files dated march 2011) , So I'll give it a try. It's not the same as DSORT, but a sort/merge from OS/360 port, but I Think it may do.

I was taking a look at Rick's OS360 CD and Jay's OS360 MVT CD and, there's SORT,SORT/MERGE and also PL/I link to SORT library? IEHESRTx, spurce codes. But I don't think they can be directrly compiled in Music/SP

?

May be also I can run the MVT image to see what happens.

--

Carlos

Argentina

I agree that it looks like DSORT is a native MUSIC implementation.

I am confused by the second sentance "Music ran either standalone or
under VM, but never MVS." While probably true, this seems irrelevant.

Whether MUSIC is running standalone or under VM or MVS should not have
any bearing on whether DSORT originated on MUSIC or MVS. MUSIC can
run code that originated on MVS regardless of whether MUSIC is running
on "bare metal" or under a hypervisor.

Regards,
Peter Coghlan.

Joe Monk wrote:

Joe Monk wrote:

DSORT is a MUSIC sort routine, not MVS. Music ran either standalone or
under VM, but never MVS.

MUSIC contains an execution time MVS simulator which allows some compilers and
certain other programs which were produced for MVS to run unmodified on MUSIC.

Regards,
Peter Coghlan.

Carlos Feldman wrote:

Hi everyone:

I'm working with PL/I under MUSIC/SP under HERCULES simulator.

I want to sort a file, by several keys, But MUSIC Documentation says, the
standard IBM libraries , still used today,PLISRTX are not available under
music and that one can use SORT,MNSORT or DSORT.

Thing is SORT is just one key sort subroutine , MNSORT, is an user interfase
multiple key application and DSORT a multiple key subroutine, that can be
called from FORTRAN, COBOL OR PL/I. But DSORT is missing in MUSIC.

I managed to write a rexx script to call MNSORT, send parameters, but this
is not possible from within PLI(f), with no spawn capability.

I found thar PLISORTX and DSORT were part of the original MVS for IBM/360,
but it is beyond my means to rebuild that libraries from source code.

Does anyone know if it's possible to get those losto sort libraries and
install them in MUSIC ?

On 18 February 2011, Michael Short made this announcement on the
h390-music@... and musicspdemo@... mailing lists:

The program OS/360 Sort/Merge (360-SM-023) is now available for MUSIC. It
was built from source from
Jay Moseley's site with no source changes. The package is in the file
section of H390-MUSIC@... as OSSORT.ZIPX.

After downloading the Zip file and unzipping, read the file OSSORT.DOc for
installation and operation.

I've test most of the install instructions, but please let me know if there
are any errors. The same thing applies after
it has been loaded.


Michael Short

I haven't seen any postings from Michael in quite a long time and I don't
know if he is on this mailing list or if he is still active with MUSIC.

Around the time of his announcement, I downloaded OSSORT.ZIPX and tried to
get it working on the MUSIC/SP demo system. As far as I recall, I needed
some extra files that I didn't have and I think I managed to get it working
eventually with help from Michael.

I don't know if the package Michael made available is the same as SORT,
MNSORT or DSORT or different to all three. If the package Michael made
available would be useful to you, I can try to recreate the steps I took
with Michael's help to try to make it work on MUSIC.

Regards,
Peter Coghlan.

Hi everyone:

I'm working with PL/I under MUSIC/SP under HERCULES simulator.

I want to sort a file, by several keys, But MUSIC Documentation says, the standard IBM libraries , still used today,PLISRTX are not available under music and that one can use SORT,MNSORT or DSORT.

Thing is SORT is just one key sort subroutine , MNSORT, is an user interfase multiple key application and DSORT a multiple key subroutine, that can be called from FORTRAN, COBOL OR PL/I. But DSORT is missing in MUSIC.

I managed to write a rexx script to call MNSORT, send parameters, but this is not possible from within PLI(f), with no spawn capability.

I found thar PLISORTX and DSORT were part of the original MVS for IBM/360, but it is beyond my means to rebuild that libraries from source code.

Does anyone know if it's possible to get those losto sort libraries and install them in MUSIC ?

Regards

--

Carlos

Argentina

Finding bugs and stuff, is my job since ages ?


--?

Carlos

Argentina

Thanks for your help 搁别苍é, this Is what I got with DSLIST:

--

Carlos

Argentina

搁别苍é,

Thanks for your kind answer. I'll try it today.

I'm a member ot the old yahoo group since about 11 or 12 years, but now I can't see the messages. This groups were much usefull to me, specially the LTspice.

One of my goals in managing tapes is install SPICE, an electronic simulator from the early 60's, still used today, but with graphical interfases like LT SPICE, that can generatee text lists that I think can be processed in mainframe spice.

One Of the things I was thinking about, was doing some control task on an IBM Mainframe. I know this boxes are batch processors, with very poor communications and task management, but an IBM360 worked as a realtime computer during the Apollo missions, so t can be done.

May be I can handle to comunicate with a seudo terminal using telnet. This terminal may be an arduino and can handle all the hardware input/output. in the mainframe a job may communicate using some text protocol like Modbus ASCII, that can be handled under 80 characters, and can be get in c format.

An issue is how to run a task each, let's say a second, withoug getting into making a new O.S. PL/I has a DELAY() builtin, but it's not implemented in MUSIC, I managed to fake a DELAY, using the system TIME, But I think MUSIC does not switch tasks upon time, but on I/O function ( in the 70's I stalled for 15 minutes an IBM/370 with VM-CMS, doing a fortran thermal analysis using parcial differences, because it was pure calculus and no I/O).

Regards. Carlos
--

Carlos

Argentina

On Sun, Sep 6, 2020 at 04:40 PM, carlos feldman wrote:

Where do I change this autorization, to be able to allocate UDS?

In the system catalog :-) There is a message in the old Yahoo H390-MUSIC about that, dating from 2004/1/17 :-) Here's an excerpt:


?

My next logical step after having used TAPEs is use Disk UDS

My program starts with:

But I have this error.

Same thing happens with GUEST and $000 user. Where do I change this autorization, to be able to allocate UDS?

(BTW &&TEMP UDS work OK )

?

Thanks in advance for your help.

--

Carlos

Argentina

I found in an old paper by Dave Edward how to do it in Music 3.07:

?

5- Execute:

? ? User: submit cfread.pli

Operator:

?08:22 M306 /ID MUSJOB? ? ? ? ? GUEST? ? 005 500 000 R=MUSIC C=1 F=? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

?08:22 M314 Put unit online then type "/VARY xxx ON" or cancel job with "/CAN"? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

?devinit 100 *? ? ? ? ? ? ? ? ? ? ? ?<====== OPERATOR REPLY? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

?HHCPN098I Device 0:0100 initialized? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?

?/(000F) VARY 100 on? ? ? ? ? ? ? ? ?<====== OPERATOR REPLY? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?

?08:23 M309 M 100,TAP001? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

?devinit 100 tap001.het? ? ? ? ? ? ? <====== OPERATOR REPLY? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

?HHCTA004I 0100: tap001.het is a Hercules Emulated Tape file? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?

?HHCPN098I Device 0:0100 initialized? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?

?08:23 M309 D 100,TAP001? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?

?08:23 M300 BATCH IDLE

--

Carlos

Argentina

Thanks fo the help everyone.

The killer was discovered and jailed.?

Trouble was I was using Hercules 3.07., that seems that never gets the tape online.

On Hercules 3.13 or Hercules 4, things work fine like this:

16:57 M306 /ID MUSJOB? ? ? ? ? GUEST? ? 005 500 000 R=MUSIC C=1 F=? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
16:57 M309 M 100,TAP001? ? ? ? <--------------------- MUSIC ASK FOR TAPE? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
DEVINIT 100 TAP001.HET? ? ? ? ?<--------------------- TAPE MOUNTED? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
HHCTA004I 0100: TAP001.HET is a Hercules Emulated Tape file? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
HHCPN098I Device 0:0100 initialized? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
16:58 M309 D 100,TAP001? ? ? ? <--------- BATCH RAN, TAPE DISMOUNTED? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
16:58 M300 BATCH IDLE? ? ? ? ? ?<--------- END OF JOB

--

Carlos

Argentina

Oh, no. The last time I used this jcl was in 1985, the last time I used an IBM 370. Just tryed to point out the missing link between software and hardware. Actually 1985 was the last time I used open reel tape units. After that I used several types of scai digital cassettes or dats. Under qnx, windows or Unix. But they are very easy to use no need to previously assign a volume and format.}?
--

Carlos

Argentina