zOs/SQL/LABYRIN2

with labyrinth (lab) as         -- das leere Labyrinth
( select 'X|XXXXXXXXXXXXXXXXX' -- 1
      || 'X|    X     X  X  X' -- 2
      || 'X XXX X XXX   XXX X' -- 3
      || 'X X   X   XXX   X X' -- 4
      || 'X XXXXXXX   XXX X X' -- 5
      || 'X   X   X X  X    X' -- 6
      || 'XXX X XXX XX X XX X' -- 7
      || 'X     X   X  X    X' -- 8
      || 'X XXXXX X XXXXXX XX' -- 9
      || 'X       X         *' --10
      || 'XXXXXXXXXXXXXXXXXXX' --11
       -- 123456789 123456789
    from sysibm.sysDummy1
)
, zeilen (z) as                 -- die ZeilenNummer 1..11
( select 1 from sysibm.sysDummy1
  union all select z+1 from zeilen where z < 11
)
                                -- Zeilen des Labyrinths anzeigen
select substr(lab, 19 * z - 18, 19)
    from labyrinth, zeilen
    order by lab, z