Deliver - RMOGRW program needed for new Job and Report names

Products

• Deliver

Issue/Introduction

I'm trying to write a sample file to be used to re-load the same definitions for new Job and Report Names.

In the below RMOGRW program, I cannot get the report ID on same line(s) with more than one line of text selection:

/SELECT SUBSTR(JOB,1,8) = ('ABCDEFGH')
/SORT JOB                             
/DEFINE I BIN                         
/PRINT RID COL(1)                     
/PRINT JOB COL(35)                    
/DO I = 1 TO NTEXT BY 1               
/   PRINT TEXTTYPE COL(45)            
/   PRINT TEXTREUSE                   
/   PRINT TEXTOP                      
/   PRINT TEXTLINE                    
/   PRINT TEXTCOL                     
/   PRINT TEXT                        
/   NEXT TEXT                         
/END    

Environment

Release : 14.0

Component :

Resolution

Recommended that the client use the following RMOGRW program:

/CONTROL SEQ=RID
/SELECT SUBSTR(JOB,1,8) = ('ABCDEFGH')                          
/SORT JOB                                                       
/DEFINE I BIN                                                   
/DO I = 1 TO NTEXT BY 1
/ IF I = 1
/   PRINT RID COL(1)                                      
/   PRINT JOB COL(35)
/   PRINT TEXTTYPE COL(45) 
/   PRINT TEXTREUSE        
/   PRINT TEXTOP           
/   PRINT TEXTLINE         
/   PRINT TEXTCOL          
/   PRINT TEXT             
/   NEXT TEXT              
/ ELSE
/   PRINT RID COL(1)                                      
/   PRINT TEXTTYPE COL(45) 
/   PRINT TEXTREUSE        
/   PRINT TEXTOP           
/   PRINT TEXTLINE         
/   PRINT TEXTCOL          
/   PRINT TEXT             
/   NEXT TEXT              
/ END
/END