Probably the easiest method to compress the header is to have two loops. The first one only loops at the first entry and will print the header. The second loop goes through all the entries and prints the values.
<11BRG001(EXIT;RPR_PP;1)>
PRINT HEADER
<11ERG001>
<11BRG002(EXIT;RPR_PP;*)>
PRINT DATA
<11ERG002>