Keyboard Shortcuts
ctrl + shift + ? :
Show all keyboard shortcuts
ctrl + g :
Navigate to a group
ctrl + shift + f :
Find
ctrl + / :
Quick actions
esc to dismiss
Likes
Search
Re-create NJE38 Spool
|
I reorganized the work packs on my TK5 system and am now trying to re-create the NJE38 spool.
?
Oddly, I can create and remove it just fine on a TSO pack, but it failed to create on a WORK pack.
?
Here's what JOB0010 is telling me:
?
?
What am I getting wrong?
? |
|
Wrong catalog. All VSAM datasets on a volume must be in the same VSAM
catalog. Corrected with ICF catalogs. On Sat, Nov 16, 2024 at 9:12?AM Daniel L. Srebnick via groups.io <dan@...> wrote:
-- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? |
|
The alias for NJE38 in TK5 is defined as:
toggle quoted message
Show quoted text
DEF ALIAS(NAME('NJE38') REL('SYS1.UCAT.TSO')) I'm a VSAM novice...how would I go about fixing what I broke here. I mean I could just go back to the distributed volumes, but that would be no fun and I'd learn nothing! Thanks for any advice. On Sat, 2024-11-16 at 10:07 -0600, Mike Schwab via groups.io wrote:
Wrong catalog.? All VSAM datasets on a volume must be in the same |
|
Hi Dani?l,
?
Possibly WORK04 belongs to another catalog.
Please check the other catalogs in your system.
?
That can be done with an IDCAMS job with control statement.
LISTCAT CAT('catalog name') SPACE
?
Run this job for every catalog you have.
If you have found the right catalog, check if there are VSAM objects allocated on that volume.
?
Cheers,
Rob
?
BTW: the alias points to the right catalog (I assume you are running MVS-TK5). |
|
WORK04 (as well as WORK00) seems to be owned by SYS1.UCAT.TSO. I see no existing entry for NJE38.NETSPOOL. Do I need to tell IDCAMS to use SYS1.UCAT.TSO? On Sat, 2024-11-16 at 09:07 -0800, Rob Prins via groups.io wrote:
|
|
Daniel,
?
I was able to create the dataset on WORK04 with no issues.? But of course, I have not gone through whatever reorganization that you performed.? Im using TK5 update 3.? See below:
?
IDCAMS ?SYSTEM SERVICES ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? ? ? ? DEF CL ( ?NAME( NJE38.NETXXXXX ) - ? ? ? ? ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? RECSZ(4089,4089) - ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? CYL(100) - ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? NUMBERED - ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? CISZ(4096) - ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? SHR(4 4) - ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? FILE( WORK04 ) - ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? VOLUMES( WORK04)) - ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? DATA ( ?NAME( NJE38.NETXXXXX.DATA ) - ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? UNIQUE ) ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? IDC0508I DATA ALLOCATION STATUS FOR VOLUME WORK04 IS 0 ? ? ? ? ?? IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 0 ?
This is the JCL that I used:
//TEMP ? ? EXEC PGM=IDCAMS ? ? ? ? ? ? ? ? ? ? ? ?
//WORK04 ? DD VOL=SER=WORK04, ? ? ? ? ? ? ? ? ? ?? // ? ? ? ? ? ?UNIT=SYSDA, ? ? ? ? ? ? ? ? ? ? ? ?? // ? ? ? ? ? ?DISP=SHR ? ? ? ? ? ? ? ? ? ? ? ? ? ? //SYSPRINT DD SYSOUT=* ? ? ? ? ? ? ? ? ? ? ? ? ? ? //SYSIN ? ?DD * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? I changed the name of the dataset because I already have a NJE38.NETSPOOL on another volume. ?
For what its worth....
?
Regards,
Bob |
That tells, there was a previous DEFINE of a VSAM object on
WORK04.
Please check the catalog and the VTOC of WORK04.
In the original distribution of MVS-TK5, all the WORKxx
volumes are not owned by any catalog.
?
You can try to delete the volume record of WORK04.
You use the JCL provided by Bob Polmanter and use the
following IDCAMS control statement.
Be sure there are no other VSAM objects on WORK04. ?
DELETE WORK04 SPACE CATALOG(SYS1.UCAT.TSO)
?
Cheers,
Rob
? |
|
When I run this:
toggle quoted message
Show quoted text
//IDCDEL JOB CLASS=A,MSGLEVEL=(1,1),MSGCLASS=X //STEP1 EXEC PGM=IDCAMS //WORK04 DD VOL=SER=WORK04,UNIT=SYSDA,DISP=SHR //SYSPRINT DD SYSOUT=* //SYSIN DD * ? DELETE WORK04 SPACE CATALOG(SYS1.UCAT.TSO) /* I see this message: IDCAMS SYSTEM SERVICES TIME: DELETE WORK04 SPACE CATALOG(SYS1.UCAT.TSO) IDC3021I USER VOLUME NOT MOUNTED IDC3009I ** VSAM CATALOG RETURN CODE IS 72 - REASON CODE IS IGG0CLBL-59 IDC0551I **ENTRY WORK04 NOT DELETED IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 8 IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 8 However, WORK04 is indeed mounted: UNIT TYPE STATUS VOLSER VOLSTATE 294 3390 O WORK04 PUB/RSDNT Perhaps I misunderstand the error? From the USER CATALOG listing: VOLUME -------- WORK04 HISTORY RELEASE----------------2 CHARACTERISTICS BYTES/TRK----------58786 DEVTYPE------X'3010200F' MAX- PHYREC-SZ------32760 DATASETS-ON-VOL--------0? TRKS/CYL--------------15 VOLUME-TIMESTAMP: MAX- EXT/ALLOC----------5 DATASPCS-ON-VOL--------0? CYLS/VOL------------1113 X'E00075720C9B9001' I assume it is this entry above that we're trying to delete. On Sat, 2024-11-16 at 11:18 -0800, Rob Prins via groups.io wrote:
WORK04 (as well as WORK00) seems to be owned by SYS1.UCAT.TSO.That tells, there was a previous DEFINE of a VSAM object on |
|
This IDCAMS config fixed my problem:
DELETE WORK00 - SPACE FORCE - CAT(SYS1.UCAT.TSO) Thanks to all who offered suggestions, you at least put me on the right track. On Sat, 2024-11-16 at 18:00 -0500, Daniel L. Srebnick via groups.io wrote: When I run this: |
Rob Prins
to navigate to use esc to dismiss