DB2 z/os generieren 2 zeiliger SQL-Anweisungen

Ansicht von 3 Beiträgen - 1 bis 3 (von insgesamt 3)
  • Author
    Posts
  • 18. Januar 2005 um 7:10 Uhr #2499
    wsperlin

    Mitglied

    Hallo, liebes Forum,

    weiß jemand einen Trick, wie ich mittels SPUFI mehrzeilige SQL-Anweisungen generieren kann? Das generiertes Ergebnis sieht zwar gut aus, läßt sich aber nicht abarbeiten, da ab Spaltenposition 72? der Text abgeschnitten wird. Und Zeilenumbrüche per Hand einzuarbeiten kann ja auch nicht die Lösung sein.

    grübelnd Werner

    18. Januar 2005 um 9:46 Uhr #2960
    umayer

    Mitglied

    Leider kenne ich keine Db2-seitige Lösung.

    Vielleicht hilft Dir diese REXX weiter:

     /* rexx */                                                  
     "ISREDIT MACRO"                                              
     address isredit                                              
     "cursor = .zlast 1"                                          
     "(maxl) = cursor"                                            
     curl = 0                                                    
     do i = 1 to maxl                                            
        curl = curl + 1                                          
        "(data) = line" curl                                      
        if substr(data,73) = “ then iterate                      
        "cursor = " curl " 1 "                                    
        "c 1 2 P’==‘ ‚–‚"                                        
        do while( data ^= “)                                    
           do j = 72 to 1 by -1 while (substr(data,j,1) ^= ‚ ‚ )  
           end                                                    
           if j=0 then j=72                                      
           datlin = ““ substr(data,1,j)  ““                  
           "LINE_AFTER " curl "  = " datlin                      
           curl = curl + 1                                        
           data = substr(data,j+1)                                
        end;                                                      
     end                                                          

    Sie müsste den Text entsprechend umbrechen.
    Einfach in die SYSEXEC mit reinhängen und als EDIT-MACRO ausführen

    18. Januar 2005 um 15:47 Uhr #3285
    krot

    Mitglied

    Hallo Werner,

    hier noch ein Trick bestehend aus SLQ und SORT den ich oft verwende:

    1. UNION ALL verwenden

    Select ZEILE1 , !! ‚–‚ !! KEY !! ’01‘ FROM T
    UNION ALL
    Select ZEILE2 , !! ‚–‚ !! KEY !! ’02‘ FROM T
    UNION ALL
    etc.

    2. Der Key muss das zu generierende SQL-Statement eindeutig identifizieren.

    3. Sorge dafür das — !! KEY !! ’99‘ immer in der selben Spalte landet (auch bei Zeile2 etc.). Rechts von den der SQL-Syntax

    4.
    Im EDITOR oder externer SORT-STEP
    SORT 73 80 und die Zeilennummer (Angenommen hier steht der Key und Zeilennummer)

    Gruß Klaus

  • Author
    Posts
Ansicht von 3 Beiträgen - 1 bis 3 (von insgesamt 3)

You must be logged in to reply to this topic.