On 6/23/20 5:30 AM, Doug Wegscheid wrote:

Thanks for the story; that will be helpful to some poor sod in the future.

I have found that adding SYSCPK to TK3UPD is one of the easiest ways to get the extra compilers, rather than adding them one by one.

I haven't looked for the compilers yet, but I think they mostly there. SYSCPK is on my list.

There are plenty of 3350 addresses in TK3UPD...

*snicker* Been there, got them.? KEW001, KEW002, WYLSRC, WYL001 ...

A problem with DADSLOAD is you can't allocate more files on packs which were DASDLOADed.

No IMON: not present, or not working? I don't recall have to fiddle with it (except possibly adding a PROC so I can start it from the console w/ a dedicated terminal, bypassing TSO, but even that may have already been done).

IMON doesn't work from a TSO command line.? But it DOES work from RPF.

I didn't worry about it because I knew it had been updated since TK3UPD was packaged and so I knew I needed to reinstall it.

-ahd-

--
Drew Derbyshire

Q. What machine does Windows Vista run best on?
A. A 35 mm slide projector.

On 6/23/20 11:04 AM, Drew Derbyshire wrote:

On 6/23/20 5:30 AM, Doug Wegscheid wrote:

Thanks for the story; that will be helpful to some poor sod in the future.

I have found that adding SYSCPK to TK3UPD is one of the easiest ways to get the extra compilers, rather than adding them one by one.

I haven't looked for the compilers yet, but I think they mostly there. SYSCPK is on my list.

There are plenty of 3350 addresses in TK3UPD...

*snicker* Been there, got them.? KEW001, KEW002, WYLSRC, WYL001 ...

A problem with DADSLOAD is you can't allocate more files on packs which were DASDLOADed.

No IMON: not present, or not working? I don't recall have to fiddle with it (except possibly adding a PROC so I can start it from the console w/ a dedicated terminal, bypassing TSO, but even that may have already been done).

IMON doesn't work from a TSO command line.? But it DOES work from RPF.

IMON has multiple names is SYS2.CMDLIB, none of which are IMON.

--
Drew Derbyshire

"Do they still play the blues in Chicago
When baseball season rolls around
When the snow melts away,
Do the Cubbies still play
In their ivy-covered burial ground . . ." -- Steve Goodman

On Tue, Jun 23, 2020 at 02:04 PM, Drew Derbyshire wrote:

A problem with DADSLOAD is you can't allocate more files on packs which were DASDLOADed.

What are you seeing that indicates this? I just tried it, had no trouble creating a dataset on a dasdload-ed 3350 that I had mounted.

开云体育

On Tue, Jun 23, 2020 at 02:04 PM, Drew Derbyshire wrote:

A problem with DADSLOAD is you can't allocate more files on packs which were DASDLOADed.

What are you seeing that indicates this? I just tried it, had no trouble creating a dataset on a dasdload-ed 3350 that I had mounted.

_._,_._,_

Create a empty dasd loaded 3350, and try to allocate a file via batch.? I can't do an example now, but if you want one later I can.

-- 
Drew Derbyshire

"Ian Stewart. I'm still working for him. To me The Rolling Stones is
 his band. Without his knowledge and organisation... we'd be nowhere."
                                                -- Keith Richards

On Tue, Jun 23, 2020 at 03:41 PM, Drew Derbyshire wrote:

Create a empty dasd loaded 3350, and try to allocate a file via batch.? I can't do an example now, but if you want one later I can.

Just tried it; it works. Here was the .ctl file

drew 3350
vtoc vtoc cyl 2

did a 'dasdload drew.ctl drew.3350'

did this at the Hercules console
attach 721 3350 scratch/drew.3350

did a
m 721,vol=(sl,drew),use=private

Responded with '721' when prompted with
15.59.43 STC 2166? IEF244I MOUNT 721 - UNABLE TO ALLOCATE 1 UNIT(S)??????????????????????????????????????????????????????????????????????????????????
???????? AT LEAST 1 OFFLINE UNIT(S) NEEDED.??????????????????????????????????????????????????????????????????????????????????????????????????????????
15.59.43 STC 2166? IEF489I MOUNT - 1 UNIT(S) NEEDED FOR IEFRDER??????????????????????????????????????????????????????????????????????????????????????
15.59.43 STC 2166? IEF247I MOUNT - 721 OFFLINE???????????????????????????????????????????????????????????????????????????????????????????????????????
15.59.43 STC 2166 *13 IEF238D MOUNT - REPLY DEVICE NAME OR 'CANCEL'.?????????????????????????????????????????????????????????????????????????????????

mount command completed, and I was able to place datasets on volume 'DREW' w/ both RFE and a batch job:

//WEGSCDCC JOB (DOUG,5278),CREATE.FILE,CLASS=A,MSGCLASS=X?????????????? 00000100
//CLEANUP EXEC PGM=IEFBR14????????????????????????????????????????????? 00000200
//CREATE??? DD DSN=DREW.TEST1,DISP=(NEW,CATLG,DELETE),UNIT=3350,??????? 00000300
//???????????? SPACE=(CYL,(50,20),RLSE),VOL=SER=DREW,?????????????????? 00000400
//???????????? DCB=(RECFM=VBS,LRECL=8000,BLKSIZE=16000)???????????????? 00000500

开云体育

On Tue, Jun 23, 2020 at 03:41 PM, Drew Derbyshire wrote:

Create a empty dasd loaded 3350, and try to allocate a file via batch.? I can't do an example now, but if you want one later I can.

Just tried it; it works. Here was the .ctl file

drew 3350
vtoc vtoc cyl 2

did a 'dasdload drew.ctl drew.3350'

did this at the Hercules console
attach 721 3350 scratch/drew.3350

did a
m 721,vol=(sl,drew),use=private

Responded with '721' when prompted with
15.59.43 STC 2166? IEF244I MOUNT 721 - UNABLE TO ALLOCATE 1 UNIT(S)??????????????????????????????????????????????????????????????????????????????????
???????? AT LEAST 1 OFFLINE UNIT(S) NEEDED.??????????????????????????????????????????????????????????????????????????????????????????????????????????
15.59.43 STC 2166? IEF489I MOUNT - 1 UNIT(S) NEEDED FOR IEFRDER??????????????????????????????????????????????????????????????????????????????????????
15.59.43 STC 2166? IEF247I MOUNT - 721 OFFLINE???????????????????????????????????????????????????????????????????????????????????????????????????????
15.59.43 STC 2166 *13 IEF238D MOUNT - REPLY DEVICE NAME OR 'CANCEL'.?????????????????????????????????????????????????????????????????????????????????

mount command completed, and I was able to place datasets on volume 'DREW' w/ both RFE and a batch job:

//WEGSCDCC JOB (DOUG,5278),CREATE.FILE,CLASS=A,MSGCLASS=X?????????????? 00000100
//CLEANUP EXEC PGM=IEFBR14????????????????????????????????????????????? 00000200
//CREATE??? DD DSN=DREW.TEST1,DISP=(NEW,CATLG,DELETE),UNIT=3350,??????? 00000300
//???????????? SPACE=(CYL,(50,20),RLSE),VOL=SER=DREW,?????????????????? 00000400
//???????????? DCB=(RECFM=VBS,LRECL=8000,BLKSIZE=16000)???????????????? 00000500

_._,_._,_

Looks valid.? I duplicate what you did and then try my slightly different variation.

-- 
Drew Derbyshire

". . . You know we're sitting on four million pounds of fuel, one
 nuclear weapon and a thing that has two hundred thousand moving parts
 built by the lowest bidder. Makes you feel good doesn't it?"
                                            -- "Armageddon"