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

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 //* 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

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) –

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 –

PURGE

Incoming search terms:

catalog management in mainframe
catalog in mainframe
mainframe catalog
alias in mainframe

May 10, 2012

Posted by Stefan
No comments

General, System programming
ALIAS, batch job, Catalogs, data sets, DETAILS, disk, Ditto, ISPF, library members, List, NAMES, Prtint, scrollable list, tape, VGENERAL NAMES, volumes, VSAM, VTOC, VVDS

Comments

No comments yet, be the first to add one!

MainframeTips.com

Mainframe Catalogs, volumes and files management

Incoming search terms:

Leave A Reply

Comments

Tags

Places

Archives