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.