Step 1. Create iiiSecMaint - Section Maintenance WAM

To design and develop your WAM applications, just like any other new application, you need to begin by focusing on:

• What is the business process?
• The user interface
• A new web application will require many WAMs and many web pages. Start by drawing up a plan of the web site and the navigation it will require.
• What WebRoutines will be required?
• What working lists, group_bys, working fields need to be defined?
• What weblets can be used to enhance the user interface?
• What working lists will be required to support these weblets?
• How do fields and lists need to be mapped into and out of each WebRoutine?
• In a new WAM create your WebRoutines and WEB_MAPS before coding your application logic
• When you add a new WebRoutine to a WAM, the XML/XSL will be built at compile time.

1. Create a new WAM.
    
        Name: iiiSecMaint
        Description: Section Maintenance
        Layout weblet: iiilay01
   
   Consider the first two screen captures shown in the Objectives section that show the Begin WebRoutine in operation. This WebRoutine initially displays a list of sections that is empty and an input field for a department code. An AutoComplete weblet will replace the Department Code input field. A Select push button invokes the Begin WebRoutine that builds a list of sections for the department and displays this list.
   Consider what working lists will be needed to handle this web page and what logic will be necessary?
   
   
   1. Define a work field DEPT_IN based on DEPTMENT, this will be the department code input field.
   2. Define working list DEPTS, to support the AutoComplete weblet. The list contains the field DEPTMENT only.
   3. Define working list SECTLIST, to support the list of sections containing STDSELECT, SECTION, SECDESC, SECADDR1. Note: All fields apart from STDSELECT should have an *output attribute.
   4. Map STDRENTRY globally as a hidden field.
      
      
2. Define a WebRoutine named Begin, based on the following pseudo code
   

        Map field DEPT_IN for * both
        Map for *output the Sections working list, SECTLIST
        Case of field STDRENTRY
        * Select Push Button
        When = S
        clear list SECTLIST
        select fields in working list from the section table with the key dept_in
        add entry to working list
        end of select loop
        end of case loop

    

3. Define a response WebRoutine AutoComplete to build the list DEPTS to support the AutoComplete weblet

        Define WebRoutine AutoComplete with a Response(*JSON) keyword
        Map DEPT_IN for input
        Map list DEPTS for output as a *JSON list
        Convert the first character of DEPT_IN to uppercase
        clear list of departments
        Select DEPTMENT from the file DEPTAB with the key DEPT_IN, with a Generic(*yes) keyword
        Add an entry to the department list
        end select
        end subroutine

   
   Your completed code should now look like the following:

        Function Options(*DIRECT)
        Begin_Com Role(*EXTENDS #PRIM_WAM) Layoutweblet('iiilay01')
        Define Field(#dept_in) Reffld(#deptment)
        Def_List Name(#depts) Fields(#deptment) Type(*Working)
        Def_List Name(#sectlist) Fields(#STDSELECT (#SECTION *out) (#SECDESC *out) (#SECADDR1 *out)) Type(*Working)
        Web_Map For(*both) Fields((#stdrentry *hidden))
        WebRoutine Name(Begin) Desc('Select a Department')
        Web_Map For(*both) Fields(#dept_in #sectlist)
        Case (#stdrentry)
        When (= S)
        Clr_List Named(#sectlist)
        Select Fields(#sectlist) From_File(sectab) With_Key(#dept_in)
        Add_Entry To_List(#sectlist)
        Endselect
        Endcase
        Endroutine
        WebRoutine Name(AutoComplete) Response(*JSON)
        Web_Map For(*input) Fields(#dept_in)
        Web_Map For(*output) Fields((#depts *json))
        #dept_in := #dept_in.substring( 1, 1 ).upperCase
        Clr_List Named(#depts)
        Select Fields(#deptment) From_File(deptab) With_Key(#dept_in) Generic(*yes)
        Add_Entry To_List(#depts)
        Endselect
        Endroutine
        End_Com
   
   

4. Compile your WAM and open the Begin WebRoutine in the Design view.
   Your web page should look like the following:
   
   
   
   

5. Drag and drop an jQuery UI AutoComplete weblet onto the Department Code field. Select the Details tab and set up the AutoComplete properties:

   Property	Value
   sourceWrName	AutoComplete
   Listname	DEPTS
   valueField	DEPTMENT

   
   
   

6. If the Select column (field STDSELECT) is shown as an input field (i.e. it does not have a clickable image weblet field visualization defined in the Repository), drop a Clickable Image weblet into the field in the first column.
   
   

7. With the clickable image selected, select the Details tab and set up its properties:

   Property	Value
   currentrowhfield	SECTION
   currentrownumvalue	$SECTION
   Rentryvalue	S
   tooltip	Select a Section
   on_click_wrname	Details

   Note:

   • To return a field value from a list define the value as $FIELDNAME (upper case). i.e. $SECTION in this case.
   • Although 'SECTION' is an *output field in the list, you can return a field value via the clickable image weblet.
   • The Details WebRoutine is not yet defined in your WAM, so you need to type in this value for the on_click_wrname property.
8. Select a clickable image weblet. Set the relative_image_path by clicking in the Value column, and then using the Elipsis button and select the /normal/16 folder and then select any suitable image. See the example following:
   
   
    
9. Select the column heading "Std *WEBEVENT template field" and delete it. 
   
   
10. If the field SECTION has a dropdown field visualization defined in the Repository, it will not be displayed in the list – since it is an *output field. If necessary, select the field SECTION in the list and use the context menu to select the option Replace with an Output Field.
    
    
11. Select anywhere in the table containing "Department Code" and the AutoComplete weblet. Use the context menu, and select the option Table Items / Add columns… to add one column to the right. Add a push button into this new column and remove the * placeholder characters from this cell.
    Set up the push button properties:

    Property	Value
    caption	Select
    on_click_wrname	Begin
    submitExtraFields	Field Name: STDRENTRY
    	Literal Value: S

    Note: Whenever possible, set a weblet property value by selection from its dropdown list. Using a list of values provided by the editor, when available, will help to minimize errors in your XSL.

    
    
    
12. Save your changes and run the web page in the browser. Your page should look like the following: