Paul,
No need for low-level CCWs
?
Look in IBM publication:
GC33-5373-2
File No. 5370-30
DOS/VS Systems Supervisor and 1/0 Macros
?
page 42:
?
DTFCN defines an input or output file that is processed
on a 3210 or 3215 console printer-keyboard,
or a display operator console. DTFCN provides
GET /PUT logic as well as PUTR logic for a file.
?
?
|
Check your ASSGNs. They are messed up.
// ASSGN SYS000,SYSLNK
ASSGN SYSPCH,SYS000
ASSGN SYSPCH,SYS000
ASSGN SYSLNK,SYS000
ASSGN SYSIPT,SYS000
ASSGN SYSPCH,SYS000
how many times are you going to ASSGN SYS000 in the same JOB?
You need to be cognizant of this:?
So setup all your logicals at the beginning of the job, and only change when necessary. All logicals should ALWAYS be assigned with // ASSGN, NEVER with ASSGN in a JOB.
Joe
I don't need an answer to the return code anymore, as I
found out that I already had code to do the equivalent
of a WTO and was able to use that to get func1 to print
"start", call func2 which says "middle" and then returns,
and then func1 prints "end" so I know it is working.
And I can punch the phase and all 3 strings are embedded in it.
However, using the below JCL (or similar) I am unable to
punch the object code. I do get something:
000000? 40D7C8C1 E2C540C6 E4D5C3F1 6BE24EE7? ?PHASE FUNC1,S+X
000010? 7DF0F0F0 F0F0F07D 40404040 40404040? '000000'? ? ? ?
000020? 40404040 40404040 40404040 40404040? ? ? ? ? ? ? ? ?
000030? 40404040 40404040 40404040 40404040? ? ? ? ? ? ? ? ?
000040? 40404040 40404040 40404040 40404040? ? ? ? ? ? ? ? ?
000050? 02C5E2C4 40404040 40400010 40400001? .ESD? ? ? ..? ..
000060? C6E4D5C3 F1404040 00400078 40000058? FUNC1? ?. .. ...
000070? 40404040 40404040 40404040 40404040? ? ? ? ? ? ? ? ?
000080? 40404040 40404040 40404040 40404040? ? ? ? ? ? ? ? ?
000090? 40404040 40404040 40404040 F0F0F0F1? ? ? ? ? ? ? 0001
0000A0? 02E3E7E3 40400078 40400038 40400001? .TXT? ..? ..? ..
0000B0? 00000050 615C4040 40404040 40404040? ...&/*? ? ? ? ?
0000C0? 40404040 40404040 40404040 40404040? ? ? ? ? ? ? ? ?
0000D0? 40404040 40404040 40404040 40404040? ? ? ? ? ? ? ? ?
0000E0? 40404040 40404040 40404040 F0F0F0F2? ? ? ? ? ? ? 0002
0000F0? 02E3E7E3 404000B0 40400020 40400001? .TXT? ..? ..? ..
000100? 40404040 40404040 40404040 40404040? ? ? ? ? ? ? ? ?
000110? 40404040 40404040 40404040 00000000? ? ? ? ? ? ? ....
000120? 40404040 40404040 40404040 40404040? ? ? ? ? ? ? ? ?
000130? 40404040 40404040 40404040 F0F0F0F3? ? ? ? ? ? ? 0003
000140? 02C5D5C4 40400078 40404040 40400001? .END? ..? ? ? ..
000150? 40404040 40404040 40404040 40404040? ? ? ? ? ? ? ? ?
000160? 40404040 40404040 40404040 40404040? ? ? ? ? ? ? ? ?
000170? 40404040 40404040 40404040 40404040? ? ? ? ? ? ? ? ?
000180? 40404040 40404040 40404040 F0F0F0F4? ? ? ? ? ? ? 0004
000190? 615C4040 40404040 40404040 40404040? /*? ? ? ? ? ? ?
0001A0? 40404040 40404040 40404040 40404040? ? ? ? ? ? ? ? ?
0001B0? 40404040 40404040 40404040 40404040? ? ? ? ? ? ? ? ?
0001C0? 40404040 40404040 40404040 40404040? ? ? ? ? ? ? ? ?
0001D0? 40404040 40404040 40404040 40404040? ? ? ? ? ? ? ? ?
But it doesn't have my actual code and start/end messages
in it. Any idea what is wrong with this JCL?
Thanks. Paul.
* $$ JOB JNM=VSEJOB
* $$ LST LST=SYSLST,CLASS=A
// JOB VSEJOB
*
*
*
* Standard assignments for C programs
*
// ASSGN SYS000,SYSLNK
// ASSGN SYS005,SYSLST
// ASSGN SYS007,SYSPCH
// OPTION DUMP
*
*
*
*
*
*
* Now assemble the main routine
*
// OPTION CATAL
?PHASE PDPTEST,S+80
// EXEC ASSEMBLY
undivert(func1.asm)dnl
/*
*
*
*
// EXEC ASSEMBLY
undivert(func2.asm)dnl
/*
*
* Now link the whole app
*
// EXEC LNKEDT
*
*
*
* Now run the app
*
// EXEC PDPTEST,SIZE=AUTO,PARM='PaulEdwards two Three'
*
*
*
*
*
*
* Now punch a relocatable object by executing RSERV
*
// DLBL IJSYSPH,'PDPPUNCH.DAT',0,SD
// EXTENT SYSPCH,,,,13000,1000 SPACE-SYSPUNCH
ASSGN SYSPCH,SYS000
// EXEC RSERV
?PUNCH FUNC1
/*
CLOSE SYSPCH,PUNCH
*
*
*
* And get the single file ready for the CIL
*
// DLBL SDI1,'PDPPUNCH.DAT'
// DLBL IJSYSPH,'PDPPUN2.DAT',0,SD
// EXTENT SYSPCH,,,,14000,2000 SPACE-PHASE
ASSGN SYSPCH,SYS000
// EXEC VSEMANIP,SIZE=AUTO,PARM='dd:sdi1 dd:out(func1)'
CLOSE SYSPCH,PUNCH
*
*
*
*
* Now put it in the CIL
*
ASSGN SYSLNK,SYS000
// OPTION CATAL
// DLBL IJSYSIN,'PDPPUN2.DAT'
ASSGN SYSIPT,SYS000
?INCLUDE
CLOSE SYSIPT,READER
// EXEC LNKEDT
ASSGN SYSLNK,UA
*
*
*
*
*
*
*
*
*
* Now punch a relocatable object by executing RSERV
*
// DLBL IJSYSPH,'PDPPUNCH.DAT',0,SD
// EXTENT SYSPCH,,,,13000,1000 SPACE-SYSPUNCH
ASSGN SYSPCH,SYS000
// EXEC RSERV
?PUNCH FUNC2
/*
CLOSE SYSPCH,PUNCH
*
*
*
* And get the single file ready for the CIL
*
// DLBL SDI1,'PDPPUNCH.DAT'
// DLBL IJSYSPH,'PDPPUN2.DAT',0,SD
// EXTENT SYSPCH,,,,14000,2000 SPACE-PHASE
ASSGN SYSPCH,SYS000
// EXEC VSEMANIP,SIZE=AUTO,PARM='dd:sdi1 dd:out(func2)'
CLOSE SYSPCH,PUNCH
*
*
*
*
* Now put it in the CIL
*
ASSGN SYSLNK,SYS000
// OPTION CATAL
// DLBL IJSYSIN,'PDPPUN2.DAT'
ASSGN SYSIPT,SYS000
?INCLUDE
CLOSE SYSIPT,READER
// EXEC LNKEDT
ASSGN SYSLNK,UA
*
*
*
*
*
*
*
* Now punch the phases
* You can choose func1, func2 or pdptest or a combination
*
// DLBL IJSYSPH,'PDPPUNCH.DAT',0,SD
// EXTENT SYSPCH,,,,10000,1000 SPACE-SYSPUNCH
ASSGN SYSPCH,SYS000
// EXEC CSERV
?PUNCH FUNC1
/*
CLOSE SYSPCH,PUNCH
*
*
* And put it to tape
*
// DLBL SDI1,'PDPPUNCH.DAT'
// TLBL MTO1,'HERC01.MFTOPC',0
// ASSGN SYS011,TAPE,VOL=MFTOPC
// EXEC VSEMANIP,SIZE=AUTO,PARM='dd:sdi1 dd:mto1'
*
*
*
*
*
/&
* $$ EOJ
|
I don't need an answer to the return code anymore, as I
found out that I already had code to do the equivalent
of a WTO and was able to use that to get func1 to print
"start", call func2 which says "middle" and then returns,
and then func1 prints "end" so I know it is working.
And I can punch the phase and all 3 strings are embedded in it.
However, using the below JCL (or similar) I am unable to
punch the object code. I do get something:
000000 40D7C8C1 E2C540C6 E4D5C3F1 6BE24EE7 PHASE FUNC1,S+X
000010 7DF0F0F0 F0F0F07D 40404040 40404040 '000000'
000020 40404040 40404040 40404040 40404040
000030 40404040 40404040 40404040 40404040
000040 40404040 40404040 40404040 40404040
000050 02C5E2C4 40404040 40400010 40400001 .ESD .. ..
000060 C6E4D5C3 F1404040 00400078 40000058 FUNC1 . .. ...
000070 40404040 40404040 40404040 40404040
000080 40404040 40404040 40404040 40404040
000090 40404040 40404040 40404040 F0F0F0F1 0001
0000A0 02E3E7E3 40400078 40400038 40400001 .TXT .. .. ..
0000B0 00000050 615C4040 40404040 40404040 ...&/*
0000C0 40404040 40404040 40404040 40404040
0000D0 40404040 40404040 40404040 40404040
0000E0 40404040 40404040 40404040 F0F0F0F2 0002
0000F0 02E3E7E3 404000B0 40400020 40400001 .TXT .. .. ..
000100 40404040 40404040 40404040 40404040
000110 40404040 40404040 40404040 00000000 ....
000120 40404040 40404040 40404040 40404040
000130 40404040 40404040 40404040 F0F0F0F3 0003
000140 02C5D5C4 40400078 40404040 40400001 .END .. ..
000150 40404040 40404040 40404040 40404040
000160 40404040 40404040 40404040 40404040
000170 40404040 40404040 40404040 40404040
000180 40404040 40404040 40404040 F0F0F0F4 0004
000190 615C4040 40404040 40404040 40404040 /*
0001A0 40404040 40404040 40404040 40404040
0001B0 40404040 40404040 40404040 40404040
0001C0 40404040 40404040 40404040 40404040
0001D0 40404040 40404040 40404040 40404040
But it doesn't have my actual code and start/end messages
in it. Any idea what is wrong with this JCL?
Thanks. Paul.
* $$ JOB JNM=VSEJOB
* $$ LST LST=SYSLST,CLASS=A
// JOB VSEJOB
*
*
*
* Standard assignments for C programs
*
// ASSGN SYS000,SYSLNK
// ASSGN SYS005,SYSLST
// ASSGN SYS007,SYSPCH
// OPTION DUMP
*
*
*
*
*
*
* Now assemble the main routine
*
// OPTION CATAL
PHASE PDPTEST,S+80
// EXEC ASSEMBLY
undivert(func1.asm)dnl
/*
*
*
*
// EXEC ASSEMBLY
undivert(func2.asm)dnl
/*
*
* Now link the whole app
*
// EXEC LNKEDT
*
*
*
* Now run the app
*
// EXEC PDPTEST,SIZE=AUTO,PARM='PaulEdwards two Three'
*
*
*
*
*
*
* Now punch a relocatable object by executing RSERV
*
// DLBL IJSYSPH,'PDPPUNCH.DAT',0,SD
// EXTENT SYSPCH,,,,13000,1000 SPACE-SYSPUNCH
ASSGN SYSPCH,SYS000
// EXEC RSERV
PUNCH FUNC1
/*
CLOSE SYSPCH,PUNCH
*
*
*
* And get the single file ready for the CIL
*
// DLBL SDI1,'PDPPUNCH.DAT'
// DLBL IJSYSPH,'PDPPUN2.DAT',0,SD
// EXTENT SYSPCH,,,,14000,2000 SPACE-PHASE
ASSGN SYSPCH,SYS000
// EXEC VSEMANIP,SIZE=AUTO,PARM='dd:sdi1 dd:out(func1)'
CLOSE SYSPCH,PUNCH
*
*
*
*
* Now put it in the CIL
*
ASSGN SYSLNK,SYS000
// OPTION CATAL
// DLBL IJSYSIN,'PDPPUN2.DAT'
ASSGN SYSIPT,SYS000
INCLUDE
CLOSE SYSIPT,READER
// EXEC LNKEDT
ASSGN SYSLNK,UA
*
*
*
*
*
*
*
*
*
* Now punch a relocatable object by executing RSERV
*
// DLBL IJSYSPH,'PDPPUNCH.DAT',0,SD
// EXTENT SYSPCH,,,,13000,1000 SPACE-SYSPUNCH
ASSGN SYSPCH,SYS000
// EXEC RSERV
PUNCH FUNC2
/*
CLOSE SYSPCH,PUNCH
*
*
*
* And get the single file ready for the CIL
*
// DLBL SDI1,'PDPPUNCH.DAT'
// DLBL IJSYSPH,'PDPPUN2.DAT',0,SD
// EXTENT SYSPCH,,,,14000,2000 SPACE-PHASE
ASSGN SYSPCH,SYS000
// EXEC VSEMANIP,SIZE=AUTO,PARM='dd:sdi1 dd:out(func2)'
CLOSE SYSPCH,PUNCH
*
*
*
*
* Now put it in the CIL
*
ASSGN SYSLNK,SYS000
// OPTION CATAL
// DLBL IJSYSIN,'PDPPUN2.DAT'
ASSGN SYSIPT,SYS000
INCLUDE
CLOSE SYSIPT,READER
// EXEC LNKEDT
ASSGN SYSLNK,UA
*
*
*
*
*
*
*
* Now punch the phases
* You can choose func1, func2 or pdptest or a combination
*
// DLBL IJSYSPH,'PDPPUNCH.DAT',0,SD
// EXTENT SYSPCH,,,,10000,1000 SPACE-SYSPUNCH
ASSGN SYSPCH,SYS000
// EXEC CSERV
PUNCH FUNC1
/*
CLOSE SYSPCH,PUNCH
*
*
* And put it to tape
*
// DLBL SDI1,'PDPPUNCH.DAT'
// TLBL MTO1,'HERC01.MFTOPC',0
// ASSGN SYS011,TAPE,VOL=MFTOPC
// EXEC VSEMANIP,SIZE=AUTO,PARM='dd:sdi1 dd:mto1'
*
*
*
*
*
/&
* $$ EOJ
|
On Fri, Sep 6, 2024 at 07:51 AM, John Imholte wrote: That is a z/VSE only macro. Thanks all for your replies. Good news is that the pdld (linker) author (from Slovakia) has agreed to support the VSE format of an unloaded (using CSERV) executable (phase). He has already done MVS and CMS but both are having issues still. This allows you to build a DOS/VS executable (and MVS and CMS) on Windows. But I need to provide example input object code and matching executable and would like to keep it simple by just having one assembler program call another. I already know how to do that, but without a WTO I can't easily see it working. I would settle for an example that sets a non-zero return code to return to DOS/VS with, but I don't see DOS/VS printing my return codes. This is using VSE/380. Is there a way to see the return codes from executing a DOS/VS phase? Thanks. Paul.
|
From memory in earlier dos versions it was pretty simple to use single ccws, a ccb pointing to syslog, and excp/wait. Just use one ccw for read and one for write
?
|
might get a few hints from the MVS source for SYS1.MACLIB
On Thu, Sep 5, 2024 at 7:51?PM John Imholte via <John.Imholte= [email protected]> wrote: That is a z/VSE only macro. With z/VSE IBM did a complete rewrite on the console.
There is a WTO macro documented in the z/VSE manuals.
But when I tried using WTO in my assembler code on DOS/VS
it said there was no such macro.
Does it exist, and if it does, is there something I need to do
to use it?
Or is there some other similar simple macro to display a
message somewhere?
Thanks. Paul.
--
Sincerely,
John Imholte
-- Dr. Lee Smith Chief Scientist
|
That is a z/VSE only macro. With z/VSE IBM did a complete rewrite on the console.
There is a WTO macro documented in the z/VSE manuals.
But when I tried using WTO in my assembler code on DOS/VS
it said there was no such macro.
Does it exist, and if it does, is there something I need to do
to use it?
Or is there some other similar simple macro to display a
message somewhere?
Thanks. Paul.
-- Sincerely,
John Imholte
|
There is a WTO macro documented in the z/VSE manuals.
But when I tried using WTO in my assembler code on DOS/VS
it said there was no such macro.
Does it exist, and if it does, is there something I need to do
to use it?
Or is there some other similar simple macro to display a
message somewhere?
Thanks. Paul.
|
Re: VTP Assistance Needed
On Tue, Jun 18, 2024 at 07:18 PM, Jim Snellen wrote:
I still get open errors for FILE02 thru FILE14 but I'm up and running!
I think that if we provide a DLBL/EXTENT for one of those files, say FILE02, VTP won't complain about it at startup, because it will be able to open it. Of course, the file must exist. However I am not sure what kind of file VTP expects though. Anyway, have fun with VTP 3.8! Cheers, Rene FERLAND, Montreal P.S. -- This is version is 3.8 despite the message. I can see the difference with the 3.7 I know.
|
Re: VTP Assistance Needed
Professor Ferland,
VOILA!
I still get open errors for FILE02 thru FILE14 but I'm up and running!
I logged on with HERC01/CUL8TR and was presented with the attached screen.
Finally, F3 reports VTP to be version 3.7??
F3 TP003 VTP IS ACTIVE 06/19/24 16.57 AM VER 3.7 WARM
Anyway, I now have another toy to play with.? Again, thank you for your assistance and thanks to Alex too!
Jim
|
Re: VTP Assistance Needed
On Tue, Jun 18, 2024 at 05:38 PM, Jim Snellen wrote:
Understood.? Having never seen VTP, I can't comment.? However, being an avid ICCF user, I can only hope VTP can be a reasonable substitute.
Now my task is to find VTP 3.7!? Any idea where?
Hey Jim, I finally got it! Check the attached picture. :-)
What seems to have done the trick is adding the DLBL/EXTENT of the two files (U000.SECURITY.FILE and U000.CONTROL.FILE) to the VTP job. Can you try that and see what happens?
Cheers,
Rene FERLAND, Montreal
|
Re: VTP Assistance Needed
On Tue, Jun 18, 2024 at 10:21 AM, René Ferland wrote:
>> The big question for me is whether or not it is possible to create/edit/submit jobs to POWER with VTP 3.8.
>> I’m not sure I understand what this means.
I meant: can I use VTP 3.8 to create a member of a private source library, which will contain a complete job, and then submit this job to POWER (with a submit command of some kind inside VTP) and check the output in the LST queue (from VTP)? In other words, is VTP 3.8 a reasonable substitute for ICCF?
?Understood.? Having never seen VTP, I can't comment.? However, being an avid ICCF user, I can only hope VTP can be a reasonable substitute. Now my task is to find VTP 3.7!? Any idea where?
|
Re: VTP Assistance Needed
Hello Jim and Rene
I still had the directory on my PC containing the DOS/VS system I was playing around with back in 2022 so I thought I would have a look and see if I could bring it up again and try running VTP as I had left it back then.
I said previously that I had been running the original DOS/VS 5 pack system and the DOS/VS 5 pack v1r0m1 system at various times so I can't remember what state the disks I have are in.? What I did discover is that VTP seems to work with supervisor $$A$SUPT.
This probably came from the v1r0m1 system.
The open errors for FILE02 - FILE14 can be ignored as only FILE00 and FILE01 exist.
As I said before, I am a DOS/VS novice so I can't be of much help.? My background was MVS etc.
Best regards, Alex.
|
Re: VTP Assistance Needed
>> I was assuming you were successful in your installation of VTP but now realize you were
>> running version 3.7. I am moderately glad to see you are experiencing the same results. ;-)
I just tried to run VTP 3.8 with supervisor $$A$SUPV and POWERV with no more success. :-(
>> Perhaps I should downgrade and run version 3.7.
For sure, it is easier to install, and it runs with DOS/VS as a guest under VM/370 (despite the opposite claim in the readme.txt).
>> Before my changes, I was able to initiate VTP in F3. It was only
>> after I DIALed that the abends occurred. Now I can’t even start VTP.
Well, that's too bad :-(?
>> The big question for me is whether or not it is possible to create/edit/submit jobs to POWER with VTP 3.8.
>> I’m not sure I understand what this means.
I meant: can I use VTP 3.8 to create a member of a private source library, which will contain a complete job, and then submit this job to POWER (with a submit command of some kind inside VTP) and check the output in the LST queue (from VTP)? In other words, is VTP 3.8 a reasonable substitute for ICCF?
>> Thank you for spending time with this!
No problem :-)?
Cheers,
René FERLAND, Montréal
|
Mark, ? To be honest, I was fascinated by PS/44.? I only recently learned about it when I was preparing for a presentation, I’m going to be giving at the VM Workshop later this week.? Part of my talk will cover the development of FORTRAN and COBOL.? I was fascinated to realize that IBM built a machine that was missing instructions in order to operate faster, and had a special operating system that could only compile FORTRAN.? ? John ? John, So, what is your interest?in PS/44?? Did you ever work with the model 44, back in the day?
When I attended Clarkson College of Technology (now Clarkson U.) in Potsdam, NY from 1971 through 1975, they ran 44-MFT, a locally modified variant of PS/44.? It was very similar to the 44-MPS described elsewhere and made available via SHARE Program Library Agency (SPLA).? I was a student operator and ran batch jobs on 44-MFT on week-ends.? Fun times!
I have uploaded the files for 44-MPS to a new "PS44-MPS" folder in the "Files" area of this group.
You can find almost all of the relevant manuals for the IBM PS/44 (aka. 44/PS) here: See also the attached document and source code (recovered from some old SHARE SPLA Tapes.) This is probably as close as we can ever get to finding a copy of PS/44. What is missing are the tools to format disk packs, to put the system on the SYSRES volume, etc. -- the tools described?in the System Programming manual of PS/44.? ?But I believe we can substitute equivalent tools and utilities from DOS/360 and OS/360.? ?Use either 2311 or 2314.? ?The other disk drive, 1311 or whatever it was, was a very strange device -- very non-standard, not very much like other IBM DASD of that time period.? ? This site can "point the way" to how to bootstrap MPS/44, for example, how to write an IPL program, put it on the disk, etc. -- starts from the very basics and builds up. I think the closest we can get to a running PS/44 look-alike would be to use this approach to resurrect MPS, substituting and using various utilities from OS/360 or DOS/360 as needed. For example, PS/44 (and 44-MPS) had "directoried data sets" that are similar to but not identical with an OS PDS.? We can just create and use a PDS.? This may require a few small changes to some of the channel programs used in MPS.? The TXXOS web site shows how to do these tasks, for example, how to read data from a PDS to load a program member into memory, etc. Look this all over and let me know what you think.
|
Re: VTP Assistance Needed
Greetings Professor,
It is so nice to hear from you again.?
Jim, you are exactly where I was yesterday after spending an entire afternoon trying to make this VTP 3.8 work.
I was assuming you were successful in your installation of VTP but now realize you were running version 3.7. I am moderately glad to see you are experiencing the same results. ;-)
Perhaps I should downgrade and run version 3.7.?
Before my changes, I was able to initiate VTP in F3. It was only after I DIALed that the abends occurred. Now I can’t even start VTP.?
The big question for me is whether or not it is possible to create/edit/submit jobs to POWER with VTP 3.8.
I’m not sure I understand what this means.?
Thank you for spending time with this! ?
|
Re: VTP Assistance Needed
On Mon, Jun 17, 2024 at 06:00 PM, Jim Snellen wrote:
What are FILE00 thru FILE14?
Why am I still crashing?
Jim, you are exactly where I was yesterday after spending an entire afternoon trying to make this VTP 3.8 work. I don't know why it behaves like that. However I noticed that the system storage map given in the README does not correspond to the default one of the 5-pack. Also, according to the map, F1 runs a program named POWERV. So I assume the creator of VTP uses a different supervisor and version of POWER on his system. Maybe that plays a role. As a matter of fact, the private library of the previous version, VTP 3.7, contains both the two phases $$A$SUPV and POWERV. I did not tried to restore and use them for this version however.
The big question for me is whether or not it is possible to create/edit/submit jobs to POWER with VTP 3.8. The warning "Also be advised, [that version] does not support cross part communications!" seems to suggest the answer is no. If so, the program can be used to explore DOS/VS with an interactive interface, but not really to work with it. It was certainly the case of the previous version.
In any case, I feel this "corrected" VTP 3.8 needs more corrections :-) or at least a more complete README (no offense intended).
Cheers,
René FERLAND, Montréal
|
Re: VTP Assistance Needed
OK! What an interesting trip down memory lane. . .
1. I reassembled the POWER module changing 'ACCOUNT=NO' to 'ACCOUNT=YES' and called it POWERA.
2. I copied POWER SYSIN to POWERA SYSIN and changed '// EXEC POWER' to '// EXEC POWERA' and 'FORMAT=N' to 'FORMAT=A'.
3. I reformatted the input records for ' U000.SECURITY.FILE' and rebuilt the two files? 'U000.SECURITY.FILE' and 'U000.CONTROL.FILE' using?
OSS99 and VTPUTIL respectively.
4. Finally, I issued 'R RDR,VTP' and got the following results.
01 F1 1Q34I ?LST WAITING FOR WORK ON 00E ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
02 AR R RDR,VTP ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
03 F1 1R88I ?OK ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
04 F1 1Q47I ? F3 VTP 00151 FROM 000 VTP ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
05 F3 // JOB VTP ? ? ? ? RUN VTP 3.8 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
06 ? ?DATE 06/18/24,CLOCK 15/38/12 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
07 F3 4228I FILE FILE00 ? ? OPEN ?ERROR X'80'(128) ? ? ? ? ? ? ? ? ? ? ? ? ? ??
08 F3 4228I FILE FILE01 ? ? OPEN ?ERROR X'80'(128) ? ? ? ? ? ? ? ? ? ? ? ? ? ??
09 F3 4228I FILE FILE02 ? ? OPEN ?ERROR X'80'(128) ? ? ? ? ? ? ? ? ? ? ? ? ? ??
10 F3 4228I FILE FILE03 ? ? OPEN ?ERROR X'80'(128) ? ? ? ? ? ? ? ? ? ? ? ? ? ??
11 F3 4228I FILE FILE04 ? ? OPEN ?ERROR X'80'(128) ? ? ? ? ? ? ? ? ? ? ? ? ? ??
12 F3 4228I FILE FILE05 ? ? OPEN ?ERROR X'80'(128) ? ? ? ? ? ? ? ? ? ? ? ? ? ??
13 F3 4228I FILE FILE06 ? ? OPEN ?ERROR X'80'(128) ? ? ? ? ? ? ? ? ? ? ? ? ? ??
14 F3 4228I FILE FILE07 ? ? OPEN ?ERROR X'80'(128) ? ? ? ? ? ? ? ? ? ? ? ? ? ??
15 F3 4228I FILE FILE09 ? ? OPEN ?ERROR X'80'(128) ? ? ? ? ? ? ? ? ? ? ? ? ? ??
16 F3 4228I FILE FILE11 ? ? OPEN ?ERROR X'80'(128) ? ? ? ? ? ? ? ? ? ? ? ? ? ??
17 F3 4228I FILE FILE13 ? ? OPEN ?ERROR X'80'(128) ? ? ? ? ? ? ? ? ? ? ? ? ? ??
18 F3 4228I FILE FILE14 ? ? OPEN ?ERROR X'80'(128) ? ? ? ? ? ? ? ? ? ? ? ? ? ??
19 F3 VTPX001 ENTRY-00000000 PSW-073D000140000002 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
20 F3 VTPX001 ENTRY-00000000 PSW-073D000140000004 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
** ?MESSAGE REDISPLAY ?BWD ALL=0060 ? ? ? ? ? ***
01 F3 VTPX001 ENTRY-00000000 PSW-073D000140000006 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
02 F3 VTPX001 ENTRY-00000000 PSW-073D000140000008 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
03 F3 VTPX001 ENTRY-00000000 PSW-073D00014000000A ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
04 F3 VTPX001 ENTRY-00000000 PSW-073D00014000000C ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
05 F3 VTPX001 ENTRY-00000000 PSW-073D00014000000E ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
06 F3 VTPX001 ENTRY-00000000 PSW-073D000140000010 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
07 F3 VTPX001 ENTRY-00000000 PSW-073D000140000012 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
08 F3 VTPX001 ENTRY-00000000 PSW-073D000140000014 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
09 F3 VTPX001 ENTRY-00000000 PSW-073D000140000016 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
10 F3 VTPX001 ENTRY-00000000 PSW-073D000640000018 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
11 F3 VTPX001 ENTRY-00000000 PSW-073D00014000001C ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
12 F3 VTPX001 ENTRY-00000000 PSW-073D00014000001E ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
13 F3 VTPX001 ENTRY-00000000 PSW-073D000140000024 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
14 F3 VTPX001 ENTRY-00000000 PSW-073D000140000026 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
15 F3 VTPX001 ENTRY-00000000 PSW-073D0001C000002C ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
16 F3 VTPX001 ENTRY-00000000 PSW-073D00014000002E ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
17 F3 VTPX001 ENTRY-00000000 PSW-073D000140000030 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
18 F3 VTPX001 ENTRY-00000000 PSW-073D000140000032 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
19 F3 VTPX001 ENTRY-00000000 PSW-073D000140000034 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
20 F3 VTPX001 ENTRY-00000000 PSW-073D000140000036 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
** ?MESSAGE REDISPLAY ?FWD ALL=0040 ? ? ? ? ? ***
01 F3 VTPX001 ENTRY-00000000 PSW-073D000140000038 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
02 F3 VTPX001 ENTRY-00000000 PSW-073D00014000003C ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
03 F3 VTPX001 ENTRY-00000000 PSW-073D00014000003E ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
04 F3 VTPX001 ENTRY-00000000 PSW-073D000140000040 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
05 F3 VTPX001 ENTRY-00000000 PSW-073D000640000042 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
06 F3 VTPX001 ENTRY-00000000 PSW-073D000640000044 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
07 F3 VTPX001 ENTRY-00000000 PSW-073D000140000046 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
08 F3 VTPX001 ENTRY-00000000 PSW-073D000140000048 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
09 F3 VTPX001 ENTRY-00000000 PSW-073D00014000004A ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
10 F3 VTPX001 ENTRY-00000000 PSW-073D00014000004E ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
11 F3 VTPX001 ENTRY-00000000 PSW-073D000140000050 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
12 F3 VTPX001 ENTRY-00000000 PSW-073D000140000052 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
13 F3 VTPX001 ENTRY-00000000 PSW-073D000180000056 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
14 F3 0S03I PROGRAM CHECK INTERRUPTION - HEX LOCATION 4CC2E0 - ? ? ? ? ? ? ? ??
15 ? ? ? ? ?CONDITION CODE 2 - ADDRESSING EXCEPTION ? ? ? ? ? ? ? ? ? ? ? ? ? ?
16 ? ?0S00I JOB VTP ? ? ?CANCELED ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
17 F3 EOJ VTP ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
18 ? ?DATE 06/18/24,CLOCK 15/38/14,DURATION 00/00/01 ? ? ? ? ? ? ? ? ? ? ? ? ??
19 F1 1Q34I ? F3 WAITING FOR WORK ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
20 F1 1Q34I ?LST WAITING FOR WORK ON 00E ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
** ?MESSAGE REDISPLAY ?FWD ALL=0020 ? ? ? ? ? ***
What are FILE00 thru FILE14?
Why am I still crashing?
|
John,
So, what is your interest?in PS/44?? Did you ever work with the model 44, back in the day?
When I attended Clarkson College of Technology (now Clarkson U.) in Potsdam, NY from 1971 through 1975, they ran 44-MFT, a locally modified variant of PS/44.? It was very similar to the 44-MPS described elsewhere and made available via SHARE Program Library Agency (SPLA).? I was a student operator and ran batch jobs on 44-MFT on week-ends.? Fun times!
I have uploaded the files for 44-MPS to a new "PS44-MPS" folder in the "Files" area of this group.
?
You can find almost all of the relevant manuals for the IBM PS/44 (aka. 44/PS) here: ?
? ??
?
See also the attached document and source code (recovered from some old SHARE SPLA Tapes.)
?
This is probably as close as we can ever get to finding a copy of PS/44.
?
What is missing are the tools to format disk packs, to put the system on the SYSRES volume, etc. -- the tools described?in the System Programming manual of PS/44.? ?But I believe we can substitute equivalent tools and utilities from DOS/360 and OS/360.? ?Use either 2311 or 2314.? ?The other disk drive, 1311 or whatever it was, was a very strange device -- very non-standard, not very much like other IBM DASD of that time period.? ?
?
See also:
? ???
?
This site can "point the way" to how to bootstrap MPS/44, for example, how to write an IPL program, put it on the disk, etc. -- starts from the very basics and builds up.
?
I think the closest we can get to a running PS/44 look-alike would be to use this approach to resurrect MPS, substituting and using various utilities from OS/360 or DOS/360 as needed.
?
For example, PS/44 (and 44-MPS) had "directoried data sets" that are similar to but not identical with an OS PDS.? We can just create and use a PDS.? This may require a few small changes to some of the channel programs used in MPS.? The TXXOS web site shows how to do these tasks, for example, how to read data from a PDS to load a program member into memory, etc.
?
Look this all over and let me know what you think.
?
All the best,
?
Mark S. Waterbury
|
The following files and folders have been uploaded to the Files area of the [email protected] group.
By: Mark Waterbury <mark.s.waterbury@...>
Description:
Source code for MPS for 360 model 44, recovered from old SHARE SPLA tapes.
The following files and folders have been uploaded to the Files area of the [email protected] group.
By: Mark Waterbury <mark.s.waterbury@...>
Description:
Documentation for 44-MPS, from SPLA - the SHARE Program Library Agency.
The following files and folders have been uploaded to the Files area of the [email protected] group.
By: Mark Waterbury <mark.s.waterbury@...>
Description:
44-MPS documentation from SHARE Program Library Agency.
|
René Ferland
Jim Snellen
