This simple logic could be incorporated into WAM iiiSecMaint, however, you will instead create a new WAM to illustrate building a multi-WAM application.

  1. Review the following web page:

  2. Create a new WAM iiiSecAdd– Add Section using Layout Weblet iiilay01. Consider what common definitions and logic you could copy from iiiSecMaint. What WEB_MAPs will be required in the 'AddSect' WebRoutine?

  3. Create a basic outline for your WAM based on the following pseudo code
         Define a work field DEPT_IN based on DEPTMENT 
    Define a Group_by of all fields for the Section table. All fields should be input capable
    Map field STDRENTRY for *both, as a *hidden field
         Define a WebRoutine "AddSect"
         Map field DEPT_IN for *both 
    Map group_by for Section fields for *both, all fields should be input capable. DEPTMENT should be a hidden field
    End routine

    Your code should now look like this:
         Function Options(*DIRECT)
    Begin_Com Role(*EXTENDS #PRIM_WAM) Layoutweblet('iiilay01')
    Define #DEPT_IN Reffld(#DEPTMENT)
    Group_By Name(#SECT_DETL) Fields((#DEPTMENT *hidden) #SECTION #SECDESC #SECADDR1 #SECADDR2 #SECADDR3 #SECPCODE #SECPHBUS)
    *
    Web_Map For(*BOTH) Fields((#STDRENTRY *HIDDEN))
    *
    WebRoutine Name(AddSect) Desc('Add Section')
    Web_Map For(*BOTH) Fields(#Dept_In #SECT_DETL)
    * ----------------------------
    * Add section logic goes here
    * ----------------------------
    Endroutine
    End_Com