Page History
...
- Create a new WAM:
Name: iiiUseListRowWeblet
Description: Using a List Row Weblet
Layout Weblet: iiilay01
...
- Add the following definitions after the Begin_Com:
...
Define Field(#fulladdr)
...
Reffld(#std_textl)
...
Define Field(#location)
...
Reffld(#std_textl)
...
Define Field(#DESC1)
...
Reffld(#std_desc)
...
Default('''Name:
...
''')
...
Define Field(#DESC2)
...
Reffld(#std_desc)
...
Default('''Location:
...
''')
...
Define Field(#DESC3)
...
Reffld(#std_desc)
...
Default('''Address:
...
''')
...
Define Field(#DESC4)
...
Reffld(#std_desc)
...
Default('''
...
Start Date:
...
''')
...
Define Field(#DESC5)
...
Reffld(#std_desc)
...
Default('''
...
Monthly Salary:
...
''')
...
Define Field(#DESC6)
...
Reffld(#std_desc)
...
Default('''
...
Annual Salary:
...
''')
...
Define Field(#DESC7)
...
Reffld(#std_desc)
...
Default('''
...
Employee Number:
...
''')
*
Group_
...
By Name(#empdata)
...
Fields(#empno #SURNAME #GIVENAME #ADDRESS1 #ADDRESS2 #ADDRESS3 #POSTCODE #DEPTMENT #SECTION #SALARY #mnthsal #STARTDTE)
Def_List Name(#emplist) Fields(#empno #fullname #fulladdr #location #SALARY #mnthsal #STARTDTE #std_textl #DESC1 #DESC2 #DESC3 #DESC4 #DESC5 #DESC6 #DESC7) Type(*Working)
*
Web_Map For(*both) Fields((#stdrentry *hidden))
WebRoutine Name(list)
Web_Map For(*both) Fields(#deptment) /* comment */
Web_Map For(*output) Fields((#emplist *private))
Case (#stdrentry)
When (= S) /* Build list of employees */
Clr_List Named(#emplist)
Select Fields(#empdata) From_File(pslmst1) With_Key(#deptment) Nbr_Keys(*compute)
Fetch Fields(#deptdesc) From_File(deptab) With_Key(#deptment) Keep_Last(15)
Fetch Fields(#secdesc) From_File(sectab) With_Key(#deptment #section) Keep_Last(10)
#std_textl := 'PHOTOS/' + #EMPNO + '.jpg'
#fullname := #givename + ', ' + #surname
#fulladdr := #address1 + ', ' + #address2 + ', ' + #address3 + ', ' + #postcode.asstring
#location := #deptdesc + ', ' + #secdesc
Add_Entry To_List(#emplist)
Endselect
Otherwise
Message Msgtxt('Enter a department code and Search')
Endcase
Endroutine- Review the supplied code.
The
...
- only unusual part of this WAM is that it defines a number of work fields used to define the labels required for the fields to be output in each row.
...
- The working list EMPLIST contains the required fields for each employee, selected from the logical file PSLMST1 with a key of DEPTMENT.
...
- Compile the WAM.