zOs/SQL/LABYRIN3

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                 -- Anzahl Zeilen
( select 1 from sysibm.sysDummy1
  union all select z+1 from zeilen where z < 11
)
, suche (lab, pos, sta) as      -- Suche einen Weg
( select lab, 21, 'ok'          -- Start: das leere Labyrinth
    from labyrinth
                                -- Schritt: probiere nach rechts
  union all select lab, pos + 1, 'pr'
    from suche
    where sta = 'ok'
)                               -- Zeilen der Labyrinthe anzeigen
select substr(lab, 19 * z - 18, 19), sta
    from suche,zeilen
    order by lab, sta, z