Step 1. Create Session Management 1 WAM

WAM080 - Session Management

1.  Create a new WAM:

     Name: iiiSessionMng

     Description: Session Management 1

     Layout Weblet: iiilay01

Again, note the Identifier assigned to this WAM. You will need this information in a later step. Of course you could always look up the Identifier in the Repository.

2.  Press F7 to display the WAM properties. To enable session management, set SessionStatus to Active.

3.  Define the following lists and global web maps:

* list of employees to be saved on the server
Def_List Name(#empsave) Fields(#empno #surname #givename) Counter(#std_count) Type(*Working) Entrys(99)
* latest search list of employees
Def_List Name(#empnew) Fields((#empno *out) (#surname *out) (#givename *out)) Type(*Working) Entrys(99)
* display current saved list of employees.
Def_List Name(#empdisp) Fields(#stdselect (#empno *out) (#surname *out) (#givename *out)) Type(*Working) Entrys(99)
* Map persistent data
Web_Map For(*none) Fields(#empsave) Options(*PERSIST)
* Map common return field from weblets
Web_Map For(*input) Fields((#stdrentry *hidden))
 

     Note that working list EMPSAVE is mapped as persistent data.

4.  Create three WebRoutines based on the following:

* Initialize WebRoutine sets sessionstatus active
WebRoutine Name(init) Onentry(*SESSIONSTATUS_NONE)
#com_owner.sessionstatus := active
Message Msgtxt('Session is now active')
Transfer Toroutine(search)
Endroutine
* Perform search and display results.
WebRoutine Name(search) Desc('Build a list of employees')
Web_Map For(*both) Fields(#surname)
Web_Map For(*output) Fields(#empnew)
Endroutine
* Load and display a list, from the saved list
WebRoutine Name(showsave) Desc('Show saved list of employees')
Web_Map For(*output) Fields(#empdisp)
Endroutine

 

     Note that as outlined in the Objectives, the init WebRoutine may be executed before a session is active.

5.  Add the initial logic to WebRoutine search.

• when STDRENTRY is S

• This should clear the list EMPNEW, which is built by each search.

• Ensure the surname is not blank

• Build the list EMPLIST by reading the logical file PSLMST2, with a key of surname, with generic(*yes).

• Add entries to both EMPNEW and the saved list EMPSAVE.

     Your code should look like the following:

Case (#stdrentry)
When (= S)
Clr_List Named(#empnew)
Begincheck
Valuecheck Field(#surname) With_List(*BLANK) In_List(*ERROR) Not_Inlist(*NEXT) Msgtxt('Surname may not be blank')
Endcheck
Select Fields(#empsave) From_File(pslmst2) With_Key(#surname) Nbr_Keys(*compute) Generic(*yes)
Add_Entry To_List(#empnew)
Add_Entry To_List(#empsave)
Endselect
Endcase
 

6.  Add the initial logic to the showsave WebRoutine

• Output the list EMPDISP which is loaded from the save list EMPSAVE.

• When STDRENTRY is L

• If the saved list counter value (STD_COUNT) is greater than 1

• Clear the list EMPDISP
• Read all records from EMPSAVE using SELECTLIST
• Add entries to EMPDISP

• Else

• Output message 'Saved list of employees is empty'
• Transfer to search WebRoutine.

     Your code should look like the following:

Case (#stdrentry)
When (= L)
If (#std_count > 1)
Clr_List Named(#empdisp)
Selectlist Named(#empsave)
Add_Entry To_List(#empdisp)
Endselect
Else
Message Msgtxt('Saved employee list is empty')
Transfer Toroutine(search)
Endif
Endcase
 

7.  Add an event handling routine for session invalid to transfer to the search init WebRoutine. Your code should look like the following:

Evtroutine Handling(#COM_OWNER.sessioninvalid)
Message Msgtxt('Session Management must be active')
Transfer Toroutine(init)
Endroutine

 

8.  Compile the WAM.

9.  Open the Search WebRoutine in the Design view. Add a column to the table containing employee surname. Drop a push button into the new column. Set up the button properties:

Property Value caption Search on_click_wrname Search submitExtraFields   Field Name: STDRENTRY Literal Value: S

10. Add a few blank lines below the table containing the employees list and insert a table with 1 row and 3 columns. Drop a push button into the left hand column and set up the button properties:

Property Value Caption Show Saved List On_click_wrname Showsave submitExtraFields   Field Name: STDRENTRY Literal Value: L

Adjust the width of the push button to show the caption as a single line.   

Save your changes. 

     Your page should look like the following:

11. Open the showsave WebRoutine in the Design view. Select the list, move the cursor right and press enter to create a blank line below the list. Drop a push button below the list and set up its properties:

Property Value Caption Return On_click_wrname Search submitExtraFields   Field Name: STDRENTRY Literal Value: M

     Your web page should look like the following:

12.  Save your changes.

13. Execute your WAM in the browser by running any WebRoutine. Control will pass to the init WebRoutine which will enable session management, and transfer to the search WebRoutine.

     You should be able to see the following results:

• A list of employees based on a search value such as B or S.

• Display the current saved list in WebRoutine showpage.

• Return to the WebRoutine search.

• Perform another search and display the result of both searches in the showpage WebRoutine.

• Restart the WAM from the init WebRoutine and immediately display the saved list.

Q.  Why is the list empty?

A.  The persistent data is only restored if the session is already active. Running WebRoutine init starts a new session.