Issue:
A client wanted to know of a way to initialize the FCB, FORMDEF, and PAGEDEF fields in their Deliver database.
Environment:
CA Deliver
Resolution:
. Run the below RMOGRW program, to provide a listing of those reports with a non-blank FCB, FORMDEF, or PAGEDEF field.
(Note: The program creates a file of Report IDs that will be input to the below RMODBB program):
//XXXXXXXX JOB ...
//RMOGRW EXEC PGM=RMOGRW
//STEPLIB DD DISP=SHR,DSN=DLVR.CVDELOAD <=== Modify, if used
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//PRTFILE DD SYSOUT=*
//OUTFILE DD DISP=(NEW,CATLG,DELETE),
// DSN=xxxxxx.xxxxxx.GRWOUTFL,
// UNIT=xxxx,VOL=SER=xxxxxx,
// DCB=(RECFM=F,LRECL=50,BLKSIZE=50),
// SPACE=(CYL,(2,1),RLSE)
//SYSIN DD *
/CONTROL SEQ=RID DATABASE=dlvr_hlq <=== Modify Deliver DB name
/TITLE 'REPORTS WITH FCB, FORMDEF, PAGEDEF'
/IF (SUBSTR(FCB,1,1) NE ' ') OR (SUBSTR(FORMDEF,1,1) NE ' ')
OR (SUBSTR(PAGEDEF,1,1) NE ' ')
/ PRINT RID COL(1) 'REPORT ID'
/ PRINT FCB COL(34) 'FCB'
/ PRINT FORMDEF COL(39) 'FRMDF'
/ PRINT PAGEDEF COL(46) 'PAGDF'
/ OUTPUT RID
/END
/*
//
. Review the report, double-checking with the database, for accuracy:
. At first, try a few of the records that are input to RMODBB:
//XXXXXXXX JOB ...
//RMODBB EXEC PGM=RMODBB,PARM='dlvr_hlq' <=== Modify Deliver DB name
//STEPLIB DD DISP=SHR,DSN=DLVR.CVDELOAD <=== Modify, if used
//SYSPRINT DD SYSOUT=*
//DATA DD DISP=SHR,DSN=xxxxxx.xxxxxx.GRWOUTFL
//SYSIN DD *
/RPTDEF RID=(1,32) FCB=(33,4) FORMDEF=(37,6) PAGEDEF=(43,6)
FUNCTION=(49,2)
/*
//
. Check the results.
. If the results are favorable, perform another run (with input of the remaining records) of RMODBB.