Centralize all your Instance List Activities

Centralize all your Instance List Activities

Once you start to centralize all your instance lists management code into a single manager component you will find it can be used in many different ways.

For example, command handlers often need to update details in the instance list when the user updates something. For example, this command handler would need to update the instance list if the user changed the employees' name:

 

If #EMPMNGR had a shared method like this:

MthRoutine UpdateListDetails

Define_Map *Input #vf_lm002 #ListManager Pass(*By_Reference)

Define_Map *Input #EmpNo    #ForEmpNo

 

Fetch fields(*all) from_file(PSLMST) with_key(#ForEmpno)

 

Invoke #ListManager.BeginListUpdate Mode(DYNAMIC)

 

#FullName := #GiveName + " " + #SurName

 

Invoke Method(#ListManager.UpdateListEntryData) Visualid1(#Empno) Visualid2(#FullName) Akey1(#Deptment) Akey2(#Section) Akey3(#Empno) AColumn1(#Phonehme) AColumn2(#Address1) nColumn1(#PostCode)

 

Invoke #ListManager.EndListUpdate

 

EndRoutine

 

Then all any command handler would need to do to update the instance list is declare the shared #EMPMNGR like this …

DEFINE_COM CLASS(#EMPMNGR) NAME(#EmployeeManager) scope(*Application)

  

and then invoke the method to update the employees' instance list details ….

#EmployeeManager.UpdateListDetails ListManager(#avListManager) ForEmpno(#Empno)

  

The benefit here of course is that all command handlers working with employee information could reuse the UpdateListDetails method and none of them even need to understand how this is done.

Sometimes command handlers also need to delete individual entries from the instance list, so if the centralized instance list manager contained a method like this:

MthRoutine DeleteListDetails

Define_Map *Input #vf_lm002 #ListManager Pass(*By_Reference)

Define_Map *Input #EmpNo    #ForEmpNo

Define_Map *Input #Deptment #InDepartment

Define_Map *Input #Section  #InSection

 

Invoke #ListManager.BeginListUpdate Mode(DYNAMIC)

 

Invoke Method(#ListManager.RemoveFromList) Akey1(#InDeptment) Akey2(#InSection) Akey3(#ForEmpno)

 

Invoke #ListManager.EndListUpdate

 

EndRoutine

 

Then any command handler would only need to declare the shared manager:

DEFINE_COM CLASS(#EMPMNGR) NAME(#EmployeeManager) scope(*Application)

  

and invoke the method like this:

#EmployeeManager.DeleteListDetails ListManager(#avListManager) ForEmpno(#Empno) InDepartment(#Deptment) InSection(#Section)

 

to delete the details of an employee from an instance list.