Mainframe Catalogs, volumes and files management
CONTENTS:
Case1. LIST of disk ALIAS, NAMES, DETAILS and tape VGENERAL NAMES using batch job
Case2. Print list of data sets and library members using ISPF and batch job
2.1. Print the scrollable list of files on disk volume using ISPF
2.2. Print list of data sets in scrollable format using ISPF
2.3. Print the scrollable list of members in a library using ISPF
2.4. Print the members in a library using ISPF
2.5. Print a scrollable file from rmf report using ISPF
2.6. Copy ISPF file with batch job to another disk ALIAS for printing files
2.7. Print a file to JES output with batch job
Case3. List of VTOC (printing/display VTOC information) using ISPF and batch job
3.1. Display VTOC information on disk volume using ISPF
3.2. Print VTOC information on disk volume using ISPF
3.3. List of VTOC on disk volume using IEHLIST in JES batch job
3.4. Ditto online VTOC display using ISPF
3.5. Ditto VTOC printing using batch job
Case 4. Build user and tape catalogs using batch job
4.1. Initialize disk volume for SMS
4.2. Define VVDS for SMS-managed data sets on the volume
4.3. Define User catalog in system catalog
4.4. Define ALIAS related to User and system catalogs
4.5. Define tape volume system catalog
Case 5. Catalog operations using batch job
5.1. Disconnect/connect User catalog
5.2. Delete ALIAS related to User catalog
5.3. Delete User catalog
5.4. Delete VSAM and non-VSAM data sets in User catalog
5.5. Delete volume entry in tape volume system catalog
In 5 cases below the basic operations with ZOS catalogs, volumes and files are documented: Listing disk ALIAS, NAMES, DETAILS and tape VGENERAL NAMES; Printing data sets and library members using ISPF and batch job; Printing/display VTOC information; Building user and tape catalogs and operations on them using batch job.
Case1. LIST of disk ALIAS, NAMES, DETAILS and tape VGENERAL NAMES using batch job
(print any disk catalog ALIAS, NAMES, DETAILS ALL, print/display details only for one file , print tape volume catalog VGENERAL NAMES)
– ALIAS (Print of all disk files prefixes for system catalog (CATALOG.MVSICFM.VBC2MCC)
//LSTALIAS JOB (9999,IPO,10,10),
// ‘OPER’,
// CLASS=A,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// NOTIFY=,
// TIME=1440,
// USER=
//LISTCAT EXEC PGM=IDCAMS,REGION=1024K
//SYSPRINT DD SYSOUT=X
//SYSIN DD *
LISTCAT ALIAS ALL –
CAT(CATALOG.MVSICFM.VBC2MCC)
For CAT(CATALOG.MVSICFM.VBC2MCC) you may find alias KCI01 in CATALOG.MVSICFM.VBC2MCC which is associated with USERCAT–CATALOG.MVSICF1.VPRD001 as follows:
f kci01
ALIAS ——— KCI01
HISTORY
RELEASE—————-2
ASSOCIATIONS
USERCAT–CATALOG.MVSICF1.VPRD001
– NAMES (Print of all file names for user catalog (CATALOG.MVSICF1.VPRD001)
//LSTNAMES JOB (9999,IPO,10,10),
// ‘OPER’,
// CLASS=A,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// NOTIFY=,
// TIME=1440,
// USER=
//LISTCAT EXEC PGM=IDCAMS,REGION=1024K
//SYSPRINT DD SYSOUT=X
//SYSIN DD *
LISTCAT NAMES –
CATALOG(CATALOG.MVSICF1.VPRD001)
For CATALOG(CATALOG.MVSICF1.VPRD001) you may find any VSAM cluster, data and index file names with prefix KCI01 as follows:
F DAKTRAN
CLUSTER ——- KCI01.CARDS.METRO.INPUT
DATA ——- KCI01.CARDS.METRO.INPUT.DATA
CLUSTER ——- KCI01.CARDS.METRO.OUTPUT
DATA ——- KCI01.CARDS.METRO.OUTPUT.DATA
CLUSTER ——- KCI01.DMNSNDSK.ACIAC01
DATA ——- KCI01.DMNSNDSK.ACIAC01.DATA
CLUSTER ——- KCI01.DMNSNDSK.ACIAC02
DATA ——- KCI01.DMNSNDSK.ACIAC02.DATA
CLUSTER ——- KCI01.DMNSNDSK.ACIAC03
DATA ——- KCI01.DMNSNDSK.ACIAC03.DATA
CLUSTER ——- KCI01.DMNSNDSK.DAKTRAN
DATA ——- KCI01.DMNSNDSK.DAKTRAN.DATA
INDEX —— KCI01.DMNSNDSK.DAKTRAN.INDEX
– ALL (Print details of all files for user catalog CATALOG.MVSICF1.VPRD001)
//LSTDETAL JOB (9999,IPO,10,10),
// ‘OPER’,
// CLASS=A,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// NOTIFY=,
// TIME=1440,
// USER=
//LISTCAT EXEC PGM=IDCAMS,REGION=1024K
//SYSPRINT DD SYSOUT=X
//SYSIN DD *
LISTCAT ALL –
CAT(CATALOG.MVSICF1.VPRD001)
For file KCI01.DMNSNDSK.DAKMSTR in CATALOG(CATALOG.MVSICF1.VPRD001) you may find VSAM cluster, data and index printed detail information as follows:
F DAKMSTR
CLUSTER ——- KCI01.DMNSNDSK.DAKMSTR
HISTORY
DATASET-OWNER—–(NULL) CREATION——–2007.047
RELEASE—————-2 EXPIRATION——0000.000
SMSDATA
STORAGECLASS —–SCFAST MANAGEMENTCLASS–MCNOMIG
DATACLASS ———DCEXT LBACKUP —0000.000.0000
BWO STATUS——00000000 BWO TIMESTAMP—00000 00:00:00.0
BWO—————(NULL)
RLSDATA
LOG —————-(NULL) RECOVERY REQUIRED –(NO) FRLOG
VSAM QUIESCED ——-(NO) RLS IN USE ———(NO)
LOGSTREAMID—————————–(NULL)
IDCAMS SYSTEM SERVICES TIME
LISTING FROM CATALOG — CATALOG.MVSICF1.VPRD001
RECOVERY TIMESTAMP LOCAL—–X’0000000000000000′
RECOVERY TIMESTAMP GMT——-X’0000000000000000′
PROTECTION-PSWD—–(NULL) RACF—————-(NO)
ASSOCIATIONS
DATA—–KCI01.DMNSNDSK.DAKMSTR.DATA
INDEX—-KCI01.DMNSNDSK.DAKMSTR.INDEX
DATA ——- KCI01.DMNSNDSK.DAKMSTR.DATA
HISTORY
DATASET-OWNER—–(NULL) CREATION——–2007.047
RELEASE—————-2 EXPIRATION——0000.000
ACCOUNT-INFO———————————–(NULL)
PROTECTION-PSWD—–(NULL) RACF—————-(NO)
ASSOCIATIONS
CLUSTER–KCI01.DMNSNDSK.DAKMSTR
ATTRIBUTES
KEYLEN—————-11 AVGLRECL————2427 BUFSPACE——
RKP——————–0 MAXLRECL————3103 EXCPEXIT——
STRIPE-COUNT———–1
ACT-DIC-TOKEN—-X’4000000A010C05000A0C0C000AFE05FE08FE0DFE0EFE000000000
SHROPTNS(2,3) SPEED UNIQUE NOERASE INDEXED
UNORDERED REUSE NONSPANNED COMP-FORMT EXTENDED
STATISTICS
REC-TOTAL——–1124916 SPLITS-CI————–0 EXCPS———
REC-DELETED————0 SPLITS-CA————–0 EXTENTS——-
REC-INSERTED———–0 FREESPACE-%CI———30 SYSTEM-TIMESTA
REC-UPDATED————1 FREESPACE-%CA———20 X’C7199A0
REC-RETRIEVED—48823066 FREESPC——–803168256
USER-DATA-SIZE—————————–2873773965 COMP-USER-DATA
ALLOCATION
SPACE-TYPE——CYLINDER HI-A-RBA——2167603200
SPACE-PRI———–1470 HI-U-RBA——1706065920
SPACE-SEC————518
VOLUME
VOLSER————PRDB09 PHYREC-SIZE——–12288 HI-A-RBA——
DEVTYPE——X’3010200F’ PHYRECS/TRK————4 HI-U-RBA——
VOLFLAG————PRIME TRACKS/CA————-15
EXTENTS:
LOW-CCHH—–X’00110000′ LOW-RBA—————-0 TRACKS——–
HIGH-CCHH—-X’0B8C000E’ HIGH-RBA——2167603199
VOLUME
VOLSER—————–* PHYREC-SIZE————0 HI-A-RBA——
DEVTYPE——X’3010200F’ PHYRECS/TRK————0 HI-U-RBA——
VOLFLAG——–CANDIDATE TRACKS/CA————–0
VOLUME
VOLSER—————–* PHYREC-SIZE————0 HI-A-RBA——
DEVTYPE——X’3010200F’ PHYRECS/TRK————0 HI-U-RBA——
VOLFLAG——–CANDIDATE TRACKS/CA————–0
IDCAMS SYSTEM SERVICES TIME: 10:44:1
LISTING FROM CATALOG — CATALOG.MVSICF1.VPRD001
VOLUME
VOLSER—————–* PHYREC-SIZE————0 HI-A-RBA——
DEVTYPE——X’3010200F’ PHYRECS/TRK————0 HI-U-RBA——
VOLFLAG——–CANDIDATE TRACKS/CA————–0
INDEX —— KCI01.DMNSNDSK.DAKMSTR.INDEX
HISTORY
DATASET-OWNER—–(NULL) CREATION——–2007.047
RELEASE—————-2 EXPIRATION——0000.000
PROTECTION-PSWD—–(NULL) RACF—————-(NO)
ASSOCIATIONS
CLUSTER–KCI01.DMNSNDSK.DAKMSTR
ATTRIBUTES
KEYLEN—————-11 AVGLRECL—————0 BUFSPACE——
RKP——————–0 MAXLRECL————2041 EXCPEXIT——
SHROPTNS(2,3) SPEED UNIQUE NOERASE NOWRITECHK
REUSE EXTENDED EXT-ADDR
STATISTICS
REC-TOTAL———–2325 SPLITS-CI————–0 EXCPS———
REC-DELETED————0 SPLITS-CA————–0 EXTENTS——-
REC-INSERTED———–0 FREESPACE-%CI———-0 SYSTEM-TIMESTA
REC-INSERTED———–0 FREESPACE-%CI———-0 SYSTEM-TIMESTA
REC-UPDATED————0 FREESPACE-%CA———-0 X’C7199A0
REC-RETRIEVED———-0 FREESPC———–442368
ALLOCATION
SPACE-TYPE———TRACK HI-A-RBA———5203968
SPACE-PRI————-71 HI-U-RBA———4761600
SPACE-SEC————-25
VOLUME
VOLSER————PRDB10 PHYREC-SIZE———2048 HI-A-RBA——
DEVTYPE——X’3010200F’ PHYRECS/TRK———–21 HI-U-RBA——
VOLFLAG————PRIME TRACKS/CA————–1
EXTENTS:
LOW-CCHH—–X’00110000′ LOW-RBA—————-0 TRACKS——–
HIGH-CCHH—-X’00190000′ HIGH-RBA———5203967
VOLUME
VOLUME
VOLSER—————–* PHYREC-SIZE————0 HI-A-RBA——
DEVTYPE——X’3010200F’ PHYRECS/TRK————0 HI-U-RBA——
VOLFLAG——–CANDIDATE TRACKS/CA————–0
VOLUME
VOLSER—————–* PHYREC-SIZE————0 HI-A-RBA——
DEVTYPE——X’3010200F’ PHYRECS/TRK————0 HI-U-RBA——
VOLFLAG——–CANDIDATE TRACKS/CA————–0
VOLUME
VOLSER—————–* PHYREC-SIZE————0 HI-A-RBA——
DEVTYPE——X’3010200F’ PHYRECS/TRK————0 HI-U-RBA——
VOLFLAG——–CANDIDATE TRACKS/CA————–0
– Print details for one cluster file only – (Print details of KCI01.DMNSNDSK.DAKMSTR file in user catalog (CATALOG.MVSICF1.VPRD001)
//LSTDETCL JOB (9999,IPO,10,10),
// ‘OPER’,
// CLASS=A,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// NOTIFY=,
// TIME=1440,
// USER=
//LISTCAT EXEC PGM=IDCAMS,REGION=1024K
//SYSPRINT DD SYSOUT=X
//SYSIN DD *
//LISTCAT EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=X
//SYSTSIN DD *
LISTCAT ENTRIES (‘KCI01.DMNSNDSK.DAKMSTR’) ALL –
CAT(CATALOG.MVSICF1.VPRD001)
For file KCI01.DMNSNDSK.BAKMSTR in CATALOG(CATALOG.MVSICF1.VPRD001) the cluster, data and index detail printed information is the same as above.
– Display details for one cluster file on ISPF screen (Display details of KCI01.DMNSNDSK.DAKMSTR file in user catalog (CATALOG.MVSICF1.VPRD001)
Sign on TSO/ISPF – p.3.4 – Enter KCI01.DMNSNDSK.DAKMSTR
Dsname Level . . . KCI01.DMNSNDSK.DAKMSTR – Press Enter key
Volume serial . .
Write the command listc ent (/) all against the line of KCI01.DMNSNDSK.DAKMSTR in the received display:
listc ent (/) all KCI01.DMNSNDSK.DAKMSTR *VSAM*
KCI01.DMNSNDSK.DAKMSTR.DATA PRDB09+
KCI01.DMNSNDSK.DAKMSTR.INDEX PRDB10+
For file KCI01.DMNSNDSK.BAKMSTR in CATALOG(CATALOG.MVSICF1.VPRD001) the cluster, data and index details displayed information is the same as above.
– Print VGENERAL names (Print all tape volume names of the tape volume system catalog (SYS1.VOLCAT.VGENERAL)
//LSTDETCL JOB (9999,IPO,10,10),
// ‘OPER’,
// CLASS=A,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// NOTIFY=,
// TIME=1440,
// USER=
//LISTCAT EXEC PGM=IDCAMS,REGION=1024K
//SYSPRINT DD SYSOUT=X
//SYSIN DD *
LISTCAT NAMES –
CAT(SYS1.VOLCAT.VGENERAL)
For tape catalog SYS1.VOLCAT.VGENERAL the tape volume names are listed as follows:
VOLUME-ENTRY—-VCB0947
VOLUME-ENTRY—-VCB0948
VOLUME-ENTRY—-VCB0949
VOLUME-ENTRY—-VCB0950
VOLUME-ENTRY—-VCB0951
VOLUME-ENTRY—-VCB0952
Case2. Print list of data sets and library members using ISPF and batch job
2.1. Print the scrollable list of files on disk volume using ISPF
TSO/ISPF – p.3.4 –
Volume serial . . PRD001
Enter P on Option ===> P and press Enter key, the message ‘Data set list printed’ will appear.
The listing is printed in the file BCA1MGP.SPF8.LIST (BCA1MGP.SPF0.LIST to BCA1MGP.SPF9.LIST with rotation from 9 to 0) that is opened but not closed (no browsing is possible). The printed file BCA1MGP.SPF8.LIST (after p.3.4 – prd001 – p) may be processed (closed, printed and saved or deleted) in different ways during TSO logoff as follows:
Specify Disposition of List Data Set
List Data Set (BCA1MGP.SPF8.LIST) Disposition:
Process Option . . 1. Print data set and delete – the opened file BCA1MGP.SPF8.LIST is printed with JES job and deleted.
2. Delete data set without printing – the opened file BCA1MGP.SPF8.LIST is deleted without keeping and no job is generated for printing.
3. Keep data set – Same (allocate new/next data set for ISPF print in next session). BCA1MGP.SPF8.LIST has been kept and opened and remain as opened file and can’t be browsed. The next printing will be in the same file (if entered P again) and the next printing is added to BCA1MGP.SPF8.LIST. After Logoff with option 1 – generated job prints all data of BCA1MGP.SPF8.LIST and the file is deleted. If option 4 is choosen, the file is closed and kept.
4. Keep data set – New (allocate new data set in next session) After ISPF print (p.3.4 – prd001 – p – ‘Data set list printed’) BCA1MGP.SPF8.LIST remain opened and pressing 4 on logoff, the following message is received:’BCA1MGP.SPF8.LIST has been kept’. After the next TSO sign on, the file BCA1MGP.SPF8.LIST is closed and may be viewed/browsed. Next file (BCA1MGP.SPF9.LIST) is opened for the next ISPF print (p.3.4 – prd001 – p). This is the best way to have such an ISPF file saved on the next TSO session.
To have printed and deleted the list of files on disk volume PRD001 (BCA1MGP.SPF8.LIST), enter 1:
Process Option . . . . 1. Print data set and delete
Press ENTER key to complete ISPF termination.
Enter END command to return to the primary option menu.
Command ===> END – if END command is entered – ISPF main menu appears.
After pressing Enter key a suffix character is required and should be entered (such as J). The following BCA1MGPJ JOB is submitted (user ID with suffix J):
//BCA1MGPJ JOB 0711,
// BCA1MGP, **JOB STATEMENT GENERATED BY SUBMIT**
// NOTIFY=BCA1MGP,
// MSGLEVEL=(1,1)
//* JCL TO PRINT AND DELETE ISPF LIST DATASET
//PRINTLST EXEC PGM=IEBGENER
//SYSUT1 DD DSN=BCA1MGP.SPF8.LIST,
// DISP=(OLD,DELETE,KEEP)
//SYSUT2 DD SYSOUT=(3),
// DCB=(BCA1MGP.SPF8.LIST)
//SYSPRINT DD DUMMY
//SYSIN DD DUMMY
After TSO logoff and entering the new TSO session the job BCA1MGPJ appears as executed and the file BCA1MGP.SPF8.LIST is deleted. The job BCA1MGPJ listing may be viewed in ISPF – sd.st by – ? BCA1MGPJ – ‘SYSUT2 PRINTLST 101 BCA1MGP 3 LOCAL 43’ as follows:
LISTING OF DATA SETS
VOLUME – PRD001 UNIT – 3390
VOLUME DATA: VTOC DATA: FREE SPACE: TRACKS
TRACKS: 50,085 TRACKS: 195 SIZE: 10,729
%USED: 78 %USED: 1 LARGEST: 4,380
TRKS/CYLS: 15 FREE DSCBS: 9,724
FREE EXTENTS: 6
DATA SET NAME VOLUME ORG RECFM LRECL
——————————————————————————-
CATALOG.MVSICF1.VPRD001 PRD001 VS ? ?
CATALOG.MVSICF1.VPRD001.CATINDEX PRD001 VS ? ?
KCI01.CARDS.CREDLINE.PYTINMAN.DATA PRD001 VS ? ?
KCI01.DMNSNDSK.DRIEXWK.INDEX PRD001 VS ? ?
KCI01.DMNSNDSK.DWIPLAM.X2007085 PRD001 PS FB 140
KCI01.DMNSNDSK.DWIPLAM.X2007087 PRD001 PS FB 140
KCI01.DMNSNDSK.DWIPLAM.X2007093 PRD001 PS FB 140
KCI01.DMNSNDSK.EFIBFW.DATA PRD001 VS ? ?
KCI01.DMNSNDSK.EFIBFX0.DATA PRD001 VS ? ?
KCI01.DMNSNDSK.EFIBFX1.DATA PRD001 VS ? ?
KCI01.DMNSNDSK.EFIBFX3.DATA PRD001 VS ? ?
KCI01.DMNSNDSK.EFIBFX7.DATA PRD001 VS ? ?
KCI01.DMNSNDSK.EFIPRTS.DATA PRD001 VS ? ?
KCI01.DMNSNDSK.IMAHSTR.DATA PRD001 VS ? ?
KCI01.DMNSNDSK.IMAHSTR.INDEX PRD001 VS ? ?
KCI01.DMNSNDSK.KRIMS17.DATA PRD001 VS ? ?
KCI01.DMNSNTAP.MODEL.DCB PRD001 ? 0
KCI01.DMNSNTAP.XXXXXXXX PRD001 ? 0
KCI01.DTP.MODEL.DCB PRD001 PS U 0
KCI01.DTP.XXXXXXXX PRD001 PS U 0
KCI01.LIB.PROD.LOAD PRD001 PO U 0
KCI01.LIB.PROD.LOAD1 PRD001 PO U 0
SYS1.VTOCIX.PRD001 PRD001 PS F 2048
SYS1.VVDS.VPRD001 PRD001 VS ? ?
If by mistake during TSO logoff END is entered on the next line:
Job statement information: (Required for system printer)
===> END
the generated job (with . sysut1 dd dsn=BCA1MGP.SPF8.LIST) will have this END added after the last JOB parameter and the job will not be executed but will finish with ‘JCL ERROR’. The file BCA1MGP.SPF8.LIST is kept and closed and may be viewed (browsed) on the next logon with ISPF – p.3.4. This file may be saved, transferred to PC or deleted manually.
2.2. Print list of data sets in scrollable format using ISPF
TSO/ISPF – p.3.4 –
Dsname Level . . . BCA1MGP
Enter
Option ===> P – Print data set list and press Enter key. The message ‘Data set list printed’ will appear.
The scrollable list of data sets of file BCA1MGP is printed in the opened file BCA1MGP.SPF8.LIST. The list file (including file and library names) will be closed, printed and deleted after logoff with option 1:
Specify Disposition of List Data Set
List Data Set (BCA1MGP.SPF8.LIST) Disposition:
Process Option . . . . 1. Print data set and delete
After pressing Enter key a suffix character is required and should be entered (J). The following BCA1MGPJ JOB is submitted (user ID with suffix J):
//BCA1MGPJ JOB 0711,
// BCA1MGP, **JOB STATEMENT GENERATED BY SUBMIT**
// NOTIFY=BCA1MGP,
// MSGLEVEL=(1,1)
//* JCL TO PRINT AND DELETE ISPF LIST DATASET
//PRINTLST EXEC PGM=IEBGENER
//SYSUT1 DD DSN=BCA1MGP.SPF8.LIST,
// DISP=(OLD,DELETE,KEEP)
//SYSUT2 DD SYSOUT=(3),
// DCB=(BCA1MGP.SPF8.LIST)
//SYSPRINT DD DUMMY
//SYSIN DD DUMMY
TSO is logged off and on the next TSO session the job BCA1MGPJ is printed and the file BCA1MGP.SPF8.LIST is deleted. The job listing may be viewed in ISPF – sd.st by – ? BCA1MGPJ – ‘SYSUT2 PRINTLST 101 BCA1MGP 3 LOCAL 43’ or in ISPF – sd.o – with ‘s BCA1MGPJ JOB01409 BCA1MGP 144 3 STD LOCAL 43’ as follows:
Listing of Data Sets Beginning with BCA1MGP
DATA SET NAME VOLUME ORG RECFM LRECL
——————————————————————————-
BCA1MGP *ALIAS
BCA1MGP.CKPR.SDST TSOC02 PS VBA 240
BCA1MGP.DITPROF TSOC01 PS FB 80
BCA1MGP.HCD.MSGLOG TSOC01 PS FB 133
BCA1MGP.HCD.TERM TSOC01 PS FB 80
BCA1MGP.HCD.TRACE TSOC02 PS FB 80
BCA1MGP.ISPF.ISPPROF TSOC03 PO FB 80
BCA1MGP.JCL.RESDBCK0 TSOC01 PS VBA 240
BCA1MGP.JCL.RESDBCK0.JESYSMSG TSOC02 PS VBA 240
BCA1MGP.JCL.ROZKA TSOC03 PS VBA 240
BCA1MGP.JCL.ROZKA1 TSOC02 PS VBA 240
BCA1MGP.KCI05.ACCR1 TSOC02 PS F 121
BCA1MGP.KCI07.ACCRR TSOC02 PS F 121
BCA1MGP.LISTCAT TSOC02 PS VBA 125
BCA1MGP.MILENA TSOC02 PS VB 80
BCA1MGP.MILENA.EXEC TSOC01 PO-E FB 80
BCA1MGP.MILENA.MILENA TSOC01 PS FB 80
BCA1MGP.MIMI *VSAM* VS ?
BCA1MGP.MIMI.DATA TSOC03 VS ? ?
BCA1MGP.MIMI.TXT TSOC01 PS VB 1024
BCA1MGP.PRINT01.KCI01.ALTNEW1 TSOC03 PS VB 256
BCA1MGP.PRINT01.SUFG TSOC01 PS VBA 240
BCA1MGP.REPORT.JCL TSOC02 PO FB 80
BCA1MGP.REPORT.LIB TSOC01 PO FB 80
BCA1MGP.RMFZOS12.ADMGDF TSOC01 PO FB 400
BCA1MGP.RMFZOS12.ISPTABLE TSOC01 PO FB 80
BCA1MGP.STEF.DASD0707 TSOC01 PS VB 80
BCA1MGP.STEF.JCL TSOC02 PO FB 80
BCA1MGP.STEF.JCL1 TSOC01 PO FB 80
BCA1MGP.STEF.JCL1.IMPCI1V TSOC03 PS VBA 125
BCA1MGP.STEF.JCL1.IMPCI2 TSOC01 PS FB 80
BCA1MGP.STEF.JCL2 TSOC03 PO FB 80
BCA1MGP.STEF.JCL6 TSOC03 PO FB 80
BCA1MGP.STEF.JCL7 TSOC01 PO VB 256
BCA1MGP.STEF.JCL8 TSOC01 PO-E FB 80
BCA1MGP.STEF.JCLBKPT TSOC01 PS VBA 240
BCA1MGP.STEF.LOAD TSOC01 PO U 0
BCA1MGP.SYSLOG.SDST TSOC02 PS VBA 240
BCA1MGP.VTOCPRD1 TSOC01 PS FBA 121
BCA1MGP.WLM.SAVE01 TSOC01 PO FB 80
BCA1MGP.ZOS140.MILENA TSOC01 PO-E FB 80
2.3. Print the scrollable list of members in a library using ISPF
TSO/ISPF – p.3.4 –
Dsname Level . . . BC2A.ZOS140.OPER.LIB – press Enter key
b BC2A.ZOS140.OPER.LIB BC2MCC – Enter ‘b ’ and press Enter key
Menu Functions Confirm Utilities Help
BROWSE BC2A.ZOS140.OPER.LIB Row 00001 of 00491
Name Prompt Size Created Changed ID
_________ $DOC
_________ ALT06021 34 2005/09/12 2011/05/03 18:04:30 BCA1MGP
_________ ALT06022 34 2005/09/12 2011/05/03 18:05:03 BCA1MGP
_________ ALT07021 34 2005/09/12 2011/05/03 17:53:27 BCA1MGP
_________ ALT07022 34 2005/09/12 2011/05/03 17:54:33 BCA1MGP
_________ ALTERCI1 34 2005/07/08 2006/01/09 13:47:04 BCA1VDT
_________ ALTERCI2 34 2005/07/08 2006/01/09 13:49:38 BCA1VDT
_________ ALTEREP 58 2005/07/08 2010/06/25 16:42:35 BCA1MGP
_________ ALTR001 34 2005/09/12 2007/07/09 11:39:55 BCA1MGP
On the received screen choose the field Functions and press Enter key to receive the following on the screen:
1 1. Save List
2. Change Colors
3. Initial Sort View…
Choose 1 and press Enter key – the message ‘List saved’ is displayed on the upper BROWSE line as follows:
BROWSE BC2A.ZOS140.OPER.LIB List saved
The list of library members in library BC2A.ZOS140.OPER.LIB is printed on the opened file BCA1MGP.SPF8.LIST that is not closed. The file BCA1MGP.SPF8.LIST will be closed and kept after logoff with option 4. When next browsing the closed file BCA1MGP.SPF8.LIST the following list is printed:
DATASET: BC2A.ZOS140.OPER.LIB
MEMBER TTR VERS.MOD CREATION DATE AND TIME CURRENT
NAME (HEX) LEVEL DATE LAST MODIFIED NO. LINE
$DOC 000404
ALT06021 00DC01 01.17 2005/09/12 2011/05/03 18:04:30 34
ALT06022 00DC03 01.29 2005/09/12 2011/05/03 18:05:03 34
ALT07021 00DB11 01.16 2005/09/12 2011/05/03 17:53:27 34
ALT07022 00DB13 01.28 2005/09/12 2011/05/03 17:54:33 34
ALTERCI1 00110A 01.07 2005/07/08 2006/01/09 13:47:04 34
ALTERCI2 00110C 01.12 2005/07/08 2006/01/09 13:49:38 34
ALTEREP 00BA04 01.10 2005/07/08 2010/06/25 16:42:35 58
ALTR001 005612 01.10 2005/09/12 2007/07/09 11:39:55 34
2.4. Print the members in a library using ISPF
TSO/ISPF – p.3.4 –
Dsname Level . . . BC2A.ZOS140.OPER.LIB – press Enter key
b BC2A.ZOS140.OPER.LIB BC2MCC – Enter ‘b ’ and press Enter key
Menu Functions Confirm Utilities Help
BROWSE BC2A.ZOS140.OPER.LIB Row 00001 of 00491
Name Prompt Size Created Changed ID
_________ $DOC
_________ ALT06021 34 2005/09/12 2011/05/03 18:04:30 BCA1MGP
_________ ALT06022 34 2005/09/12 2011/05/03 18:05:03 BCA1MGP
_________ ALT07021 34 2005/09/12 2011/05/03 17:53:27 BCA1MGP
_________ ALT07022 34 2005/09/12 2011/05/03 17:54:33 BCA1MGP
_________ ALTERCI1 34 2005/07/08 2006/01/09 13:47:04 BCA1VDT
_________ ALTERCI2 34 2005/07/08 2006/01/09 13:49:38 BCA1VDT
_________ ALTEREP 58 2005/07/08 2010/06/25 16:42:35 BCA1MGP
_________ ALTR001 34 2005/09/12 2007/07/09 11:39:55 BCA1MGP
If choose member ALT06021 enter ‘p’ – message *Printed is displayed as follows:
Name Prompt
__p______ ALT06021 *Printed
The member ALT06021 in library BC2A.ZOS140.OPER.LIB is printed in the opened file BCA1MGP.SPF8.LIST that is not closed. The file BCA1MGP.SPF8.LIST will be closed and kept after logoff if choose option 4. When browsing file BCA1MGP.SPF8.LIST the following member is printed:
DATASET: BC2A.ZOS140.OPER.LIB DATE: 12
MEMBER: ALT06021 LEVEL: 01.17 TIME: 16
USERID: BCA1MGP PAGE: 01
START
COL —-+—-1—-+—-2—-+—-3—-+—-4—-+—-5—-+—-6—-+—-7—-
1 //ALTO6O21 JOB (9999,IPO,10,10),
1 // ‘OPER’,
1 // ,
1 // MSGCLASS=X,
1 // MSGLEVEL=(1,1),USER=,
1 // TIME=1440
1 //* /*JCTRL*/
1 //*
1 //*
1 //* LIB: CORNERST.OS390210.DASD.UTILITY.LIB(ALTRVSAM)
1 //* DOC: THIS IS JOB WILL RENAME VSAM FILES
1 //*
1 //ALTERTD EXEC PGM=IDCAMS,REGION=512K
1 //SYSPRINT DD SYSOUT=*
1 //SYSIN DD *
3 ALTER KCI02.D290602.CIKAREL –
9 NEWNAME(KCI02.DMNSNDSK.CIKAREL)
3 ALTER KCI02.D290602.CIKAREL.DATA –
9 NEWNAME(KCI02.DMNSNDSK.CIKAREL.DATA)
3 ALTER KCI02.D290602.CIKAREL.INDEX –
9 NEWNAME(KCI02.DMNSNDSK.CIKAREL.INDEX)
3 ALTER KCI02.D290602.CIKCREL –
9 NEWNAME(KCI02.DMNSNDSK.CIKCREL)
3 ALTER KCI02.D290602.CIKCREL.DATA –
9 NEWNAME(KCI02.DMNSNDSK.CIKCREL.DATA)
3 ALTER KCI02.D290602.CIKCREL.INDEX –
9 NEWNAME(KCI02.DMNSNDSK.CIKCREL.INDEX)
3 ALTER KCI02.D290602.CIKMSTR –
9 NEWNAME(KCI02.DMNSNDSK.CIKMSTR)
3 ALTER KCI02.D290602.CIKMSTR.DATA –
9 NEWNAME(KCI02.DMNSNDSK.CIKMSTR.DATA)
3 ALTER KCI02.D290602.CIKMSTR.INDEX –
9 NEWNAME(KCI02.DMNSNDSK.CIKMSTR.INDEX)
1 /*
2.5. Print a scrollable file from rmf report using ISPF
TSO/ISPF – p.6 – rmf – 2 – 2 – 3:
RMF – DEV Device Activity Line 1 of 712
CPU= 15/ 14 UIC=2540 PR= 0 System= BC2A Total
17:15:41 I=84% DEV ACTV RESP IOSQ -DELAY- PEND DISC CONN %D %D
STG GRP VOLSER NUM PAV LCU RATE TIME TIME CMR DB TIME TIME TIME UT RV
SGPRODDS PRD001 0500 000A 0.007 9.0 0.0 0.2 0.0 0.2 0.0 8.9 0 0
SGPRODDS PRD004 0501 000A 0.001 0.3 0.0 0.1 0.0 0.1 0.0 0.3 0 0
SGPRODDS PRD007 0502 000A 0.001 0.3 0.0 0.1 0.0 0.1 0.0 0.3 0 0
SGPRODDS PRD010 0503 000A 0.001 0.3 0.0 0.1 0.0 0.1 0.0 0.3 0 0
SGPRODDS PRD013 0504 000A 0.001 0.5 0.0 0.1 0.0 0.3 0.0 0.3 0 0
SGPRODDS PRD016 0505 000A 0.001 0.3 0.0 0.1 0.0 0.1 0.0 0.3 0 0
SGPRODDS PRD019 0506 000A 0.001 0.3 0.0 0.1 0.0 0.1 0.0 0.3 0 0
SGPRODDS PRD022 0507 000A 0.001 0.3 0.0 0.1 0.0 0.1 0.0 0.3 0 0
SGPRODDS PRD028 0509 000A 0.001 0.3 0.0 0.1 0.0 0.1 0.0 0.3 0 0
SGPRODDS PRD031 050A 000A 0.001 0.3 0.0 0.1 0.0 0.1 0.0 0.3 0 0
SGPRODDS PRD034 050B 000A 0.001 0.5 0.0 0.1 0.0 0.3 0.0 0.3 0 0
SGPRODDS PRD034 050B 000A 0.001 0.5 0.0 0.1 0.0 0.3 0.0 0.3 0 0
Command ===> h Scroll ===> CSR
On Command ===> enter: H – (HARDCOPY ON) – press Enter key .
On the top line the following appears and means that Hardcopy file is opened:
Hardcopy CPU= 24/ 22 UIC=2540 PR= 0 System= BC2A Total
Press Enter key to print the listing of the menu ‘RMF – DEV Device Activity’.
On Command ===> enter: H OFF – (HARDCOPY OFF) – press Enter key .
The rmf report is printed in the opened SYSOUT file of the job with the user ID – BCA1MGP (sd.o – BCA1MGP TSU03007 BCA1MGP 144 A STD LOCAL 745). After logoff and the new ‘logon bca1mgp’ on the closed job with the user ID – BCA1MGP the following list is printed (sd.st):
? BCA1MGP TSU03007 BCA1MGP 1 PRINT 4816 –
S RMFDMTSO $SYSADM $SYSADM 103 BCA1MGP A LOCAL 745:
RMF MONITOR II HARDCOPY LOG
SESSION NAME TSO
z/OS V1R4 SYSTEM ID BC2A DATE 05/09/2012
RPT VERSION V1R2 RMF TIME 17.00.28
++++++++++ DASD +++++++ TOTAL MODE +++++++++++++++
++ CPU= 10/ 7 UIC=2540 PR= 0 SYSTEM=BC2A +++++++++++++++++++++++++
17:00:32 I=83% DEV ACTV RESP IOSQ -DELAY- PEND DISC CONN %D %D
STG GRP VOLSER NUM PAV LCU RATE TIME TIME CMR DB TIME TIME TIME UT RV
SGPRODDS PRD001 0500 000A 0.051 1.9 0.0 0.1 0.0 0.2 0.0 1.8 0 0
SGPRODDS PRD004 0501 000A 0.001 0.3 0.0 0.1 0.0 0.1 0.0 0.3 0 0
SGPRODDS PRD007 0502 000A 0.001 0.3 0.0 0.1 0.0 0.1 0.0 0.3 0 0
SGPRODDS PRD010 0503 000A 0.001 0.3 0.0 0.1 0.0 0.1 0.0 0.3 0 0
SGPRODDS PRD013 0504 000A 0.001 0.3 0.0 0.1 0.0 0.1 0.0 0.3 0 0
– – – – – – – – – – – – – – – – – – – – – – – – – – – – – – – – – – – – –
SGHFSDS BC1H13 053A 000A 0.001 0.3 0.0 0.1 0.0 0.1 0.0 0.3 0 0
TSO300 053B 000A 0.000 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 0
MNTL03 053C 000A 0.000 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 0
16:43:52 I=72% DEV ACTV RESP IOSQ -DELAY- PEND DISC CONN %D %D
STG GRP VOLSER NUM PAV LCU RATE TIME TIME CMR DB TIME TIME TIME UT RV
WRK300 053D 000A 0.000 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 0
OAM301 053E 000A 0.000 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0 0
SGOSASF OSA301 053F 000A 0.001 0.3 0.0 0.1 0.0 0.1 0.0 0.3 0 0
The sysout file RMFDMTSO should be prined as print01.rmf (with print d – as print01.rmf – print – printclose) and edited to delete the unwanted lines in bold.
This file print01.rmf is very usefull to have all disk volume names and physical addresses in a table for information and processing reports.
2.6. Copy ISPF file with batch job to another disk ALIAS for printing files
The file BCA1MGP.SPF8.LIST is copied as file PRINT01.RMF with job FCOPFILE:
//FCOPFILE JOB (,0100),CLASS=R,MSGCLASS=R
//STEP04 EXEC PGM=ADRDSSU,REGION=0M,TIME=1440 PARM=’TYPRUN=NO
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
COPY DATASET(INC( –
BCA1MGP.SPF1.LIST –
)) –
RENAMEU(BCA1MGP.SPF1.LIST –
PRINT01.RMF ) –
OPT(4) –
SHARE –
ALLEXCP –
ALLDATA(*) –
CATALOG
/*
2.7. Print a file to JES output with batch job
If the printed and copied file PRINT01.RMF has to be transmitted to JES sysout output, submit the following job:
//PRNTFILE JOB (,0100),CLASS=R,MSGCLASS=R
//* JCL TO PRINT AND DELETE ISPF LIST DATASET
//PRINTLST EXEC PGM=IEBGENER
//SYSUT1 DD DSN=print01.rmf,
// DISP=(OLD,,KEEP)
//SYSUT2 DD SYSOUT=*
//SYSPRINT DD DUMMY
//SYSIN DD DUMMY
The result of sysout may be viewed with ? PRNTFILE as ‘SYSUT2 PRINTLST 101 BCA1MGP RR LOCAL’. 27
Case3. List of VTOC (printing/display VTOC information) using ISPF and batch job
3.1. Display VTOC information on disk volume using ISPF
TSO/ISPF – p.3.4 – Enter Volume and Option information:
Volume serial . . PRD001
Option ===> V – Display only VTOC information on the screen
After entering on Option ===> V and pressing Enter key, the following display appears on the screen for volume PRD001:
____________________ VTOC Summary Information ____________________________
Volume . : PRD001
Unit . . : 3390
Volume Data VTOC Data Free Space: Tracks Cyls
Tracks . : 50,085 Tracks . : 195 Size . . : 10,729 714
%Used . : 78 %Used . . : 1 Largest . : 4,380 292
Trks/Cyls: 15 Free DSCBS: 9,724
Free Extents . : 6
3.2. Print VTOC information on disk volume using ISPF
TSO/ISPF – p.3.4 –
Volume serial . . PRD001
Enter either:
Option ===> PV – Print VTOC information
After entering on Option ===> PV and pressing Enter key, the message ‘VTOC information printed’ appears.
The VTOC of volume PRD001 is printed in the file BCA1MGP.SPF8.LIST (BCA1MGP.SPF0.LIST to BCA1MGP.SPF9.LIST with rotation from 9 to 0) that is opened but not closed (no browsing is possible because ‘Data set is open’). The file will be closed, printed and saved or deleted after TSO logoff.
To print and delete BCA1MGP.SPF8.LIST, enter option 1.
Process Option . . . . 1. Print data set and delete
Press ENTER key to complete ISPF termination. – pressing only the Enter key to continue.
After Enter key a suffix character is required and should be entered (such as J). The BCA1MGPJ JOB is submitted (user ID with suffix J) and executed:
IKJ56700A ENTER JOBNAME CHARACTER(S) –
j
IKJ56250I JOB BCA1MGPJ(JOB01567) SUBMITTED
BCA1MGP.SPF2.LIST will be printed/deleted by job
The following job is submitted:
//BCA1MGPJ JOB 0711,
// BCA1MGP, **JOB STATEMENT GENERATED BY SUBMIT**
// NOTIFY=BCA1MGP,
// MSGLEVEL=(1,1)
//* JCL TO PRINT AND DELETE ISPF LIST DATASET
//PRINTLST EXEC PGM=IEBGENER
//SYSUT1 DD DSN=BCA1MGP.SPF8.LIST,
// DISP=(OLD,DELETE,KEEP)
//SYSUT2 DD SYSOUT=(3),
// DCB=(BCA1MGP.SPF8.LIST)
//SYSPRINT DD DUMMY
//SYSIN DD DUMMY
READY – After Enter key pressed the following messages are received:
13.54.23 JOB01567 $HASP165 BCA1MGPJ ENDED AT BC2AJES MAXCC=0 CN(INTERNAL)
READY – Please signon to TSO.
After signon to TSO/ISPF – look at the printed VTOC file BCA1MGP.SPF8.LIST with: sd.st – ? BCA1MGPJ – s ‘SYSUT2 PRINTLST 101 BCA1MGP 3 LOCAL 43’ as follows:
Volume Information
VOLUME – PRD001 UNIT – 3390
Volume Data VTOC Data Free Space: Tracks Cyls
Tracks . : 50,085 Tracks . : 195 Size . . : 10,729 714
%Used . : 78 %Used . . : 1 Largest . : 4,380 292
Trks/Cyls: 15 Free DSCBS: 9,724
Free Extents . : 6
3.3. List of VTOC on disk volume using IEHLIST in JES batch job
– Print all file names in VTOC of disk volume PRD001 on SYSOUT=X with job LISTVTIH:
//LISTVTIH JOB (9999,IPO,10,10),
// ‘OPER’,
// CLASS=A,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// NOTIFY=,
// TIME=1440,
// USER=
//LISTVT EXEC PGM=IEHLIST,REGION=1024K
//SYSPRINT DD SYSOUT=X
//PRD001 DD DISP=OLD,VOL=SER=PRD001,UNIT=3390
//SYSIN DD *
LISTVTOC VOL=3390=PRD001
The result of JES SYSOUT=X in SYSPRINT LISTVT is as follows:
SYSTEMS SUPPORT UTILITIES—IEHLIST
DATE: 2012.114 TIME: 14.50.45
CONTENTS OF VTOC ON VOL PRD001 <THIS IS AN SMS MANAGED VOLUME>
THERE IS A 1 LEVEL VTOC INDEX
DATA SETS ARE LISTED IN ALPHANUMERIC ORDER
—————-DATA SET NAME————— CREATED DATE.EXP FILE TYPE SMS
CATALOG.MVSICF1.VPRD001 2002.015 00.000 VSAM S
CATALOG.MVSICF1.VPRD001.CATINDEX 2002.015 00.000 VSAM S
KCI01.CARDS.CREDLINE.PYTINMAN.DATA 2006.155 00.000 VSAM S
KCI01.DMNSNDSK.DRIEXWK.INDEX 2003.313 00.000 VSAM S
KCI01.DMNSNDSK.DWIPLAM.X2007085 2007.100 00.000 SEQUENTIAL S
KCI01.DMNSNDSK.DWIPLAM.X2007087 2007.100 00.000 SEQUENTIAL S
KCI01.DMNSNDSK.DWIPLAM.X2007093 2007.127 00.000 SEQUENTIAL S
KCI01.DMNSNDSK.EFIBFW.DATA 2003.312 00.000 VSAM S
KCI01.DMNSNDSK.EFIBFX0.DATA 2003.312 00.000 VSAM S
KCI01.DMNSNDSK.EFIBFX1.DATA 2003.312 00.000 VSAM S
KCI01.DMNSNDSK.EFIBFX3.DATA 2003.312 00.000 VSAM S
KCI01.DMNSNDSK.EFIBFX7.DATA 2003.312 00.000 VSAM S
KCI01.DMNSNDSK.EFIPRTS.DATA 2004.099 2099.365 VSAM S
KCI01.DMNSNDSK.IMAHSTR.DATA 2003.312 00.000 VSAM S
KCI01.DMNSNDSK.IMAHSTR.INDEX 2003.312 00.000 VSAM S
KCI01.DMNSNDSK.KRIMS17.DATA 2004.322 2099.365 VSAM S
KCI01.DMNSNTAP.MODEL.DCB 2002.019 00.000 NOT DEFINED S
KCI01.DMNSNTAP.XXXXXXXX 2002.017 00.000 NOT DEFINED S
KCI01.DTP.MODEL.DCB 2003.176 00.000 SEQUENTIAL S
KCI01.DTP.XXXXXXXX 2003.176 00.000 SEQUENTIAL S
KCI01.LIB.PROD.LOAD 1997.289 00.000 PARTITIONED S
KCI01.LIB.PROD.LOAD1 2012.026 00.000 PARTITIONED S
SYS1.VTOCIX.PRD001 2002.014 00.000 SEQUENTIAL SU
SYS1.VVDS.VPRD001 2002.015 00.000 VSAM S
THERE ARE 714 EMPTY CYLINDERS PLUS 19 EMPTY TRACKS ON THIS VOLUME
THERE ARE 9724 BLANK DSCBS IN THE VTOC ON THIS VOLUME
THERE ARE 937 UNALLOCATED VIRS IN THE INDEX
The information is slightly different in details from item ‘2.1. Print the scrollable list of files on disk volume using ISPF’ as follows:
KCI01.DMNSNDSK.DWIPLAM.X2007087 PRD001 PS FB 140 – with ISPF (list of files on disk volume)
KCI01.DMNSNDSK.DWIPLAM.X2007087 2007.100 00.000 SEQUENTIAL S – with IEHLIST (print all file names in VTOC of disk volume)
– Print all file names in VTOC of disk volume PRD001 on a file (BCA1MGP.VTOCPRD1) with job LISFVTIH
//LISFVTIH JOB (9999,IPO,10,10),
// ‘OPER’,
// ,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// NOTIFY=,
// TIME=1440,
// USER=
//LISTVT EXEC PGM=IEHLIST,REGION=1024K
//SYSPRINT DD DISP=(,CATLG),DSN=BCA1MGP.VTOCPRD1,
// SPACE=(TRK,10),UNIT=SYSDA
//PRD001 DD DISP=OLD,VOL=SER=PRD001,UNIT=3390
//SYSIN DD *
LISTVTOC VOL=3390=PRD001
The same VTOC information is printed on the file BCA1MGP.VTOCPRD1 as follows:
********************************* Top of Data **********************************
SYSTEMS SUPPORT UTILITIES—IEHLIST
DATE: 2012.114 TIME: 15.30.54
CONTENTS OF VTOC ON VOL PRD001 <THIS IS AN SMS MANAGED VOLUME>
THERE IS A 1 LEVEL VTOC INDEX
DATA SETS ARE LISTED IN ALPHANUMERIC ORDER
—————-DATA SET NAME————— CREATED DATE.EXP FILE TYPE SMS
CATALOG.MVSICF1.VPRD001 2002.015 00.000 VSAM S
CATALOG.MVSICF1.VPRD001.CATINDEX 2002.015 00.000 VSAM S
KCI01.CARDS.CREDLINE.PYTINMAN.DATA 2006.155 00.000 VSAM S
KCI01.DMNSNDSK.DRIEXWK.INDEX 2003.313 00.000 VSAM S
KCI01.DMNSNDSK.DWIPLAM.X2007085 2007.100 00.000 SEQUENTIAL S
CATALOG.MVSICF1.VPRD001 2002.015 00.000 VSAM
CATALOG.MVSICF1.VPRD001.CATINDEX 2002.015 00.000 VSAM
KCI01.CARDS.CREDLINE.PYTINMAN.DATA 2006.155 00.000 VSAM
KCI01.DMNSNDSK.DRIEXWK.INDEX 2003.313 00.000 VSAM
KCI01.DMNSNDSK.DWIPLAM.X2007085 2007.100 00.000 SEQUENTIAL
KCI01.DMNSNDSK.DWIPLAM.X2007087 2007.100 00.000 SEQUENTIAL
KCI01.DMNSNDSK.DWIPLAM.X2007093 2007.127 00.000 SEQUENTIAL
KCI01.DMNSNDSK.EFIBFW.DATA 2003.312 00.000 VSAM
KCI01.DMNSNDSK.EFIBFX0.DATA 2003.312 00.000 VSAM S
KCI01.DMNSNDSK.EFIBFX1.DATA 2003.312 00.000 VSAM S
KCI01.DMNSNDSK.EFIBFX3.DATA 2003.312 00.000 VSAM S
KCI01.DMNSNDSK.EFIBFX7.DATA 2003.312 00.000 VSAM S
KCI01.DMNSNDSK.EFIPRTS.DATA 2004.099 2099.365 VSAM S
KCI01.DMNSNDSK.IMAHSTR.DATA 2003.312 00.000 VSAM S
KCI01.DMNSNDSK.IMAHSTR.INDEX 2003.312 00.000 VSAM S
KCI01.DMNSNDSK.KRIMS17.DATA 2004.322 2099.365 VSAM S
KCI01.DMNSNTAP.MODEL.DCB 2002.019 00.000 NOT DEFINED S
KCI01.DMNSNTAP.XXXXXXXX 2002.017 00.000 NOT DEFINED S
KCI01.DTP.MODEL.DCB 2003.176 00.000 SEQUENTIAL S
KCI01.DTP.XXXXXXXX 2003.176 00.000 SEQUENTIAL S
KCI01.LIB.PROD.LOAD 1997.289 00.000 PARTITIONED S
KCI01.LIB.PROD.LOAD1 2012.026 00.000 PARTITIONED S
SYS1.VTOCIX.PRD001 2002.014 00.000 SEQUENTIAL SU
SYS1.VVDS.VPRD001 2002.015 00.000 VSAM S
THERE ARE 714 EMPTY CYLINDERS PLUS 19 EMPTY TRACKS ON THIS VOLUME
THERE ARE 9724 BLANK DSCBS IN THE VTOC ON THIS VOLUME
THERE ARE 937 UNALLOCATED VIRS IN THE INDEX
– Print all file names in VTOC of disk volume PRD001 formatted on SYSOUT=X with job LSFMVTIH:
//LSFMVTIH JOB (9999,IPO,10,10),
// ‘OPER’,
// CLASS=A,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// NOTIFY=,
// TIME=1440,
// USER=
//LISTVT EXEC PGM=IEHLIST,REGION=1024K
//SYSPRINT DD SYSOUT=X
//PRD001 DD DISP=OLD,VOL=SER=PRD001,UNIT=3390
//SYSIN DD *
LISTVTOC VOL=3390=PRD001,FORMAT
The result with FORMAT on JES SYSOUT=X – SYSPRINT LISTVT have more VTOC details for volume PRD001 as follows:
SYSTEMS SUPPORT UTILITIES—IEHLIST
DATE: 2012.114 TIME: 15.50.29
CONTENTS OF VTOC ON VOL PRD001 <THIS IS AN SMS MANAGED VOLUME>
THERE IS A 1 LEVEL VTOC INDEX
DATA SETS ARE LISTED IN ALPHANUMERIC ORDER
FORMAT 4 DSCB NO AVAIL/MAX DSCB /MAX DIRECT NO AVAIL NEXT ALT FORMAT 6
VI DSCBS PER TRK BLK PER TRK ALT TRK TRK(C-H ) (C-H-R)
89 9725 50 45 0 0 0
—————DATA SET NAME—————- SER NO SEQNO DATE.CRE DATE.EXP
CATALOG.MVSICF1.VPRD001 PRD001 1 2002.015 00.000
SMS.IND LRECL KEYLEN INITIAL ALLOC 2ND ALLOC EXTEND LAST BLK(T-R-L
S 0 CYLS 0 0 0 58786
EXTENTS NO LOW(C-H) HIGH(C-H)
0 17 0 21 14
—-UNABLE TO CALCULATE EMPTY SPACE.
—————DATA SET NAME—————- SER NO SEQNO DATE.CRE DATE.EXP
CATALOG.MVSICF1.VPRD001.CATINDEX PRD001 1 2002.015 00.000
SMS.IND LRECL KEYLEN INITIAL ALLOC 2ND ALLOC EXTEND LAST BLK(T-R-L
S 0 TRKS CONTIG 0 0 0 58786
EXTENTS NO LOW(C-H) HIGH(C-H)
0 13 11 13 11
—-UNABLE TO CALCULATE EMPTY SPACE.
—————DATA SET NAME—————- SER NO SEQNO DATE.CRE DATE.EXP
KCI01.CARDS.CREDLINE.PYTINMAN.DATA PRD001 1 2006.155 00.000
SMS.IND LRECL KEYLEN INITIAL ALLOC 2ND ALLOC EXTEND LAST BLK(T-R-L
S 0 CYLS 2 0 0 58786
EXTENTS NO LOW(C-H) HIGH(C-H)
0 405 0 408 14
—-UNABLE TO CALCULATE EMPTY SPACE.
……………………………………………………..
……………………………………………………..
SYS1.VTOCIX.PRD001 PRD001 1 2002.014 00.000
SMS.IND LRECL KEYLEN INITIAL ALLOC 2ND ALLOC EXTEND LAST BLK(T-R-L)
SU 2048 TRKS CONTIG 0 44 21 0
EXTENTS NO LOW(C-H) HIGH(C-H)
0 14 0 16 14
—-ON THE ABOVE DATA SET,THERE ARE 0 EMPTY
—————DATA SET NAME—————- SER NO SEQNO DATE.CRE DATE.EXP
SYS1.VVDS.VPRD001 PRD001 1 2002.015 00.000
SMS.IND LRECL KEYLEN INITIAL ALLOC 2ND ALLOC EXTEND LAST BLK(T-R-L)
S 0 TRKS 10 0 0 58786
EXTENTS NO LOW(C-H) HIGH(C-H)
0 13 1 13 10
—-UNABLE TO CALCULATE EMPTY SPACE.
VPSM A = NUMBER OF TRKS IN ADDITION TO FULL CYLS IN THE EXTENT
TRK FULL TRK FULL TRK FULL TRK FULL
ADDR CYLS A ADDR CYLS A ADDR CYLS A ADDR CYLS A
209 0 1 1080 188 0 4511 104 4 6195 20 0
SYSTEMS SUPPORT UTILITIES—IEHLIST
THERE ARE 714 EMPTY CYLINDERS PLUS 19 EMPTY TRACKS ON THIS VOLUME
THERE ARE 9724 BLANK DSCBS IN THE VTOC ON THIS VOLUME
THERE ARE 937 UNALLOCATED VIRS IN THE INDEX
3.4. Ditto online VTOC display using ISPF
Enter TSO/ISPF– DI – 4(disk) – 2(2. DVT – Display VTOC (sorted by name, dates, or extents)) to receive on the screen the following:
— Data Set Name — sorted by NAME —– Ext Begin-end Reltrk,
1…5…10…15…20…25…30…35…40…. seq Cyl-hd Cyl-hd numtrks
*** VTOC EXTENT *** 0 0 1 13 0 1,195
CATALOG.MVSICF1.VPRD001 0 17 0 21 14 255,75
CATALOG.MVSICF1.VPRD001.CATINDEX 0 13 11 13 11 206,1
KCI01.CARDS.CREDLINE.PYTINMAN.DATA 0 405 0 408 14 6075,60
KCI01.DMNSNDSK.DRIEXWK.INDEX 0 260 0 260 8 3900,9
KCI01.DMNSNDSK.DWIPLAM.X2007085 0 409 0 411 14 6135,45
KCI01.DMNSNDSK.DWIPLAM.X2007087 0 433 0 435 14 6495,45
KCI01.DMNSNDSK.DWIPLAM.X2007093 0 412 0 412 14 6180,15
KCI01.DMNSNDSK.EFIBFW.DATA 0 260 9 263 3 3909,40
KCI01.DMNSNDSK.EFIBFX0.DATA 0 263 4 272 8 3949,140
KCI01.DMNSNDSK.EFIBFX1.DATA 0 272 9 281 13 4089,140
KCI01.DMNSNDSK.EFIBFX3.DATA 0 281 14 291 3 4229,140
KCI01.DMNSNDSK.EFIBFX7.DATA 0 291 4 300 8 4369,140
KCI01.DMNSNDSK.EFIPRTS.DATA 0 547 0 3046 14 8205,37500
KCI01.DMNSNDSK.IMAHSTR.DATA 0 13 12 13 12 207,1
KCI01.DMNSNDSK.IMAHSTR.INDEX 0 13 13 13 13 208,1
KCI01.DMNSNDSK.KRIMS17.DATA 0 300 9 300 10 4509,2
KCI01.DMNSNTAP.MODEL.DCB
KCI01.DMNSNTAP.XXXXXXXX 0 546 14 546 14 8204,1
KCI01.DTP.MODEL.DCB
KCI01.DTP.XXXXXXXX
KCI01.LIB.PROD.LOAD 0 22 0 46 14 330,375
KCI01.LIB.PROD.LOAD1 0 47 0 71 14 705,375
SYS1.VTOCIX.PRD001 0 14 0 16 14 210,45
SYS1.VVDS.VPRD001 0 13 1 13 10 196,10
*** FREE EXTENT *** 0 13 14 13 14 209,1
*** FREE EXTENT *** 0 72 0 259 14 1080,2820
*** FREE EXTENT *** 0 300 11 404 14 4511,1564
*** FREE EXTENT *** 0 413 0 432 14 6195,300
*** FREE EXTENT *** 0 436 0 546 13 6540,1664
*** FREE EXTENT *** 0 3047 0 3338 14 45705,4380
3.5. Ditto VTOC printing using batch job
The same VTOC printing may be received by submitting the following job DITTOVT:
//DITTOVT JOB (9999,IPO,10,10),
// ‘OPERATOR’,
// CLASS=I,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// TIME=1440
//*
//LISTVT EXEC PGM=DITTO
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
$$DITTO DVT OUTPUT=SYSPRINT,VOLSER=PRD001
//*
To view the print result enter the following:
? – SYSPRINT LISTVT
DITTO/ESA for MVS
$$DITTO DVT OUTPUT=SYSPRINT,VOLSER=PRD001
DIT1160I Extraneous parameter OUTPUT ignored
* * * * Device 0500, VOLSER=PRD001, 3390 with 3339 cyls, 15 trks/cyl, 58786 byte
— Data Set Name — sorted by NAME —– Ext Begin- end Reltrk,
1…5…10…15…20…25…30…35…40…. seq Cyl-hd Cyl-hd numtrks
*** VTOC EXTENT *** 0 0 1 13 0 1,195
CATALOG.MVSICF1.VPRD001 0 17 0 21 14 255,75
CATALOG.MVSICF1.VPRD001.CATINDEX 0 13 11 13 11 206,1
KCI01.CARDS.CREDLINE.PYTINMAN.DATA 0 405 0 408 14 6075,60
KCI01.DMNSNDSK.DRIEXWK.INDEX 0 260 0 260 8 3900,9
KCI01.DMNSNDSK.DWIPLAM.X2007085 0 409 0 411 14 6135,45
KCI01.DMNSNDSK.DWIPLAM.X2007087 0 433 0 435 14 6495,45
KCI01.DMNSNDSK.DWIPLAM.X2007093 0 412 0 412 14 6180,15
KCI01.DMNSNDSK.EFIBFW.DATA 0 260 9 263 3 3909,40
KCI01.DMNSNDSK.EFIBFX0.DATA 0 263 4 272 8 3949,140
KCI01.DMNSNDSK.EFIBFX1.DATA 0 272 9 281 13 4089,140
KCI01.DMNSNDSK.EFIBFX3.DATA 0 281 14 291 3 4229,140
KCI01.DMNSNDSK.EFIBFX7.DATA 0 291 4 300 8 4369,140
KCI01.DMNSNDSK.EFIPRTS.DATA 0 547 0 3046 14 8205,37500
KCI01.DMNSNDSK.IMAHSTR.DATA 0 13 12 13 12 207,1
KCI01.DMNSNDSK.IMAHSTR.INDEX 0 13 13 13 13 208,1
KCI01.DMNSNDSK.KRIMS17.DATA 0 300 9 300 10 4509,2
KCI01.DMNSNTAP.MODEL.DCB
KCI01.DMNSNTAP.XXXXXXXX 0 546 14 546 14 8204,1
KCI01.DTP.MODEL.DCB
KCI01.DTP.XXXXXXXX
KCI01.LIB.PROD.LOAD 0 22 0 46 14 330,375
KCI01.LIB.PROD.LOAD1 0 47 0 71 14 705,375
SYS1.VTOCIX.PRD001 0 14 0 16 14 210,45
SYS1.VVDS.VPRD001 0 13 1 13 10 196,10
*** FREE EXTENT *** 0 13 14 13 14 209,1
*** FREE EXTENT *** 0 72 0 259 14 1080,2820
*** FREE EXTENT *** 0 300 11 404 14 4511,1564
*** FREE EXTENT *** 0 413 0 432 14 6195,300
*** FREE EXTENT *** 0 436 0 546 13 6540,1664
*** FREE EXTENT *** 0 3047 0 3338 14 45705,4380
*** This volume is currently 78 percent full with 10729 tracks available
31 record(s) printed
Case 4. Build user and tape catalogs using batch job
4.1. Initialize disk volume for SMS
Before building User catalog on disk volume it has to be initialized for SMS use with parameter STORAGEGROUP. The following job will initialize a volume ARH301 and prepare it for User catalog definition:
//INITSM JOB (9999,IPO,10,10), …
//S1 EXEC PGM=ICKDSF,REGION=3072K
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
INIT UNITADDRESS(0659) VOLID(ARH301) VTOC(0,1,195) –
INDEX(14,0,45) NOVALIDATE STORAGEGROUP VERIFY(SP0659)
/*
This is explained in article Mainframe Disk utilities, Case 2. Add disk and storage group to DFSMS, 2.3. Initialize the disk.
4.2. Define VVDS for SMS-managed data sets on the volume
The VVDS (VSAM Volume Data Set) contains VSAM volume records (VVRs) that hold information about VSAM data sets residing on the volume and also contains non-VSAM volume records (NVRs) for SMS-managed non-VSAM data sets on the volume. The following job will define SYS1.VVDS.VARH301 on initialized volume ARH301.
//DEFVVDS JOB (), …
//IDCAMS EXEC PGM=IDCAMS,REGION=1024K
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER(NAME(SYS1.VVDS.VARH301) VOL(ARH301) –
NONINDEXED –
CYLINDERS(8 2)) –
CAT(CATALOG.MVSICFM.VBC2MCC)
/*
This is explained in article Mainframe Disk utilities, Case 2. Add disk and storage group to DFSMS, 2.5. Define VVDS.
4.3. Define User catalog in system catalog
The following job will define User catalog (CATALOG.MVSICF1.VARH301) in system catalog (CATALOG.MVSICFM.VBC2MCC) with parameter ICFCATALOG on volume ARH301 for SMS-managed data sets:
//DEFUCAT JOB (9999,IPO,10,10),
// ‘OPER’,
// ,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// NOTIFY=,
// TIME=1440,
// USER=
//*
//* THIS JOB WILL DEFINE A USER CATALOG
//*
//DUCATS EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//DDSGVOL DD DISP=OLD,UNIT=SYSALLDA,VOL=SER=ARH301
//SYSIN DD *
DEFINE USERCATALOG( –
NAME(CATALOG.MVSICF1.VARH301) –
VOLUME(ARH301) –
FILE(DDSGVOL) –
ICFCATALOG –
TRACKS(1) –
) –
DATA( –
CYLINDERS(2 1) –
) –
INDEX( –
CYLINDERS(2 1) –
) –
CATALOG(CATALOG.MVSICFM.VBC2MCC)
4.4. Define ALIAS related to User and system catalogs
The following job will define ALIAS (data sets name prefix) KCI09 in User catalog (CATALOG.MVSICF1. VARH301) related to system catalog (CATALOG.MVSICFM.VBC2MCC):
//DEFALKC9 JOB (9999,IPO,10,10),
// ‘OPERATOR’,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// TIME=1440
//*
//VR EXEC PGM=IDCAMS,REGION=512K
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEF ALIAS(REL(CATALOG.MVSICF1. VARH301) –
NAME(KCIO9)) –
CATALOG(CATALOG.MVSICFM.VBC2MCC)
/*
4.5. Define tape volume system catalog
To define tape volume system catalog SYS1.VOLCAT.VGENERAL use the following job:
//DEFVCAT JOB ...
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
DEFINE USERCATALOG -
(NAME(SYS1.VOLCAT.VGENERAL)
VOLCATALOG -
VOLUME(OAMC01) -
TRACKS (150 1))
/*
- SYS1.VOLCAT.VGENERAL – on volume OAMC01 150+ 1 tracks
- Creation date . . . : 2003/09/10 - os/390
– If SYS1.VOLCAT.VT is defined, ‘VT‘ specifies that this catalog will contain all the tape volume entries whose volume serial numbers begin with the character ‘T’.
Case 5. Catalog operations using batch job
5.1. Disconnect/connect User catalog
– disconnect User catalog
The following job disconnect User catalog (CATALOG.MVSICF1.VARH001):
//EXPUCAT JOB (9999,IPO,10,10),
// ‘OPER’,
// CLASS=A,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// NOTIFY=,
// TIME=1440,
// USER=
//*
//* LIB: ZOS140 UTILITY
//* DOC: THIS JOB DOES AN EXPORT DISCONNECT A USER CATALOG
//*
//IMPCON1 EXEC PGM=IDCAMS,REGION=512K
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
EXPORT CATALOG.MVSICF1.VARH001 DISCONNECT
/*
//*
– Connect User catalog
The following job connect user catalog CATALOG.MVSICF1.VTSOC02 to system catalog CATALOG.MVSICFM.VBC2MC:
//IMPUCTS2 JOB 0701,
// USER, **JOB STATEMENT GENERATED BY SUBMIT**
// NOTIFY=USER,
// MSGLEVEL=(1,1)
//IMPCON1 EXEC PGM=IDCAMS,REGION=512K
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
IMPORT OBJ( (CATALOG.MVSICF1.VTSOC02 –
DEVT(3390 ) VOL(TSOC02))) CONNECT –
CAT(CATALOG.MVSICFM.VBC2MCC )
/*
5.2. Delete ALIAS related to User catalog
To delete alias kci55 submit the following job:
//DELALIAS JOB 0701,
// USER, **JOB STATEMENT GENERATED BY SUBMIT**
// NOTIFY=CSUSER,
// MSGLEVEL=(1,1)
//VR EXEC PGM=IDCAMS,REGION=512K
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE kci55 ALIAS
If an ALIAS prefix can not to be deleted, delete all files with this ALIAS prefix /such as kci55 files/ and that’s enough.
Then you can define again ALIAS and restore the saved files /libraries/ from backup tape if necessary.
5.3. Delete User catalog
To delete user catalog CATALOG.MVSICF1.VDEV301 from system catalog use the following VSAM utility:
//DELUCAT JOB (9999,IPO,10,10),
// ‘OPER’,
// CLASS=A,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// NOTIFY=,
// TIME=1440,
// USER=
//DELUCAT EXEC PGM=IDCAMS,REGION=1024K
//SYSPRINT DD SYSOUT=X
//UCATVOL DD UNIT=3390,VOL=SER=DEV301,DISP=SHR
//SYSIN DD *
DELETE CATALOG.MVSICF1.VDEV301 UCAT FORCE
/*
A user catalog can be deleted when it is empty—that is, when there are no objects cataloged in it other than the catalog’s volume. If the catalog is not empty, it cannot be deleted unless the FORCE parameter is specified.
Attention: The FORCE parameter deletes all clusters in the catalog.
5.4. Delete VSAM and non-VSAM data sets in User catalog
– Delete VSAM data set
//DELCHK JOB (9999),
//,
// REGION=0K,TIME=1440,
// MSGCLASS=X,MSGLEVEL=(1,1)
//* *************************************************
//JOBLIB DD DSN=KCI00.LIB.PROD.LOAD,DISP=SHR
// DD DSN=CEE.SCEERUN,DISP=SHR
//*
//CSDEFINE EXEC PGM=IDCAMS
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
PARM MARGINS(1 80)
DEL KCI05.COMUSE.GLK9999
/*
– Delete non-VSAM data set
//DELET4 JOB ...
//STEP1 EXEC PGM=IDCAMS
//DD1 DD VOL=SER=VSER02,UNIT=3380,DISP=OLD,
// DSNAME=EXAMPLE.NONVSAM
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
DELETE -
EXAMPLE.NONVSAM -
FILE (DD1) -
PURGE -
CATALOG(USERCAT4)
/*
– Delete non-VSAM data record
//DELNOS1 JOB (9999,IPO,10,10),
// ‘OPER’,
// ,
// MSGCLASS=X,NOTIFY=&SYSUID,
// MSGLEVEL=(1,1),USER=,
// TIME=1440
//* DOC: THIS IS JOB WILL DELETE A NOS RECORD.
//NEWUSS EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DEL ‘KCI02.D0997Z.CIKAREL.DATA’ NOS
//*
5.5. Delete volume entry in tape volume system catalog
To delete tape volume CB0920 from tape volume system catalog SYS1.VOLCAT.VGENERAL use the following job:
//DELVENT JOB (9999),
// CLASS=B,
// REGION=0K,TIME=1440,
// MSGCLASS=X,MSGLEVEL=(1,1)
//* *************************************************
//* *************************************************
//JOBLIB DD DSN=KCI00.LIB.PROD.LOAD,DISP=SHR
// DD DSN=CEE.SCEERUN,DISP=SHR
//*
//DELVENT EXEC PGM=IDCAMS
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
DEL (VCB0920) –
VOLUMEENTRY –
/*
Incoming search terms:
- catalog management in mainframe
- catalog in mainframe
- mainframe catalog
- alias in mainframe
- RENAME usng IDCAMS ALTER in JCL by giving vol ser number
Comments
No comments yet, be the first to add one!