In this example, the VVDS is diagnosed and the BCS is compared with the VVDS. The BCS and the VVDS are passed as ddnames. Only those entries with a high-level qualifier of CAT are processed. The default values of DUMP, NOLIST, and ERRORLIMIT(16) are taken.

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

Job control language statements:

• DIAGDD DD indicates the VVDS name.
• DIAG01 DD indicates the BCS name.

The DIAGNOSE command's parameters are:

• VVDS indicates the input data set is a VVDS.
• INFILE(DIAGDD) identifies the DD statement containing the VVDS name.
• COMPAREDD(DIAG01) indicates that the VVDS and BCS be compared and identifies the DD statement containing the BCS name.
• INCLUDE(LEVEL(CAT)) indicates that only certain VVDS entries be processed, specifically, entrynames with a high-level qualifier of CAT—for example:

  CAT.CNTLR.NOV80 and CAT.BACKUP.SMFDATA.J34

  Any entries without such a high-level qualifier are excluded from processing.