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
Release : 14.0
Component :
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