LISTDSJ TSO Command for MVS 3.8J / Hercules


Date: 5/07/2020  Release V1R0M30

Author: Larry Belmontes Jr.
        https://ShareABitofIT.net/LISTDSJ-for-MVS-3-8J   
        Copyright (C) 2020  Larry Belmontes, Jr.


---------------------------------------------------------------------- 
| C U T I L 0 0   I n s t a l l a t i o n   R e f e r e n c e        | 
---------------------------------------------------------------------- 

   The approach for this installation procedure is to transfer the
distribution tape content from the your personal computing device to
MVS with minimal JCL (less than 24 lines for easy copy-paste) and to
continue the installation procedure using supplied JCL from the MVS
CNTL data set under TSO.                         

   Below are description of ZIP file content, pre-installation
requirements and installation steps.
 
Good luck and enjoy using LISTDSJ as added value to MVS 3.8J!
-Larry Belmontes



======================================================================
* I. C o n t e n t   o f   Z I P   F i l e                           |
======================================================================

o  $INST00.JCL          Define Alias for HLQ LISTDSJ in Master Catalog
 
o  $INST01.JCL          Load CNTL data set from distrubtion tape
 
o  LISTDSJ_V1R0M30.HET  Hercules Emulated Tape (HET) multi-file volume
                        with VOLSER of VS1030.  This tape contains
                        the LISTDSJ software distribution.
 
o  DSCLAIMR.TXT         Disclaimer
 
o  PREREQS.TXT          Required user-mods 
 
o  README.TXT           This File                                              
 
 NOTE: Although not required to install LISTDSJ, two user-mods 
       are required before using LISTDSJ. See PREREQS.TXT file.



======================================================================
* II. P r e - i n s t a l l a t i o n   R e q u i r e m e n t s      |
======================================================================

o  The Master Catalog password will be required for some installation
   steps. 
 
o  Tape files will use device 480.
 
o  DASD files will be loaded to VOLSER=MVSDLB, type 3350 device.
   Confirm that 110 tracks are available.
 
o  TSO user-id with sufficent access rights to update SYS2.CMDPROC,  
   SYS2.HELP, SYS2.CMDLIB and optional ISPF libraries.
 
o  If installing ISPF components (parts), names of ISPCLIB (Clist),
   ISPMLIB (Message) and ISPPLIB (Panel) libraries.
 
o  Download ZIP file to your PC local drive.    
 
o  Unzip the downloaded file into a temp directory on your PC device.
  
 
                                                
======================================================================
* III. I n s t a l l a t i o n   S t e p s                           |
======================================================================
                                                
+--------------------------------------------------------------------+
| Step 1. Define Alias for HLQ LISTDSJ in Master Catalog             |
|         JCL Member: LISTDSJ.V1R0M30.CNTL($INST00)                  |
+--------------------------------------------------------------------+
 
 
//LISTDSJ0 JOB (SYS),'Define LISTDSJ Alias', <-- Review and Modify 
//             CLASS=A,                      <-- Review and Modify
//             MSGCLASS=A,                   <-- Review and Modify
//             MSGLEVEL=(1,1)                <-- Review and Modify
//* -------------------------------------------------------*
//* *  LISTDSJ for MVS3.8J TSO / Hercules                  *
//* *                                                      *
//* *  JOB: $INST00                                        *
//* *       Define Alias for HLQ LISTDSJ in Master Catalog *
//* *                                                      *
//* *  Note: The master catalog password will be required  *
//* -------------------------------------------------------*
//DEFALIAS EXEC PGM=IDCAMS 
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
 PARM GRAPHICS(CHAIN(SN))
 LISTCAT ALIAS  ENT(LISTDSJ) 
 IF LASTCC NE 0 THEN -
    DEFINE ALIAS(NAME(LISTDSJ) RELATE(SYS1.UCAT.MVS))                          
/*                                                                      
//
Figure 1: $INST00 JCL
 
 
    a) Copy and paste the above JCL to a PDS member, update JOB 
       statement to conform to your installation standard.             
 
    b) Submit the job.                                  
 
    c) Review job output for successful DEFINE ALIAS.
 
    Note: Job step DEFALIAS returns RC=0004 due to LISTCAT function
          LISTCAT function completing with condition code of 4 and
          DEFINE ALIAS function completing with condition code of 0.
           
 
+--------------------------------------------------------------------+
| Step 2. Load CNTL data set from distribution tape                  |
|         JCL Member: LISTDSJ.V1R0M30.CNTL($INST01)                  |
+--------------------------------------------------------------------+
 
 
//LISTDSJ1 JOB (SYS),'Install CNTL PDS',     <-- Review and Modify
//             CLASS=A,                      <-- Review and Modify
//             MSGCLASS=A,                   <-- Review and Modify
//             MSGLEVEL=(1,1)                <-- Review and Modify
//* -------------------------------------------------------*
//* *  LISTDSJ for MVS3.8J TSO / Hercules                  *
//* *                                                      *
//* *  JOB: $INST01                                        *
//* *       Load CNTL data set from distribution tape      *
//* *                                                      *
//* *  Note: Uses tape drive 480                           *
//* -------------------------------------------------------*
//STEP001  EXEC PGM=IEBCOPY                                           
//SYSPRINT DD  SYSOUT=*                                              
//SYSUT1   DD  DSN=LISTDSJ.V1R0M30.CNTL.TAPE,UNIT=480,
//             VOL=SER=VS1030,DISP=OLD,LABEL=(1,SL)                   
//SYSUT2   DD  DSN=LISTDSJ.V1R0M30.CNTL,UNIT=3350,VOL=SER=MVSDLB,
//             SPACE=(TRK,(20,10,10)),DISP=(,CATLG),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=3600) 
//SYSIN    DD  DUMMY                                                    
/*                                                                  
//
Figure 2: $INST01 JCL
 
 
    a) Before submitting the above job, the distribution tape   
       must be made available to MVS by issuing the following
       command from the Hercules console:
 
       DEVINIT 480 X:\DIRNAME\LISTDSJ_V1R0M30.HET READONLY=1
 
       where X:\DIRNAME is the complete path to the location
       of the Hercules Emulated Tape file. 
 
    b) Issue the following command from the MVS console to vary
       device 480 online:
 
       V 480,ONLINE
 
    c) Copy and paste the above JCL to a PDS member, update JOB 
       statement to conform to your installation standard.
 
    d) Submit the job.                                              
 
    e) Review job output for successful load of the CNTL data set.
 
    f) Subsequent installation steps will be submitted from members
       contained in the CNTL data set.
 
 
+--------------------------------------------------------------------+
| Step 3. Load Other data sets from distrubtion tape                 |
|         JCL Member: LISTDSJ.V1R0M30.CNTL($INST02)                  |
+--------------------------------------------------------------------+
 
 
//LISTDSJ2 JOB (SYS),'Install Other PDSs',   <-- Review and Modify
//             CLASS=A,                      <-- Review and Modify
//             MSGCLASS=A,                   <-- Review and Modify
//             MSGLEVEL=(1,1)                <-- Review and Modify
//* -------------------------------------------------------*
//* *  LISTDSJ for MVS3.8J TSO / Hercules                  *
//* *                                                      *
//* *  JOB: $INST02                                        *
//* *       Load Other data sets from distribution tape    *
//* *                                                      *
//* *  Note: Uses tape drive 480                           *
//* -------------------------------------------------------*
//STEP001  EXEC PGM=IEBCOPY                                           
//SYSPRINT DD  SYSOUT=*                                              
//INCLIST  DD  DSN=LISTDSJ.V1R0M30.CLIST.TAPE,UNIT=480,
//             VOL=SER=VS1030,DISP=OLD,LABEL=(2,SL)                   
//INHELP   DD  DSN=LISTDSJ.V1R0M30.HELP.TAPE,UNIT=480,
//             VOL=SER=VS1030,DISP=OLD,LABEL=(3,SL)                   
//INISPF   DD  DSN=LISTDSJ.V1R0M30.ISPF.TAPE,UNIT=480,
//             VOL=SER=VS1030,DISP=OLD,LABEL=(4,SL)                   
//INASM    DD  DSN=LISTDSJ.V1R0M30.ASM.TAPE,UNIT=480,
//             VOL=SER=VS1030,DISP=OLD,LABEL=(5,SL)                   
//OUTCLIST DD  DSN=LISTDSJ.V1R0M30.CLIST,UNIT=3350,VOL=SER=MVSDLB,
//             SPACE=(TRK,(20,10,10)),DISP=(,CATLG),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=3600) 
//OUTHELP  DD  DSN=LISTDSJ.V1R0M30.HELP,UNIT=3350,VOL=SER=MVSDLB,
//             SPACE=(TRK,(05,05,10)),DISP=(,CATLG),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=3600) 
//OUTISPF  DD  DSN=LISTDSJ.V1R0M30.ISPF,UNIT=3350,VOL=SER=MVSDLB,
//             SPACE=(TRK,(05,05,10)),DISP=(,CATLG),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=3600) 
//OUTASM   DD  DSN=LISTDSJ.V1R0M30.ASM,UNIT=3350,VOL=SER=MVSDLB,
//             SPACE=(TRK,(60,30,10)),DISP=(,CATLG),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=3600) 
//SYSIN    DD  *                                                        
    COPY INDD=INCLIST,OUTDD=OUTCLIST
    COPY INDD=INHELP,OUTDD=OUTHELP
    COPY INDD=INISPF,OUTDD=OUTISPF
    COPY INDD=INASM,OUTDD=OUTASM
/*                                                                  
//
Figure 3: $INST02 JCL
 
 
    a) Member $INST02 in the LISTDSJ.V1R0M30.CNTL data set contains
       the job to load other LISTDSJ data sets from distribution 
       tape.                                 
 
    b) Review and update JOB statement to comform to your installation
       standard.                                       
 
    c) Before submitting the above job, the distribution tape   
       must be made available to MVS by issuing the following
       command from the Hercules console:
 
       DEVINIT 480 X:\DIRNAME\LISTDSJ_V1R0M30.HET READONLY=1
 
       where X:\DIRNAME is the complete path to the location
       of the Hercules Emulated Tape file. 
 
    d) Submit the job.
 
    e) Review job output for successful load of other data sets.  
 
 
+--------------------------------------------------------------------+
| Step 4. Install TSO parts for LISTDSJ                              |
|         JCL Member: LISTDSJ.V1R0M30.CNTL($INST03)                  |
+--------------------------------------------------------------------+
 
 
//LISTDSJ3 JOB (SYS),'Install TSO Parts',    <-- Review and Modify
//             CLASS=A,                      <-- Review and Modify
//             MSGCLASS=A,                   <-- Review and Modify
//             MSGLEVEL=(1,1)                <-- Review and Modify
//* -------------------------------------------------------*
//* *  LISTDSJ for MVS3.8J TSO / Hercules                  *
//* *                                                      *
//* *  JOB: $INST03                                        *
//* *       Install TSO parts for LISTDSJ                  *
//* *                                                      *
//* *  - CLISTDSJ clist   installs to SYS2.CMDPROC         *
//* *  - LISTDSJ  help    installs to SYS2.HELP            *
//* *                                                      *
//* *  Note: Duplicate members are over-written.           *
//* -------------------------------------------------------*
//STEP001  EXEC PGM=IEBCOPY                                           
//SYSPRINT DD  SYSOUT=*                                              
//INCLIST  DD  DSN=LISTDSJ.V1R0M30.CLIST,DISP=SHR            
//INHELP   DD  DSN=LISTDSJ.V1R0M30.HELP,DISP=SHR             
//OUTCLIST DD  DSN=SYS2.CMDPROC,DISP=SHR                               
//OUTHELP  DD  DSN=SYS2.HELP,DISP=SHR
//SYSIN    DD  *                                                        
    COPY INDD=((INCLIST,R)),OUTDD=OUTCLIST
    SELECT MEMBER=CLISTDSJ
    COPY INDD=((INHELP,R)),OUTDD=OUTHELP
    SELECT MEMBER=LISTDSJ
/*                                                                  
//
Figure 4: $INST03 JCL
 
 
    a) Member $INST03 in the LISTDSJ.V1R0M30.CNTL data set contains
       the job to install TSO CLIST and HELP files to SYS2.CMDPROC  
       and SYS2.HELP, respectively.
 
    b) Review and update JOB statement to comform to your installation
       standard.                                       
 
    c) Submit the job.
 
    d) Review job output for successful load of the TSO CLIST and 
       HELP members.                                                
 
 
+--------------------------------------------------------------------+
| Step 5. Install LISTDSJ Program                                    |  
|         JCL Member: LISTDSJ.V1R0M30.CNTL($INST04)                  |
+--------------------------------------------------------------------+
 
 
//LISTDSJ4 JOB (SYS),'Install LISTDSJ',      <-- Review and Modify 
//             CLASS=A,                      <-- Review and Modify
//             MSGCLASS=A,                   <-- Review and Modify
//             MSGLEVEL=(1,1)                <-- Review and Modify
//* -------------------------------------------------------*
//* *  LISTDSJ for MVS3.8J TSO / Hercules                  *
//* *                                                      *
//* *  JOB: $INST04                                        *
//* *       Install LISTDSJ Program                        *
//* *                                                      *
//* *  - LISTDSJ  program installs to SYS2.CMDLIB          *
//* *  - Install libraries marked...                       *
//* *    - Search for '<--TARGET'                          *
//* *    - Update install libraries per your               *
//* *      installation standard                           *
//* *                                                      *
//* *  NOTE:                                               *
//* *  -----                                               *
//* *  Two user-mods, ZP60014 and ZP60038, are REQUIRED.   *
//* *                                                      *
//* *  For more information, refer to program LISTDSJ.     *
//* -------------------------------------------------------*
//ASM      EXEC PGM=IFOX00,
//             PARM='NODECK,LOAD,RENT,TERM'
//SYSGO    DD  DSN=&&LOADSET,DISP=(MOD,PASS),SPACE=(CYL,(1,1)),
//             UNIT=VIO,DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=800)
//SYSLIB   DD  DSN=SYS1.MACLIB,DISP=SHR
//         DD  DSN=SYS1.AMODGEN,DISP=SHR
//         DD  DSN=SYS2.MACLIB,DISP=SHR          ** YREG  **
//SYSTERM  DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SYSPUNCH DD  DSN=NULLFILE
//SYSUT1   DD  UNIT=VIO,SPACE=(CYL,(6,1))
//SYSUT2   DD  UNIT=VIO,SPACE=(CYL,(6,1))
//SYSUT3   DD  UNIT=VIO,SPACE=(CYL,(6,1))
//SYSIN    DD  DSN=LISTDSJ.V1R0M30.ASM(LISTDSJ),DISP=SHR
//********************************************************************/
//* 04/10/2020 1.0.20   Larry Belmontes Jr.                          */
//*                     - Added ALIAS LISTDSI to LKED step           */
//********************************************************************/
//*
//LKED     EXEC PGM=IEWL,PARM='MAP,LIST,LET,RENT,XREF',
//             COND=(0,NE,ASM)
//SYSLIN   DD  DSN=&&LOADSET,DISP=(OLD,DELETE)
//         DD  DDNAME=SYSIN
//SYSLMOD  DD  DSN=SYS2.CMDLIB,DISP=SHR            <--TARGET
//SYSPRINT DD  SYSOUT=*
//SYSUT1   DD  UNIT=VIO,SPACE=(CYL,(5,2))
//SYSIN    DD  *
 ALIAS LISTDSI
 NAME LISTDSJ(R)
/*
//* -------------------------------------------------------*
//* *                                                      *
//* *  If SYSn.LINKLIB or SYSn.CMDLIB is updated           *
//* *                                                      *
//* -------------------------------------------------------*
//DBSTOP   EXEC DBSTOP,
//             COND.IEFPROC=(0,NE,ASM)
//DBSTART  EXEC DBSTART,
//             COND.IEFPROC=(0,NE,ASM)
// 
Figure 5: $INST04 JCL
 
 
    a) Member $INST04 in the LISTDSJ.V1R0M30.CNTL data set contains
       the job to install program LISTDSJ to SYS2.CMDLIB.                 
 
    b) Review and update JOB statement to comform to your installation
       standard.                                       
 
    c) Submit the job.
 
    d) Review job output for successful completion of assembly and
       link edit steps.                                             
 
 
+--------------------------------------------------------------------+
| Step 6. Install ISPF parts for LISTDSJ                             |
|         JCL Member: LISTDSJ.V1R0M30.CNTL($INST05)                  |
+--------------------------------------------------------------------+
 
 
//LISTDSJ5 JOB (SYS),'Install ISPF Parts',   <-- Review and Modify 
//             CLASS=A,                      <-- Review and Modify
//             MSGCLASS=A,                   <-- Review and Modify
//             MSGLEVEL=(1,1)                <-- Review and Modify
//* -------------------------------------------------------*
//* *  Install LISTDSJ ISPF 2.0 Panels, CLIST and Messages *
//* *                                                      *
//* *  JOB: $INST05                                        *
//* *       Install ISPF parts for LISTDSJ                 *
//* *                                                      *
//* *  - CLISTDIJ Clist    installs to ISPCLIB             *
//* *  - PLISTDSJ Panel    installs to ISPPLIB             *
//* *  - HLISTDSJ Panel    installs to ISPPLIB             *
//* *  - LDSJ00   Messages installs to ISPMLIB             *
//* *                                                      *
//* *  Note: Duplicate members are over-written.           *
//* *                                                      *
//* *                                                      *
//* *  - Uses LISTDSJ for MVS3.8J                          *
//* *  - Uses ISPF 2.0 product from Wally Mclaughlin       *
//* *  - Install libraries marked...                       *
//* *    - Search for '<--TARGET'                          *
//* *    - Update install libraries per your               *
//* *      installation standard                           *
//* *                                                      *
//* *  Using ISPF LISTDSJ Panel:                           *
//* *  -------------------------                           *
//* *  - Log on to TSO / ISPF 2.0.                         *
//* *  - Invoke panel driver from option 6                 *
//* *      %CLISTDIJ                                       *
//* *  - LISTDSJ panel should appear                       *
//* *  - Enter DSN in NAME==> and hit <ENTER>              *
//* *  - Review results for entered DSN                    *
//* -------------------------------------------------------*
/*
//* -------------------------------------------------------*
//* *                                                      *
//* *  CLIST PDS Member Installation                       *
//* *   - CLISTDIJ                                         *
//* *                                                      *
//* *  Suggested Location:                                 *
//* *      DSN defined or concatenated to ISPCLIB DD       *
//* *      for ISPF 2.0                                    *
//* *                                                      *
//* *  Note: If you use a new PDS, it must be defined      *
//* *        before executing this install job AND the     *
//* *        ISPF start-up procedure should include the    *
//* *        new PDS in the ISPCLIB allocation step.       *
//* *                                                      *
//* -------------------------------------------------------*
//ADDCLIB  EXEC PGM=IEBCOPY              
//SYSPRINT DD  SYSOUT=*
//CLIBIN   DD  DSN=LISTDSJ.V1R0M30.ISPF,DISP=SHR             
//CLIBOUT  DD  DSN=XXXXXXXX.ISPCLIB,DISP=SHR       <--TARGET
//SYSIN    DD  *              
   COPY INDD=((CLIBIN,R)),OUTDD=CLIBOUT
   SELECT MEMBER=CLISTDIJ
/*
//* -------------------------------------------------------*
//* *                                                      *
//* *  Panel PDS Member Installation                       *
//* *   - PLISTDSJ                                         *
//* *   - HLISTDSJ                                         *
//* *                                                      *
//* *  Suggested Location:                                 *
//* *      DSN defined or concatenated to ISPPLIB DD       *
//* *      for ISPF 2.0                                    *
//* *                                                      *
//* *  Note: If you use a new PDS, it must be defined      *
//* *        before executing this install job AND the     *
//* *        ISPF start-up procedure should include the    *
//* *        new PDS in the ISPPLIB allocation step.       *
//* *                                                      *
//* -------------------------------------------------------*
//ADDPLIB  EXEC PGM=IEBCOPY              
//SYSPRINT DD  SYSOUT=*
//PLIBIN   DD  DSN=LISTDSJ.V1R0M30.ISPF,DISP=SHR             
//PLIBOUT  DD  DSN=XXXXXXXX.ISPPLIB,DISP=SHR       <--TARGET
//SYSIN    DD  *              
   COPY INDD=((PLIBIN,R)),OUTDD=PLIBOUT
   SELECT MEMBER=PLISTDSJ
   SELECT MEMBER=HLISTDSJ
/*
//* -------------------------------------------------------*
//* *                                                      *
//* *  Message PDS Member Installation                     *
//* *   - LDSJ00                                           *
//* *                                                      *
//* *  Suggested Location:                                 *
//* *      DSN defined or concatenated to ISPMLIB DD       *
//* *      for ISPF 2.0                                    *
//* *                                                      *
//* *  Note: If you use a new PDS, it must be defined      *
//* *        before executing this install job AND the     *
//* *        ISPF start-up procedure should include the    *
//* *        new PDS in the ISPMLIB allocation step.       *
//* *                                                      *
//* -------------------------------------------------------*
//ADDMLIB  EXEC PGM=IEBCOPY              
//SYSPRINT DD  SYSOUT=*
//MLIBIN   DD  DSN=LISTDSJ.V1R0M30.ISPF,DISP=SHR             
//MLIBOUT  DD  DSN=XXXXXXXX.ISPMLIB,DISP=SHR       <--TARGET
//SYSIN    DD  *              
   COPY INDD=((MLIBIN,R)),OUTDD=MLIBOUT
   SELECT MEMBER=LDSJ00 
/*
//
Figure 6: $INST05 JCL
 
 
    a) This step can be omitted if ISPF 2.0 is NOT installed on
       your system.  Proceed to the next step.                 
 
    b) Member $INST05 in the LISTDSJ.V1R0M30.CNTL data set contains
       the job to install ISPF components to CLIB, PLIB and MLIB
       ISPF libraries.
 
    c) Review and update JOB statement to comform to your installation
       standard.
 
    d) Review and update DD statements for ISPCLIB (clist),
       ISPPLIB (panel), ISPMLIB (message) ISPF library names.
       The DD statements are tagged with '<--TARGET'.
 
    d) Submit the job.
 
    e) Review job output for successful load of ISPF members 
       across ISPF libraries. 
 
 
+--------------------------------------------------------------------+
| Step 7. Run LISTDSJ Validation                                     |
|         JCL Member: LISTDSJ.V1R0M30.CNTL($IVP1)                    |
+--------------------------------------------------------------------+
 
 
//IVP1     JOB (SYS),'LISTDSJ IPV1',         <-- Review and Modify           
//             CLASS=A,                      <-- Review and Modify 
//             MSGCLASS=A,                   <-- Review and Modify 
//             MSGLEVEL=(1,1)                <-- Review and Modify 
//* -------------------------------------------------------*
//* *  LISTDSJ for MVS3.8J TSO / Hercules                  *
//* *                                                      *
//* *  JOB: $IVP1                                          *
//* *       Run LISTDSJ Validation                         *
//* *                                                      *
//* *  LISTDSJ validation via CLISTDSJ using BATCH TSO     *
//* *  of documented function in program documentation.    *
//* *                                                      *
//* *  Note: CLIST are resolved from SYS2.CMDPROC          *
//* *        and tagged with <--TARGET for search          *
//* *        purposes.                                     *
//* -------------------------------------------------------*
//BATCHTSO PROC
//STEP01   EXEC PGM=IKJEFT01
//SYSPROC  DD  DISP=SHR,DSN=SYS2.CMDPROC           <--TARGET
//SYSPRINT DD  SYSOUT=*
//SYSTSPRT DD  SYSOUT=*
//SYSTSIN  DD  DUMMY       Command Line Input
//         PEND
//*
//TESTIT0  EXEC BATCHTSO 
//STEP01.SYSTSIN DD *
CLISTDSJ X PRMS('Validate List type 1')
CLISTDSJ 1 PRMS('''HERC01.TEST.CNTL''')
/*
//VALDAT2  EXEC BATCHTSO 
//STEP01.SYSTSIN DD *
CLISTDSJ X PRMS('Validate List type 2')
CLISTDSJ 2 PRMS('''HERC01.TEST.CNTL''')
/*
//VALDAT3  EXEC BATCHTSO 
//STEP01.SYSTSIN DD *
CLISTDSJ X PRMS('Validate List type 3')
CLISTDSJ 3 PRMS('''HERC01.TEST.CNTL''')
/*
//VALDAT4  EXEC BATCHTSO 
//STEP01.SYSTSIN DD *
CLISTDSJ X PRMS('Validate List type 3 with DIR option')
CLISTDSJ 3 PRMS('''HERC01.TEST.CNTL'' DIR')
/*
//VALDAT5  EXEC BATCHTSO 
//STEP01.SYSTSIN DD *
CLISTDSJ X PRMS('Validate with ABOUT option')
CLISTDSJ 1 PRMS('''HERC01.TEST.CNTL'' ABOUT')
/*
//VALDAT6  EXEC BATCHTSO 
//STEP01.SYSTSIN DD *
CLISTDSJ X PRMS('Validate as to why NOT to use PNL w CLISTDSJ')
CLISTDSJ 3 PRMS('''HERC01.TEST.CNTL'' PNL')
/*
//VALDAT7  EXEC BATCHTSO 
//STEP01.SYSTSIN DD *
CLISTDSJ X PRMS('Validate List type 1 with FILE option')        
CLISTDSJ 1 PRMS('SYSPROC FILE')
/*
//
Figure 7: $IVP1 JCL
 
 
    a) Member $IVP1 in the LISTDSJ.V1R0M30.CNTL data set contains
       the job to validate LISTDSJ.                                       
 
    b) Review and update JOB statement to comform to your installation
       standard.                                       
 
    c) Submit the job.
 
    d) Review job output for successful execution.  All return codes 
       should be zero except for step (VALDAT6).  This is normal.
 
    e) Validation for LISTDSJ is complete.
 
 
+--------------------------------------------------------------------+
| Step 8. Validate LISTDSJ ISPF 2.0 application                      |
+--------------------------------------------------------------------+
 
 
    a) This step can be omitted if ISPF 2.0 is NOT installed on
       your system.  Proceed to the next step.                       
 
    b) From the ISPF Main Menu, select option 6, COMMAND.  The TSO
       COMMAND PROCESSOR panel will display. 
 
    c) Enter the TSO command:
       %CLISTDIJ
 
    d) The panel PLISTDSJ, LISTDSJ for MVS 38J, is displayed.
       Type the following information:
       o  Enter a DSN in NAME===>                         
          e.g.  'HERC01.TEST.CNTL'   (use sinqle quotes)    
       o  Press <ENTER>                                                         
       o  Review results for entered DSN
       o  Press <PF1> to display help panel, HLISTDSJ 
       o  Press <PF3> twice to exit help and application panel 
       
    e) Validation for LISTDSJ ISPF 2.0 Application is complete.
                                                                            
                                                                            
+--------------------------------------------------------------------+
| Step 9. Done                                                       |
+--------------------------------------------------------------------+
 
 
    a) Congratulations!  You completed the installation for LISTDSJ.





Enjoy LISTDSJ!
                                                                            

