SAS/AF SCL List Class extension

Reader Comments

This topic has downloads.

This extension to sashelp.classes.scllist.class provides an additional method, sortSubLists, for sorting the encapsulated SCL list. Oft times, one wants to sort a list of lists by namedItem value or list of objects by attribute value. This is especially true when dealing with lists returned by SAS meta class object's _getMembers() method, or lists that are to be used to populated the List View Control or Tree View Control. Only lists whose namedItem (or objects whose attribute) is a character or numeric itemType will be considered sortable. The sort will be based on unformatted character and numeric BEST12. values.

The method has two signatures:

sortSubLists(C[itemName], C[sortDirection(A|D)])
sortSubLists(N[itemIndex], C[sortDirection(A|D)])

The first signature will work with Lists of Lists or Lists of Objects, the second signature will only work with Lists of Lists (and the sublists best have the items in the same order in each sublist)

Installation

This class is designed to be installed as common.components.scllist.class

How to manually create this extended class

Step 1. Issue command:

Build Common.Components.Scllist.scl

Step 2. Copy the code below into the build editor. Then issue command:

SAVECLASS

or use menu File/Save As Class

Step 3. Issue command

COMPILE

or use menu Build/Compile, or use Compile toolbar icon

CLASS Common.Components.Scllist.class
  extends sashelp.classes.Scllist.class
  / (description='contains additional methods') ;

  %* define attributes;

  %* define and implement methods;

  %*--------------------------------------------------------------;
  sortSubLists: public method
    sortByItemName: char
    optional=
    sortDirection: char
    / (description='Sort list of list items by namedItem value
and object items by attribute value') ;

    declare num i N p;
    declare char itemType sortValue;
    declare list sortL = {};
    declare num rc = setLattr (sortL, 'AUTODELETE');
    declare list L;
    declare object O;
    declare list O_itemAttr = {};
    rc = setLattr (O_itemAttr, 'AUTODELETE');

    N = listlen (id);

    do i = 1 to N;
      itemType = itemType (id, i);
      if itemType = 'L' then do;
        L = getitemL (id, i);
        p = namedItem (L, sortByItemName);
        if p then do;
          itemType = itemType (L, p);
          if itemType in ('C', 'N') then do;
            if itemType = 'C' then
              sortValue = getitemC (L, p);
            else
              sortValue = put(getitemN (L, p), best12.);

            rc = insertc (sortL, sortValue, -1, put(i,8.));
          end;
        end;
      end;
      else
      if itemType = 'O' then do;
        O = getitemO (id, i);
        O._getAttribute (sortByItemName, O_itemAttr);
        if listlen (O_itemAttr) > 0 then do;
          itemType = getNitemC (O_itemAttr, 'TYPE');
          if itemType in ('Character', 'Numeric') then do;
            if itemType = 'Character' then
              sortValue = O._getAttributeValue (sortByItemName);
            else
              sortValue = put(O._getAttributeValue (sortByItemName),
                              best12.);

            rc = insertc (sortL, sortValue, -1, put(i,8.));
          end;
        end;
      end;
    end;

    if  not (index ('ASCENDING',  upcase(sortDirection)) = 1)
    and not (index ('DESCENDING', upcase(sortDirection)) = 1)
    then
      sortDirection = '';

    rc = sortlist (sortL, sortDirection);

    %* copy sorted items to front of list;
    N = listlen (sortL);
    do i = 1 to N;
      p = input (nameItem (sortL, i), 8.);
      itemType = itemType (id, p+i-1);
      if itemType = 'L' then do;
        L = getitemL (id, p+i-1);
        _addList (L,i, nameItem(id,p+i-1));
      end;
      else do;
        O = getitemO (id, p+i-1);
        _addObject (O,i, nameItem(id,p+i-1));
      end;
    end;

    %* delete items copied from;
    rc = sortlist (sortL, 'NAME DESCENDING');
    do i = 1 to N;
      p = input (nameItem (sortL, i), 8.);
      _removeItem (N+p);
    end;

  endmethod;

  %*--------------------------------------------------------------;
  sortSubLists: public method
    sortByItemIndex: num
    optional=
    sortDirection: char
    / (description='Sort list of list items by item value
at a fixed index') ;

    declare num i N p;
    declare char itemType sortValue;
    declare list sortL = {};
    declare num rc = setLattr (sortL, 'AUTODELETE');
    declare list L;

    N = listlen (id);

    do i = 1 to N;
      itemType = itemType (id, i);
      if itemType = 'L' then do;
        L = getitemL (id, i);
        if listlen (id) >=  sortByItemIndex then do;
          itemType = itemType (L, sortByItemIndex);
          if itemType in ('C', 'N') then do;
            if itemType = 'C' then
              sortValue = getitemC (L, sortByItemIndex);
            else
              sortValue = put(getitemN (L, sortByItemIndex),
                              best12.);

            rc = insertc (sortL, sortValue, -1, put(i,8.));
          end;
        end;
      end;
    end;

    if  not (index ('ASCENDING',  upcase(sortDirection)) = 1)
    and not (index ('DESCENDING', upcase(sortDirection)) = 1)
    then
      sortDirection = '';

    rc = sortlist (sortL, sortDirection);

    %* copy sorted items to front of list;
    N = listlen (sortL);
    do i = 1 to N;
      p = input (nameItem (sortL, i), 8.);
      L = getitemL (id, p+i-1);
      _addList (L,i, nameItem(id,p+i-1));
    end;

    %* delete items copied from;
    rc = sortlist (sortL, 'NAME DESCENDING');
    do i = 1 to N;
      p = input (nameItem (sortL, i), 8.);
      _removeItem (N+p);
    end;

  endmethod;

ENDCLASS;