In this example, the VVDS is diagnosed and the BCS and VVDS are compared. The BCS is passed as a data set name; the VVDS is passed as a ddname. Only the entries cataloged in CAT001 are processed. The listing of valid entries is done with LIST. DIAGNOSE defaults to DUMP and ERRORLIMIT(16).

//DIAGEX4  JOB
//STEP1    EXEC  PGM=IDCAMS
//SYSPRINT DD    SYSOUT=A
//DIAGDD   DD    UNIT=SYSDA,VOL=SER=PERM03,DISP=SHR,
//         DSN=SYS1.VVDS.VPERM03,AMP='AMORG'
//SYSIN    DD    *
     DIAGNOSE -
           VVDS -
           INFILE(DIAGDD) -
           COMPAREDS(CAT001) -
           INCLUDE (CATALOG (CAT001)) -
           LIST
/*

Job control language statement:

• DIAGDD DD contains the VVDS name being diagnosed.

Use the DIAGNOSE command to diagnose a VVDS and compare a VVDS with the BCS, CAT001. The parameters are:

• VVDS identifies the input data set as a VVDS.
• INFILE(DIAGDD) denotes the input data set name is contained in the DD statement named DIAGDD.
• COMPAREDS(CAT001) indicates that a VVDS and BCS compare be done. The BCS name is specified as CAT001.
• INCLUDE(CATALOG(CAT001)) specifies that only the VVDS entries cataloged for CAT001 be diagnosed.
• LIST specifies that entries both with and without errors be listed.