DASDボリューム内にあるデータセットの一覧（VTOCリスト）を出力する – 「メインフレーム・コンピューター」で遊ぼう

IEHLISTユーティリティー

//         JOB Statement
//*********************************************************************
//*        Sample JCL - IEHLIST
//*        ====================
//*********************************************************************
//LISTVTOC EXEC PGM=IEHLIST,PARM='LINECNT=99'
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DISP=OLD,UNIT=SYSALLDA,VOL=SER=volume
//SYSIN    DD *
  LISTVTOC VOL=SYSALLDA=volume
  LISTVTOC FORMAT,VOL=SYSALLDA=volume
  LISTVTOC DUMP,VOL=SYSALLDA=volume
//

// JOB Statement

//*********************************************************************

//* Sample JCL - IEHLIST

//* ====================

//*********************************************************************

//LISTVTOC EXEC PGM=IEHLIST,PARM='LINECNT=99'

//SYSPRINT DD SYSOUT=*

//SYSUT1 DD DISP=OLD,UNIT=SYSALLDA,VOL=SER=volume

//SYSIN DD *

LISTVTOC VOL=SYSALLDA=volume

LISTVTOC FORMAT,VOL=SYSALLDA=volume

LISTVTOC DUMP,VOL=SYSALLDA=volume

プログラム名は、MSPではJSGLIST、VOS3ではJSFLISTですが、いずれもIEHLISTの別名が付いているのでMVSと同じ名前でも利用できます。

VTOCリストは、3種類のタイプから選択でき、それぞれ標準（短縮）、フォーマット、ダンプの各形式で編集されます。上記SYSIN内のLISTVTOC文の順序もそのように並べてあります。ボリューム内に、どのような名前のデータセットがあるかをとりあえず調べるなら、標準（短縮）形式が見やすいでしょう。volumeの箇所に調べたいDASDボリュームのボリューム名を指定します。

ISPFバッチによるDSLISTユーティリティー

//********************************************************************
//*        TSO BACTH SESSION --- ISPF SERVICE---
//********************************************************************
//GENCLIST EXEC PGM=IEBGENER     --- GENERATE CLIST MEMBER ---
//SYSPRINT DD DUMMY
//SYSIN    DD DUMMY
//SYSUT2   DD DISP=(,PASS),DSN=&&CLIST(ISPCMDS),UNIT=SYSDA,
//            SPACE=(TRK,(1,,1)),DCB=(RECFM=FB,LRECL=80)
//SYSUT1   DD *,DLM='++'
/* PRINT VTOC LIST OR DSN LEVEL LIST */
ISPEXEC LMDINIT LISTID(LID)  VOLUME(??????) <=== ここにVOL名を指定する
ISPEXEC LMDLIST LISTID(&LID) OPTION(SAVE) STATS(YES)
ISPEXEC LMDFREE LISTID(&LID)
END
//*
//ISPBATCH EXEC PGM=IKJEFT01,DYNAMNBR=256
//ISPLOG   DD SYSOUT=*,DCB=(RECFM=VBA,LRECL=125,BLKSIZE=0)
//ISPLIST  DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=121,BLKSIZE=0)
//SYSPROC  DD DISP=(OLD,DELETE),DSN=&&CLIST (CLIST LIBRARY FROM STEP1)
//ISPPROF  DD DISP=(,PASS),UNIT=SYSDA,
//            SPACE=(CYL,(1,1,10)),DCB=(RECFM=FB,LRECL=80)
//ISPLLIB  DD DISP=SHR,DSN=ISP.SISPLOAD
//ISPPLIB  DD DISP=SHR,DSN=ISP.SISPPENU
//ISPMLIB  DD DISP=SHR,DSN=ISP.SISPMENU
//ISPTLIB  DD DISP=SHR,DSN=ISP.SISPTENU
//ISPSLIB  DD DISP=SHR,DSN=ISP.SISPSLIB
//         DD DISP=SHR,DSN=ISP.SISPSENU
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
  ISPSTART CMD(%ISPCMDS)                    /* EXECUTE CLIST MEMBER */
//

//********************************************************************

//* TSO BACTH SESSION --- ISPF SERVICE---

//********************************************************************

//GENCLIST EXEC PGM=IEBGENER --- GENERATE CLIST MEMBER ---

//SYSPRINT DD DUMMY

//SYSIN DD DUMMY

//SYSUT2 DD DISP=(,PASS),DSN=&;&;CLIST(ISPCMDS),UNIT=SYSDA,

// SPACE=(TRK,(1,,1)),DCB=(RECFM=FB,LRECL=80)

//SYSUT1 DD *,DLM='++'

/* PRINT VTOC LIST OR DSN LEVEL LIST */

ISPEXEC LMDINIT LISTID(LID) VOLUME(??????) <;=== ここにVOL名を指定する

ISPEXEC LMDLIST LISTID(&;LID) OPTION(SAVE) STATS(YES)

ISPEXEC LMDFREE LISTID(&;LID)

END

//*

//ISPBATCH EXEC PGM=IKJEFT01,DYNAMNBR=256

//ISPLOG DD SYSOUT=*,DCB=(RECFM=VBA,LRECL=125,BLKSIZE=0)

//ISPLIST DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=121,BLKSIZE=0)

//SYSPROC DD DISP=(OLD,DELETE),DSN=&;&;CLIST (CLIST LIBRARY FROM STEP1)

//ISPPROF DD DISP=(,PASS),UNIT=SYSDA,

// SPACE=(CYL,(1,1,10)),DCB=(RECFM=FB,LRECL=80)

//ISPLLIB DD DISP=SHR,DSN=ISP.SISPLOAD

//ISPPLIB DD DISP=SHR,DSN=ISP.SISPPENU

//ISPMLIB DD DISP=SHR,DSN=ISP.SISPMENU

//ISPTLIB DD DISP=SHR,DSN=ISP.SISPTENU

//ISPSLIB DD DISP=SHR,DSN=ISP.SISPSLIB

// DD DISP=SHR,DSN=ISP.SISPSENU

//SYSTSPRT DD SYSOUT=*

//SYSTSIN DD *

ISPSTART CMD(%ISPCMDS) /* EXECUTE CLIST MEMBER */

z/OS専用です。普段の作業で使用するISPFのDSLISTユーティリティーをバッチで実行する例です。DSLISTユーティリティーの、VIEW=Volume、SpaceおよびAttrib相当の項目が出力されますので、IEHLISTの標準形式よりも情報量は多いです。