DSNJU008 examples
Use the DSNJU008 examples to learn how to write your own DSNJU008 jobs.
- Example DSNJU008 input and output
-
The following statement specifies that DSNJU008 is to print information from CDDS data set TEST.CDDS about the most recent version of the expansion dictionary for database ID (DBID) x'011D' and page set ID (PSID) x'0002'.
If the exclusion list has entries, its content is also printed.
//PLM8 EXEC PGM=DSNJU008 //SYSPRINT DD SYSOUT=* //SYSUT1 DD DSN=TEST.CDDS,DISP=SHR //SYSIN DD * DBID(011D) PSID(0002) VER(1) EXCLIST(YES)
The output from this job looks similar to the following output.
COMPRESSION DICTIONARY DATA SET (CDDS) CDDS STATE ACTIVE NUMBER OF MEMBERS 002 HIGH MEMBER ID 002 NUMBER OF ACTIVE MEMBERS 002 CDDS LAST UPDATE 2023.174 13:53:02.1 CDDS STATE LAST UPDATE 2023.174 13:52:45.3 DICTIONARY LAST UPDATE 2023.174 13:53:02.1 STCK TO LRSN DELTA 0 MID MEMBER STATE LAST START DB2 LAST STOP DB2 BSDS --- -------- -------- ------------------- ------------------- -------------------------------------------- 001 DB2A ACTIVE 2023.174 13:43:01.3 2023.174 13:41:02.1 DSNC000.DB2A.BSDS01 002 DB2B ACTIVE 2023.174 13:40:02.3 2023.174 13:39:02.1 DSNC008.DB2B.BSDS01 KEY DBID PSID PART V TABLE SPACE DICT VERSION LRSN CDDS UPDATE TIME ---------------- ---- ---- ---- -- ----------------- --------------------- ----------------- 0E01011D00020008 011D 0002 0008 01 DBB .TSS 00DD7DC9A89E7D0000000 2023.174 13:53:02 DBID PSID PART EXCLIST ADD LRSN EXCLIST ADD TIME ---- ---- ---- -------------------- ----------------- 011E 0002 0001 00DD7DC989765D231100 2023.174 13:52:30 011E 0002 0002 00DD7DC99A8941231100 2023.174 13:52:47 NUMBER OF RECORDS PRINTED 4 DICTIONARY RECORDS PRINTED 1 SYSTEM RECORDS PRINTED 2 EXCLUSION LIST RECORDS PRINTED 1 EXCLUSION LIST ENTRIES PRINTED 56 DSNJ225I PRINT OPERATION COMPLETED SUCCESSFULLY DSNJ200I DSNJU008 PRINT CDDS UTILITY PROCESSING COMPLETED SUCCESSFULLY
When the CDDS status is BROKEN, the
output contains an additional CDDS STATUS line, as shown below:COMPRESSION DICTIONARY DATA SET (CDDS) CDDS STATE ACTIVE CDDS STATUS BROKEN NUMBER OF MEMBERS 002 HIGH MEMBER ID 002 NUMBER OF ACTIVE MEMBERS 002 CDDS LAST UPDATE 2023.174 13:53:02.1 CDDS STATE LAST UPDATE 2023.174 13:52:45.3 DICTIONARY LAST UPDATE 2023.174 13:53:02.1 STCK TO LRSN DELTA 0