zoukankan      html  css  js  c++  java
  • SAP HANA

    DROP PROCEDURE ""."ZCONCAT_EKKO_EBN";
    CREATE PROCEDURE ""."ZCONCAT_EKKO_EBN"(OUT RESULT ""."OUT_SPLIT_EK_EBN") 
    LANGUAGE SQLSCRIPT AS
    BEGIN
        DECLARE _ZHETONG NVARCHAR(1000) ARRAY;
        DECLARE _ZEBELN  NVARCHAR(5000) ARRAY;
        DECLARE _ZHT NVARCHAR(1000); 
        
        DECLARE _INDEX INTEGER := 1;
        DECLARE _IND1 INTEGER := 1;
        
        DECLARE CURSOR C_CURSOR1 FOR                
          SELECT DISTINCT ZHETONG,EBELN FROM "CTNT_ECC"."EKKO" WHERE BUKRS LIKE '21%' AND ZHETONG NOT IN ('','0','1','TS','')
          ORDER BY ZHETONG,EBELN;           
        FOR CUR_ROW1 AS C_CURSOR1 DO 
        
          IF _IND1 = 1 THEN
            _ZHT := CUR_ROW1.ZHETONG;
            _ZHETONG[:_INDEX] := '';
            _ZEBELN[:_INDEX] := '';
          END IF; 
         
          IF CUR_ROW1.ZHETONG = :_ZHT THEN
           _ZHETONG[:_INDEX] := CUR_ROW1.ZHETONG;
           _ZEBELN[:_INDEX] := :_ZEBELN[:_INDEX]||CUR_ROW1.EBELN||',';
          ELSE
          _INDEX := :_INDEX + 1; 
          _ZHETONG[:_INDEX]  := CUR_ROW1.ZHETONG;
          _ZEBELN[:_INDEX] := CUR_ROW1.EBELN ||',';
          _ZHT := CUR_ROW1.ZHETONG;
          END IF;
          
           _IND1 := :_IND1 + 1;
        END FOR;  
            
          RST = UNNEST(:_ZHETONG, :_ZEBELN) AS ("ZHETONG", "EBELN");
          
          RESULT = SELECT ZHETONG,
                          LEFT(EBELN,LENGTH(EBELN)-1) AS EBELN  
                     FROM :RST;
              
    END;
    
    CALL "ZB_CHENWH"."ZCONCAT_EKKO_EBN"(?) ;
  • 相关阅读:
    Rsync数据同步详情及配置
    ssh密钥及发放
    ssh服务及简单应用
    二叉搜索树的第k个结点
    序列化二叉树
    把二叉树打印成多行
    按之字形顺序打印二叉树
    对称的二叉树
    二叉树的下一个结点
    删除链表中重复的结点
  • 原文地址:https://www.cnblogs.com/mingdashu/p/string_agg.html
Copyright © 2011-2022 走看看