开云体育

--
att.
Jo?o

Drew,

From that time period when MVS 3.8J was still "current" and actively in use -- perhaps it might have been a product like "MICS" or "OMEGAMON" that you recall?

For a "free" tool on the CBT Tapes, you could look for "DCMS" -- The "Dirt Cheap Monitor System".

Hope that helps,

Mark S. Waterbury

CMD1?

Recently (past few months) I dimly recall seeing an add-in package for MVS 3.8 which used commands like *Q on something like the CBT site.

It reminded me of (and may have been) a third party product that I saw when my 1980's employer trialed? but didn't buy.

Does anyone remember such package from the olden days, or even better know where it is now?

-ahd-

--
Drew Derbyshire

"He wants to dream like a young man
With the wisdom of an old man
He wants his home and security
He wants to live like a sailor at sea. . ." -- Bob Seger

开云体育

I had various issues with SYSCPK install and contents.

First, the changes to the JES2 procedure:

• #1 with a bullet
• This (as suggested on ) won't work:
  ??? S JES2OLD
  JES2OLD is not a registered subsystem, and thus the START command will hang.
  
• The JES2 procedure is not modified in a consistent style with the preexisting statements:
• SYSC.PROCLIB was hardcoded, unlike SYS1.PROCLIB and SYS2.PROCLIB.?
  
• When combined with #1 above and a user mistake by me (!), my recovery entailed restoring from my nightly backups.?
  
• The preferred (and recoverable from) method of adding the PROCLIB would have been:
• Adding parameters PC= and VC= (for volume) to the new library
• I would also suggest also use of UNIT=SYSDA, not UNIT=3350.
  
• SYSC.PROCLIB was in front of SYS1.PROCLIB
• This is not acceptable (not on my system!), and a bad practice in general.? End of the (DD) line, please.
• You could add an alternate PROCLIB DD (/*JOBPARM PROCLIB=SYSC?)
• Are there duplicate names between SYS1.PROCLIB AND SYSC.PROCLIB?
  
• On a system with dynamic PROCLIB support, is adding SYSC.PROCLIB directly to JES2 needed at all?? (At cost of an additional line of JCL, of course.)
  

SYSC.LINKLIB has multiple minor issues:

• The library seems to be dumping ground for multiple module types; I would suggest it be audited and replaced with:
  
• A library for executable language components (under the current name?)
• Is there a summary of changes for modules which also in SYS1.LINKLIB?
  
• A library for executable utilities
  
• A library for linkable subroutines
  
• Adding SYSC.LINKLIB with its 905 members (SYS1.LINKLIB only has 121) to the APF authorized list is somewhat cavalier.?
  
• Is there a summary of what modules need authorization (and why)?
  
• I would think once reorganized, only the utilities library needs APF authorization?
  

And finally, the VATLST modifier didn't detect SYSCPK was already added to VATLST00, and inserted a duplicate entry.? As (I think) that was the only line modified, the entire step should have been skipped. (Do the other steps have duplicate changes issues as well?

-- 
Drew Derbyshire

Mobile: 425-471-8183

"The only thing necessary for the triumph of evil is for good men to do
 nothing."

Hi Fellows,

?

Please, I’d like to know how can I create thesse tables.

?

Could u help me

?

Cheers

?

Dylson from Brazil.

IEFUTIL !!!

--
Drew Derbyshire

Mobile: 425-471-8183

"Of all the gin joints in all the towns in all the world, she walks into
mine" -- "Casablanca"

Can't help with the SMF
exit, but must complement the sig...

The timeout exit is IEHUTL. There is a sample for IEHUTL in SYS1.SAMPLIB.? It's enabled by the SMF member of SYS1.PARMLIB.

As I recall, it was modified at my first employer (read: long ago and far away) so that JOBs pulled a S522 ABEND after the configured amount (15 minutes?) but TSO users had longer (an hour?)

Is an active version of IEHUTL installed by default?? If so, where do the IEHUTIL source and object live?

--
Drew Derbyshire

Mobile: 425-471-8183

"He's dead, Jim. I'll get his tricorder. You take his wallet."

开云体育

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"

--

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 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 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 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 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.

开云体育

Working as designed.

AKA: The stupid user (me) rides again.? :-)

In the 'good' trace, pr3287 is connected, waiting for the host to send data.

In the 'bad' trace, pr3287 connects, the host breaks the connection, pr3287 waits five seconds and tries again, forever.

So when x3270 connects with a bad group, the following is a server (Hercules) side message reported (which pr3287 does not seem to receive):

>? Connection rejected, no available 3270 devices in the xxx group

I think part of my problem is that it doesn't probably need a -reconnect for a valid configuration; the printer won't drop after each job.? Without the reconnect, it would not tweak Hercules multiple times.

The basic TN3270 protocol does not allow the host to send any sort of diagnostic saying why the session was disconnected; it just disconnects. With the time delay, the net load on the workstation and the host for this is diminishingly small.

Well, the host is being acting hammered.? Trust me. ?

Is there some other behavior you would prefer?

I'd like the host to not act hammered.? Not pr3287's fault.?

I would like the same clear message to be sent to the printer.

-ahd-

-- 
Drew Derbyshire

Mobile: 425-471-8183

"Go ahead, make my day." -- "Sudden Impact"