WAM095 Appendix A

LANSA WAM

WAM095. Appendix A

Using DXDOCS File - Sample RDMLX for iiiDspEmpDocs

This WAM can be run locally or on IBM i.

Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_WAM) 
Web_Map For(*BOTH) Fields((#stdrentry *hidden)) 
Group_By Name(#empdata) Fields(#EMPNO #SURNAME #GIVENAME #ADDRESS1 #ADDRESS2 #ADDRESS3 #POSTCODE #deptment #section) 
 
Def_List Name(#doclist) Fields(#df_elfnam (#prifilrrn *hidden)) Type(*Working) 
 
Webroutine Name(Begin) 
Web_Map For(*both) Fields(#empno) 
Web_Map For(*output) Fields((#fullname *out) (#address1 *out) (#address2 *out) (#address3 *out) (#postcode *out) (#deptment *out) (#section *out) #doclist) 
If (#stdrentry = S) 
Clr_List Named(#doclist) 
Fetch Fields(#empdata) From_File(pslmst) With_Key(#empno) 
#fullname := #givename + ', ' + #surname 
Select Fields(#df_elfnam) From_File(dxdocs) With_Key('DEM_ORG_SEC_EMP' #deptment #section #empno) Return_Rrn(#PRIFILRRN) 
Add_Entry To_List(#doclist) 
Endselect 
Endif 
Endroutine 
 
Webroutine Name(SEND_DOCUMENT) Response(#HTTPR) Desc('Sample Document') 
 
Web_Map For(*input) Fields(#PRIFILRRN) 
 
Fetch Fields(#df_elfnam #dx_elblob) From_File(dxdocs) With_Rrn(#prifilrrn) 
#HTTPR.ContentFile := #DX_ELBLOB.FileName 
 
Endroutine 
 
End_Com