Initializing CA Deliver FCB, FORMDEF, and PAGEDEF Fields

Document ID : KB000046337
Last Modified Date : 14/02/2018
Show Technical Document Details

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.