Initializing OM Deliver FCB, FORMDEF, and PAGEDEF Fields
search cancel

Initializing OM Deliver FCB, FORMDEF, and PAGEDEF Fields

book

Article ID: 46337

calendar_today

Updated On:

Products

Deliver

Issue/Introduction

How to initialize the FCB, FORMDEF, and PAGEDEF fields in the Deliver database.

 

Environment

  • Deliverâ„¢
  • Output Management Deliverâ„¢ for z/OS

Resolution

Run the 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 RMODBB program below): 

//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.