1. Get rid of all advertisements and get unlimited access to documents by upgrading to Premium Membership. Upgrade to Premium Now and also get a Premium Badge!
rakan

List item 2013-04-08

List item

  1. rakan
    DECLARE
    CURSOR crDept IS
    SELECT name LABEL,
    TO_CHAR(id) VALUE
    FROM operator
    ORDER BY 2;
    list44 ITEM:=FIND_ITEM('BLOCK41.LIST44');
    BEGIN
    CLEAR_LIST(list44);
    FOR rec IN crDept LOOP
    ADD_LIST_ELEMENT(list44, GET_LIST_ELEMENT_COUNT(LIST44)+1, rec.LABEL, rec.VALUE);
    END LOOP;
    END;