Deliver - How to Add a Distribution ID to All Reports in a Deliver Database

Products

• View

Issue/Introduction

Is there as a batch job that can be used to add a distribution id to all the reports in a Deliver database?

Environment

Release : 14.0

Component : CA Deliver

Resolution

To add a Distribution ID to all reports in a Deliver database, the following RMOGRW and RMODBB programs would be used:

//XXXXXXXX JOB ...
//RMOGRW01 EXEC PGM=RMOGRW                             
//STEPLIB  DD DISP=SHR,DSN=DLVR.CVDELOAD   <=== Modify, if used
//SYSPRINT DD SYSOUT=*                                 
//SYSOUT   DD SYSOUT=*                                 
//OUTFILE  DD DSN=xxxxx.xxxxxx.RMOGRWOP,
//            DCB=(RECFM=FB,LRECL=70,BLKSIZE=700),      
//            SPACE=(TRK,(15,15),RLSE),                 
//            DISP=(,CATLG,DELETE)                      
//SYSIN     DD *                                        
/CONTROL SEQ=RID DATABASE=DLVR_HLQ
/DEFINE I BIN                                           
/SET I = NDISTID + 1                                   
/OUTPUT RID            COL(1)                          
/OUTPUT 'DISTID99'     COL(33)                         
/OUTPUT EDIT(I,'9999') COL(65)                         
/END                                                    
/*                                                      
//                                                      

//XXXXXXXX JOB ...
//RMODBB01 EXEC PGM=RMODBB,PARM='DLVR_HLQ' 
//STEPLIB   DD DISP=SHR,DSN=DLVR.CVDELOAD    <=== Modfy, if used
//SYSPRINT DD SYSOUT=*                                   
//SYSUDUMP DD SYSOUT=*                                   
//DATA     DD DISP=SHR,DSN=xxxxxx.xxxxxx.RMOGRWOP
//SYSIN    DD *                                          
/RPTDEF RID=(1,32) DISTID=(33,32) DENTNO=(65,4) FUNCTION=(69,2)         
/*                                                       
//                                                       

----------------------------------------------------------------------------------------------------------------------------

Note: Before making any mass changes to a Deliver database, there should first be a backup of the database:

//XXXXXXXX JOB ...                                                
//RMODBASE EXEC PGM=RMODBASE,PARM='DLVR_HLQ'  <=== MODIFY DB NAME 
//STEPLIB  DD  DISP=SHR,DSN=DLVR.CVDELOAD     <=== MODIFY, IF USED
//SYSPRINT DD  SYSOUT=*                                           
//RMOUNLD  DD  DSN=XXXXXX.XXXXXX.RMOUNLD,                         
//             DISP=(,CATLG,DELETE),                              
//             UNIT=XXXX,VOL=SER=YYYYYY,                          
//             SPACE=(CYL,(NNN,NN),RLSE)                          
//SYSIN    DD   *                                                 
UNLOAD                                                  
/*                                                                
//