Page History

[ Image Removed |../../index.htm#lansa/wamtut01_0700.htm]
You are here:

...

WAM050 – A Section Maintenance Application
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:

...

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 OptionsFunction Options(*DIRECT) Begin_Com RoleCom Role(*EXTENDS #PRIMEXTENDS #PRIM_WAM)  LayoutwebletLayoutweblet('iiilay01') Define #DEPTDefine #DEPT_IN ReffldIN Reffld(#DEPTMENT) Group_By NameBy Name(#SECT_DETL)  FieldsFields((#DEPTMENT #DEPTMENT *hidden)  #SECTION #SECDESC #SECADDR1 #SECADDR2 #SECADDR3 #SECPCODE #SECPHBUS#SECTION #SECDESC #SECADDR1 #SECADDR2 #SECADDR3 #SECPCODE #SECPHBUS) * Web_Map ForMap For(*BOTH)  FieldsFields((#STDRENTRY #STDRENTRY *HIDDEN)) * WebRoutine NameWebRoutine Name(AddSect)  DescDesc('Add SectionAdd Section') Web_Map ForMap For(*BOTH)  FieldsFields(#Dept_In #SECTIn #SECT_DETL) *   ---------------------------- *  Add section logic goes here Add section logic goes here *   ---------------------------- Endroutine End_Com   
[ Image Removed |../../index.htm#lansa/wamtut01_0700.htm]