Page History

...

1. Add the following code and then review its logic. Change iii to your initials. Ensure that the WAM name contains your WAM Identifier.

        Webroutine Name(treeexpand) Response(*json)
        Web_Map For(*input) Fields((#ancestor *json))
        Web_Map For(*output) Fields((#emptree *json))
        Web_Map For(*input) Fields(#onsubid #onsublvl)
        Clr_List Named(#emptree)
        Case (#onsublvl)
        * Level 1 expanding – add sections
        When (= '1')
        #deptment := #onsubid
        Select Fields(#deptment #section #secdesc) From_File(sectab) With_Key(#deptment)
        #listid := #deptment + #section
        #listcapt := #secdesc
        #listpid := #deptment
        #haschld := Y
        #selwam := iiiTRE_2
        #selwrn := SECDET
        Add_Entry To_List(#emptree)
        Endselect
        * Level 2 expanding – add employees
        When (= '2')
        Get_Entry Number(1) From_List(#ancestor)
        #deptment := #listid
        #std_num := (#deptment.CurChars + 1)
        Get_Entry Number(2) From_List(#ancestor)
        #section := #listid.substring( #std_num )
        Clr_List Named(#emptree)
        Select Fields(#empno #surname #givename) From_File(pslmst1) With_Key(#deptment #section)  
        #listid := #empno
        #listcapt := #surname + ', ' + #givename
        #listpid := #deptment + #section
        #haschld := N
        #selwam := iiiTRE_2
        #selwrn := EMPDET
        Add_Entry To_List(#emptree)
        Endselect
        Endcase
        Endroutine

    
2. Compile your WAM and open the deptview WebRoutine in the Design view. Select the tree view and complete setting up its properties, as follows:

   Property	Value
   onexpand_wrname	TREEEXPAND
   onsubmit_id_field	ONSUBID
   onsubmit_level_field	ONSUBLVL
   onsubmit_ancestor_list	ANCESTOR

   
   
   
3. Save your changes and execute your WAM in the browser. Click the Expand icon to test the expanding. (Clicking the text to display the details for this level, will be completed in the next step.
   
   You should now be able to expand a department to add sections belonging to this department and then expand a section, adding employees belonging to this section.