A different approach

• Using perl

  Data formatting section (using format)

      format STDOUT =
      @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<< @<<<
      $e010241,                           $e010214,                 $e010311,$e010411
  	@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  	$e011100,				 $e011025
      ~   @<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<
  	$e012021,$e012012,                                          $e012040
      .
      format STDOUT_TOP =
      Gemeente @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<             Blad: @>>>>>>
  	     $s_gem,							    $%
      Leerlingen                                              Datum: @<<<<<<<<< @<<<<
  								   $D_sys,   $T_sys
      ===============================================================================
      Achternaam                          Voornaam + initialen           Geb dat Gesl
  	Adres                                    Postcode + Plaats
  	SrtOnd School                                              Klas
      -------------------------------------------------------------------------------
      .

  Data initialization section (using symbolic references)

      while (<>) {
          chomp;
          push @elp, $_;
          m/^99/ || next;
  
          # Convert the expanded LP-list to elements known in the format(s)
          foreach $lp (@elp) {
              ($cat, $type, $data) = split m/\|/, $lp, 3;
              $data =~ s/\s+$//;
              $ect  = "$cat$type";
              $e    = "e$ect";
              $$e   = $data;
              }
  
          # format this entity
          write;
  
          reset "e";
          }

  Perl: 150 lines, RPT: 1350 lines