IBM Mainframe Forum

  with CT1(SCH1, TAB1) as                                
       (select 'SCH1', 'TAB1' from SYSIBM.SYSDUMMY1   union all
        select 'SCH1', 'TAB0' from SYSIBM.SYSDUMMY1
       )                                          
   select distinct                                                            
          substr(RL.CREATOR, 01, 4)     as "Schm"                              
        , substr(RL.REFTBNAME, 01, 08)  as "Parent"                            
        , substr(RL.TBNAME, 01, 08)     as "Enfant"                            
        , substr(RL.RELNAME, 01, 20)    as "Contrainte"                        
        , RL.DELETERULE                 as "OnDel"                            
        , RL.ENFORCED                   as "For"                              
        , RL.CHECKEXISTINGDATA          as "Chk"                              
        , FK.COLNO                      as "ColNo"                            
        , substr(FK.COLNAME, 01, 08)    as "ColName"                          
   from SYSIBM.SYSRELS RL                                                      
   inner join CT1      CT                                                      
      on (RL.CREATOR      = CT.SCH1  and  RL.TBNAME    = CT.TAB1)              
      or (RL.REFTBCREATOR = CT.SCH1  and  RL.REFTBNAME = CT.TAB1)              
   inner join SYSIBM.SYSFOREIGNKEYS FK                                        
      on FK.CREATOR = RL.CREATOR                                              
     and FK.RELNAME = RL.RELNAME                                              
   order by "Parent"                                                          
          , "Enfant"                                                          
          , "Contrainte"                                                      
          , "ColNo"                                                            
   ;                

   CREATE TABLE SCH0.T020                              
      (  T20C01   SMALLINT NOT NULL  PRIMARY KEY        
       , T20C02   SMALLINT NOT NULL                    
       , T20C03   DATE     NOT NULL                    
       , T20C04   CHAR(8)  NOT NULL  UNIQUE            
       , T20C05   INTEGER  NOT NULL                    
      )                
   ;  
   CREATE TABLE SCH0.T021                          
      (  T21C01   SMALLINT NOT NULL  PRIMARY KEY    
       , T21C02   SMALLINT NOT NULL                
       , T21C03   CHAR(8)  NOT NULL                
       , T21C05   INTEGER  NOT NULL                
       , FOREIGN KEY FK21AK20(T21C03)              
                 REFERENCES DD0Q.T020(T20C04)      
                 ON DELETE CASCADE                  
      )                            
   ;