функция строки в SAS SQL

[при условии, что порядок значений не важен, если отсутствующие значения находятся с одной стороны, а неотсутствующие значения — с другой] Вы можете использовать call sortn. call sortn по существу сортирует значения в столбцах так же, как PROC SORT сортирует строки.

data have;
input ref1 $ ref2 $ col1-col6;
datalines;
 A B 41 . 42 . . .
 D E . 63 65 . 68 .
 X Y 23 25 55 . 89 99
 K L 12 . . 22 . .
 U V . . 22 88 . 11
 ;
 run;

DATA WANT;
SET have;
ARRAY myVars{6} col6-col1;
call sortn(of myVars(*));
run;

/*note the reversed col6-col1, this is because sortn only does
   ascending order sort, if we want descending then array variables must be specified in reverse order*/

Там может быть какой-то хитрый трюк, но на первый взгляд я бы работал с массивами.

data OUTPUT (drop=i j);
    set INPUT;
    array c_array{6} Col1-Col6;
    do i=1 to 6;
        /*if missing, look further in the array for a value*/
        if missing(c_array{i}) then do;
            do j=i+1 to 6 by 1;
                /*if a value is found, copy it to the empty location, then erase it from the original spot*/
                if not missing(c_array{j}) then do;
                    c_array{i} = c_array{j};
                    c_array{j} = .;
                    leave; /*stop the loop, we found what we needed*/
                end;
            end;
            /*if you did not find anything, it is pointless to continue for the remainder of the array*/
            if missing(c_array{i}) then leave;
        end;
    end;
run;

Я не упомянул оператор переименования, который вам нужно будет написать, чтобы перейти от ColX к CX, но я надеюсь, что эта деталь достаточно очевидна. ;)

(Я не знаю, есть ли CTE в SAS SQL, я полагаю, что да)

Приведенная ниже программа сначала нормализует таблицу cros, затем повторно вычисляет ранги значений ячеек, а затем использует новые ранги для обновления исходной таблицы.

(обновление строго не требуется, в SAS наверное лучше было бы просто создать новую таблицу для результата)

-- create the data
CREATE TABLE sasmeuk
        ( ref11 CHAR(1)
        , ref2 CHAR(1)
        , col1 INTEGER
        , col2 INTEGER
        , col3 INTEGER
        , col4 INTEGER
        , col5 INTEGER
        , col6 INTEGER
        );
INSERT INTO sasmeuk
( ref11, ref2, col1, col2, col3, col4,col5,col6) VALUES
 ('A', 'B',     41 ,NULL,   42,NULL,NULL,NULL)
 ,('D', 'E', NULL,    63 ,  65,NULL,   6,NULL)
 ,('X', 'Y',     23 ,  25 ,  55 ,NULL,  89,  99)
 ,('K', 'L',     12 ,NULL,NULL,   22,NULL,NULL)
 ,('U', 'V', NULL,NULL,    22,   88,NULL,  11)
        ;

-- SELECT * FROM sasmeuk;

WITH flat AS ( -- NORMALISE the cross-table
        SELECT ref11,ref2,1 AS idx, col1 AS val FROM sasmeuk
        UNION ALL SELECT ref11,ref2,2 AS idx, col2 AS val FROM sasmeuk
        UNION ALL SELECT ref11,ref2,3 AS idx, col3 AS val FROM sasmeuk
        UNION ALL SELECT ref11,ref2,4 AS idx, col4 AS val FROM sasmeuk
        UNION ALL SELECT ref11,ref2,5 AS idx, col5 AS val FROM sasmeuk
        UNION ALL SELECT ref11,ref2,6 AS idx, col6 AS val FROM sasmeuk
        )
, argh AS ( -- Compute new ranks.
        SELECT f.*
        , rank() OVER (PARTITION BY f.ref11,f.ref2 ORDER BY f.idx) AS rnk
        FROM flat f
        WHERE f.val IS NOT NULL
        )
, inflated AS ( -- DENORMALISE: rejoin with keys, and pick col[1-6] by ranks
        SELECT a0.ref11,a0.ref2
                , a1.val AS col1 , a2.val AS col2 , a3.val AS col3
                , a4.val AS col4 , a5.val AS col5 , a6.val AS col6
        FROM sasmeuk a0
        LEFT JOIN argh a1 ON a1.ref11 =  a0.ref11 AND a1.ref2  = a0.ref2 AND a1.rnk =1
        LEFT JOIN argh a2 ON a2.ref11 =  a0.ref11 AND a2.ref2  = a0.ref2 AND a2.rnk =2
        LEFT JOIN argh a3 ON a3.ref11 =  a0.ref11 AND a3.ref2  = a0.ref2 AND a3.rnk =3
        LEFT JOIN argh a4 ON a4.ref11 =  a0.ref11 AND a4.ref2  = a0.ref2 AND a4.rnk =4
        LEFT JOIN argh a5 ON a5.ref11 =  a0.ref11 AND a5.ref2  = a0.ref2 AND a5.rnk =5
        LEFT JOIN argh a6 ON a6.ref11 =  a0.ref11 AND a6.ref2  = a0.ref2 AND a6.rnk =6
        )
UPDATE sasmeuk dst -- Do the final update
SET col1 = src.col1 , col2 = src.col2 , col3 = src.col3
        , col4 = src.col4 , col5 = src.col5 , col6 = src.col6
FROM inflated src
WHERE src.ref11 = dst.ref11 AND src.ref2  = dst.ref2
        ;

SELECT * FROM sasmeuk
        ;

ОБНОВЛЕНИЕ: приведенный ниже код менее элегантен, но намного проще:

UPDATE sasmeuk SET col5 = col6, col6 = NULL WHERE col5 IS NULL;
UPDATE sasmeuk SET col4 = col5, col5 = NULL WHERE col4 IS NULL;
UPDATE sasmeuk SET col3 = col4, col4 = NULL WHERE col3 IS NULL;
UPDATE sasmeuk SET col2 = col3, col3 = NULL WHERE col2 IS NULL;
UPDATE sasmeuk SET col1 = col2, col2 = NULL WHERE col1 IS NULL;

Пожалуйста, смотрите ниже код, который работал. Решение предоставлено JT85.

set test;
  array in col1-col6;
  array out $ c1-c6;
  j=1;
  do i=1 to 5;
    if in(i) ne ' ' then do;
      out(j)=in(i);
      j+1;
    end;
  end;
run;

Спасибо