Example

Utilities › RMODBB - Database Construction from Existing Data › RPTDEF Control Statement › Example

Example

A sequential file contains distribution specifications and the identifiers of the reports that are to be used for each distribution specification. The name of the file is PROD.DIST.SPECS. The format of the records in the file is as follows:

Position	Field Description
1–32	DISTID
33–52	Address line 1
53–72	Address line 2
73–92	Address line 3
93–124	Report identifier 1
125–156	Report identifier 2
157–188	Report identifier 3
189–220	Report identifier 4
221–242	Report identifier 5
253–254	FUNCTION keyword

As a result, the following job, which is located in RMODBB in CAI.CVDEJCL, is executed:

//EXAMPLE  JOB  ACCOUNT,PROGRAMMER
//DBB      EXEC PGM=RMODBB,PARM='DELIVER.SYSTEM1'
//STEPLIB  DD   DSN=CAI.CVDELOAD,DISP=SHR
//SYSPRINT DD   SYSOUT=A
//DATA     DD   DSN=PROD.DIST.SPECS,DISP=SHR
//SYSIN    DD   *
/DISTDEF   DISTID=1 A1=(33,20) A2=(53,20) A3=(73,20)
/RPTDEF    RID=93  DISTID=1 FUNCTION=(253,2)
/RPTDEF    RID=125 DISTID=1 FUNCTION=(253,2)
/RPTDEF    RID=157 DISTID=1 FUNCTION=(253,2)
/RPTDEF    RID=189 DISTID=1 FUNCTION=(253,2)
/RPTDEF    RID=221 DISTID=1 FUNCTION=(253,2)
/*