|
Hi everyone !
With this covid bussiness, I'm stucked at home under querantine, so I'm bac with Music/SP environment.听
I was member od the original MUSIC/SP on yahoo, and mr Ren茅 Ferland invited me to this group.
Being back to the basic, I jave 2 systems up and running, version 6.2 (B), one on SIM390 version 17 and the other on Hercules, 64 bit.
I also ran mr. Ferland's more complete system,. wit no problem.
For a starting practice I decided to apply the updates mr. Dave Edwards left, so I downloaded the updates from internet, checked the MD signatures and FTPe'd to the virtual machine disk, wit no problem.
Thing is than I'm trying to apply the first patch UPD1, and I'm getting some errors
听
First I ran the mfarc file with error "045 file not found"
Then I tryed,uUsing this script
听
/FILE 1 N(UPD1.MFARC)
/INC *COM:MFREST
IN=1,ALL=T,REPL=F,FIXUP=' ',LIST=T,SETUI=T
听I Get the following error:听
-- FILE RESTORE (MFREST) --
OPTIONS IN EFFECT:
听 听INPUT =听 1听 听 TAPFIL =听 1听 听 FIXUP=' '听 CTLREC=T
听 听ALL=T听 RLSE=F听 REPL=F听 LIST=T听 SETUI=T听 SETBUP=F听 FIXUCR=F听 REPNWR=T
(CRDIN ROUTINE) READ ERROR 045 ON UNIT 001.听 JOB TERMINATED.
Some similar whan trying to list the content of the mfarc:
/file 1 n($000:upd1.mfarc)
/inc *com:mfchek
units=1,names=t,info=f
听
CHECKING FILE SYSTEM ARCHIVE
听 UNITS= 1, 0听 听 听 听 TAPFIL=听 听1听 听 NFILES=听 听1
(CRDIN ROUTINE) READ ERROR 045 ON UNIT 001.听 JOB TERMINATED.
听
Clearly it does not find the tape unit.
Any suggestion ?
听
(ps, I also tryed on Hercules using a copy od the disk, wit the update files in, with similar results )
|
Carlos,
You have to be careful when you transfer the MFARC:
ftp
open localhost 621
type binary
quote allo 4000000
quote recfm fc
quote lrecl 80
put upd1.mfarc
bye
Check the Info file at the top of the update page:听
Cheers,
Rene FERLAND, Montreal
|
(CRDIN ROUTINE) READ ERROR 045 ON UNIT 001.� JOB TERMINATED.
In addition to Rene's excellent advice which I'm sure will sort out the problem, when confronted with a MUSIC error number, I suggest: HELP ERRORS 3 which should give some meaningful text which may help explain the error. Regards, Peter Coghlan.
|
What is this 鈥榤ore complete version鈥�? 听 Did I miss something? 听
toggle quoted message
Show quoted text
From: [email protected] [mailto:[email protected]] On Behalf Of carlos feldman
Sent: Wednesday, July 8, 2020 3:51 PM
To: [email protected]
Subject: [H390-MUSIC] On aplying updates to Music 6.2 听 Hi everyone ! With this covid bussiness, I'm stucked at home under querantine, so I'm bac with Music/SP environment.听 I was member od the original MUSIC/SP on yahoo, and mr Ren茅 Ferland invited me to this group. Being back to the basic, I jave 2 systems up and running, version 6.2 (B), one on SIM390 version 17 and the other on Hercules, 64 bit. I also ran mr. Ferland's more complete system,. wit no problem. For a starting practice I decided to apply the updates mr. Dave Edwards left, so I downloaded the updates from internet, checked the MD signatures and FTPe'd to the virtual machine disk, wit no problem. Thing is than I'm trying to apply the first patch UPD1, and I'm getting some errors 听 First I ran the mfarc file with error "045 file not found"
Then I tryed,uUsing this script
听
/FILE 1 N(UPD1.MFARC) /INC *COM:MFREST IN=1,ALL=T,REPL=F,FIXUP=' ',LIST=T,SETUI=T 听I Get the following error:听 -- FILE RESTORE (MFREST) --
OPTIONS IN EFFECT:
听 听INPUT =听 1听 听 TAPFIL =听 1听 听 FIXUP=' '听 CTLREC=T 听 听ALL=T听 RLSE=F听 REPL=F听 LIST=T听 SETUI=T听 SETBUP=F听 FIXUCR=F听 REPNWR=T (CRDIN ROUTINE) READ ERROR 045 ON UNIT 001.听 JOB TERMINATED.
Some similar whan trying to list the content of the mfarc: /file 1 n($000:upd1.mfarc) /inc *com:mfchek units=1,names=t,info=f 听 CHECKING FILE SYSTEM ARCHIVE 听 UNITS= 1, 0听 听 听 听 TAPFIL=听 听1听 听 NFILES=听 听1 (CRDIN ROUTINE) READ ERROR 045 ON UNIT 001.听 JOB TERMINATED. 听 Clearly it does not find the tape unit. Any suggestion ? 听 (ps, I also tryed on Hercules using a copy od the disk, wit the update files in, with similar results )
|
>> Did I miss something?
Not really. :-) He's talking about the system I use in a Youtube video, which is just the demo with all the updates installed.听
You can download it here:听
Cheers,
Rene FERLAND, Montreal
|
Actually I was working on 2006 version "b" from Dave Edwards, Ren茅s version work fine, but I wanted to test the update procedure
|
Thanks for the tip. I user ( from my unix days ) Ftp from Total Commander to the Music Host, and verifyed both images were equal. I'll use yor suggestion
听
Carlos
|
Hey guys !! I forgot I was talking to an old lady used to be talked in 80 column cards !!!I
I normally use total commander or other two column file manager ( BTW from the time of CMS ), and work with local and remote directories as if they were local.
In case someone may find it helpful I wrote a windows scripr to automate the transfer of binary mode files.
m:send.cmd usage m_send binary_filename:
听
@echo off
@
rem M_SEND filename C.Feldman. July 9 2020听
rem sends binary filename to a music/sp HOST
rem using ftp protocol
rem check parameters
rem todo check the file exists and report error if not
IF "%~1"=="" goto noparms
if exist %1 (
rem ***ensamble the ftp dialog text***
echo听 Open localhost 621 > s.txt
echo听 $000 >> s.txt
echo听 music >> s.txt
echo听 cd updts >> s.txt
echo听 type binary >> s.txt
echo听 quote allo 4000000 >> s.txt
echo听 quote recfm fc >> s.txt
echo听 quote lrecl 80 >> s.txt
echo听 hash >> s.txt
echo听 put %1 >> s.txt
echo听 bye >> s.txt
ftp -s:s.txt
echo file % sent
rem delete s.txt
) ELSE (
echo %1 does not exist听
echo file was not sent )
goto :eof
rem ***if there's no parameter***
:noparms听
echo m_send, sends a binary filename to a music/sp HOST
echo use: m_send file
EXIT /B 1
It creates and uses s.txt, an ftp response file with the following contents:
听Open localhost 621听
听$000听
听music听
听cd updts听
听type binary听
听quote allo 4000000听
听quote recfm fc听
听quote lrecl 80听
听hash听
听put upd1.mfarc听
听bye听
when using ftp -s:s.txt it thansfers ok the binary update file听 to the /updts directory, which now is executing properly.
听
Thanks again for your help, I'm trying to figure to do things I did 30 years ago, with tools I don't use since 15 years ago LOL.
听
BTW I remember that at IBM someone asked to punch hundreds of cards for doing some file catalog, and we wrote a PL/I program that generated this huge JCL听 lot on a tape, which was sent in a day to be processed instead the couple of weeks needed to punch tha cards.
听
--
Carlos
Argentina
|
the log looks like this:
听
Microsoft Windows [Versi贸n 10.0.19041.329]
(c) 2020 Microsoft Corporation. Todos los derechos reservados.
听
j:\MusicB\Updates\gccmu11>m_send gccmu11.mfarc
ftp>听 Open localhost 621
Conectado a CARLOS-PC-I5.
220 UNIX dir list format - MUSIC / SP FTP Server - Ready
530 Not logged in
Usuario (CARLOS-PC-I5:(none)):
331 Please send password for $000. Challenge: A553A57B55ACF0B2
听
230 User $000 logged in
ftp>听 cd updts
200 Command ok
ftp>听 type binary
200 Command ok
ftp>听 quote allo 4000000
200 Command ok
ftp>听 quote recfm fc
200 Command ok
ftp>听 quote lrecl 80
200 Command ok
ftp>听 hash
Impresi贸n de marcas "hash" Activo听 ftp: (2048 bytes/marca "hash") .
ftp>听 put gccmu11.mfarc
200 Command ok
150 Sending file "$000:UPDTS\GCCMU11.MFARC"
####################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################
226 Data transfer finished, data connection closed.
ftp: 1090080 bytes enviados en 0.15segundos 7267.20a KB/s.
ftp>听 bye
221 Goodbye, closing control connection
file听 sent
听
j:\MusicB\Updates\gccmu11>
--
Carlos
Argentina
|
Good deal. 听 I have the vid鈥檚 queued up. 听 I was a fresh out of college admin of our music system for about 9 years at Transylvania university in Lexington ky.听 I think music went in my sophomore year, but other than some fortran programs as a cs major, and e-mail, that was about all we dealt with it. 听 Administratively, we had almost all our offices running home grown apps, registrar, admissions, dept of public safety, residence life, community education, admissions, and student recruiting.听 My first job was to maintain/re-write a lot of that code and be the music system admin. 听 I have the 鈥榖鈥� version on simm390.听 I tried to see if the school had any of our old backups.听 Would have great to resurrect that.听 But, looking forward to see what I may have missed being such a noob at the time. 听
toggle quoted message
Show quoted text
From: [email protected] [mailto:[email protected]] On Behalf Of Ren茅 Ferland
Sent: Thursday, July 9, 2020 1:31 AM
To: [email protected]
Subject: Re: [H390-MUSIC] On aplying updates to Music 6.2 听 >> Did I miss something?
Not really. :-) He's talking about the system I use in a Youtube video, which is just the demo with all the updates installed.听
You can download it here:听
Cheers,
Rene FERLAND, Montreal
|
I feel happy, applied updates 1 to 4, installed Wat C, Pl/I, Fortran and Asembler. Also could run OK, some programs I had in my files, from a few years ago.
Now I need to re-study Music's JCL, Rexx, and how to use a second disk I have formatted and mounted, with no data on it.
听
It was a productive day
--
Carlos
Argentina
|
Le听ven. 10 juil. 2020 脿听17:07, carlos feldman <carlfelster@...> a 茅crit听:
>> I feel happy, applied updates 1 to 4, installed Wat C, Pl/I, Fortran and Assembler.
>> Also could run OK, some programs I had in my files, from a few years ago.
>> Now I need to re-study Music's JCL, Rexx, and how to use a second disk I have
>> formatted and mounted, with no data on it.听It was a productive day.
Like听Celine Dion was singing: "It was lost long ago but it's all coming back to me." :-)
Have fun!
Rene FERLAND, Montreal
|
I downloaded the zip.听 The system was missing the musicy volume.听 Not a big deal.听 I added a disk to the demo sometime ago and scratched it.听 I guess the reason for bringing it up, is maybe the link you sent not the 鈥榣atest and greatest鈥�?听 It has all your guest account work, so it鈥檚 close. 听 I鈥檓 going to search for the 5.3 system, too.听 Maybe it will have the vsfort compiler.听 I do remember I preferred that over the fortg compiler. 听 If you ever do a refresh, you should include man and manx.听 I was sitting on the edge of my seat waiting for it J听 seriously, I had the manuals in printed form, but I think the man/manx implementation was phenominal.听 I used that format like 95% of the time 听 You said there was no clear key.听 Maybe you meant in your 3270 emulator?听 The PA2 key cleared the screen.听 Although I had to close my eyes and put my hand where the PA1/PA2 should have been to recall the name, my emulator maps pa2 to page down. 听 And is there a reason you use save and quit over just file?听 Save and quit would drive me crazy these days. 听 And when you were in the output queue, I was expecting the p to print to work, and then you said it didn鈥檛. 听 A lot of stuff came back. 听 None of this meant negative at all.听 Just some observations while watching.听 It was nicely done and informative. 听 Thanks for sharing.听 After watching, I鈥檓 going to be trying to come up with some music project again. 听听I鈥檝e wanted to do c with panel, just not came up with a good excuse yet. 听 Thanks again! 听
toggle quoted message
Show quoted text
From: [email protected] [mailto:[email protected]] On Behalf Of Allen Hinkle via groups.io
Sent: Friday, July 10, 2020 12:10 AM
To: [email protected]
Subject: Re: [H390-MUSIC] On aplying updates to Music 6.2听 Good deal. 听 I have the vid鈥檚 queued up. 听 I was a fresh out of college admin of our music system for about 9 years at Transylvania university in Lexington ky.听 I think music went in my sophomore year, but other than some fortran programs as a cs major, and e-mail, that was about all we dealt with it. 听 Administratively, we had almost all our offices running home grown apps, registrar, admissions, dept of public safety, residence life, community education, admissions, and student recruiting.听 My first job was to maintain/re-write a lot of that code and be the music system admin. 听 I have the 鈥榖鈥� version on simm390.听 I tried to see if the school had any of our old backups.听 Would have great to resurrect that.听 But, looking forward to see what I may have missed being such a noob at the time. 听 From: [email protected] [mailto:[email protected]] On Behalf Of Ren茅 Ferland
Sent: Thursday, July 9, 2020 1:31 AM
To: [email protected]
Subject: Re: [H390-MUSIC] On aplying updates to Music 6.2 听 >> Did I miss something?
Not really. :-) He's talking about the system I use in a Youtube video, which is just the demo with all the updates installed.听
You can download it here:听
Cheers,
Rene FERLAND, Montreal
|
>> The system was missing the musicy volume.
Yes but it has MUSIC1 :-) which makes it in line with the installation instructions of chapter 3 in the Administrator's Guide (the reason I added it).
听
听
听
>> I guess the reason for bringing it up, is maybe the link you sent not the 鈥榣atest and greatest鈥�?
听
Did I say it was the latest and greatest? If so, I guess I got carried away a little ...听
听
听
听
>> It has all your guest account work, so it鈥檚 close.
听
:-)
听
听
听
>> If you ever do a refresh, you should include man and manx.
听
man and manx are there. They work fine for $000; man works for the guest account but manx generates a security violation. Maybe there is a setting to change somewhere for the guest account, would you know?
听
听
听
>> You said there was no clear key.听 Maybe you meant in your 3270 emulator?听听
听
On TSO and CMS, I use the CLS command routinely to clear the screen. It's almost an automatic reflex for me (instead of using PA1 or the CLEAR key of the emulator). As CLS does not exist on MUSIC, I get the ERR04 message frequently.
听
听
听
>> And is there a reason you use save and quit over just file?听 Save and quit would drive me crazy these days.
听
Well, when you use the editor in FLIB, the file command will save and quit and then ask you to type Enter to go back to FLIB. And that confirm step annoys me. :-)
听
听
听
>> And when you were in the output queue, I was expecting the p to print to work, and then you said it didn鈥檛.
听
I think a piece of software is missing for this to work. If I am wrong here and you know what to do, please share.
听
Cheers,
听
Rene FERLAND, Montreal
听
|
Using p from the output queue鈥�.. yeah you are probably right.听 I was just dismayed when you said it didn鈥檛 work. 听 Manx.... the issue as I saw it was the AG and AR weren鈥檛 meant for the common user, so the access control is set different.听 I came up with two ways.听 Pick your poison as both have some drawbacks, or skip it. 听 The easiest is to give guest the lscan priv.听 as it鈥檚 an academic system, that shouldn鈥檛 be a problem.听 Not feasible to give a couple hundred students this back in the day though鈥� 听 From $000 and *go mode (that鈥檚 what we nicknamed the *go prompt) 听 Codupd change guest priv lscan 听 To undo: 听 Codupd change guest priv nolscan 听 The second way I thought was to make all the manx files match access control bytes to the man file counter parts.听 I created two files manall and manreset.听 First I created manall. 听 All from $000 and *go mode 听 Copy $pgm:filech manall Edit manall 听 Edit the file to look like this: 听 /SYS NOPRINT听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听 /FILE LMOD N($PGM:FILECH.LMOD)听听听听听听听听听听听听听听听听听听听听听听听 /LOAD XMON听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听 FILECH听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听 $MAN:MANX听听听听听听听听听听听听听 $MAN:MANX听听听听听听听听听听听听听 C0004040 $MAN:MAN.AG听听听听听听听听听听听 $MAN:MAN.AG听听听听听听听听听听听 80206060 $MAN:MAN.AR听听听听听听听听听听听 $MAN:MAN.AR听听听听听听听听听听听 80206060 $MAN:AG.TOTAL听听听听听听听听听 $MAN:AG.TOTAL听听听听听听听听听 00004040 $MAN:AG.WIDX听听听听听听听听听听 $MAN:AG.WIDX听听听听听听听听听听 00004040 $MAN:AR.TOTAL听听听听听听听听听 $MAN:AR.TOTAL听听听听听听听听听 00004040 $MAN:AR.WIDX听听听听听听听听听听 $MAN:AR.WIDX听听听听听听听听听听 00004040 听 Filename in cols 1-22 Filename in cols 24-45 New attribute bytes in col 47-54 听 Save, quit, execute the file. 听 To back the change out, copy manall to manreset and change the attribute bytes: 听 /SYS NOPRINT听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听 /FILE LMOD N($PGM:FILECH.LMOD)听听听听听听听听听听听听听听听听听听听听听听听 /LOAD XMON听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听 FILECH听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听听 $MAN:MANX听听听听听听听听听听听听听 $MAN:MANX听听听听听听听听听听听听听 8000C0C0 $MAN:MAN.AG听听听听听听听听听听听 $MAN:MAN.AG听听听听听听听听听听听 8020E0E0 $MAN:MAN.AR听听听听听听听听听听听 $MAN:MAN.AR听听听听听听听听听听听 8020E0E0 $MAN:AG.TOTAL听听听听听听听听听 $MAN:AG.TOTAL听听听听听听听听听 0000C0C0 $MAN:AG.WIDX听听听听听听听听听听 $MAN:AG.WIDX听听听听听听听听听听 0000C0C0 $MAN:AR.TOTAL听听听听听听听听听 $MAN:AR.TOTAL听听听听听听听听听 0000C0C0 $MAN:AR.WIDX听听听听听听听听听听 $MAN:AR.WIDX听听听听听听听听听听 0000C0C0 听 File, and execute 听 I didn鈥檛 triple check the attributes, so feel free to double check the manreset file鈥檚 attributes BEFORE you run manall.听 听
toggle quoted message
Show quoted text
From: [email protected] [mailto:[email protected]] On Behalf Of Ren茅 Ferland
Sent: Saturday, July 11, 2020 12:59 PM
To: [email protected]
Subject: Re: [H390-MUSIC] On aplying updates to Music 6.2 听 >> The system was missing the musicy volume.
Yes but it has MUSIC1 :-) which makes it in line with the installation instructions of chapter 3 in the Administrator's Guide (the reason I added it).
>> I guess the reason for bringing it up, is maybe the link you sent not the 鈥榣atest and greatest鈥�? Did I say it was the latest and greatest? If so, I guess I got carried away a little ...听 >> It has all your guest account work, so it鈥檚 close. >> If you ever do a refresh, you should include man and manx. man and manx are there. They work fine for $000; man works for the guest account but manx generates a security violation. Maybe there is a setting to change somewhere for the guest account, would you know? >> You said there was no clear key.听 Maybe you meant in your 3270 emulator?听听 On TSO and CMS, I use the CLS command routinely to clear the screen. It's almost an automatic reflex for me (instead of using PA1 or the CLEAR key of the emulator). As CLS does not exist on MUSIC, I get the ERR04 message frequently. >> And is there a reason you use save and quit over just file?听 Save and quit would drive me crazy these days. Well, when you use the editor in FLIB, the file command will save and quit and then ask you to type Enter to go back to FLIB. And that confirm step annoys me. :-) >> And when you were in the output queue, I was expecting the p to print to work, and then you said it didn鈥檛. I think a piece of software is missing for this to work. If I am wrong here and you know what to do, please share.
|
Allen,
Thanks for tips. I'll keep them in my MUSIC trick bag. :-)
I did not know about the man command which explains why I did not mention it in the video. I feel manx is a "privilege" command, so I'll leave that way.
Cheers,
Rene FERLAND, Montreal
|
carlos feldman
Ren茅 Ferland