links: コピーブランド スーパーコピー 財布 スーパーコピーブランド ブランド コピー 時計 スーパーコピー ブランドコピー激安

Mainframe Catalogs, volumes and files management

CONTENTS:

Bottom 

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 item2.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
Choose donation amount:

Leave A Reply

Comments

No comments yet, be the first to add one!

Places

 

Choose donation amount:
您要找的资源已被删除、已更名或暂时不可用。 Clef two-factor authentication