Examples for the DFSURDD0 utility
The following examples show two sets of sample JCL statements for running the RDDS Extraction utility and a sample Query report.
JCL example with output set to MAC
The following sample JCL can be used to generate this utility with IMS stage 1 macro statements specified as the output.
//job name JOB CLASS=J,MSGCLASS=A,MSGLEVEL=(1,1)
//JOBLIB DD DSN=library data set name,DISP=SHR
//S1 EXEC PGM=DFSURDD0,MEMLIMIT=12G
//RDDSDSN DD DSN=RDDS data set name,DISP=SHR
//SYSOUT DD DSN=output data set name,DISP=(,CATLG,DELETE),
// UNIT=SYSDA,VOL=SER=Volume name,
// SPACE=(CYL,(1,1),RLSE),
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=800)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
OUTPUT=MAC
/*
//
JCL example with output set to QUERY
The following sample JCL can be used to generate this utility with the Query report specified as the output.
//job name JOB CLASS=J,MSGCLASS=A,MSGLEVEL=(1,1)
//JOBLIB DD DSN=library data set name,DISP=SHR
//S1 EXEC PGM=DFSURDD0,MEMLIMIT=12G
//RDDSDSN DD DSN=RDDS data set name,DISP=SHR
//SYSOUT DD DSN=output data set name,DISP=(,CATLG,DELETE),
// UNIT=SYSDA,VOL=SER=Volume name,
// SPACE=(CYL,(1,1),RLSE),
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=800)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
OUTPUT=QUERY
/*
//
Sample Query report
The following sample Query report is provided if OUTPUT=QUERY is specified in the SYSIN DD statement.
RDDS HEADER RECORD +
HEADER_LENGTH(168) VERSION(1) STATUS(GOOD) +
IMSID(SYS3) IMSTYPE(DBDC) SYSTEM_RDDS?(Y) +
TIMESTAMP(2008.058 21:50:07.695470-UTC) +
data set_NAME(USERID.TEST.RDDS2 )
DB NAME(AUTODB) ACCTYPE(UPD) RESIDENT(N) GLOBAL DMB(0000) +
LOCAL DMB(0001) MODELNAME() MODELTYPE() TMCR(2007.311 16:18:42.49-UTC) +
TMAC() TMUP() TIMP()
DB NAME(AUTODBH) ACCTYPE(UPD) RESIDENT(N) GLOBAL DMB(0000) +
LOCAL DMB(0002) MODELNAME() MODELTYPE() TMCR(2007.311 16:18:42.49-UTC) +
TMAC() TMUP() TIMP()
DB NAME(BANKATMS) ACCTYPE(EXCL) RESIDENT(N) GLOBAL DMB(0000) +
LOCAL DMB(0003) MODELNAME() MODELTYPE() TMCR(2007.311 16:18:42.49-UTC) +
TMAC() TMUP() TIMP()
PGM NAME(EMHPSB2) BMPTYPE(N) DOPT(N) FP(E)GPSB(N) +
RESIDENT(N) SCHDTYPE(PARALLEL) TRANSTAT(N) MODELNAME() +
MODELTYPE() TMCR(2008.354 22:17:41.80-UTC) TMAC() +
TMUP() TIMP()
TRAN NAME(EMHTX2) AOCMD(N) CLASS(1) CMTMODE(SNGL) +
CONV(N) DCLWA(Y) DIRROUTE(N) EDITUC(Y) FP(E) INQ(N) +
LPRI(1) MAXRGN(0) MSGTYPE(SNGLSEG) NPRI(1) PARLIM(65535) +
PGM(EMHPSB2) PLCT(65535) PLCTTIME(6553500) RECOVER(Y) +
REMOTE(N) RESP(Y) SEGNO(0) SEGSZ(0) SERIAL(N) +
TRANSTAT(N) WFI(N) MODELNAME() MODELTYPE() TMCR(2008.354 22:17:42.74-UTC) +
TMAC() TMUP() TIMP()
TRAN NAME(EMHTX3) AOCMD(N) CLASS(1) CMTMODE(SNGL) +
CONV(N) DCLWA(Y) DIRROUTE(N) EDITUC(Y) FP(E) INQ(N) +
LPRI(1) MAXRGN(0) MSGTYPE(SNGLSEG) NPRI(1) PARLIM(65535) +
PGM(EMHPSB2) PLCT(65535) PLCTTIME(6553500) RECOVER(Y) +
REMOTE(N) RESP(Y) SEGNO(0) SEGSZ(0) SERIAL(N) +
TRANSTAT(N) WFI(N) MODELNAME() MODELTYPE() TMCR(2008.354 22:17:42.74-UTC) +
TMAC() TMUP() TIMP()
* RTC NAME(EMHTX2) INQ(N) PGM(EMHPSB2) MODELNAME() MODELTYPE() +
TMCR(2008.354 22:17:42.73-UTC) TMAC() TMUP() +
TIMP()
RTC NAME(EMHTX22) INQ(N) PGM(EMHPSB2) MODELNAME() +
MODELTYPE() TMCR(2008.354 22:17:42.73-UTC) TMAC() +
TMUP() TIMP()
* RTC NAME(EMHTX3) INQ(N) PGM(EMHPSB2) MODELNAME() MODELTYPE() +
TMCR(2008.354 22:17:42.73-UTC) TMAC() TMUP() +
TIMP()
RTC NAME(EMHTX32) INQ(N) PGM(EMHPSB2) MODELNAME() +
MODELTYPE() TMCR(2008.354 22:17:42.73-UTC) TMAC() +
TMUP() TIMP()
TRAN NAME(TSTAD2R2) AOCMD(N) CLASS(1) CMTMODE(MULT) +
CONV(N) DCLWA(Y) DIRROUTE(N) EDITUC(Y) INQ(N) +
LCT(65535) LPRI(1) MAXRGN(0) MSGTYPE(MULTSEG) +
NPRI(1) PARLIM(65535) PGM(AD2TP) PLCT(65535) +
PLCTTIME(6553500) RECOVER(Y) REMOTE(N) RESP(Y) +
SEGNO(0) SEGSZ(0) SERIAL(N) TRANSTAT(N) WFI(N) +
MODELNAME() MODELTYPE() TMCR(2007.319 18:50:47.98-UTC) +
TMAC() TMUP() TIMP(2008.012 01:13:32.20-UTC)
PGM NAME(APOL1) BMPTYPE(N) DOPT(Y) FP(N)GPSB(N) RESIDENT(N) +
SCHDTYPE(SERIAL) TRANSTAT(N) MODELNAME() MODELTYPE() +
TMCR(2007.319 18:50:47.28-UTC) TMAC() TMUP(2008.002 22:50:56.69-UTC) +
TIMP(2008.012 01:13:32.20-UTC)
PGM NAME(FPPSB02) BMPTYPE(N) DOPT(N) FP(E)GPSB(N) +
RESIDENT(Y) SCHDTYPE(PARALLEL) TRANSTAT(N) MODELNAME() +
MODELTYPE() TMCR(2007.311 16:18:42.48-UTC) TMAC() +
TMUP() TIMP()
**** SUMMARY ****
TRAN COUNT : 0
TRANDESC COUNT : 0
DB COUNT : 2045
DBDESC COUNT : 0
PGM COUNT : 5506
PGMDESC COUNT : 0
RTC COUNT : 0
RTCDESC COUNT : 0
TRAN DUPLICATES: 0
TRANDESC DUPLICATES: 0
DB DUPLICATES: 0
DBDESC DUPLICATES: 0
PGM DUPLICATES: 0
PGMDESC DUPLICATES: 0
RTC DUPLICATES: 0
RTCDESC DUPLICATES: 0
In the Query report example:
- For each of the resource definitions and resource descriptor types,
the following counts are displayed:
- The number of resources contained in the RDDS.
- The number of resource entries that have the same resource name as another entry in the RDDS.
- Two types of routing code-type records are included in the report:
- Routing codes that are the result of explicitly being included in the stage 1 input or CREATE command
- Routing codes that are associated with Fast Path-exclusive transactions. This type of routing code is preceded by an asterisk (*) in the report.